GMRYCATH.m

GMRYCATH ;HIRMFO/YH-UTILITY FOR CATHETER AND OTHER ;11/6/96

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

FINDCA(II) ;SEARCH FOR CATHETER FOR A SELECTED IV SITE

 N JJ S JJ=0 F  S JJ=$O(^GMR(126,DFN,"IV","SITE",II,JJ)) Q:JJ'>0!(II(II)'="")  D

 .S JJ(1)=0 F  S JJ(1)=$O(^GMR(126,DFN,"IV","SITE",II,JJ,JJ(1))) Q:JJ(1)'>0!(II(II)'="")  S II(II)=$P($G(^GMR(126,DFN,"IV",JJ(1),0)),"^",6)

 Q

 ;

LISTLN(GST,GLOB) ;

 N GDA W !!,"Current IV lines at "_GST_": ",!

 S GDA=0 F  S GDA=$O(GLOB(GDA)) Q:GDA'>0  W !,?2,GLOB(GDA,1),!,?4,GLOB(GDA,0)

 W ! Q

GMRYCATH  ;HIRMFO/YH-UTILITY FOR CATHETER AND OTHER ;11/6/96

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

FINDCA(II) ;SEARCH FOR CATHETER FOR A SELECTED IV SITE

 +1        NEW JJ

           SET JJ=0

           FOR 

               SET JJ=$ORDER(^GMR(126,DFN,"IV","SITE",II,JJ))

               IF JJ'>0!(II(II)'="")

                   QUIT 

               Begin DoDot:1

 +2                SET JJ(1)=0

                   FOR 

                       SET JJ(1)=$ORDER(^GMR(126,DFN,"IV","SITE",II,JJ,JJ(1)))

                       IF JJ(1)'>0!(II(II)'="")

                           QUIT 

                       SET II(II)=$PIECE($GET(^GMR(126,DFN,"IV",JJ(1),0)),"^",6)

               End DoDot:1

 +3        QUIT 

 +4       ;

LISTLN(GST,GLOB) ;

 +1        NEW GDA

           WRITE !!,"Current IV lines at "_GST_": ",!

 +2        SET GDA=0

           FOR 

               SET GDA=$ORDER(GLOB(GDA))

               IF GDA'>0

                   QUIT 

               WRITE !,?2,GLOB(GDA,1),!,?4,GLOB(GDA,0)

 +3        WRITE !

           QUIT