NURAMB3.m

NURAMB3 ;HIRMFO/MD-MANHOURS BATCH JOB STATUS ROUTINE ;FEB 89

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1 ; BULLETIN SUBROUTINE FOR AMIS 1106 CLASSIFICATION/MANHOUR BATCH JOBS

 Q:'$D(^DIC(213.9,1,"OFF"))  Q:$P(^DIC(213.9,1,"OFF"),"^")=1

 S:'$D(^DIC(213.9,1,"DATE")) ^DIC(213.9,1,"DATE")=""

 I $D(^DIC(213.9,1,"DATE")) F SHFT=2,6 I '(+$P(^DIC(213.9,1,"DATE"),"^",SHFT)=1) D SEND K XMB

 I '$P(^DIC(213.9,1,"DATE"),"^",9) D SEND1

 K XMB,SHFT,DA

 Q

SEND ; CLASSIFICATION BULLETIN

 S X="T-1" D ^%DT,D^DIQ S XQAMSG="The AMIS Acuity-Sep/Act Batch job for "_Y_" was not completed.",XQA("G.NURS-ADP")="" D SETUP^XQALERT

 Q

SEND1 ;SEPARATION/ACTIVATION BULLETIN

 S Y=DT D D^DIQ S XQAMSG="The Nursing Sep/Act batch job for "_Y_" was not completed.",XQA("G.NURS-ADP")="" D SETUP^XQALERT

 Q

NURAMB3   ;HIRMFO/MD-MANHOURS BATCH JOB STATUS ROUTINE ;FEB 89

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN1       ; BULLETIN SUBROUTINE FOR AMIS 1106 CLASSIFICATION/MANHOUR BATCH JOBS

 +1        IF '$DATA(^DIC(213.9,1,"OFF"))

               QUIT 

           IF $PIECE(^DIC(213.9,1,"OFF"),"^")=1

               QUIT 

 +2        IF '$DATA(^DIC(213.9,1,"DATE"))

               SET ^DIC(213.9,1,"DATE")=""

 +3        IF $DATA(^DIC(213.9,1,"DATE"))

               FOR SHFT=2,6

                   IF '(+$PIECE(^DIC(213.9,1,"DATE"),"^",SHFT)=1)

                       DO SEND

                       KILL XMB

 +4        IF '$PIECE(^DIC(213.9,1,"DATE"),"^",9)

               DO SEND1

 +5        KILL XMB,SHFT,DA

 +6        QUIT 

SEND      ; CLASSIFICATION BULLETIN

 +1        SET X="T-1"

           DO ^%DT

           DO D^DIQ

           SET XQAMSG="The AMIS Acuity-Sep/Act Batch job for "_Y_" was not completed."

           SET XQA("G.NURS-ADP")=""

           DO SETUP^XQALERT

 +2        QUIT 

SEND1     ;SEPARATION/ACTIVATION BULLETIN

 +1        SET Y=DT

           DO D^DIQ

           SET XQAMSG="The Nursing Sep/Act batch job for "_Y_" was not completed."

           SET XQA("G.NURS-ADP")=""

           DO SETUP^XQALERT

 +2        QUIT