GMRYED0 ;HIRMFO/YH-INTAKE, OUTPUT AND IV ENTRY POINTS ;5/2/96
;;4.0;Intake/Output;;Apr 25, 1997
EN1 ;ENTER/EDIT IV AND IV MAINTENANCE
S GMRYOPT="LIST^GMRYED3" D EDIT
Q
EN2 ;ENTER/EDIT OUTPUT
S GMRYOPT="OUTPUT^GMRYED1" D EDIT
Q
EN3 ;ENTER/EDIT INPUT
S GMRYOPT="INPUT^GMRYED1" D EDIT
Q
EDIT K ^TMP("GMRPT",$J) S (GMRVIDT,GDR,GMROUT)=0,GSITE="" D MASPT^GMRYRP5 G:GMROUT QUIT
G:'$D(^TMP("GMRPT",$J)) QUIT
I $G(GMRVHLOC)>0 S GMRHLOC=+$G(GMRVHLOC)
E I $G(GMRWARD)>0 S GMRHLOC=+$G(^DIC(42,+GMRWARD,44))
I +$G(GMRHLOC)=0 D HOSP^GMRYRP5 S GMRHLOC=+$G(GMRVHLOC)
I '$D(^SC(GMRHLOC)) W !,GMRWARD(1)_" NOT DEFINED IN HOSPITAL LOCATION FILE",! G QUIT
S GMRRM="" F S GMRRM=$O(^TMP("GMRPT",$J,GMRRM)) Q:GMRRM=""!GMROUT S GMRNM="" F S GMRNM=$O(^TMP("GMRPT",$J,GMRRM,GMRNM)) Q:GMRNM=""!GMROUT S DFN=0 F S DFN=$O(^TMP("GMRPT",$J,GMRRM,GMRNM,DFN)) Q:DFN'>0!GMROUT S GMRNAM=^(DFN) D
. I "P"[GMREDB S DA=$$SEARCH^GMRYUT12(DFN) D:DA>0 @GMRYOPT Q
. S GMROUT(1)=0 D ASKOK Q:GMROUT I 'GMROUT(1) S DA=$$SEARCH^GMRYUT12(DFN) D:DA>0 @GMRYOPT S GMROUT=0 W !
. Q
QUIT ;
K DFN,GPORT,^TMP("GMRPT",$J),GMREDB,GMRHLOC,GMRI,GMRLEN,GMRNAM,GMRNM,GMROUT,GMRRM,GMRVIDT,GMRYOPT,GDR,GMRVHLOC,GMRVWLOC,GSITE,GMRWARD Q
ASKOK ;LOOPING THROUGH PATIENT GLOBAL
W !,GMRNAM,?$X+10,$S(GMRRM=" BLANK":" ",1:GMRRM)_"-"_$S(GMRNM="BLANK":" ",1:GMRNM_" ") S %=1 D YN^DICN I %=1!(%=-1) S:%=-1 GMROUT=1 Q
I '% W $C(7),!,?4,"ANSWER 'YES' or 'NO'" G ASKOK
ASL W !!,"Do you wish to stop looping through names?" S %=1 D YN^DICN W ! I %=1!(%=-1) S GMROUT=1 Q
I '% W $C(7),!,?4,"ANSWER 'YES' or 'NO'" G ASL
S GMROUT(1)=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYED0 1627 printed Nov 22, 2024@17:05:24 Page 2
GMRYED0 ;HIRMFO/YH-INTAKE, OUTPUT AND IV ENTRY POINTS ;5/2/96
+1 ;;4.0;Intake/Output;;Apr 25, 1997
EN1 ;ENTER/EDIT IV AND IV MAINTENANCE
+1 SET GMRYOPT="LIST^GMRYED3"
DO EDIT
+2 QUIT
EN2 ;ENTER/EDIT OUTPUT
+1 SET GMRYOPT="OUTPUT^GMRYED1"
DO EDIT
+2 QUIT
EN3 ;ENTER/EDIT INPUT
+1 SET GMRYOPT="INPUT^GMRYED1"
DO EDIT
+2 QUIT
EDIT KILL ^TMP("GMRPT",$JOB)
SET (GMRVIDT,GDR,GMROUT)=0
SET GSITE=""
DO MASPT^GMRYRP5
if GMROUT
GOTO QUIT
+1 if '$DATA(^TMP("GMRPT",$JOB))
GOTO QUIT
+2 IF $GET(GMRVHLOC)>0
SET GMRHLOC=+$GET(GMRVHLOC)
+3 IF '$TEST
IF $GET(GMRWARD)>0
SET GMRHLOC=+$GET(^DIC(42,+GMRWARD,44))
+4 IF +$GET(GMRHLOC)=0
DO HOSP^GMRYRP5
SET GMRHLOC=+$GET(GMRVHLOC)
+5 IF '$DATA(^SC(GMRHLOC))
WRITE !,GMRWARD(1)_" NOT DEFINED IN HOSPITAL LOCATION FILE",!
GOTO QUIT
+6 SET GMRRM=""
FOR
SET GMRRM=$ORDER(^TMP("GMRPT",$JOB,GMRRM))
if GMRRM=""!GMROUT
QUIT
SET GMRNM=""
FOR
SET GMRNM=$ORDER(^TMP("GMRPT",$JOB,GMRRM,GMRNM))
if GMRNM=""!GMROUT
QUIT
SET DFN=0
FOR
SET DFN=$ORDER(^TMP("GMRPT",$JOB,GMRRM,GMRNM,DFN))
if DFN'>0!GMROUT
QUIT
SET GMRNAM=^(DFN)
Begin DoDot:1
+7 IF "P"[GMREDB
SET DA=$$SEARCH^GMRYUT12(DFN)
if DA>0
DO @GMRYOPT
QUIT
+8 SET GMROUT(1)=0
DO ASKOK
if GMROUT
QUIT
IF 'GMROUT(1)
SET DA=$$SEARCH^GMRYUT12(DFN)
if DA>0
DO @GMRYOPT
SET GMROUT=0
WRITE !
+9 QUIT
End DoDot:1
QUIT ;
+1 KILL DFN,GPORT,^TMP("GMRPT",$JOB),GMREDB,GMRHLOC,GMRI,GMRLEN,GMRNAM,GMRNM,GMROUT,GMRRM,GMRVIDT,GMRYOPT,GDR,GMRVHLOC,GMRVWLOC,GSITE,GMRWARD
QUIT
ASKOK ;LOOPING THROUGH PATIENT GLOBAL
+1 WRITE !,GMRNAM,?$X+10,$SELECT(GMRRM=" BLANK":" ",1:GMRRM)_"-"_$SELECT(GMRNM="BLANK":" ",1:GMRNM_" ")
SET %=1
DO YN^DICN
IF %=1!(%=-1)
if %=-1
SET GMROUT=1
QUIT
+2 IF '%
WRITE $CHAR(7),!,?4,"ANSWER 'YES' or 'NO'"
GOTO ASKOK
ASL WRITE !!,"Do you wish to stop looping through names?"
SET %=1
DO YN^DICN
WRITE !
IF %=1!(%=-1)
SET GMROUT=1
QUIT
+1 IF '%
WRITE $CHAR(7),!,?4,"ANSWER 'YES' or 'NO'"
GOTO ASL
+2 SET GMROUT(1)=1
+3 QUIT
