GMRYUT3 ;HIRMFO/YH-PATIENT I/O UTILITIES - DIC CALL ;11/6/96
;;4.0;Intake/Output;;Apr 25, 1997
LIST ;LIST I/O RECORDS FOR THE SELECTED TYPE IN THE DATABASE
K GMRDATA S DA=DFN,GMRDC=1,GN=0,GX="",GMRDEL="" I $D(^GMR(126,DA,GNANS,"TYP")) S GMRDT=0 F S GMRDT=$O(^GMR(126,DA,GNANS,"TYP",GMRDT)) Q:GMRDT'>0 I '(GMRDT>GMREND) D SETDA
S GN(1)=GN I '$D(GMRDATA) W !,?5,$C(7),"No records in the database within the last 48 hours" G NEW
I $D(GMRDATA) D SELECT S:GX["^^" GMROUT=1 I GMROUT!($E(GX)="^") S DA=DFN G Q
I "Nn"[GX&(GX'="") S GX="" G NEW
I GX>0 S DA(1)=DA,DA=+$P(GX,"^",2) G:DA'>0 Q S GHLOC=$S(GNANS="IN":+$P($G(^GMR(126,DFN,"IN",DA,0)),"^",4),GNANS="OUT":+$P($G(^GMR(126,DFN,"OUT",DA,0)),"^",7),1:"") S:GHLOC'>0 GHLOC=GMRHLOC D @GNANS S DA=DA(1) G Q
NEW D DT G:GX=""!GMROUT Q
S GMROUT(1)=0,GMROUT(1)=$$ADM^GMRYUT12(.GMROUT,DFN,GX) Q:GMROUT
S GMROUT(1)=0,GHLOC=GMRHLOC,X=GX I '$D(^GMR(126,DA,GNANS,0)) S ^(0)=$S(GNANS="OUT":"^126.02IDA^0^0",GNANS="IN":"^126.01IDA^0^0",1:"")
K DD S DLAYGO=$S(GNANS="OUT":126.02,GNANS="IN":126.01,1:""),GDATE=X,DA(1)=DA,DIC="^GMR(126,"_DA(1)_","""_GNANS_""",",DIC(0)="ML" D WAIT^GMRYUT0 D:'GMROUT FILE^DICN L:'GMROUT -^GMR(126,DFN)
K DIC,DLAYGO,DD S X=GDATE S DA=+$G(Y) I GMROUT!($G(Y)'>0) S GMROUT=1,DA=DA(1) G Q
D @GNANS S DA=DA(1)
Q W ! K GMRX,GMRY,GHLOC,GMRDC,GMRYTYP,GEDIT,GY,D0,D1,GX,GN,X,Y,GMRDEL,GMRVOL,GMRDATA,GDATE,GMRDT,DIC,Y Q
DT S (GX,X)="" S %DT("A")="Please enter a new DATE/TIME: ",%DT="AETXRS",%DT(0)="-NOW" S:+$G(GMRVIDT)>0 %DT("B")=GMRVIDT D ^%DT K %DT S:Y>0 (GX,X)=+Y
Q
SELECT S GN(2)=1 W !
RESEL S GX="",GN(3)=0 F GN=GN(2):1:GN(1) Q:("Nn"[GX&(GX'=""))!(GX["^")!(GX'="")!(GX["?")!GMROUT S:'GN(3) GN(3)=GN D WRITE^GMRYUT11:GMRDC=1,WRITE^GMRYUT1:GMRDC=0!(GMRDC=2) I '(GN#3)!(GN=GN(1)) D QUEST^GMRYUT1 W !! S GN(3)=0
G:GX["?" RESEL Q:GMROUT!(GX["^")!("Nn"[GX) G:'(GX=""!(GX>0)) SELECT S:GX>0 GMRDEL=$P(GX,+GX,2),GX=+GX I GX>0,$D(GMRDATA(+GX)) S:GX["@" GX=+$P(GX,"@"),GMRDEL="@" S GX=GMRDATA(+GX) Q
G:GX=9999 SELECT I GX>0,'$D(GMRDATA(+GX)) G SELECT
Q
OUT ;
S GX(1)=+GX I GMRDEL="@" S %=1 W !!,"Are you sure you want to delete this record" D YN^DICN S:%<0 GMROUT=1 W:%=0 !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",! G:%=0 OUT D:%=1 KILLRC^GMRYINTK K % Q
S Y=+GX X ^DD("DD") W !!,"Enter "_GLABEL_" dated "_$P(Y,":",1,2) W !,?5,"Unit ml is not required",!
S GMRZ=$P(^GMR(126,DA(1),"OUT",DA,0),"^",3) D:((GLABEL["URINE")!(GLABEL["DRAIN"))&(GMRZ="") DRAIN^GMRYUT7 I GMROUT!GMROUT(1) D S GMROUT(1)=0 Q
. I $P((GX),"^",2)="" D KILLRC^GMRYINTK
W !,"Enter numeric value for measured output in cc/ml or ",!,"enter S(mall), M(edium) or L(arge) for estimated output.",!
S DIE="^GMR(126,"_DA(1)_","""_GNANS_""",",DR="1///^S X=GLABEL;3;5///^S X=""`""_DUZ;6///^S X=""`""_GHLOC;"_$S(GLABEL["DRAIN"!(GLABEL["URINE"):"2///^S X=$S(GMRZ'="""":""`""_GMRZ,1:"""");",1:"")
I GLABEL["OTHER" S DR=DR_"4"
D WAIT^GMRYUT0 I GMROUT K DIE,DR Q
D ^DIE L -^GMR(126,DFN) K DIE,DR,GMRZ I $P(^GMR(126,DA(1),GNANS,DA,0),"^",4)="" D KILLRC^GMRYINTK Q
I GLABEL["DRAIN" W !,"Enter another DRAINAGE" S %=2 D YN^DICN Q:%'=1 D MOREDRN^GMRYUT8 S:'GMROUT X=+GX G:'GMROUT OUT S GMROUT=0 Q
Q
IN ;EDIT OR DELETE INPUT RECORD
D INTAKE^GMRYINTK
Q
SETDA S GDATE=9999999-GMRDT,GDA=0 F S GDA=$O(^GMR(126,DA,GNANS,"TYP",GMRDT,GTP,GDA)) Q:GDA'>0 S GN=GN+1,GMRDATA(GN)=GDATE_"^"_GDA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYUT3 3383 printed Oct 16, 2024@17:56:36 Page 2
GMRYUT3 ;HIRMFO/YH-PATIENT I/O UTILITIES - DIC CALL ;11/6/96
+1 ;;4.0;Intake/Output;;Apr 25, 1997
LIST ;LIST I/O RECORDS FOR THE SELECTED TYPE IN THE DATABASE
+1 KILL GMRDATA
SET DA=DFN
SET GMRDC=1
SET GN=0
SET GX=""
SET GMRDEL=""
IF $DATA(^GMR(126,DA,GNANS,"TYP"))
SET GMRDT=0
FOR
SET GMRDT=$ORDER(^GMR(126,DA,GNANS,"TYP",GMRDT))
if GMRDT'>0
QUIT
IF '(GMRDT>GMREND)
DO SETDA
+2 SET GN(1)=GN
IF '$DATA(GMRDATA)
WRITE !,?5,$CHAR(7),"No records in the database within the last 48 hours"
GOTO NEW
+3 IF $DATA(GMRDATA)
DO SELECT
if GX["^^"
SET GMROUT=1
IF GMROUT!($EXTRACT(GX)="^")
SET DA=DFN
GOTO Q
+4 IF "Nn"[GX&(GX'="")
SET GX=""
GOTO NEW
+5 IF GX>0
SET DA(1)=DA
SET DA=+$PIECE(GX,"^",2)
if DA'>0
GOTO Q
SET GHLOC=$SELECT(GNANS="IN":+$PIECE($GET(^GMR(126,DFN,"IN",DA,0)),"^",4),GNANS="OUT":+$PIECE($GET(^GMR(126,DFN,"OUT",DA,0)),"^",7),1:"")
if GHLOC'>0
SET GHLOC=GMRHLOC
DO @GNANS
SET DA=DA(1)
GOTO Q
NEW DO DT
if GX=""!GMROUT
GOTO Q
+1 SET GMROUT(1)=0
SET GMROUT(1)=$$ADM^GMRYUT12(.GMROUT,DFN,GX)
if GMROUT
QUIT
+2 SET GMROUT(1)=0
SET GHLOC=GMRHLOC
SET X=GX
IF '$DATA(^GMR(126,DA,GNANS,0))
SET ^(0)=$SELECT(GNANS="OUT":"^126.02IDA^0^0",GNANS="IN":"^126.01IDA^0^0",1:"")
+3 KILL DD
SET DLAYGO=$SELECT(GNANS="OUT":126.02,GNANS="IN":126.01,1:"")
SET GDATE=X
SET DA(1)=DA
SET DIC="^GMR(126,"_DA(1)_","""_GNANS_""","
SET DIC(0)="ML"
DO WAIT^GMRYUT0
if 'GMROUT
DO FILE^DICN
if 'GMROUT
LOCK -^GMR(126,DFN)
+4 KILL DIC,DLAYGO,DD
SET X=GDATE
SET DA=+$GET(Y)
IF GMROUT!($GET(Y)'>0)
SET GMROUT=1
SET DA=DA(1)
GOTO Q
+5 DO @GNANS
SET DA=DA(1)
Q WRITE !
KILL GMRX,GMRY,GHLOC,GMRDC,GMRYTYP,GEDIT,GY,D0,D1,GX,GN,X,Y,GMRDEL,GMRVOL,GMRDATA,GDATE,GMRDT,DIC,Y
QUIT
DT SET (GX,X)=""
SET %DT("A")="Please enter a new DATE/TIME: "
SET %DT="AETXRS"
SET %DT(0)="-NOW"
if +$GET(GMRVIDT)>0
SET %DT("B")=GMRVIDT
DO ^%DT
KILL %DT
if Y>0
SET (GX,X)=+Y
+1 QUIT
SELECT SET GN(2)=1
WRITE !
RESEL SET GX=""
SET GN(3)=0
FOR GN=GN(2):1:GN(1)
if ("Nn"[GX&(GX'=""))!(GX["^")!(GX'="")!(GX["?")!GMROUT
QUIT
if 'GN(3)
SET GN(3)=GN
if GMRDC=1
DO WRITE^GMRYUT11
if GMRDC=0!(GMRDC=2)
DO WRITE^GMRYUT1
IF '(GN#3)!(GN=GN(1))
DO QUEST^GMRYUT1
WRITE !!
SET GN(3)=0
+1 if GX["?"
GOTO RESEL
if GMROUT!(GX["^")!("Nn"[GX)
QUIT
if '(GX=""!(GX>0))
GOTO SELECT
if GX>0
SET GMRDEL=$PIECE(GX,+GX,2)
SET GX=+GX
IF GX>0
IF $DATA(GMRDATA(+GX))
if GX["@"
SET GX=+$PIECE(GX,"@")
SET GMRDEL="@"
SET GX=GMRDATA(+GX)
QUIT
+2 if GX=9999
GOTO SELECT
IF GX>0
IF '$DATA(GMRDATA(+GX))
GOTO SELECT
+3 QUIT
OUT ;
+1 SET GX(1)=+GX
IF GMRDEL="@"
SET %=1
WRITE !!,"Are you sure you want to delete this record"
DO YN^DICN
if %<0
SET GMROUT=1
if %=0
WRITE !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",!
if %=0
GOTO OUT
if %=1
DO KILLRC^GMRYINTK
KILL %
QUIT
+2 SET Y=+GX
XECUTE ^DD("DD")
WRITE !!,"Enter "_GLABEL_" dated "_$PIECE(Y,":",1,2)
WRITE !,?5,"Unit ml is not required",!
+3 SET GMRZ=$PIECE(^GMR(126,DA(1),"OUT",DA,0),"^",3)
if ((GLABEL["URINE")!(GLABEL["DRAIN"))&(GMRZ="")
DO DRAIN^GMRYUT7
IF GMROUT!GMROUT(1)
Begin DoDot:1
+4 IF $PIECE((GX),"^",2)=""
DO KILLRC^GMRYINTK
End DoDot:1
SET GMROUT(1)=0
QUIT
+5 WRITE !,"Enter numeric value for measured output in cc/ml or ",!,"enter S(mall), M(edium) or L(arge) for estimated output.",!
+6 SET DIE="^GMR(126,"_DA(1)_","""_GNANS_""","
SET DR="1///^S X=GLABEL;3;5///^S X=""`""_DUZ;6///^S X=""`""_GHLOC;"_$SELECT(GLABEL["DRAIN"!(GLABEL["URINE"):"2///^S X=$S(GMRZ'="""":""`""_GMRZ,1:"""");",1:"")
+7 IF GLABEL["OTHER"
SET DR=DR_"4"
+8 DO WAIT^GMRYUT0
IF GMROUT
KILL DIE,DR
QUIT
+9 DO ^DIE
LOCK -^GMR(126,DFN)
KILL DIE,DR,GMRZ
IF $PIECE(^GMR(126,DA(1),GNANS,DA,0),"^",4)=""
DO KILLRC^GMRYINTK
QUIT
+10 IF GLABEL["DRAIN"
WRITE !,"Enter another DRAINAGE"
SET %=2
DO YN^DICN
if %'=1
QUIT
DO MOREDRN^GMRYUT8
if 'GMROUT
SET X=+GX
if 'GMROUT
GOTO OUT
SET GMROUT=0
QUIT
+11 QUIT
IN ;EDIT OR DELETE INPUT RECORD
+1 DO INTAKE^GMRYINTK
+2 QUIT
SETDA SET GDATE=9999999-GMRDT
SET GDA=0
FOR
SET GDA=$ORDER(^GMR(126,DA,GNANS,"TYP",GMRDT,GTP,GDA))
if GDA'>0
QUIT
SET GN=GN+1
SET GMRDATA(GN)=GDATE_"^"_GDA
+1 QUIT