AGSS.m

AGSS ; IHS/ASDS/EFG - PROCESS NPIRS/SSA SUBMITTALS ;  

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

 ;

S ;start

 S DIC="^AUTTLOC(",DIC(0)="AEMQ",DIC("A")="Process Site: ",DIC("B")=$P(^DIC(4,DUZ(2),0),"^",1) D ^DIC K DIC Q:Y<0  S AGSSITE=+Y

 I $D(^AGSSTEMP(AGSSITE)) D  Q:'Y

 .S DIR(0)="Y"

 .S DIR("A")="Scratch global ^AGSSTEMP exists for this site. Kill"

 .S DIR("B")="N"

 .D ^DIR K DIR

 .Q:'Y

 .K ^AGSSTEMP(AGSSITE)

 S AGSSUFAC=$P(^AUTTLOC(AGSSITE,0),"^",10)

 S AGSSHFL="ss"_AGSSUFAC_".ssn"

 W !!,"Processing Host File: ",AGSSHFL,!

 S DIR(0)="F"

 S DIR("A")="Enter Directory Containing Above Host File"

 S DIR("B")="/usr/spool/uucppublic"

 D ^DIR S AGSSPATH=Y

 I "\/"'[$E(AGSSPATH) D

 .S:^%ZOSF("OS")["UNIX" AGSSPATH="/"_AGSSPATH Q

 .S AGSSPATH="\"_AGSSPATH

 I "\/"'[$E(AGSSPATH,$L(AGSSPATH)) D

 .S:^%ZOSF("OS")["UNIX" AGSSPATH=AGSSPATH_"/" Q

 .S AGSSPATH=AGSSPATH_"\"

 I $D(AGSS("NORUN")) W !!,"NO RUN HAS BEEN SET",!!

 S DIR(0)="Y",DIR("A")="Queue",DIR("B")="NO" D ^DIR K DIR

 S AGSSQ=Y

 I AGSSQ D  Q

 .D QUE

 .D HOME^%ZIS

 .K AGSSHFL,AGSSITE,AGSSQ

 D PROC^AGSS0

 D ^%ZISC

 D PRINT^AGSS0

 K AGSSHFL,AGSSITE,AGSSQ

 Q

QUE ;que to taskman

 S ZTRTN="PROC^AGSS0"

 S ZTDESC="SSN Matching"

 S ZTIO=""

 S ZTSAVE("AGSSUFAC")=""

 S ZTSAVE("AGSSHFL")=""

 S ZTSAVE("AGSSITE")=""

 S ZTSAVE("AGSSPATH")=""

 D ^%ZTLOAD

 W:$G(ZTSK) !,"Task #",ZTSK," queued.",!

 W !,"You may monitor progress with the 'Monitor Facility Processing' option.",!

 S DIR(0)="E" D ^DIR K DIR

 Q

AGSS      ; IHS/ASDS/EFG - PROCESS NPIRS/SSA SUBMITTALS ;  

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

 +2       ;

S         ;start

 +1        SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Process Site: "

           SET DIC("B")=$PIECE(^DIC(4,DUZ(2),0),"^",1)

           DO ^DIC

           KILL DIC

           IF Y<0

               QUIT 

           SET AGSSITE=+Y

 +2        IF $DATA(^AGSSTEMP(AGSSITE))

               Begin DoDot:1

 +3                SET DIR(0)="Y"

 +4                SET DIR("A")="Scratch global ^AGSSTEMP exists for this site. Kill"

 +5                SET DIR("B")="N"

 +6                DO ^DIR

                   KILL DIR

 +7                IF 'Y

                       QUIT 

 +8                KILL ^AGSSTEMP(AGSSITE)

               End DoDot:1

               IF 'Y

                   QUIT 

 +9        SET AGSSUFAC=$PIECE(^AUTTLOC(AGSSITE,0),"^",10)

 +10       SET AGSSHFL="ss"_AGSSUFAC_".ssn"

 +11       WRITE !!,"Processing Host File: ",AGSSHFL,!

 +12       SET DIR(0)="F"

 +13       SET DIR("A")="Enter Directory Containing Above Host File"

 +14       SET DIR("B")="/usr/spool/uucppublic"

 +15       DO ^DIR

           SET AGSSPATH=Y

 +16       IF "\/"'[$EXTRACT(AGSSPATH)

               Begin DoDot:1

 +17               IF ^%ZOSF("OS")["UNIX"

                       SET AGSSPATH="/"_AGSSPATH

                   QUIT 

 +18               SET AGSSPATH="\"_AGSSPATH

               End DoDot:1

 +19       IF "\/"'[$EXTRACT(AGSSPATH,$LENGTH(AGSSPATH))

               Begin DoDot:1

 +20               IF ^%ZOSF("OS")["UNIX"

                       SET AGSSPATH=AGSSPATH_"/"

                   QUIT 

 +21               SET AGSSPATH=AGSSPATH_"\"

               End DoDot:1

 +22       IF $DATA(AGSS("NORUN"))

               WRITE !!,"NO RUN HAS BEEN SET",!!

 +23       SET DIR(0)="Y"

           SET DIR("A")="Queue"

           SET DIR("B")="NO"

           DO ^DIR

           KILL DIR

 +24       SET AGSSQ=Y

 +25       IF AGSSQ

               Begin DoDot:1

 +26               DO QUE

 +27               DO HOME^%ZIS

 +28               KILL AGSSHFL,AGSSITE,AGSSQ

               End DoDot:1

               QUIT 

 +29       DO PROC^AGSS0

 +30       DO ^%ZISC

 +31       DO PRINT^AGSS0

 +32       KILL AGSSHFL,AGSSITE,AGSSQ

 +33       QUIT 

QUE       ;que to taskman

 +1        SET ZTRTN="PROC^AGSS0"

 +2        SET ZTDESC="SSN Matching"

 +3        SET ZTIO=""

 +4        SET ZTSAVE("AGSSUFAC")=""

 +5        SET ZTSAVE("AGSSHFL")=""

 +6        SET ZTSAVE("AGSSITE")=""

 +7        SET ZTSAVE("AGSSPATH")=""

 +8        DO ^%ZTLOAD

 +9        IF $GET(ZTSK)

               WRITE !,"Task #",ZTSK," queued.",!

 +10       WRITE !,"You may monitor progress with the 'Monitor Facility Processing' option.",!

 +11       SET DIR(0)="E"

           DO ^DIR

           KILL DIR

 +12       QUIT