source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURARMC0.m@ 623

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1NURARMC0 ;HIRMFO/MD-DRIVER TO PRINT MIDNIGHT ACUITY REPORTS 2/2/96
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3 Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
4 S (NURQUEUE,NUROUT,NURMDSW,NURMDSW(3))=0 D LOSER^NURARST G QUIT:NUROUT,EN1:SEL=2,EN2:SEL=1
5EN1 ; ENTRY FROM OPTION NURAPR-RES-MDPC
6 S NHOSPSW=1,NURSTYPE="",NURSUMSW=0
7 G HSKEEP
8EN2 ; ENTRY FROM OPTION NURAPR-RES-MDPC
9 S NHOSPSW=0,NURSTYPE="W"
10HSKEEP ; SET LOCAL VARIABLES
11 S NURPAGE=0,(NURSWARD,NBDSECT,NURSWHEN)="",%DT="",X="T",(NURMDSW(1),NURMDSW(2))=1
12 D ^%DT S NRPTDAT=Y
13 D RPTYPSEL^NURARPC0,REPTYPE^NURARPC0:NHOSPSW,WARDSEL^NURARPC0:'NHOSPSW I NUROUT G QUIT
14 D @$S(NURSTYPE="W"&(NHOSPSW):"HOSPSEL^NURARPC0",1:"BEDSEL^NURARPC0") I NUROUT G QUIT
15 D TIMESEL^NURARPC0 I NUROUT G QUIT
16 D @$S(NURSWHEN="D":"SETDAY^NURARPC1",NURSWHEN="M":"SETMON^NURARPC1",NURSWHEN="Q"!(NURSWHEN="A"):"SETQUART^NURARPC1",1:"ERROR^NURARPC0") W !
17 G:NUROUT QUIT
18 S ZTRTN="START^NURARMC0" D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT
19START ;
20 K ^TMP($J),^TMP("NURBDSUM",$J)
21 D ^NURARPC3
22 I '$D(ZTSK),'NUROUT G HSKEEP
23QUIT ; KILL LOCAL VARIABLES
24 D QUIT^NURARPC0
25 Q
Note: See TracBrowser for help on using the repository browser.