| [613] | 1 | NURSCPLE ;HIRMFO/RM,FT/MD-BACKUP BED CONTROL FOR NURSING SERVICE ;4/23/97
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN1 ; ENTRY FROM ROUTINE NURACE0 TO UPDATE NURS PATIENT LOCATION
|
|---|
| 4 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 5 | S NADM=0 D EDT
|
|---|
| 6 | Q1 ; KILL LOCAL VARIABLES
|
|---|
| 7 | D ^NURSKILL
|
|---|
| 8 | Q
|
|---|
| 9 | EDT W !! S NASK=1,DIC(0)="EQM",NACT=0 D EN5^NURSCUTL G:DFN="" Q1 I '$D(^NURSF(214,"C","A",DFN)),'NADM W !,$C(7),"Patient not admitted in Nursing Package" G Q1
|
|---|
| 10 | L +^NURSF(214,DFN):3 I '$T W !,"CANNOT EDIT AT THIS TIME" G Q1
|
|---|
| 11 | D:NADM ADM
|
|---|
| 12 | S NURLSCR=1,DA=DFN,DIE="^NURSF(214,"
|
|---|
| 13 | S DR="2Select Nursing Unit;S NURSS=$S('$D(^NURSF(211.4,X,""I"")):""A"",$P(^(""I""),U)=""A"":""A"",1:""I""),NURSS=$S(NURSS=""I"":""I"",'$D(^(1)):""A"",1:$P(^(1),U));1///^S X=NURSS;K NURSS;3Select Nursing Bed Section"
|
|---|
| 14 | D ^DIE K NURLSCR L -^NURSF(214,DFN)
|
|---|
| 15 | I $S('$D(^NURSF(214,DFN,0)):1,$P(^(0),"^",3)="":1,$P(^(0),"^",4)="":1,1:0) S DA=DFN,DIK="^NURSF(214," D ^DIK W !,$C(7),"Patient not admitted to Nursing!!"
|
|---|
| 16 | Q
|
|---|
| 17 | EN2 ; CALLED FROM OPTION NURSPT-ACT BACKUP TO MAS TO ADMIT PATIENT
|
|---|
| 18 | ; INTO NURSING SERVICE.
|
|---|
| 19 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 20 | S NADM=1 D EDT
|
|---|
| 21 | G Q1
|
|---|
| 22 | ADM S DA=DFN,DIE=214,DR=$S('$D(^NURSF(214,DFN,0)):".01///^S X=""`""_DFN;",1:"")_"1///^S X=""A"";4///^S X=DT;5///@" D ^DIE
|
|---|
| 23 | D DEM^VADPT W !!,VADM(1)," has been admitted into the NURSING SYSTEM."
|
|---|
| 24 | Q
|
|---|
| 25 | EN3 ; ENTRY FOR INDIVIDUAL PATIENT CENSUS
|
|---|
| 26 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 27 | S NURQUEUE=0,NASK=1,DIC(0)="EQM",NACT=1 W ! D EN5^NURSCUTL
|
|---|
| 28 | G:DFN="" QUIT^NURSCPLC
|
|---|
| 29 | S NPWARD=$P(^NURSF(214,DFN,0),"^",3) D EN6^NURSAUTL S NURSWARD=NPWARD
|
|---|
| 30 | S NSEC=$S('$D(^NURSF(214,DFN,0)):"",$P(^(0),"^",4)="":"",'$D(^NURSF(213.3,$P(^NURSF(214,DFN,0),"^",4),0)):"",1:$P(^NURSF(213.3,$P(^NURSF(214,DFN,0),"^",4),1),"^",1))
|
|---|
| 31 | D FNDCLAS^NURSCPLC D OERR^VADPT
|
|---|
| 32 | S N1=VADM(1),SSN=VA("PID"),NBED=VAIN(5)
|
|---|
| 33 | D ^NURSAPCH
|
|---|
| 34 | W !,"NAME: "_N1_" "_SSN
|
|---|
| 35 | W !,"UNIT: "_NURSWARD
|
|---|
| 36 | W !,"ROOM-BED: "_NBED
|
|---|
| 37 | W !,"ABSENCE: "_NURSX
|
|---|
| 38 | W !,"BED SEC: "_NSEC
|
|---|
| 39 | W !,"ACUITY: "_NURCAT
|
|---|
| 40 | D QUIT^NURSCPLC
|
|---|
| 41 | Q
|
|---|
