AGSSLBAT.m

AGSSLBAT ; IHS/ASDS/EFG - PRINT 'SSN ADDED' LETTERS TO SEND TO PATIENTS ; 

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

START D DT^DICRW S IOP="HOME" D ^%ZIS

 H 2 W $$S^AGVDF("IOF"),!,"This will send SSN Notification Letters to those patients",! W "that have had their SSN ADDED by the SSA/SSN Matching Process.",!!

REVIEW ;review previous printing

 I '$D(^AGSSLTMP) K DIR S DIR(0)="Y",DIR("A")="Do you wish to proceed",DIR("B")="Y" W !!,"There is no temporary SSN global to print batches from." D ^DIR G:$G(DUOUT)!(Y=0) END D LOAD

 S AGSSTP=^AGSSLTMP("TP"),AGSSLPB=^("LPB"),AGSSBFP=^("BFP")

 W !!,"TOTAL PATIENTS",?25,$J(AGSSTP,5)

 W !,"Letters Per Batch",?25,$J(AGSSLPB,5)

 W !,"Batches for Printing",?25,$J(AGSSBFP,5)

 W !!,"Batch Numbers Completed",!

 F AGSI=1:1:AGSSBFP-1 S AGSC=$G(^AGSSLTMP("BAT",AGSI)) I AGSC=(AGSI*AGSSLPB) W:$X>75 ! W $J(AGSI,5)

 S AGSC=$G(^AGSSLTMP("BAT",AGSSBFP)) I (AGSC=AGSSTP) W:$X>75 ! W $J(AGSSBFP,5)

 W !!,"Batch Numbers to Print",! K AGSSMORE

 F AGSI=1:1:AGSSBFP-1 S AGSC=$G(^AGSSLTMP("BAT",AGSI)) I AGSC'=(AGSI*AGSSLPB) W:$X>75 ! W $J(AGSI,5)

 S AGSC=$G(^AGSSLTMP("BAT",AGSSBFP)) I (AGSC'=AGSSTP) W:$X>75 ! W $J(AGSSBFP,5)

 I $G(AGSSMORE) W !,"There are ",AGSSMORE," batches to Print",!

 K DIR S DIR(0)="S^C:Continue;R:Restart;K:Kill Temporary Global;E:EXIT",DIR("B")="C" D ^DIR

 I Y="R" D LOAD G START

 I Y="C" D CONTINUE G END

 I Y="K" S AGTMP="^AGSSLTMP" K @AGTMP G START

 G END ;----->

 Q

LOAD ;EP

 S AGTMP="^AGSSLTMP" K @AGTMP

 K DIC S X="A",DIC="^AUTTSSN(",DIC(0)="XQMZ" D ^DIC S AGSSIEN=+Y

 I '$D(^AGSSLTMP) S DFN=0 F AGSSC=0:1 S DFN=$O(^AUPNPAT("AS",AGSSIEN,DFN)) Q:DFN'>0

 W !,"There are ",AGSSC,"  potential patients to receive letters. ",!

 K DIR S DIR(0)="N^1:99999",DIR("A")="How many letters per batch do you wish to have / OR ^ to quit " D ^DIR G:$G(DUOUT) END S AGSSLPB=Y

 S AGSSBFP=AGSSC\AGSSLPB+$S(AGSSC#AGSSLPB:1,1:0)

 S ^AGSSLTMP("BFP")=AGSSBFP,^("TP")=AGSSC,^("LPB")=AGSSLPB

 Q

CONTINUE ;EP

 K DIR S DIR(0)="L^1:"_AGSSBFP,DIR("A")="Please select batch(s) to print /OR ^ to quit" D ^DIR G:$G(DUOUT) START S AGSSNUM=Y

 S XBRC="SCAN^AGSSLBAT",XBRP="PRINT^AGSSLBAT",XBRX="END^AGSSLBAT",XBNS="AGS"

 D ^XBDBQUE

 Q

SCAN ;scan SSN Ver Stat Indx / build

 Q:$D(^AGSSLTMP("A"))  ;indexing already built

 K DIC S X="A",DIC="^AUTTSSN(",DIC(0)="XQMZ" D ^DIC S AGSSIEN=+Y

 S DFN=0 F AGSSC=1:1 S DFN=$O(^AUPNPAT("AS",AGSSIEN,DFN)) Q:DFN'>0  S AGSSNM=$P(^DPT(DFN,0),U),^AGSSLTMP("A",AGSSNM,DFN)="" ;order alpha index

 S AGSSC=0,AGSSNM="" F  S AGSSNM=$O(^AGSSLTMP("A",AGSSNM)) Q:AGSSNM=""  S DFN=0 F  S DFN=$O(^AGSSLTMP("A",AGSSNM,DFN)) Q:DFN'>0  S AGSSC=AGSSC+1,^AGSSLTMP(AGSSC,AGSSNM,DFN)="",^AGSSLTMP("A",AGSSNM,DFN)=AGSSC ;order numeric-alpha index

 Q

PRINT F AGSSI=1:1 S AGSSNB=$P(AGSSNUM,",",AGSSI) Q:AGSSNB'>0  D PATPRT,RPTPRT

 U IO W:$Y>1 @IOF

 D END

 Q

PATPRT ;print patient letters for a batch

 U IO W:$Y>1 @IOF

 F AGSSIEN=(AGSSNB-1)*AGSSLPB+1:1:AGSSNB*AGSSLPB Q:'$D(^AGSSLTMP(AGSSIEN))   D PRTLTR S ^AGSSLTMP("BAT",AGSSNB)=AGSSIEN

 Q

PRTLTR ;print letter

 S AGSSNM=$O(^AGSSLTMP(AGSSIEN,"")),DFN=$O(^(AGSSNM,"")),^AGSSLTMP(AGSSIEN)=""

 D ^AGSSLPRT I $G(AGSST)]"" S ^AGSSLTMP(AGSSIEN)=AGSST K AGSST

 Q

RPTPRT ;print summary report

 ;needs AGSSNB,AGSSLPB (b number),(n per batch)

 I $G(AGSITE)="" S AGSITE=$P(^AUTTSITE(1,0),"^")

 S AGSSPG("PG")=1,AGSSPG("HDR")="Report of 'SSN ADDED' Patient Leters BATCH  "_AGSSNB_" " D AGSSHDR ;print header

 S AGSSC=0 F AGSSIEN=(AGSSNB-1)*AGSSLPB+1:1:AGSSNB*AGSSLPB Q:'$D(^AGSSLTMP(AGSSIEN))  S AGSSNM=$O(^AGSSLTMP(AGSSIEN,"")),DFN=$O(^(AGSSNM,0)) Q:AGSSNM=""  D

 .S AGSHRN=$P($G(^AUPNPAT(DFN,41,AGSITE,0)),"^",2)

 .S AGSSCL=5+35*(AGSSC#2) W ?AGSSCL,$J(AGSHRN,6)," ",AGSSNM W:($G(^AGSSLTMP(AGSSIEN))]"") " *"_^AGSSLTMP(AGSSIEN) I AGSSCL>10 W ! D AGSSPG

 .S AGSSC=AGSSC+1

 W !!,"TOTAL = ",AGSSC H 5

 Q

END ;EP

 K AGSS,AGSC,AGSHRN,AGSI,AGSITE,AGSSNUM,AGSSBFP,AGSSNB,AGSSBFP,AGSSC,AGSSCL,AGSSIEN,AGSSLPB,AGSSNM,AGSSTP

 K AGBOT,AGI,AGIN,AGSSLPB,AGSSI,AGSSLBC,DA,DIR,DFN,DR

 Q

AGSSPG ;EP

 ;this utility uses variables AGSSPG("HDR"),AGSSPG("DT"),AGSSPG("LINE"),AGSSPG("PG") ; kill variables by D EAGSSPG

 Q:($Y<(IOSL-4))!($G(DOUT)!$G(DFOUT))  S:'$D(AGSSPG("PG")) AGSSPG("PG")=0 S AGSSPG("PG")=AGSSPG("PG")+1 I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR Q:($G(DIROUT)!$G(DUOUT)!$G(DTOUT)!$G(DROUT))

AGSSHDR ;EP header

 W:$Y @IOF W ! Q:'$D(AGSSPG("HDR"))  S:'$D(AGSSPG("LINE")) $P(AGSSPG("LINE"),"-",IOM-2)="" S:'$D(AGSSPG("PG")) AGSSPG("PG")=1 I '$D(AGSSPG("DT")) S %H=$H D YX^%DTC S AGSSPG("DT")=Y

 U IO W ?(IOM-40-$L(AGSSPG("HDR"))/2),AGSSPG("HDR"),?(IOM-40),AGSSPG("DT"),?(IOM-10),"PAGE: ",AGSSPG("PG"),!,AGSSPG("LINE")

AGSSHD ;EP column

 W !!,"  * BAD Patient Record -- LETTER NOT PRINTED",!!

 W !,"   A - Address D - Date of Death  R - Record Disposition S - Patient Status",!

 Q:($G(DIROUT)!$G(DUOUT)!$G(DTOUT)!$G(DROUT))

EAGSSPG K AGSSPG("LINE"),AGSSPG("PG"),AGSSPG("HDR"),AGSSPG("DT") Q

 Q

AGSSLBAT  ; IHS/ASDS/EFG - PRINT 'SSN ADDED' LETTERS TO SEND TO PATIENTS ; 

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

START      DO DT^DICRW

           SET IOP="HOME"

           DO ^%ZIS

 +1        HANG 2

           WRITE $$S^AGVDF("IOF"),!,"This will send SSN Notification Letters to those patients",!

           WRITE "that have had their SSN ADDED by the SSA/SSN Matching Process.",!!

REVIEW    ;review previous printing

 +1        IF '$DATA(^AGSSLTMP)

               KILL DIR

               SET DIR(0)="Y"

               SET DIR("A")="Do you wish to proceed"

               SET DIR("B")="Y"

               WRITE !!,"There is no temporary SSN global to print batches from."

               DO ^DIR

               IF $GET(DUOUT)!(Y=0)

                   GOTO END

               DO LOAD

 +2        SET AGSSTP=^AGSSLTMP("TP")

           SET AGSSLPB=^("LPB")

           SET AGSSBFP=^("BFP")

 +3        WRITE !!,"TOTAL PATIENTS",?25,$JUSTIFY(AGSSTP,5)

 +4        WRITE !,"Letters Per Batch",?25,$JUSTIFY(AGSSLPB,5)

 +5        WRITE !,"Batches for Printing",?25,$JUSTIFY(AGSSBFP,5)

 +6        WRITE !!,"Batch Numbers Completed",!

 +7        FOR AGSI=1:1:AGSSBFP-1

               SET AGSC=$GET(^AGSSLTMP("BAT",AGSI))

               IF AGSC=(AGSI*AGSSLPB)

                   IF $X>75

                       WRITE !

                   WRITE $JUSTIFY(AGSI,5)

 +8        SET AGSC=$GET(^AGSSLTMP("BAT",AGSSBFP))

           IF (AGSC=AGSSTP)

               IF $X>75

                   WRITE !

               WRITE $JUSTIFY(AGSSBFP,5)

 +9        WRITE !!,"Batch Numbers to Print",!

           KILL AGSSMORE

 +10       FOR AGSI=1:1:AGSSBFP-1

               SET AGSC=$GET(^AGSSLTMP("BAT",AGSI))

               IF AGSC'=(AGSI*AGSSLPB)

                   IF $X>75

                       WRITE !

                   WRITE $JUSTIFY(AGSI,5)

 +11       SET AGSC=$GET(^AGSSLTMP("BAT",AGSSBFP))

           IF (AGSC'=AGSSTP)

               IF $X>75

                   WRITE !

               WRITE $JUSTIFY(AGSSBFP,5)

 +12       IF $GET(AGSSMORE)

               WRITE !,"There are ",AGSSMORE," batches to Print",!

 +13       KILL DIR

           SET DIR(0)="S^C:Continue;R:Restart;K:Kill Temporary Global;E:EXIT"

           SET DIR("B")="C"

           DO ^DIR

 +14       IF Y="R"

               DO LOAD

               GOTO START

 +15       IF Y="C"

               DO CONTINUE

               GOTO END

 +16       IF Y="K"

               SET AGTMP="^AGSSLTMP"

               KILL @AGTMP

               GOTO START

 +17      ;----->

           GOTO END

 +18       QUIT 

LOAD      ;EP

 +1        SET AGTMP="^AGSSLTMP"

           KILL @AGTMP

 +2        KILL DIC

           SET X="A"

           SET DIC="^AUTTSSN("

           SET DIC(0)="XQMZ"

           DO ^DIC

           SET AGSSIEN=+Y

 +3        IF '$DATA(^AGSSLTMP)

               SET DFN=0

               FOR AGSSC=0:1

                   SET DFN=$ORDER(^AUPNPAT("AS",AGSSIEN,DFN))

                   IF DFN'>0

                       QUIT 

 +4        WRITE !,"There are ",AGSSC,"  potential patients to receive letters. ",!

 +5        KILL DIR

           SET DIR(0)="N^1:99999"

           SET DIR("A")="How many letters per batch do you wish to have / OR ^ to quit "

           DO ^DIR

           IF $GET(DUOUT)

               GOTO END

           SET AGSSLPB=Y

 +6        SET AGSSBFP=AGSSC\AGSSLPB+$SELECT(AGSSC#AGSSLPB:1,1:0)

 +7        SET ^AGSSLTMP("BFP")=AGSSBFP

           SET ^("TP")=AGSSC

           SET ^("LPB")=AGSSLPB

 +8        QUIT 

CONTINUE  ;EP

 +1        KILL DIR

           SET DIR(0)="L^1:"_AGSSBFP

           SET DIR("A")="Please select batch(s) to print /OR ^ to quit"

           DO ^DIR

           IF $GET(DUOUT)

               GOTO START

           SET AGSSNUM=Y

 +2        SET XBRC="SCAN^AGSSLBAT"

           SET XBRP="PRINT^AGSSLBAT"

           SET XBRX="END^AGSSLBAT"

           SET XBNS="AGS"

 +3        DO ^XBDBQUE

 +4        QUIT 

SCAN      ;scan SSN Ver Stat Indx / build

 +1       ;indexing already built

           IF $DATA(^AGSSLTMP("A"))

               QUIT 

 +2        KILL DIC

           SET X="A"

           SET DIC="^AUTTSSN("

           SET DIC(0)="XQMZ"

           DO ^DIC

           SET AGSSIEN=+Y

 +3       ;order alpha index

           SET DFN=0

           FOR AGSSC=1:1

               SET DFN=$ORDER(^AUPNPAT("AS",AGSSIEN,DFN))

               IF DFN'>0

                   QUIT 

               SET AGSSNM=$PIECE(^DPT(DFN,0),U)

               SET ^AGSSLTMP("A",AGSSNM,DFN)=""

 +4       ;order numeric-alpha index

           SET AGSSC=0

           SET AGSSNM=""

           FOR 

               SET AGSSNM=$ORDER(^AGSSLTMP("A",AGSSNM))

               IF AGSSNM=""

                   QUIT 

               SET DFN=0

               FOR 

                   SET DFN=$ORDER(^AGSSLTMP("A",AGSSNM,DFN))

                   IF DFN'>0

                       QUIT 

                   SET AGSSC=AGSSC+1

                   SET ^AGSSLTMP(AGSSC,AGSSNM,DFN)=""

                   SET ^AGSSLTMP("A",AGSSNM,DFN)=AGSSC

 +5        QUIT 

PRINT      FOR AGSSI=1:1

               SET AGSSNB=$PIECE(AGSSNUM,",",AGSSI)

               IF AGSSNB'>0

                   QUIT 

               DO PATPRT

               DO RPTPRT

 +1        USE IO

           IF $Y>1

               WRITE @IOF

 +2        DO END

 +3        QUIT 

PATPRT    ;print patient letters for a batch

 +1        USE IO

           IF $Y>1

               WRITE @IOF

 +2        FOR AGSSIEN=(AGSSNB-1)*AGSSLPB+1:1:AGSSNB*AGSSLPB

               IF '$DATA(^AGSSLTMP(AGSSIEN))

                   QUIT 

               DO PRTLTR

               SET ^AGSSLTMP("BAT",AGSSNB)=AGSSIEN

 +3        QUIT 

PRTLTR    ;print letter

 +1        SET AGSSNM=$ORDER(^AGSSLTMP(AGSSIEN,""))

           SET DFN=$ORDER(^(AGSSNM,""))

           SET ^AGSSLTMP(AGSSIEN)=""

 +2        DO ^AGSSLPRT

           IF $GET(AGSST)]""

               SET ^AGSSLTMP(AGSSIEN)=AGSST

               KILL AGSST

 +3        QUIT 

RPTPRT    ;print summary report

 +1       ;needs AGSSNB,AGSSLPB (b number),(n per batch)

 +2        IF $GET(AGSITE)=""

               SET AGSITE=$PIECE(^AUTTSITE(1,0),"^")

 +3       ;print header

           SET AGSSPG("PG")=1

           SET AGSSPG("HDR")="Report of 'SSN ADDED' Patient Leters BATCH  "_AGSSNB_" "

           DO AGSSHDR

 +4        SET AGSSC=0

           FOR AGSSIEN=(AGSSNB-1)*AGSSLPB+1:1:AGSSNB*AGSSLPB

               IF '$DATA(^AGSSLTMP(AGSSIEN))

                   QUIT 

               SET AGSSNM=$ORDER(^AGSSLTMP(AGSSIEN,""))

               SET DFN=$ORDER(^(AGSSNM,0))

               IF AGSSNM=""

                   QUIT 

               Begin DoDot:1

 +5                SET AGSHRN=$PIECE($GET(^AUPNPAT(DFN,41,AGSITE,0)),"^",2)

 +6                SET AGSSCL=5+35*(AGSSC#2)

                   WRITE ?AGSSCL,$JUSTIFY(AGSHRN,6)," ",AGSSNM

                   IF ($GET(^AGSSLTMP(AGSSIEN))]"")

                       WRITE " *"_^AGSSLTMP(AGSSIEN)

                   IF AGSSCL>10

                       WRITE !

                       DO AGSSPG

 +7                SET AGSSC=AGSSC+1

               End DoDot:1

 +8        WRITE !!,"TOTAL = ",AGSSC

           HANG 5

 +9        QUIT 

END       ;EP

 +1        KILL AGSS,AGSC,AGSHRN,AGSI,AGSITE,AGSSNUM,AGSSBFP,AGSSNB,AGSSBFP,AGSSC,AGSSCL,AGSSIEN,AGSSLPB,AGSSNM,AGSSTP

 +2        KILL AGBOT,AGI,AGIN,AGSSLPB,AGSSI,AGSSLBC,DA,DIR,DFN,DR

 +3        QUIT 

AGSSPG    ;EP

 +1       ;this utility uses variables AGSSPG("HDR"),AGSSPG("DT"),AGSSPG("LINE"),AGSSPG("PG") ; kill variables by D EAGSSPG

 +2        IF ($Y<(IOSL-4))!($GET(DOUT)!$GET(DFOUT))

               QUIT 

           IF '$DATA(AGSSPG("PG"))

               SET AGSSPG("PG")=0

           SET AGSSPG("PG")=AGSSPG("PG")+1

           IF $EXTRACT(IOST)="C"

               KILL DIR

               SET DIR(0)="E"

               DO ^DIR

               IF ($GET(DIROUT)!$GET(DUOUT)!$GET(DTOUT)!$GET(DROUT))

                   QUIT 

AGSSHDR   ;EP header

 +1        IF $Y

               WRITE @IOF

           WRITE !

           IF '$DATA(AGSSPG("HDR"))

               QUIT 

           IF '$DATA(AGSSPG("LINE"))

               SET $PIECE(AGSSPG("LINE"),"-",IOM-2)=""

           IF '$DATA(AGSSPG("PG"))

               SET AGSSPG("PG")=1

           IF '$DATA(AGSSPG("DT"))

               SET %H=$HOROLOG

               DO YX^%DTC

               SET AGSSPG("DT")=Y

 +2        USE IO

           WRITE ?(IOM-40-$LENGTH(AGSSPG("HDR"))/2),AGSSPG("HDR"),?(IOM-40),AGSSPG("DT"),?(IOM-10),"PAGE: ",AGSSPG("PG"),!,AGSSPG("LINE")

AGSSHD    ;EP column

 +1        WRITE !!,"  * BAD Patient Record -- LETTER NOT PRINTED",!!

 +2        WRITE !,"   A - Address D - Date of Death  R - Record Disposition S - Patient Status",!

 +3        IF ($GET(DIROUT)!$GET(DUOUT)!$GET(DTOUT)!$GET(DROUT))

               QUIT 

EAGSSPG    KILL AGSSPG("LINE"),AGSSPG("PG"),AGSSPG("HDR"),AGSSPG("DT")

           QUIT 

 +1        QUIT