| 1 | NURARMC0 ;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
|
|---|
| 5 | EN1 ; ENTRY FROM OPTION NURAPR-RES-MDPC
|
|---|
| 6 | S NHOSPSW=1,NURSTYPE="",NURSUMSW=0
|
|---|
| 7 | G HSKEEP
|
|---|
| 8 | EN2 ; ENTRY FROM OPTION NURAPR-RES-MDPC
|
|---|
| 9 | S NHOSPSW=0,NURSTYPE="W"
|
|---|
| 10 | HSKEEP ; 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
|
|---|
| 19 | START ;
|
|---|
| 20 | K ^TMP($J),^TMP("NURBDSUM",$J)
|
|---|
| 21 | D ^NURARPC3
|
|---|
| 22 | I '$D(ZTSK),'NUROUT G HSKEEP
|
|---|
| 23 | QUIT ; KILL LOCAL VARIABLES
|
|---|
| 24 | D QUIT^NURARPC0
|
|---|
| 25 | Q
|
|---|
