source: WorldVistAEHR/trunk/r/GEN_MED_REC_IO-GMRY/GMRYUT13.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1GMRYUT13 ;HIRMFO/YH-INTRAVENOUS INFUSION PROTOCOL ;10/16/96
2 ;;4.0;Intake/Output;;Apr 25, 1997
3SEL S GSITE="" I GN=0 S GMROUT=1 K GN,GMRDATA Q
4 S (II(1),II(3))=0 F II=1:1:GN Q:GMROUT!II(3) D WRT S II(1)=II(1)+1 I II(1)>5 D
5 . S II(2)="" W !,"Return to continue or ^ to quit listing " R II(2):DTIME I '$T S GMROUT=1 Q
6 . I II(2)'="" S II(3)=1 Q
7 . S II(1)=0 Q
8 Q:GMROUT!$D(GFLAG) W !!,$S(GOPT="TITER":"Select the number of solution & rate to be adjusted: ",1:"Select a number to be discontinued: ") S X="" R X:DTIME I '$T!(X["^") S GMROUT=1 K GMRDATA,GN,II Q
9 I X="" S GMRZ(1)="" K GMRDATA,GN,II Q
10 I X>0&(X<(GN+1)) D K GN,GMRDATA,II Q
11 .S GSITE=$P(GMRDATA(+X),"^",4),DA(1)=DFN,DA=+$P(GMRDATA(+X),"^",2),GMRZ=$P(GMRDATA(+X),"^",6),GMRZ(1)=$P(GMRDATA(+X),"^",3),GMRZ(2)=+$P(GMRDATA(+X),"^",7),GMRZ(3)=+$P(GMRDATA(+X),"^",9)
12 . S GCATH=$P(GMRDATA(+X),"^",10),GCATH(1)=$P(GMRDATA(+X),"^",11)
13 I X=""!(X["?") W !!,"Enter the number of IV which you wish to "_$S(GOPT="ADDSOL"!(GOPT="HANG"):"add a new solution ",GOPT="DCIV":"discontinue",GOPT="TITER":"readjust the rate",1:""),! G SEL
14 W !,"Error entry!!!, Please enter a number between 1 and ",GN,! G SEL
15 ;
16WRT ;
17 W !,II_". "_$P(GMRDATA(II),"^",4)_" - "_$P(GMRDATA(II),"^",10)_" "_$P(GMRDATA(II),"^",11)
18 N X S X=$S($P(GMRDATA(II),"^",3)["L":"LOCK/PORT",1:$P(GMRDATA(II),"^",6))
19 S X=X_" "_$S($P(GMRDATA(II),"^",3)'["L":" ("_$P(GMRDATA(II),"^",3)_") "_$P(GMRDATA(II),"^",9),1:"")
20 S X=X_" "_$P(GMRDATA(II),"^",8)_" on " S Y=$P(GMRDATA(II),"^") S X=X_$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)_"@" X ^DD("DD") S X=X_$P($P(Y,"@",2),":",1,2)
21 S DIWR=70,DIWF="",DIWL=0 K ^UTILITY($J) D ^DIWP
22 S I=0 F S I=$O(^UTILITY($J,"W",0,I)) Q:I'>0 W !,?4,^UTILITY($J,"W",0,I,0)
23 K ^UTILITY($J) W ! Q
Note: See TracBrowser for help on using the repository browser.