AGRSSN2.m

AGRSSN2 ; IHS/ASDS/EFG - LISTING OF PATIENTS W/O SSN ;  

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

 ;

W1 W !!! S %ZIS="NQ",%ZIS("B")="" D ^%ZIS G:'$D(IO)!(POP) QUIT

 S AG("ION")=ION G:$D(IO("Q")) QUE G S2

PRQUE ;ENTER FROM TASK MANAGER

S2 S L=0,DIC="^AUPNPAT(",FLDS="[AGSSNLIST]",BY="[AGSSNLIST]",FR="@",TO="@"

 S IOP=AG("ION")_";80",AGPGPG=1,DOUT=$I

 D EN1^DIP

QUIT D ^%ZISC K AG

 Q

QUE K IO("Q") S ZTRTN="PRQUE^AGRSSN2",ZTDESC="LISTING OF PATIENTS W/O SSN" F AG="AG(""ION"")" S ZTSAVE(AG)=""

 D ^%ZTLOAD W:$D(ZTSK) !,"REQUEST QUEUED!",! G QUIT

AGRSSN2   ; IHS/ASDS/EFG - LISTING OF PATIENTS W/O SSN ;  

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

 +2       ;

W1         WRITE !!!

           SET %ZIS="NQ"

           SET %ZIS("B")=""

           DO ^%ZIS

           IF '$DATA(IO)!(POP)

               GOTO QUIT

 +1        SET AG("ION")=ION

           IF $DATA(IO("Q"))

               GOTO QUE

           GOTO S2

PRQUE     ;ENTER FROM TASK MANAGER

S2         SET L=0

           SET DIC="^AUPNPAT("

           SET FLDS="[AGSSNLIST]"

           SET BY="[AGSSNLIST]"

           SET FR="@"

           SET TO="@"

 +1        SET IOP=AG("ION")_";80"

           SET AGPGPG=1

           SET DOUT=$IO

 +2        DO EN1^DIP

QUIT       DO ^%ZISC

           KILL AG

 +1        QUIT 

QUE        KILL IO("Q")

           SET ZTRTN="PRQUE^AGRSSN2"

           SET ZTDESC="LISTING OF PATIENTS W/O SSN"

           FOR AG="AG(""ION"")"

               SET ZTSAVE(AG)=""

 +1        DO ^%ZTLOAD

           IF $DATA(ZTSK)

               WRITE !,"REQUEST QUEUED!",!

           GOTO QUIT