source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURAMB3.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 774 bytes
Line 
1NURAMB3 ;HIRMFO/MD-MANHOURS BATCH JOB STATUS ROUTINE ;FEB 89
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3EN1 ; BULLETIN SUBROUTINE FOR AMIS 1106 CLASSIFICATION/MANHOUR BATCH JOBS
4 Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^")=1
5 S:'$D(^DIC(213.9,1,"DATE")) ^DIC(213.9,1,"DATE")=""
6 I $D(^DIC(213.9,1,"DATE")) F SHFT=2,6 I '(+$P(^DIC(213.9,1,"DATE"),"^",SHFT)=1) D SEND K XMB
7 I '$P(^DIC(213.9,1,"DATE"),"^",9) D SEND1
8 K XMB,SHFT,DA
9 Q
10SEND ; CLASSIFICATION BULLETIN
11 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
12 Q
13SEND1 ;SEPARATION/ACTIVATION BULLETIN
14 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
15 Q
Note: See TracBrowser for help on using the repository browser.