GMRYFLSH.m

GMRYFLSH ;HIRMFO/YH-FLUSH IV LINES FOR A SELECTED IV SITE ;6/5/96

 ;;4.0;Intake/Output;;Apr 25, 1997

FLUSH S (GMROUT,GDCIV)=0 W @IOF,!!,"*** FLUSH ***",!

 D SELSITE^GMRYMNT,SEL1^GMRYMNT G:GMROUT!(GMRXY=0)!(X="") QUIT

DT W ! S %DT("A")="Please enter DATE/TIME: ",%DT="AETXRS",%DT("B")="NOW" D ^%DT K %DT G:Y'>0 QUIT S GX=+Y D NOW^%DTC S GNOW=%

 I GX>GNOW W !,"NO FUTURE DATE ALLOWED",! G DT

 S GMROUT(1)=0,GMROUT(1)=$$ADM^GMRYUT12(.GMROUT,DFN,GX) Q:GMROUT

 ;I GMROUT(1) S GMROUT=$$CONTNU^GMRYUT12(GMROUT,"FLUSH PORT/IV LINE") Q:GMROUT

 D DOFLSH

QUIT K G,GX,GMRZ,GMRYZ,GN,GMESSG,GFLUSH,GSEL Q

SETDB ;

 S GHLOC=GMRHLOC K DD S X=+GX,DLAYGO=126.03,DA(1)=DFN,DIC="^GMR(126,"_DA(1)_",""IV"",",DIC(0)="ML" D WAIT^GMRYUT0 Q:GMROUT  D FILE^DICN L -^GMR(126,DFN) K DIC,DLAYGO,DD S DA=+Y Q:Y'>0!GMROUT

 S DIE="^GMR(126,"_DA(1)_",""IV"",",DR="2///^S X=GMRZ;3///^S X=GMRZ(1);4///^S X=GMRZ(2);11///^S X=GMRZ(3);6///^S X=""`""_DUZ;7///^S X=""`""_GHLOC;1///^S X=GSITE;8///^S X=GX;9///^S X=""`""_DUZ;10///^S X=""FLUSHED"";17///^S X=GCATH(1)"

 D WAIT^GMRYUT0 D:'GMROUT ^DIE K DIE,DR L:'GMROUT -^GMR(126,DFN)

 S ^GMR(126,DA(1),"IV",DA,"IN",0)="^126.313IDA^1^1"

 S ^GMR(126,DA(1),"IV",DA,"IN",1,0)=GX_"^0^^"_DUZ_"^"_GHLOC

 S ^GMR(126,DA(1),"IV",DA,"IN","B",GX,1)="",^GMR(126,DA(1),"IV",DA,"IN","C",(9999999-GX),1)=""

 Q

ASKFLSH ;CALLED BY MAINTENANCE OPTION

 ;G:GMROUT QUIT2  S %=2 W !,"Do you want to flush IV line" D YN^DICN Q:%'=1

 D DOFLSH

QUIT2 K GMRYZ,GN,GMESSG,GFLUSH,GSEL Q

DOFLSH W ! S GMRVTYP="L",GOPT="" D LOCK^GMRYED5 Q:GMROUT

 D LIST Q:GMROUT

 I '$D(GMRPORT) S GCATH(1)="" D SETDB Q

 S G=0 F  S G=$O(GSEL(G)) Q:G'>0!GMROUT  S GCATH(1)=$P(GMRPORT(G),"^",2) D SETDB

 Q

LIST ;

 S GOPT="FLUSH",GHOLD=GCATH(2),(GHOLD(1),GHOLD(2),GHOLD(3))=0 D FINDPORT^GMRYSTCA(.GHOLD)

 Q:'$D(GMRPORT)

 W !,GSITE,!

 S GMRN=GHOLD(4) K GHOLD Q:GMRN'>0

LIST2 F I=1:1:GMRN W !,?2,I_" "_$P(GMRPORT(I),"^",2)

 W !,?2,"Enter the number(s) of port/lumen for flush: " S GMRX="" R GMRX:DTIME

 G:GMRX["?" LIST2

 I '$T!(GMRX["^")!(GMRX="") S GMROUT=1 Q

 D VALIDAT^GMRYUT9

 I '$D(GSEL)!($O(GSEL(0))'>0) W !,"ERROR ENTRY, TRY AGAIN",! G LIST2

 Q

GMRYFLSH  ;HIRMFO/YH-FLUSH IV LINES FOR A SELECTED IV SITE ;6/5/96

 +1       ;;4.0;Intake/Output;;Apr 25, 1997

FLUSH      SET (GMROUT,GDCIV)=0

           WRITE @IOF,!!,"*** FLUSH ***",!

 +1        DO SELSITE^GMRYMNT

           DO SEL1^GMRYMNT

           IF GMROUT!(GMRXY=0)!(X="")

               GOTO QUIT

DT         WRITE !

           SET %DT("A")="Please enter DATE/TIME: "

           SET %DT="AETXRS"

           SET %DT("B")="NOW"

           DO ^%DT

           KILL %DT

           IF Y'>0

               GOTO QUIT

           SET GX=+Y

           DO NOW^%DTC

           SET GNOW=%

 +1        IF GX>GNOW

               WRITE !,"NO FUTURE DATE ALLOWED",!

               GOTO DT

 +2        SET GMROUT(1)=0

           SET GMROUT(1)=$$ADM^GMRYUT12(.GMROUT,DFN,GX)

           IF GMROUT

               QUIT 

 +3       ;I GMROUT(1) S GMROUT=$$CONTNU^GMRYUT12(GMROUT,"FLUSH PORT/IV LINE") Q:GMROUT

 +4        DO DOFLSH

QUIT       KILL G,GX,GMRZ,GMRYZ,GN,GMESSG,GFLUSH,GSEL

           QUIT 

SETDB     ;

 +1        SET GHLOC=GMRHLOC

           KILL DD

           SET X=+GX

           SET DLAYGO=126.03

           SET DA(1)=DFN

           SET DIC="^GMR(126,"_DA(1)_",""IV"","

           SET DIC(0)="ML"

           DO WAIT^GMRYUT0

           IF GMROUT

               QUIT 

           DO FILE^DICN

           LOCK -^GMR(126,DFN)

           KILL DIC,DLAYGO,DD

           SET DA=+Y

           IF Y'>0!GMROUT

               QUIT 

 +2        SET DIE="^GMR(126,"_DA(1)_",""IV"","

           SET DR="2///^S X=GMRZ;3///^S X=GMRZ(1);4///^S X=GMRZ(2);11///^S X=GMRZ(3);6///^S X=""`""_DUZ;7///^S X=""`""_GHLOC;1///^S X=GSITE;8///^S X=GX;9///^S X=""`""_DUZ;10///^S X=""FLUSHED"";17///^S X=GCATH(1)"

 +3        DO WAIT^GMRYUT0

           IF 'GMROUT

               DO ^DIE

           KILL DIE,DR

           IF 'GMROUT

               LOCK -^GMR(126,DFN)

 +4        SET ^GMR(126,DA(1),"IV",DA,"IN",0)="^126.313IDA^1^1"

 +5        SET ^GMR(126,DA(1),"IV",DA,"IN",1,0)=GX_"^0^^"_DUZ_"^"_GHLOC

 +6        SET ^GMR(126,DA(1),"IV",DA,"IN","B",GX,1)=""

           SET ^GMR(126,DA(1),"IV",DA,"IN","C",(9999999-GX),1)=""

 +7        QUIT 

ASKFLSH   ;CALLED BY MAINTENANCE OPTION

 +1       ;G:GMROUT QUIT2  S %=2 W !,"Do you want to flush IV line" D YN^DICN Q:%'=1

 +2        DO DOFLSH

QUIT2      KILL GMRYZ,GN,GMESSG,GFLUSH,GSEL

           QUIT 

DOFLSH     WRITE !

           SET GMRVTYP="L"

           SET GOPT=""

           DO LOCK^GMRYED5

           IF GMROUT

               QUIT 

 +1        DO LIST

           IF GMROUT

               QUIT 

 +2        IF '$DATA(GMRPORT)

               SET GCATH(1)=""

               DO SETDB

               QUIT 

 +3        SET G=0

           FOR 

               SET G=$ORDER(GSEL(G))

               IF G'>0!GMROUT

                   QUIT 

               SET GCATH(1)=$PIECE(GMRPORT(G),"^",2)

               DO SETDB

 +4        QUIT 

LIST      ;

 +1        SET GOPT="FLUSH"

           SET GHOLD=GCATH(2)

           SET (GHOLD(1),GHOLD(2),GHOLD(3))=0

           DO FINDPORT^GMRYSTCA(.GHOLD)

 +2        IF '$DATA(GMRPORT)

               QUIT 

 +3        WRITE !,GSITE,!

 +4        SET GMRN=GHOLD(4)

           KILL GHOLD

           IF GMRN'>0

               QUIT 

LIST2      FOR I=1:1:GMRN

               WRITE !,?2,I_" "_$PIECE(GMRPORT(I),"^",2)

 +1        WRITE !,?2,"Enter the number(s) of port/lumen for flush: "

           SET GMRX=""

           READ GMRX:DTIME

 +2        IF GMRX["?"

               GOTO LIST2

 +3        IF '$TEST!(GMRX["^")!(GMRX="")

               SET GMROUT=1

               QUIT 

 +4        DO VALIDAT^GMRYUT9

 +5        IF '$DATA(GSEL)!($ORDER(GSEL(0))'>0)

               WRITE !,"ERROR ENTRY, TRY AGAIN",!

               GOTO LIST2

 +6        QUIT