| [613] | 1 | NURARMH0 ;HIRMFO/RM/MD-DRIVER TO PRINT AMIS 1106 PATIENT CARE MANHOURS REPORTS ;2/17/96
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**14**;Apr 25, 1997
|
|---|
| 3 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 4 | S (NUROUT,NURQUEUE)=0 D LOSER^NURARST G QUIT:NUROUT,EN1:SEL=2,EN2:SEL=1
|
|---|
| 5 | EN1 ;ENTRY FROM OPTION NURAPR-RES-MANSER
|
|---|
| 6 | S NHOSPSW=1
|
|---|
| 7 | G HSKEEP
|
|---|
| 8 | EN2 ;ENTRY FROM OPTION NURAPR-RES-MANLOC
|
|---|
| 9 | S NHOSPSW=0
|
|---|
| 10 | HSKEEP ; SET LOCAL VARIABLES
|
|---|
| 11 | S (NUROUT,NURPAGE,NURQUEUE,NURMDSW,NURMDSW(3),NPTCEN,NBCEN,NBRK)=0,(NURSWARD,NBDSECT,NURSWHEN,%DT)="",X="T",(NURMDSW(1),NURMDSW(4))=1
|
|---|
| 12 | D ^%DT S NRPTDAT=Y
|
|---|
| 13 | W !!,?17,"Nursing AMIS 1106 Patient Care Manhours Reports"
|
|---|
| 14 | D EN9^NURSAGSP I NURMDSW,NHOSPSW D EN12^NURSAGSP G:$G(NUROUT) QUIT W ! S DIC(0)="AEMQZ" D EN8^NURSAGSP G:$G(NUROUT) QUIT
|
|---|
| 15 | D WARDSEL:'NHOSPSW G QUIT:NUROUT
|
|---|
| 16 | D BEDSEL^NURARPC0 I NUROUT G QUIT
|
|---|
| 17 | D TIMESEL^NURARPC0 I NUROUT G QUIT
|
|---|
| 18 | D @$S(NURSWHEN="D":"ASKDAY",NURSWHEN="M":"SETMON^NURARPC1",NURSWHEN="Q":"SETQUART^NURARPC1",NURSWHEN="A":"SETQUART^NURARPC1",1:"ERROR^NURARPC0") W !
|
|---|
| 19 | G:NUROUT QUIT
|
|---|
| 20 | S ZTRTN="START^NURARMH0" D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT
|
|---|
| 21 | START ;
|
|---|
| 22 | F X="RN","LPN","NA" S (DTL(X),TL(X),NT(X),FT(X),FNT(X))=0
|
|---|
| 23 | K ^TMP($J),^TMP("NURBDSM",$J)
|
|---|
| 24 | D ^NURARMH1
|
|---|
| 25 | QUIT ; KILL LOCAL VARIABLES
|
|---|
| 26 | D:$E(IOST)="C"&'NUROUT RERUNRPT^NURARPC3 I $E(IOST)="C",'NURQUEUE,'NUROUT G HSKEEP
|
|---|
| 27 | K ^TMP($J) D CLOSE^NURSUT1 D ^NURAKILL
|
|---|
| 28 | Q
|
|---|
| 29 | ASKDAY ;
|
|---|
| 30 | D EN8^NURSAGP1 Q:NUROUT
|
|---|
| 31 | S HDATE=NDATED,NURSHDR="Daily Report for "_$E(+NDATED,4,5)_"/"_$E(+NDATED,6,7)_"/"_$E(+NDATED,2,3)_$S(+NDATED'=$P(NDATED,U,2):" - "_$E($P(NDATED,U,2),4,5)_"/"_$E($P(NDATED,U,2),6,7)_"/"_$E($P(NDATED,U,2),2,3),1:"")
|
|---|
| 32 | Q
|
|---|
| 33 | WARDSEL R !!,"Select Nursing Unit: ",X:DTIME I "^"[X!('$T) S NUROUT=1 Q
|
|---|
| 34 | S DIC="^NURSF(211.4,",DIC(0)="EMZQ"
|
|---|
| 35 | D ^DIC K DIC
|
|---|
| 36 | I +Y'>0 G WARDSEL
|
|---|
| 37 | S NURSWARD(0)=Y(0,0),NURSWARD=+Y
|
|---|
| 38 | Q
|
|---|
