source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURSCPLE.m@ 1651

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1NURSCPLE ;HIRMFO/RM,FT/MD-BACKUP BED CONTROL FOR NURSING SERVICE ;4/23/97
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3EN1 ; 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
6Q1 ; KILL LOCAL VARIABLES
7 D ^NURSKILL
8 Q
9EDT 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
17EN2 ; 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
22ADM 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
25EN3 ; 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
Note: See TracBrowser for help on using the repository browser.