- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYED5 1972 printed Feb 18, 2025@23:21:42 Page 2
- 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