285. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:17 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

285.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHZYJK07.m Mon Nov 5 16:43:52 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHZYJK07.m Mon Nov 5 17:55:54 2018 UTC

285.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 722
Changed 2 4
Inserted 0 0
Removed 0 0

285.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

285.4 Active regular expressions

No regular expressions were active.

285.5 Comparison detail

  1   CHZYJK07   ;CVA/YJK;B eneficiary  CCL LETTE R REPORT  
  2    ;;1.00;HA C Reports; ;Dec 23,20 09
  3    ;; 
  4    ; 
  5    ;     Pri nt CCL let ters for t he input d ate range.
  6    ;      En d date mus t be less  than or eq ual to the  current d ate.
  7    ;
  8    ;               VARI ABLE LIST
  9    ;               CHSN ,SN,LSN .. .......... . Sponsor  Name
  10    ;               CHBN ,BN,LBN... .........   Bene Name
  11    ;               SREC 0 ........ .......... .........  A Sponsor  Record
  12    ;               BREC 0 ........ .... ..... ........A  Bene Recor d   
  13    ;               CHSS SN,SS .... .......... .. Sponsor  SSN
  14    ;               CHBS SN,BS..... .......... ..Bene SSN
  15    ;               CHBE G......... .......... .......Use r Input fo r the Star t Date - F ileMan for mat YYYMMD D
  16    ;               CHEN D......... .......... ......User  Input for  the End D ate - File Man format  YYYMMDD
  17    ;               OUTT YP........ .......... .....User  Input for  Output Typ e - File o r Print
  18    ;               SLTR EC........ .......... ......Spon sor Letter  Record  
  19    ;               CHLS DT........ .......... ......Lett er Sent Da te
  20    ;               CHLT YP........ .......... ......LETT ER TYPE PO INTER TO ^ AHADIC(554 801.1)
  21    ;               LTRN M,LNM..... .......... CCL Letter  Name - fr om AHADIC( 554801.1,C HLTYP,0)
  22    ;               PRTC D ........ .......... .......Pri nt Code -  from AHADI C(554801.1 ,CHLTYP,0)  
  23    ;                                                                     The P rint Code  minus the  trailing A lpha is us ed as Lett er Groups
  24    ;               CHNU M......... .......... ......2nd  Piece of t he Print c ode (after  "-")
  25    ;               PRTC DLN....... .......... .... Lengt h of CHNUM
  26    ;               LTRG RP,LGRP,LG ....... Le tter Group  (the Prin t code min us the tra iling Alph a) 
  27    ;               PREV GRP....... .......... ....Previo us Letter  Group - wh en Previou s Letter g roup is di fferent fr om the cur rent group , subtotal  is writte n for the  prev group
  28    ;               FIRS T ........ .......... .......... Flag for t he first l etter to b e printed
  29    ;               GRPC NT........ .......... .....Numbe r of lette rs per Let ter Group
  30    ;               CHBC T......... .......... .......Tot al number  of CCL let ters
  31    ;               PSPS SN ....... .......... ......Hold s previous  Sponsor S SN so that  Sponsor I nfo is not  printed r epeated un til it cha nges
  32    ;               PG.. .......... .......... ..........  Number of  Pages
  33    ;               LINE NUM....... .......... ...Number  of lines p rinted - I nitialized  to 99.  H eader prin ted for LI NENUM >70
  34    ;               TMP. .......... .......... .........U sed to hol d the user  response  before adv ancing the  screen pr int.  It a lso holds  the Wide s creen sett ing until  Viewing is  done.
  35    
  36   MAIN; 
  37    ;======== ========== ========== ========== ========== ========== >>>>
  38    K CHDBFY1 ,CHDBFY,CH BEG,CHDEFY 1,CHDEFY,C HEND,%DT,E LR1,ZTIO
  39    K ^CHMZHO LD($J,"CCL _BENE_LETT ERS")
  40    K DTFLG,T MP,LINENUM ,PG,PSPSSN
  41    W #
  42    S:'$D(DUZ ) DUZ=1,DU Z(0)=""
  43    
  44         S RT C=$$GETDAT ES()       ; GET REPO RT START &  END DATE
  45         G:RT C=0 END
  46           D  GOUT                                  ;  GE T OUTPUT M ETHOD (FIL E OR PRINT
  47           ;W  !,"OUTTYP  = "_OUTTY P
  48    
  49           I  OUTTYP="FI LE" D ZTLD F G END
  50           I  OUTTYP="VI EW" D WTER M G END
  51           I  OUTTYP="PR INT" D ZTL D G END
  52            
  53   END K DIR, DT,CHDBFY1 ,CHDBFY,CH BEG,CHEND, OUTTYP,^CH MZHOLD($J, "CCL_BENE_ LETTERS")
  54    Q
  55    ;<<<<==== ========== ========== ========== ========== ========== =====
  56    
  57   GETDATES()  ; Get Sta rt and End  dates
  58    N DTFLG 
  59    S DTFLG=0   ; 0=Exit /1=Continu e
  60   GSTART;    Get Report  Start Dat e ==> CHBE G
  61    D NOW^%DT C S DT=X                ; Sets d efault sta rt date to  Beg fisca l year; Fu ture date  is not acc epted
  62    S CHDBFY1 =$$FYR^CHT FLIB(DT) S  CHDBFY="1 0/01/"_$E( CHDBFY1,2, 3)     
  63    S DIR(0)= "DO"
  64    S DIR("A" )="Enter a  START dat e:  "
  65    S DIR("B" )=$$FMTE^X LFDT(CHDBF Y,"5D")      
  66    D ^DIR
  67    I $D(DTOU T)!($D(DIR UT))!($D(D IROUT)) Q  DTFLG
  68    I Y=-1 
  69    {U 0 W !! ,"NOT A VA LID DATE"
  70     G GSTART
  71    }
  72    S CHBEG=Y  
  73    K DIR
  74   GEND; Get  Report End  Date ==>  CHEND
  75    ; Sets de fault Stop  date to N OW
  76    D NOW^%DT C S DT=X
  77           S  DIR(0)="DO "
  78    S DIR("A" )="Enter a n END date :  "
  79    S DIR("B" )=$$FMTE^X LFDT(DT,"5 D")     
  80    D ^DIR
  81           G: $D(DIROUT)  GSTART
  82           I  Y=-1 
  83    {W !!,"NO T A VALID  DATE"
  84     G GEND
  85    }
  86    S CHEND=Y  
  87    I $$FMDIF F^XLFDT(CH END,CHBEG, 1)<0 
  88    {W !,"End  Date can  not be bef ore the St art Date."  
  89    G GEND
  90    }
  91    K DIR
  92    S DTFLG=1
  93    Q DTFLG
  94    ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  95   GOUT; 
  96           S  DIR(0)="SB ^F:FILE;V: VIEW;P:PRI NT"
  97           S  DIR("A")=" Enter Outp ut Method"
  98           S  DIR("A",1) ="<F>ILE t o print to  a file (X CEL format )"
  99           S  DIR("A",2) ="<V>IEW t o View on  screen"
  100           S  DIR("A",3) ="<P>RINT  to print a  report"
  101           S  DIR("B")=" P"
  102           W  !
  103           D  ^DIR           
  104           S  OUTTYP=Y(0 )
  105           K  DIR 
  106           Q
  107    ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  108   ZTLD ;
  109    S ION=""
  110   SD
  111    W !!!,"Pl ease Queue  this repo rt to a Wi de Printer ."     
  112           S  %ZIS="Q"
  113           D  ^%ZIS 
  114           Q: POP     
  115                    
  116           I  ION'["/W"  W !!,"YOU  MUST USE A  WIDE PRIN TER." G SD                  ;CHV DEV$PRT/W
  117           S  ZTRTN="FND LTR^CHZYJK 07",ZTDESC ="BENEFICI ARY CCL LE TTERS"
  118    S ZTDTH=$
  119    S ZTIO=IO N,ZTSAVE(" CHFIO")="" ,ZTSAVE("C HBEG")="", ZTSAVE("CH END")=""
  120    S ZTSAVE( "OUTTYP")= ""
  121    D ^%ZTLOA D  
  122    ;D FNDLTR ^CHZYJK07
  123    D HOME^%Z IS K IO("Q ") 
  124    Q
  125    ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -    
  126   ZTLDF  ;
  127    S ION=""
  128    S $ZE="", $ZT="ZTLDF O^CHZYJK07 "
  129    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  130    IF CHUCI= "HAC" 
  131    {S ELR1=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_CCL ]"_"DUZ"_D UZ_"_"_CHB EG_"_"_CHE ND_".txt"
  132    W !,"DATA  WILL BE W RITTEN TO  ",ELR1
  133    }
  134    ELSE
  135    {S ELR1=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_CCL _TEST]"_"D UZ"_DUZ_"_ "_CHBEG_"_ "_CHEND_". txt"
  136    W !,"DATA  WILL BE W RITTEN TO  ",ELR1
  137    }
  138    
  139    S CHFIO=" "
  140    S ZTRTN=" FNDLTR^CHZ YJK07",ZTD ESC="BENEF ICIARY CCL  LETTERS"
  141    S ZTDTH=$
  142    S ZTIO="" ,ZTSAVE("E LR1")="",Z TSAVE("CHB EG")="",ZT SAVE("CHEN D")="",ZTS AVE("CHFIO ")=""
  143    S ZTSAVE( "OUTTYP")= ""
  144    D ^%ZTLOA D  
  145    ;D FNDLTR ^CHZYJK07
  146    D HOME^%Z IS  
  147    Q
  148    ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -              
  149   WTERM;
  150    S TMP=""
  151    D HOME^%Z IS
  152    S:'$D(SCR W) SCRW=""  S:'$D(SCR N) SCRN=""
  153    I SCRW=""  S SCRW=""  S:$D(^%ZI S(2,IOST(0 ),554001))  SCRW=$P(^ (554001),U ,2)
  154    I SCRN=""  S SCRN=""  S:$D(^%ZI S(2,IOST(0 ),554001))  SCRN=$P(^ (554001),U ,1)
  155         S:SC RW="" SCRW =$P(^%ZIS( 2,125,5540 01),U,2)
  156    S:SCRN=""  SCRN=$P(^ %ZIS(2,125 ,554001),U ,1)
  157    S X=132 X  ^%ZOSF("R M") W @SCR W ;; set t he screen  to wide
  158    W #,?1,"P reparing r eport..... ..."
  159    D FNDLTR^ CHZYJK07  
  160    W !!, "En d of View. .. Hit Ret run." R TM P
  161    S X=80 X  ^%ZOSF("RM ") W @SCRN   ;; set t he screen  to normal
  162    Q
  163    ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -              
  164    
  165   FNDLTR ; F ind Bene w ith letter
  166    
  167    S DFN=0
  168    K ^CHMZHO LD($J,"CCL _BENE_LETT ERS")
  169    S DFN=0
  170    S DFN=$O( ^AHCHVA(DF N)) ; Init ial pull
  171    WHILE DFN
  172    {
  173      ;U 0 W  !,"DFN = " _DFN
  174      IF $D(^ AHCHVA(DFN ,0))    
  175           {
  176              S SREC0=^A HCHVA(DFN, 0)
  177              S (CHSN,SN )=$P(SREC0 ,"^",1)                                          ; Spo nsor Name   
  178               IF SN'=""  
  179                    {S B FN="",BN=" " S T1=$$D ELCHK^CHTF LIB(SN,DFN ,BN,BFN)                ;DELCHK  return: 0= not delete d; 1=Spons or deleted ; 2=Bene d eleted
  180                      IF  T1=0
  181                             {
  182                              S CHS SSN=$P(^AH CHVA(DFN,0 ),"^",9)            ;  Sponsor S SN
  183                              S BFN =0                 
  184                              S BFN =$O(^AHCHV A(DFN,100, BFN)) 
  185                              WHILE  BFN'="",B FN & $D(^A HCHVA(DFN, 100,BFN,0) )  ; START  Bene Loop
  186                                      {
  187                                        S BREC 0=^AHCHVA( DFN,100,BF N,0)  
  188                                        S (CHB N,BN)=$P(B REC0,"^",1 )                      ; Bene Na me
  189                                        I BN'= "" S SN=""  S T2=$$DE LCHK^CHTFL IB(SN,DFN, BN,BFN)
  190                                        IF T2= 0           ; Bene No t deleted
  191                                               {S CHBSSN= $P(BREC0," ^",9)                     ; Bene  SSN
  192                                                 I CHBSSN ="" S CHBS SN="000000 000"
  193                                                 S TMPI=0      
  194                                                 S TMPI=$ O(^AHCHVA( DFN,100,BF N,500,TMPI ))  
  195                                                 WHILE TM PI,$D(^AHC HVA(DFN,10 0,BFN,500, TMPI,0))    ; Loop th ru Bene le tters
  196                                                 {S BLTRE C=^AHCHVA( DFN,100,BF N,500,TMPI ,0)
  197                                                   S CHLS DT=$P(BLTR EC,"^",1)   
  198                                                   S CHLT YP=$P(BLTR EC,"^",2)   
  199                                                   IF (CH LSDT'="" &  CHLTYP'=" ")
  200                                                          {I CHLSDT  '<CHBEG&(C HLSDT'>CHE ND) D LTRN M}      
  201                                                   S TMPI =$O(^AHCHV A(DFN,100, BFN,500,TM PI))  
  202                                                 } ; END  - WHILE TM PI
  203                                               }  ; END -  IF T2=0
  204                                        S BFN= $O(^AHCHVA (DFN,100,B FN)) 
  205                                       }  ; EN D - Bene W HILE loop
  206                              }  ;  END - IF T 1=0            
  207                    } ;  END - Spon sor Name C heck
  208           }  ; END -        IF $D( ^AHCHVA(DF N,0))            
  209           S  DFN=$O(^AH CHVA(DFN))  
  210    } ; END -  WHILE
  211    
  212    D QUE^CHZ YJK07
  213    D ^%ZISC
  214    Q
  215    ;-------- -----                                 
  216   LTRNM ; Ge t Letter N ame and Pr int Code 
  217    ;U 0 W !,  "LTRNM: " _CHSSSN_"  "_CHBSSN_"  "_DFN_" " _BFN_" "_C HLSDT
  218    S (LTRNM, PRTCD)=""
  219    S LTRNM=$ P(^AHADIC( 554801.1,C HLTYP,0)," ^",1)
  220    S PRTCD=$ P(^AHADIC( 554801.1,C HLTYP,0)," ^",6)    
  221    Q:LTRNM=" "!(PRTCD=" ")  
  222    S CHNUM=$ P(PRTCD,"- ",2)
  223    ; To remo ve texts f ollowing t he Print G roup (ex,  "CCL-A53 O HI REQUEST " => "CCL- A53")
  224    I $F(CHNU M," ") >0  S CHNUM=$E (CHNUM,1,$ F(CHNUM,"  ")-2)
  225    S PRTCDLN =$L(CHNUM)
  226    I PRTCDLN >3 S CHNUM =$E(CHNUM, 1,(PRTCDLN -1))       ; CCL-B36A  to CCL-B3 6
  227    I PRTCDLN <4 S CHNUM =$E(CHNUM, 1,PRTCDLN)
  228    S LTRGRP= $P(PRTCD," -",1)_"-"_ CHNUM                                  ;Let ter Group  = Print Co de (6th Pi ece withou t the trai ling Alpha .  Ex, CCL -B36)
  229    S ^CHMZHO LD($J,"CCL _BENE_LETT ERS",LTRGR P,CHSSSN,C HBSSN)=LTR GRP_"^"_LT RNM_"^"_CH SN_"^"_CHS SSN_"^"_CH BN_"^"_CHB SSN
  230    Q
  231   QUE ;
  232         S PG =0
  233         S CH BCT=0   ;  Total Coun t of Benef iciary Let ters
  234    D PRINT^C HZYJK07
  235    K %DT,CHD BFY1,CHDBF Y,CHBEG,CH END,PG
  236    K CHUCI,E LR1CHFIO,Z TRTN,ZTDES C,ZTIO,ZTS AVE,CHLTYP ,^CHMZHOLD ($J,"CCL_B ENE_LETTER S")
  237    K DFN,SRE C0,CHSN,SN ,BN,T,BFN, CHSSN,BREC 0,CHBN,CHB SSN,TMPI,B LTREC,TMP
  238    K CHLSDT, LTRNM,PRTC D,CHNUM,PR TCDLN,LTRG RP
  239    K PREVGRP ,LGRP,FIRS T,GRPCNT,S S,BS,LG
  240    K LG,LNM, LSN,LSS,LB N,LBS,GRPC NT,CHBCT,P SPSSN,OUTT YP
  241    Q
  242   PRINT;
  243    
  244    IF OUTTYP ="FILE" 
  245    {
  246     O ELR1:" NWS":5  
  247     I '$T U  0 W !,"Err or Opeing  Output fil e!!!" Q
  248     D PRT   
  249     U ELR1 W  !!,"Total  number of  Beneficia ry letters : ",CHBCT
  250     C ELR1
  251    }
  252    
  253           I  OUTTYP="PR INT"!(OUTT YP="VIEW")
  254           {D  PRT
  255      I GRPCN T>0 D SUBT OT        
  256     W !!,"To tal number  of Benefi ciary lett ers: ",CHB CT
  257           }
  258           Q
  259   PRT
  260    S T=$C(9)  
  261    S (LTRGRP ,LTRNM,CHS N,CHSSSN,C HBN,CHBSSN )=""
  262    D HEAD
  263    IF '$D(^C HMZHOLD($J ,"CCL_BENE _LETTERS") )
  264       {
  265       IF OUT TYP="FILE"
  266           {U  ELR1 W !, "No Benefi ciary lett ers were f ound"}
  267       ELSE 
  268           {W  !,"No Ben eficiary l etters wer e found"}        
  269       Q
  270       }
  271   BPRT  ;
  272    S (PREVGR P,LGRP,PSP SSN)=""
  273    S FIRST=1
  274    S GRPCNT= 0       ;  Letter Cou nt for a L etter Grou p
  275    S LGRP=$O (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP))     ; Initi al Pull
  276    WHILE LGR P '= "" 
  277           {I  FIRST S P REVGRP=LGR P S FIRST=
  278           S  SS="" 
  279           S  SS=$O(^CHM ZHOLD($J," CCL_BENE_L ETTERS",LG RP,SS)) 
  280           WH ILE SS'=""
  281                    {S B S=""
  282                      S  BS=$O(^CHM ZHOLD($J," CCL_BENE_L ETTERS",LG RP,SS,BS))  
  283                      WH ILE BS'=""
  284                             {
  285                                      S LG=$P( ^CHMZHOLD( $J,"CCL_BE NE_LETTERS ",LGRP,SS, BS),"^",1)               ;Letter  Group
  286                                      S LNM=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",2 )              ;Lette r Name
  287                                      S LSN=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",3 )              ;Spons or Name
  288                                      S LSS=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",4 )              ;Spons or SSN
  289                                      S LBN=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",5 )              ;Bene  Name      
  290                                      S LBS=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",6 )              ;Bene  SSN                                                                                                        
  291                                      S CHBCT= CHBCT+1                   ; Tota l letter c ount for t he specifi ed dates
  292                                      I OUTTYP ="FILE" U  ELR1 W !,L SN_T_LSS_T _LBN_T_LBS _T_LNM
  293                                      I OUTTYP ="PRINT"!( OUTTYP="VI EW") D PRP
  294                                      S BS=$O( ^CHMZHOLD( $J,"CCL_BE NE_LETTERS ",LGRP,SS, BS)) 
  295                              }  ;E ND - WHILE  BS NOT= " "
  296                    S SS =$O(^CHMZH OLD($J,"CC L_BENE_LET TERS",LGRP ,SS)) 
  297                    }  ;  END -WHIL E SS NOT=" "
  298     S LGRP=$ O(^CHMZHOL D($J,"CCL_ BENE_LETTE RS",LGRP))   
  299           }   ; END -WH ILE LGRP N OT=""
  300           
  301           Q
  302   HEAD
  303    S PG=PG+1
  304    D NOW^%DT C S DT=X    
  305    S TIME=$$ HTIM^ACKQU TL($H,0)
  306    IF OUTTYP ="FILE"
  307           {
  308            U  ELR1 W !, DUZ_T_"HEA LTH ADMINI STRATION C ENTER"
  309            U  ELR1 W !, TIME_T_"BE NEFICIARY  CCL LETTER S"_T_$$FMT E^XLFDT(DT ,"5D")
  310            U  ELR1 W !! ,"Letter D ates From  "_$$FMTE^X LFDT(CHBEG ,"5D")_" t o "_$$FMTE ^XLFDT(CHE ND,"5D")
  311            U  ELR1 W !! ,"SPONSOR  NAME"_T_"S PONSOR SSN "_T_"BENEF ICIARY NAM E"_T_"BENE FICIARY SS N"_T_"CCL  LETTER"
  312           }
  313           EL SE
  314           {
  315            W  #
  316            W  !,?1,DUZ, ?40,"HEALT H ADMINIST RATION CEN TER",?95," Page:  ",P G  
  317            W  !,?1,TIME ,?40,"BENE FICIARY CC L LETTERS" ,!,?95,$$F MTE^XLFDT( DT,"5D")
  318            W  !!!,?1,"L etter Date s From "_$ $FMTE^XLFD T(CHBEG,"5 D")_" to " _$$FMTE^XL FDT(CHEND, "5D")
  319            W  !,?1,"SPO NSOR NAME" ,?32,"SPON SOR SSN",? 45,"BENEFI CIARY NAME ",?75,"BEN EFICIARY S SN",?92,"C CL LETTER"
  320            W  !,?1,$$RE PEAT^XLFST R("=",120) ,!
  321            S  LINENUM=9
  322           }
  323    Q 
  324   SUBTOT
  325    I OUTTYP= "VIEW"&($Y +5>22)
  326    {
  327           I  TMP'="^" D  HEAD
  328    }
  329    W !,?1,$$ REPEAT^XLF STR("-",12 0)
  330    W !,?1,PR EVGRP_": " _GRPCNT,!! !
  331    S GRPCNT= 0
  332    S PREVGRP =LGRP
  333    S LINENUM =LINENUM+5
  334    
  335    Q
  336   PRPT ;
  337    I OUTTYP= "VIEW",TMP ="^" Q
  338    
  339    S FLSS=$E (LSS,1,3)_ "-"_$E(LSS ,4,5)_"-"_ $E(LSS,6,9 )
  340    S FLBS=$E (LBS,1,3)_ "-"_$E(LBS ,4,5)_"-"_ $E(LBS,6,9 )
  341    
  342    I PREVGRP '=LGRP D S UBTOT
  343    IF OUTTYP ="PRINT"
  344    {D:LINENU M>55 HEAD}
  345    
  346    S GRPCNT= GRPCNT+1       ; Coun t letters  for a Lett er Group
  347    IF LSS =  PSPSSN 
  348           {W  !,?45,LBN ,?76,FLBS, ?92,LNM
  349            S  LINENUM=L INENUM+1}
  350    ELSE
  351           {W  !,?1,LSN, ?32,FLSS
  352              W !,?45,LB N,?76,FLBS ,?92,LNM
  353              S PSPSSN=L SS
  354              S LINENUM= LINENUM+2
  355           }
  356    I OUTTYP= "VIEW"&($Y >19)
  357    {
  358           W  !,?1,"Hit  <Return> K ey to Cont iue or '^'  to Stop."  R TMP
  359           I  TMP'="^" D  HEAD
  360    }
  361    Q
  362    
  363