source: FOIAVistA/trunk/r/GEN_MED_REC_IO-GMRY/GMRYED0.m@ 1755

Last change on this file since 1755 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1GMRYED0 ;HIRMFO/YH-INTAKE, OUTPUT AND IV ENTRY POINTS ;5/2/96
2 ;;4.0;Intake/Output;;Apr 25, 1997
3EN1 ;ENTER/EDIT IV AND IV MAINTENANCE
4 S GMRYOPT="LIST^GMRYED3" D EDIT
5 Q
6EN2 ;ENTER/EDIT OUTPUT
7 S GMRYOPT="OUTPUT^GMRYED1" D EDIT
8 Q
9EN3 ;ENTER/EDIT INPUT
10 S GMRYOPT="INPUT^GMRYED1" D EDIT
11 Q
12EDIT 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
22QUIT ;
23 K DFN,GPORT,^TMP("GMRPT",$J),GMREDB,GMRHLOC,GMRI,GMRLEN,GMRNAM,GMRNM,GMROUT,GMRRM,GMRVIDT,GMRYOPT,GDR,GMRVHLOC,GMRVWLOC,GSITE,GMRWARD Q
24ASKOK ;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
27ASL 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
Note: See TracBrowser for help on using the repository browser.