- 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 Feb 18, 2025@23:45:53 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