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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYCATH 538 printed Nov 22, 2024@17:05:21 Page 2
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
