AGSSM.m

AGSSM ; IHS/ASDS/EFG - MONITOR PROGRAM ;  

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

 ;

 ;this program monitors the background SSA SSN processing

 D DT^DICRW

 S DIC="^AUTTLOC(",DIC(0)="AEMQ",DIC("A")="Monitor which Site: " D ^DIC

 Q:+Y<0  S AGSSITE=+Y

 F  Q:($G(DROUT)!$G(DIROUT)!$G(DUOUT))  D DISP W !!!,"The display will recycle every 10 seconds",! K DIR S DIR("T")=10,DIR(0)="E" D ^DIR

 D QUIT

 Q

DISP ;EP

 U IO(0) W $$S^AGVDF("IOF")

 W !,?10,"Monitor Program for the SSA SSN Matching Process"

 S %H=$H D YX^%DTC W !!,"The current time is :  ",Y

 I '$D(^AGSSTEMP) W !,"The processing program has not started",!! G EDISP

 S AGSSBGT=$G(^AGSSTEMP(AGSSITE,0,"BEGIN-TIME")),AGSSTM=$G(^AGSSTEMP(AGSSITE,0,"CURRENT-TIME")),AGSS1BGT=$G(^AGSSTEMP(AGSSITE,0,"1ST-BEGIN-TIME"))

 S AGSS1LRC=$G(^AGSSTEMP(AGSSITE,0,"1ST-LAST-RECORD")),AGSSLRC=$G(^AGSSTEMP(AGSSITE,0,"LAST-RECORD")),AGSSVOL=$G(^AGSSTEMP(AGSSITE,0,"VOL-REC"))

 W !,"Last Record Processed: "

 W !,AGSSLRC

 I ($P(AGSSTM,",")'=$P($H,","))!($P($H,",",2)-$P(AGSSTM,",",2)>600) W !!!,"The process has been idle for more than 10 minutes",!,*7,"PLEASE CHECK WITH THE SITE MANAGER !!",! G EDISP

 S AGSSDAY=(AGSSTM/1)-(AGSSBGT/1)*24*60*60,AGSSSEC=AGSSDAY+$P(AGSSTM,",",2)-$P(AGSSBGT,",",2)

 W:$G(^AGSSTEMP(AGSSITE,0,"END-PROCESS")) !!,"PROCESS COMPLETE",!!

 W:$G(^AGSSTEMP(AGSSITE,0,"NOPEN")) !!,"Could not open host file.",!!

EDISP ;EP END MONITOR DISPLAY

QUIT K DROUT,DIROUT,DUOUT,DTOUT

 Q

SET ;

 S ^AGSSTEMP(AGSSITE,0,"VOL-RECORD")=25000

 S ^AGSSTEMP(AGSSITE,0,"LAST-RECORD")=1000

 S ^AGSSTEMP(AGSSITE,0,"CURRENT-TIME")=$H

 S ^AGSSTEMP(AGSSITE,0,"BEGIN-TIME")=$P($H,",")_","_($P($H,",",2)-600)

 S ^AGSSTEMP(AGSSITE,0,"1ST-LAST-RECORD")=0

 S ^AGSSTEMP(AGSSITE,0,"1ST-BEGIN-TIME")=0

 Q

AGSSM     ; IHS/ASDS/EFG - MONITOR PROGRAM ;  

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

 +2       ;

 +3       ;this program monitors the background SSA SSN processing

 +4        DO DT^DICRW

 +5        SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Monitor which Site: "

           DO ^DIC

 +6        IF +Y<0

               QUIT 

           SET AGSSITE=+Y

 +7        FOR 

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

                   QUIT 

               DO DISP

               WRITE !!!,"The display will recycle every 10 seconds",!

               KILL DIR

               SET DIR("T")=10

               SET DIR(0)="E"

               DO ^DIR

 +8        DO QUIT

 +9        QUIT 

DISP      ;EP

 +1        USE IO(0)

           WRITE $$S^AGVDF("IOF")

 +2        WRITE !,?10,"Monitor Program for the SSA SSN Matching Process"

 +3        SET %H=$HOROLOG

           DO YX^%DTC

           WRITE !!,"The current time is :  ",Y

 +4        IF '$DATA(^AGSSTEMP)

               WRITE !,"The processing program has not started",!!

               GOTO EDISP

 +5        SET AGSSBGT=$GET(^AGSSTEMP(AGSSITE,0,"BEGIN-TIME"))

           SET AGSSTM=$GET(^AGSSTEMP(AGSSITE,0,"CURRENT-TIME"))

           SET AGSS1BGT=$GET(^AGSSTEMP(AGSSITE,0,"1ST-BEGIN-TIME"))

 +6        SET AGSS1LRC=$GET(^AGSSTEMP(AGSSITE,0,"1ST-LAST-RECORD"))

           SET AGSSLRC=$GET(^AGSSTEMP(AGSSITE,0,"LAST-RECORD"))

           SET AGSSVOL=$GET(^AGSSTEMP(AGSSITE,0,"VOL-REC"))

 +7        WRITE !,"Last Record Processed: "

 +8        WRITE !,AGSSLRC

 +9        IF ($PIECE(AGSSTM,",")'=$PIECE($HOROLOG,","))!($PIECE($HOROLOG,",",2)-$PIECE(AGSSTM,",",2)>600)

               WRITE !!!,"The process has been idle for more than 10 minutes",!,*7,"PLEASE CHECK WITH THE SITE MANAGER !!",!

               GOTO EDISP

 +10       SET AGSSDAY=(AGSSTM/1)-(AGSSBGT/1)*24*60*60

           SET AGSSSEC=AGSSDAY+$PIECE(AGSSTM,",",2)-$PIECE(AGSSBGT,",",2)

 +11       IF $GET(^AGSSTEMP(AGSSITE,0,"END-PROCESS"))

               WRITE !!,"PROCESS COMPLETE",!!

 +12       IF $GET(^AGSSTEMP(AGSSITE,0,"NOPEN"))

               WRITE !!,"Could not open host file.",!!

EDISP     ;EP END MONITOR DISPLAY

QUIT       KILL DROUT,DIROUT,DUOUT,DTOUT

 +1        QUIT 

SET       ;

 +1        SET ^AGSSTEMP(AGSSITE,0,"VOL-RECORD")=25000

 +2        SET ^AGSSTEMP(AGSSITE,0,"LAST-RECORD")=1000

 +3        SET ^AGSSTEMP(AGSSITE,0,"CURRENT-TIME")=$HOROLOG

 +4        SET ^AGSSTEMP(AGSSITE,0,"BEGIN-TIME")=$PIECE($HOROLOG,",")_","_($PIECE($HOROLOG,",",2)-600)

 +5        SET ^AGSSTEMP(AGSSITE,0,"1ST-LAST-RECORD")=0

 +6        SET ^AGSSTEMP(AGSSITE,0,"1ST-BEGIN-TIME")=0

 +7        QUIT