source: WorldVistAEHR/trunk/r/GEN_MED_REC_IO-GMRY/GMRYUT11.m@ 724

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1GMRYUT11 ;HIRMFO/YH-IV FLUSH ;10/18/96
2 ;;4.0;Intake/Output;;Apr 25, 1997
3PATIENT ;SEARCH PATIENT BY WARD AND ROOM
4 I '$D(^NURSF(214,"AF","A",GMRWARD)) S GMROUT=1 Q
5 S GNURWRD=GMRWARD,GNURWRD(1)=GMRWARD(1) F DFN=0:0 S DFN=$O(^NURSF(214,"AF","A",GNURWRD,DFN)) Q:DFN'>0!GMROUT D WARDPT
6 S GMRWARD=GNURWRD,GMRWARD(1)=GNURWRD(1) K GNURWRD Q
7WARDPT ;
8 D PT^GMRYUT0 Q:"Ss"[GMREDB&($S($P(GMRBED,"-")="":1,1:'$D(GNRMBD($P(GMRBED,"-")))))!(GMRNAM="")
9 S GROOM="BLANK",GBED="BLANK" S:GMRBED'="" GROOM=$P(GMRBED,"-"),GBED=$P(GMRBED,"-",2) S ^TMP("GMRPT",$J,GROOM,GBED,DFN)="" Q
10MHOUR ;SCREEN MILITARY HOUR, CLLED BY DD NURSING SHIFT HOUR
11 S:$L(X)>4!($L(X)<4) X="" Q:X="" S GMROUT=0 F GMRY=1:1:4 S GMRY(1)=$A($E(X,GMRY)) S:GMRY(1)<48!(GMRY(1)>57) GMROUT=1 Q:GMROUT
12 I GMROUT S X="" K GMRY,GMROUT Q
13 I X=0!(X>2400) S X="" K GMRY,GMROUT Q
14 I $E(X,3,4)>60 S X="" K GMRY,GMROUT Q
15 K GMRY,GMROUT Q
16DCREASON ;LIST IV DC REASON CALLED BY D/C IV EDIT
17 N GMRX,I S GDCREAS="INFUSED"
18 W !!,"Select one of the following reasons for DCing or ^ to exit",!! S X="",I=0 F S X=$O(^GMRD(126.76,"B",X)) Q:X="" S X(1)=$O(^GMRD(126.76,"B",X,0)) Q:X(1)'>0 S I=I+1 W ?10,I_". "_$P(^GMRD(126.76,X(1),0),"^"),! S GMRX(I)=$P(^(0),"^")
19 Q:I'>0 S GMRX=0 W !,"Select a number between 1 and "_I_": INFUSED// " R GMRX:DTIME I '$T!(GMRX["^") S GMROUT=1 Q
20 I GMRX["?" W !!,"Select a number between 1 and "_I_" for the reason of this DCing.",!,"INFUSED is default.",! G DCREASON
21ASKYN Q:GMRX="" I $D(GMRX(+GMRX)) S GDCREAS=$P(GMRX(+GMRX),"^") W !,GDCREAS Q
22 G DCREASON
23WRITE ;PRINT I/O RECORDS FOR SELECTION
24 S GY=$P(GMRDATA(GN),"^"),GY(1)=+$P(GMRDATA(GN),"^",2)
25 S Y=GY X ^DD("DD") W ?5,GN_".",?10,$P(Y,":",1,2)
26 I GNANS="OUT" D
27 . N GI S GI=$P($G(^GMR(126,DA,GNANS,GY(1),0)),"^",4)
28 . I GI'="",GI?1.3N W ?40,GI_" mls"
29 . E S GI(1)=$E(GI) S:GI(1)'="*" GI(1)=$$UP^XLFSTR(GI(1)) W ?40,$S(GI(1)="*":"*",GI(1)="S":"Small",GI(1)="M":"Medium",GI(1)="L":"Large",1:"")
30 . S GSTYP=$P($G(^GMR(126,DA,GNANS,GY(1),0)),"^",3)
31 .Q
32 I GNANS="OUT",GSTYP'="",$D(^GMRD(126.6,+GSTYP,0)) W " "_$P(^(0),"^"),!
33 G:GNANS="OUT" Q1 I GNANS="IV" W ?40,$P(GMRDATA(+GN),"^",3)_" mls left Intake: "_$S($P(GMRDATA(+GN),"^",3)["*":"unknown",1:$P(GMRDATA(+GN),"^",4)_" mls"),! G Q1
34 I GNANS="IN",$D(^GMR(126,DA,GNANS,GY(1),0)) W ?40,"Total: "_+$P(^(0),"^",5)_" mls",!
35 I GNANS="IN",$D(^GMR(126,DA,GNANS,GY(1),1,0)) S GY(2)=0 F S GY(2)=$O(^GMR(126,DA,GNANS,GY(1),1,GY(2))) Q:GY(2)'>0 S GY(3)=$G(^(GY(2),0)) W ?40,$S($D(^GMRD(126.8,+$P(GY(3),"^"),0)):$P(^(0),"^"),1:"") W ?60,+$P(GY(3),"^",2)_" mls",!
36Q1 W ! K GSTYP Q
Note: See TracBrowser for help on using the repository browser.