| [613] | 1 | GMRYED0 ;HIRMFO/YH-INTAKE, OUTPUT AND IV ENTRY POINTS ;5/2/96
|
|---|
| 2 | ;;4.0;Intake/Output;;Apr 25, 1997
|
|---|
| 3 | EN1 ;ENTER/EDIT IV AND IV MAINTENANCE
|
|---|
| 4 | S GMRYOPT="LIST^GMRYED3" D EDIT
|
|---|
| 5 | Q
|
|---|
| 6 | EN2 ;ENTER/EDIT OUTPUT
|
|---|
| 7 | S GMRYOPT="OUTPUT^GMRYED1" D EDIT
|
|---|
| 8 | Q
|
|---|
| 9 | EN3 ;ENTER/EDIT INPUT
|
|---|
| 10 | S GMRYOPT="INPUT^GMRYED1" D EDIT
|
|---|
| 11 | Q
|
|---|
| 12 | EDIT K ^TMP("GMRPT",$J) S (GMRVIDT,GDR,GMROUT)=0,GSITE="" D MASPT^GMRYRP5 G:GMROUT QUIT
|
|---|
| 13 | G:'$D(^TMP("GMRPT",$J)) QUIT
|
|---|
| 14 | I $G(GMRVHLOC)>0 S GMRHLOC=+$G(GMRVHLOC)
|
|---|
| 15 | E I $G(GMRWARD)>0 S GMRHLOC=+$G(^DIC(42,+GMRWARD,44))
|
|---|
| 16 | I +$G(GMRHLOC)=0 D HOSP^GMRYRP5 S GMRHLOC=+$G(GMRVHLOC)
|
|---|
| 17 | I '$D(^SC(GMRHLOC)) W !,GMRWARD(1)_" NOT DEFINED IN HOSPITAL LOCATION FILE",! G QUIT
|
|---|
| 18 | 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
|
|---|
| 19 | . I "P"[GMREDB S DA=$$SEARCH^GMRYUT12(DFN) D:DA>0 @GMRYOPT Q
|
|---|
| 20 | . S GMROUT(1)=0 D ASKOK Q:GMROUT I 'GMROUT(1) S DA=$$SEARCH^GMRYUT12(DFN) D:DA>0 @GMRYOPT S GMROUT=0 W !
|
|---|
| 21 | . Q
|
|---|
| 22 | QUIT ;
|
|---|
| 23 | K DFN,GPORT,^TMP("GMRPT",$J),GMREDB,GMRHLOC,GMRI,GMRLEN,GMRNAM,GMRNM,GMROUT,GMRRM,GMRVIDT,GMRYOPT,GDR,GMRVHLOC,GMRVWLOC,GSITE,GMRWARD Q
|
|---|
| 24 | ASKOK ;LOOPING THROUGH PATIENT GLOBAL
|
|---|
| 25 | 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
|
|---|
| 26 | I '% W $C(7),!,?4,"ANSWER 'YES' or 'NO'" G ASKOK
|
|---|
| 27 | ASL W !!,"Do you wish to stop looping through names?" S %=1 D YN^DICN W ! I %=1!(%=-1) S GMROUT=1 Q
|
|---|
| 28 | I '% W $C(7),!,?4,"ANSWER 'YES' or 'NO'" G ASL
|
|---|
| 29 | S GMROUT(1)=1
|
|---|
| 30 | Q
|
|---|
