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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURAMB3 789 printed Dec 13, 2024@02:19:28 Page 2
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
