- 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 Feb 18, 2025@23:21:34 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