GMRYED5.m

GMRYED5 ;HIRMFO/YH-IV ACCESS, IV SOLUTIONS AND CATHETERS ;10/3/96

 ;;4.0;Intake/Output;;Apr 25, 1997

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:"  ")

 W ?5,$P(GSOL(1),"^")_"   "_GSOL(2)_"   "_$S($P(GSOL(1),"^",3)'="":$P(GSOL(1),"^",3),1:"   ")_" mls",! Q

SITE ;

 Q:GSITE=""  S DA=$O(^GMR(126,DA(1),"IVM","B",GSITE,0)) Q:DA'>0

 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

 Q

SET ;

 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

LISTSITE ;

 N GMRZ D EN1^GMRYUT5 Q

LOCK ;OBTAIN INFORMATION FOR LOCK/PORT

 S GMRZ(1)=GMRVTYP,GMRZ="*",GMRZ(2)="*",GMRZ(3)="" Q

ASK1 ;

 I GOPT["ADDSOL" W !,"Did you flush " S %=2 D YN^DICN Q:%'=1

 S GMRZ="*" D SETDB^GMRYFLSH

 Q

IVACCSS ;IV ACCESS FROM ENTER/EDIT PATIENT INTAKE

 S GMRDC=0 D LISTIV^GMRYUT0 I '$D(GMRDATA)!(GN'>0) K GMRDATA Q

LISTIV ;F II=1:1:GN(1) D WRT^GMRYED4

 S GFLAG=0 D SEL^GMRYUT13

 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

 I X'>0!(X["?") W !,"Enter the number of the IV solution you want to enter/edit INTAKE",! G LISTIV

 I '$D(GMRDATA(+X)) W !,"Error entry, please try again",! G LISTIV

 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)

 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

QUEST ;

 D LISTIV^GMRYUT0,SELECT^GMRYUT3 Q

GMRYED5   ;HIRMFO/YH-IV ACCESS, IV SOLUTIONS AND CATHETERS ;10/3/96

 +1       ;;4.0;Intake/Output;;Apr 25, 1997

WRTSOL     SET GSOL(2)=$PIECE(GSOL(1),"^",2)

           SET GSOL(2)=$SELECT(GSOL(2)="I":"INTRALIPIDS",GSOL(2)="A":"ADMIXTURE",GSOL(2)="B":"BLOOD/BLOOD PRODUCT",GSOL(2)="P":"PIGGYBACK",GSOL(2)="H":"HYPERAL",1:"  ")

 +1        WRITE ?5,$PIECE(GSOL(1),"^")_"   "_GSOL(2)_"   "_$SELECT($PIECE(GSOL(1),"^",3)'="":$PIECE(GSOL(1),"^",3),1:"   ")_" mls",!

           QUIT 

SITE      ;

 +1        IF GSITE=""

               QUIT 

           SET DA=$ORDER(^GMR(126,DA(1),"IVM","B",GSITE,0))

           IF DA'>0

               QUIT 

 +2        IF $DATA(^GMR(126,DA(1),"IVM",DA,1,"B",+GX))

               SET DA(2)=DA(1)

               SET DA(1)=DA

               SET DA=$ORDER(^(+GX,0))

               IF DA'>0

                   QUIT 

               SET DIK="^GMR(126,"_DA(2)_",""IVM"","_DA(1)_",1,"

               DO ^DIK

               KILL DIK

               QUIT 

 +3        QUIT 

SET       ;

 +1        SET GHLOC=$PIECE($GET(^GMR(126,DFN,"IV",DA,0)),"^",8)

           SET GMRZ=$PIECE($GET(^(0)),"^",3)

           SET GMRZ(1)=$PIECE($GET(^(0)),"^",4)

           SET GMRZ(2)=+$PIECE($GET(^(0)),"^",5)

           SET GMRZ(3)=$PIECE($GET(^(0)),"^",12)

           SET GDR=$SELECT($PIECE($GET(^(0)),"^",6)>0:1,1:2)

           QUIT 

LISTSITE  ;

 +1        NEW GMRZ

           DO EN1^GMRYUT5

           QUIT 

LOCK      ;OBTAIN INFORMATION FOR LOCK/PORT

 +1        SET GMRZ(1)=GMRVTYP

           SET GMRZ="*"

           SET GMRZ(2)="*"

           SET GMRZ(3)=""

           QUIT 

ASK1      ;

 +1        IF GOPT["ADDSOL"

               WRITE !,"Did you flush "

               SET %=2

               DO YN^DICN

               IF %'=1

                   QUIT 

 +2        SET GMRZ="*"

           DO SETDB^GMRYFLSH

 +3        QUIT 

IVACCSS   ;IV ACCESS FROM ENTER/EDIT PATIENT INTAKE

 +1        SET GMRDC=0

           DO LISTIV^GMRYUT0

           IF '$DATA(GMRDATA)!(GN'>0)

               KILL GMRDATA

               QUIT 

LISTIV    ;F II=1:1:GN(1) D WRT^GMRYED4

 +1        SET GFLAG=0

           DO SEL^GMRYUT13

 +2        WRITE !,"Enter the number of the IV you wish to enter/edit INTAKE: "

           SET X=""

           READ X:DTIME

           IF '$TEST

               SET GMROUT=1

           IF X["^"!GMROUT

               QUIT 

 +3        IF X'>0!(X["?")

               WRITE !,"Enter the number of the IV solution you want to enter/edit INTAKE",!

               GOTO LISTIV

 +4        IF '$DATA(GMRDATA(+X))

               WRITE !,"Error entry, please try again",!

               GOTO LISTIV

 +5        SET DA(1)=DFN

           SET (DA,GMRVP)=+$PIECE(GMRDATA(+X),"^",2)

           SET GSITE=$PIECE(GMRDATA(+X),"^",4)

           SET (GMRVDT,GIVDT)=+$PIECE(GMRDATA(+X),"^")

           SET GMRVTYP=$PIECE(GMRDATA(+X),"^",3)

           SET GSOL=$PIECE(GMRDATA(+X),"^",6)

           SET GVOL=$PIECE(GMRDATA(+X),"^",7)

           SET GTXT=$PIECE(GMRDATA(+X),"^",8)

 +6        SET GRATE=$PIECE(GMRDATA(+X),"^",9)

           SET GLABEL=$SELECT(GMRVTYP="A":"ADMIXTURE",GMRVTYP="P":"IVPB",GMRVTYP="H":"HYPERAL",GMRVTYP="I":"INTRALIPID",GMRVTYP="B":"BLOOD/BLOOD PRODUCT",1:"LOCK/PORT")

           QUIT 

QUEST     ;

 +1        DO LISTIV^GMRYUT0

           DO SELECT^GMRYUT3

           QUIT