- AGSSP ; IHS/ASDS/EFG - PRINT SSN REPORTS ;
- ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- ;
- ;the report selection is loaded into an array: AGSSP(report #)=type
- S ;
- K AGSSP,AGSSP1,AGSSPC
- S DIC="^DIC(4,",DIC(0)="AEMQ"
- S DIC("A")="Reports for Facility? "
- S DIC("B")=$P(^DIC(4,DUZ(2),0),"^",1)
- D ^DIC K DIC Q:+Y<0 S AGSSITE=+Y
- I '$G(^AGSSTEMP(AGSSITE,0,"END-PROCESS")) D Q
- .W !!,"Process NOT complete for facility ",$P(^DIC(4,AGSSITE,0),"^",1),".",!!
- .K DIR S DIR(0)="E" D ^DIR K DIR
- S1 D DISP
- S1A F D ASK Q:'$D(AGSSP1)
- I '$D(AGSSP) W !,"NO Reports Selected" Q
- G ASK2
- ASK ;EP
- W ! I $D(AGSSP) D DISP W !,"You may continue to edit or add other reports"
- K DIR,AGSSP1 S DIR(0)="LO^1:5",DIR("A")="Please select the report or range of reports. ex 1,2,3-5 ",DIR("??")="^D DISP^AGSSP" D ^DIR
- Q:(+$G(DUOUT)+$G(DTOUT)+$G(DROUT)+$G(DIROUT)) Q:Y=""
- S AGSSP1=Y
- K DIR S DIR(0)="SO^S:Statistics;C:Complete",DIR("B")="S",DIR("A")="Please Select the type of report " D ^DIR
- Q:(+$G(DUOUT)+$G(DTOUT)+$G(DROUT)+$G(DIROUT)) Q:Y=""
- F AGSSI=1:1 S AGSSX=$P(AGSSP1,",",AGSSI) Q:'AGSSX S AGSSP($E("VADNPX",AGSSX))=Y,AGSSPC(AGSSX)=Y
- Q
- DISP ;EP
- W $$S^AGVDF("IOF")
- W ?15,"SSN VERIFICATION REPORTS",!
- W:'$D(AGSSP) !,"The user can select any combination of the following reports"
- W:'$D(AGSSP) !,"and the type, either Statistics or Complete.",!
- W:'$D(AGSSP) !,"First answer the range of reports and then the type of report",!,"for the range selected",!
- W:$D(AGSSP) !,"You have selected the following reports.",!
- F AGSSI=1:1:5 W !,?5,AGSSI,?10,$P($T(@AGSSI),";;",2) W:$D(AGSSPC(AGSSI)) ?50,$S(AGSSPC(AGSSI)["S":"Statistics",1:"Complete")
- ;
- 1 ;;`V` Verified by SSA
- 2 ;;`A` Added by SSA
- 3 ;;`D` Match SSA SSN but DATA differs (*)
- 4 ;;`N` Match SSA DATA but SSNs differ (*)
- 5 ;;`P` Potential and/or Pending SSNs (*)
- ;
- W !!,"SSA SSN Matching Process Data >> IS ",$S($D(^AGSSTEMP(AGSSITE)):"",1:"NOT")," << available. "
- W !,"(*) data from SSA Matching Process added if available",!
- Q
- ASK2 K DIR S DIR(0)="Y",DIR("A")="Are You Satisfied with the above selection ?",DIR("B")="Y" D ^DIR
- I (+$G(DUOUT)+$G(DTOUT)+$G(DROUT)+$G(DIROUT))!(Y="") G END
- I Y=1 G CONT
- K DIR S DIR(0)="S^S:Start Over;R:Re-edit;E:Exit",DIR("A")="Please Select: ",DIR("B")="S" D ^DIR
- G:Y["S" S
- G:Y["R" S1A
- G END
- CONT ;EP
- S XBRC="^AGSSR",XBRP="PRINT^AGSSR",XBRX="END^AGSSP",XBNS="AGS"
- D ^XBDBQUE
- Q
- END ;EP - kill variables from all print routines
- D ^%ZISC
- I '$D(ZTSK),$D(AGSS("JOBID")) K ^AGSTEMP(AGSS("JOBID")) ;kill of temporary global
- END2 ;Consolidated duplicate kills of variables
- K AGSS,AGSSI,AGSSX,AGSSP,AGSSC,AGSSN,AGSSP1,AGSSPC,AGSSPG
- K AGSSPIO,AGSSPHIO,AGSSPION
- K AGSSCSN,AGSSCSX,AGSSDOB,AGSSHDR,AGSSHRN,AGSSCPU
- K AGSI,AGSX,AGSY,AGSRA,AGSRV,AGSRP,AGSRN,AGSRD,ABSRR,AGSRX
- K AGSHRN,AGSDFN,AGSGLO
- K AGSCDOB,AGSCLN,AGSCMN,AGSCFN,AGSCNM,AGSCREC
- K AGSCSSN1,AGSCSSN2,AGSCSX,AGSCVC
- K AGSSASSN
- K AGSSCDOB,AGSSCFN,AGSSCHRN,AGSSCLN,AGSSCMN,AGSSCREC,AGSSCSSN
- K AGSSDT,AGSSVC,AGSSNM,AGSSROU,AGSSFLAG
- K AGSSLINE,AGSSPAT,AGSSREC
- K AG0,AGSUFAC
- K AGSLDOB,AGSLNM,AGSLSX,AGSLSSN,AGSLVC
- K DIR,DFN
- Q
- AGSSP ; IHS/ASDS/EFG - PRINT SSN REPORTS ;
- +1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- +2 ;
- +3 ;the report selection is loaded into an array: AGSSP(report #)=type
- S ;
- +1 KILL AGSSP,AGSSP1,AGSSPC
- +2 SET DIC="^DIC(4,"
- SET DIC(0)="AEMQ"
- +3 SET DIC("A")="Reports for Facility? "
- +4 SET DIC("B")=$PIECE(^DIC(4,DUZ(2),0),"^",1)
- +5 DO ^DIC
- KILL DIC
- IF +Y<0
- QUIT
- SET AGSSITE=+Y
- +6 IF '$GET(^AGSSTEMP(AGSSITE,0,"END-PROCESS"))
- Begin DoDot:1
- +7 WRITE !!,"Process NOT complete for facility ",$PIECE(^DIC(4,AGSSITE,0),"^",1),".",!!
- +8 KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- End DoDot:1
- QUIT
- S1 DO DISP
- S1A FOR
- DO ASK
- IF '$DATA(AGSSP1)
- QUIT
- +1 IF '$DATA(AGSSP)
- WRITE !,"NO Reports Selected"
- QUIT
- +2 GOTO ASK2
- ASK ;EP
- +1 WRITE !
- IF $DATA(AGSSP)
- DO DISP
- WRITE !,"You may continue to edit or add other reports"
- +2 KILL DIR,AGSSP1
- SET DIR(0)="LO^1:5"
- SET DIR("A")="Please select the report or range of reports. ex 1,2,3-5 "
- SET DIR("??")="^D DISP^AGSSP"
- DO ^DIR
- +3 IF (+$GET(DUOUT)+$GET(DTOUT)+$GET(DROUT)+$GET(DIROUT))
- QUIT
- IF Y=""
- QUIT
- +4 SET AGSSP1=Y
- +5 KILL DIR
- SET DIR(0)="SO^S:Statistics;C:Complete"
- SET DIR("B")="S"
- SET DIR("A")="Please Select the type of report "
- DO ^DIR
- +6 IF (+$GET(DUOUT)+$GET(DTOUT)+$GET(DROUT)+$GET(DIROUT))
- QUIT
- IF Y=""
- QUIT
- +7 FOR AGSSI=1:1
- SET AGSSX=$PIECE(AGSSP1,",",AGSSI)
- IF 'AGSSX
- QUIT
- SET AGSSP($EXTRACT("VADNPX",AGSSX))=Y
- SET AGSSPC(AGSSX)=Y
- +8 QUIT
- DISP ;EP
- +1 WRITE $$S^AGVDF("IOF")
- +2 WRITE ?15,"SSN VERIFICATION REPORTS",!
- +3 IF '$DATA(AGSSP)
- WRITE !,"The user can select any combination of the following reports"
- +4 IF '$DATA(AGSSP)
- WRITE !,"and the type, either Statistics or Complete.",!
- +5 IF '$DATA(AGSSP)
- WRITE !,"First answer the range of reports and then the type of report",!,"for the range selected",!
- +6 IF $DATA(AGSSP)
- WRITE !,"You have selected the following reports.",!
- +7 FOR AGSSI=1:1:5
- WRITE !,?5,AGSSI,?10,$PIECE($TEXT(@AGSSI),";;",2)
- IF $DATA(AGSSPC(AGSSI))
- WRITE ?50,$SELECT(AGSSPC(AGSSI)["S":"Statistics",1:"Complete")
- +8 ;
- 1 ;;`V` Verified by SSA
- 2 ;;`A` Added by SSA
- 3 ;;`D` Match SSA SSN but DATA differs (*)
- 4 ;;`N` Match SSA DATA but SSNs differ (*)
- 5 ;;`P` Potential and/or Pending SSNs (*)
- +1 ;
- +2 WRITE !!,"SSA SSN Matching Process Data >> IS ",$SELECT($DATA(^AGSSTEMP(AGSSITE)):"",1:"NOT")," << available. "
- +3 WRITE !,"(*) data from SSA Matching Process added if available",!
- +4 QUIT
- ASK2 KILL DIR
- SET DIR(0)="Y"
- SET DIR("A")="Are You Satisfied with the above selection ?"
- SET DIR("B")="Y"
- DO ^DIR
- +1 IF (+$GET(DUOUT)+$GET(DTOUT)+$GET(DROUT)+$GET(DIROUT))!(Y="")
- GOTO END
- +2 IF Y=1
- GOTO CONT
- +3 KILL DIR
- SET DIR(0)="S^S:Start Over;R:Re-edit;E:Exit"
- SET DIR("A")="Please Select: "
- SET DIR("B")="S"
- DO ^DIR
- +4 IF Y["S"
- GOTO S
- +5 IF Y["R"
- GOTO S1A
- +6 GOTO END
- CONT ;EP
- +1 SET XBRC="^AGSSR"
- SET XBRP="PRINT^AGSSR"
- SET XBRX="END^AGSSP"
- SET XBNS="AGS"
- +2 DO ^XBDBQUE
- +3 QUIT
- END ;EP - kill variables from all print routines
- +1 DO ^%ZISC
- +2 ;kill of temporary global
- IF '$DATA(ZTSK)
- IF $DATA(AGSS("JOBID"))
- KILL ^AGSTEMP(AGSS("JOBID"))
- END2 ;Consolidated duplicate kills of variables
- +1 KILL AGSS,AGSSI,AGSSX,AGSSP,AGSSC,AGSSN,AGSSP1,AGSSPC,AGSSPG
- +2 KILL AGSSPIO,AGSSPHIO,AGSSPION
- +3 KILL AGSSCSN,AGSSCSX,AGSSDOB,AGSSHDR,AGSSHRN,AGSSCPU
- +4 KILL AGSI,AGSX,AGSY,AGSRA,AGSRV,AGSRP,AGSRN,AGSRD,ABSRR,AGSRX
- +5 KILL AGSHRN,AGSDFN,AGSGLO
- +6 KILL AGSCDOB,AGSCLN,AGSCMN,AGSCFN,AGSCNM,AGSCREC
- +7 KILL AGSCSSN1,AGSCSSN2,AGSCSX,AGSCVC
- +8 KILL AGSSASSN
- +9 KILL AGSSCDOB,AGSSCFN,AGSSCHRN,AGSSCLN,AGSSCMN,AGSSCREC,AGSSCSSN
- +10 KILL AGSSDT,AGSSVC,AGSSNM,AGSSROU,AGSSFLAG
- +11 KILL AGSSLINE,AGSSPAT,AGSSREC
- +12 KILL AG0,AGSUFAC
- +13 KILL AGSLDOB,AGSLNM,AGSLSX,AGSLSSN,AGSLVC
- +14 KILL DIR,DFN
- +15 QUIT
