| [613] | 1 | GMRYED5 ;HIRMFO/YH-IV ACCESS, IV SOLUTIONS AND CATHETERS ;10/3/96
|
|---|
| 2 | ;;4.0;Intake/Output;;Apr 25, 1997
|
|---|
| 3 | WRTSOL 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
|
|---|
| 5 | SITE ;
|
|---|
| 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
|
|---|
| 9 | SET ;
|
|---|
| 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
|
|---|
| 11 | LISTSITE ;
|
|---|
| 12 | N GMRZ D EN1^GMRYUT5 Q
|
|---|
| 13 | LOCK ;OBTAIN INFORMATION FOR LOCK/PORT
|
|---|
| 14 | S GMRZ(1)=GMRVTYP,GMRZ="*",GMRZ(2)="*",GMRZ(3)="" Q
|
|---|
| 15 | ASK1 ;
|
|---|
| 16 | I GOPT["ADDSOL" W !,"Did you flush " S %=2 D YN^DICN Q:%'=1
|
|---|
| 17 | S GMRZ="*" D SETDB^GMRYFLSH
|
|---|
| 18 | Q
|
|---|
| 19 | IVACCSS ;IV ACCESS FROM ENTER/EDIT PATIENT INTAKE
|
|---|
| 20 | S GMRDC=0 D LISTIV^GMRYUT0 I '$D(GMRDATA)!(GN'>0) K GMRDATA Q
|
|---|
| 21 | LISTIV ;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
|
|---|
| 28 | QUEST ;
|
|---|
| 29 | D LISTIV^GMRYUT0,SELECT^GMRYUT3 Q
|
|---|
