source: WorldVistAEHR/trunk/r/GEN_MED_REC_IO-GMRY/GMRYED5.m@ 1078

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1GMRYED5 ;HIRMFO/YH-IV ACCESS, IV SOLUTIONS AND CATHETERS ;10/3/96
2 ;;4.0;Intake/Output;;Apr 25, 1997
3WRTSOL S GSOL(2)=$P(GSOL(1),"^",2),GSOL(2)=$S(GSOL(2)="I":"INTRALIPIDS",GSOL(2)="A":"ADMIXTURE",GSOL(2)="B":"BLOOD/BLOOD PRODUCT",GSOL(2)="P":"PIGGYBACK",GSOL(2)="H":"HYPERAL",1:" ")
4 W ?5,$P(GSOL(1),"^")_" "_GSOL(2)_" "_$S($P(GSOL(1),"^",3)'="":$P(GSOL(1),"^",3),1:" ")_" mls",! Q
5SITE ;
6 Q:GSITE="" S DA=$O(^GMR(126,DA(1),"IVM","B",GSITE,0)) Q:DA'>0
7 I $D(^GMR(126,DA(1),"IVM",DA,1,"B",+GX)) S DA(2)=DA(1),DA(1)=DA,DA=$O(^(+GX,0)) Q:DA'>0 S DIK="^GMR(126,"_DA(2)_",""IVM"","_DA(1)_",1," D ^DIK K DIK Q
8 Q
9SET ;
10 S GHLOC=$P($G(^GMR(126,DFN,"IV",DA,0)),"^",8),GMRZ=$P($G(^(0)),"^",3),GMRZ(1)=$P($G(^(0)),"^",4),GMRZ(2)=+$P($G(^(0)),"^",5),GMRZ(3)=$P($G(^(0)),"^",12),GDR=$S($P($G(^(0)),"^",6)>0:1,1:2) Q
11LISTSITE ;
12 N GMRZ D EN1^GMRYUT5 Q
13LOCK ;OBTAIN INFORMATION FOR LOCK/PORT
14 S GMRZ(1)=GMRVTYP,GMRZ="*",GMRZ(2)="*",GMRZ(3)="" Q
15ASK1 ;
16 I GOPT["ADDSOL" W !,"Did you flush " S %=2 D YN^DICN Q:%'=1
17 S GMRZ="*" D SETDB^GMRYFLSH
18 Q
19IVACCSS ;IV ACCESS FROM ENTER/EDIT PATIENT INTAKE
20 S GMRDC=0 D LISTIV^GMRYUT0 I '$D(GMRDATA)!(GN'>0) K GMRDATA Q
21LISTIV ;F II=1:1:GN(1) D WRT^GMRYED4
22 S GFLAG=0 D SEL^GMRYUT13
23 W !,"Enter the number of the IV you wish to enter/edit INTAKE: " S X="" R X:DTIME S:'$T GMROUT=1 Q:X["^"!GMROUT
24 I X'>0!(X["?") W !,"Enter the number of the IV solution you want to enter/edit INTAKE",! G LISTIV
25 I '$D(GMRDATA(+X)) W !,"Error entry, please try again",! G LISTIV
26 S DA(1)=DFN,(DA,GMRVP)=+$P(GMRDATA(+X),"^",2),GSITE=$P(GMRDATA(+X),"^",4),(GMRVDT,GIVDT)=+$P(GMRDATA(+X),"^"),GMRVTYP=$P(GMRDATA(+X),"^",3),GSOL=$P(GMRDATA(+X),"^",6),GVOL=$P(GMRDATA(+X),"^",7),GTXT=$P(GMRDATA(+X),"^",8)
27 S GRATE=$P(GMRDATA(+X),"^",9),GLABEL=$S(GMRVTYP="A":"ADMIXTURE",GMRVTYP="P":"IVPB",GMRVTYP="H":"HYPERAL",GMRVTYP="I":"INTRALIPID",GMRVTYP="B":"BLOOD/BLOOD PRODUCT",1:"LOCK/PORT") Q
28QUEST ;
29 D LISTIV^GMRYUT0,SELECT^GMRYUT3 Q
Note: See TracBrowser for help on using the repository browser.