Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRYCATH

GMRYCATH.m

Go to the documentation of this file.
  1. GMRYCATH ;HIRMFO/YH-UTILITY FOR CATHETER AND OTHER ;11/6/96
  1. ;;4.0;Intake/Output;;Apr 25, 1997
  1. FINDCA(II) ;SEARCH FOR CATHETER FOR A SELECTED IV SITE
  1. N JJ S JJ=0 F S JJ=$O(^GMR(126,DFN,"IV","SITE",II,JJ)) Q:JJ'>0!(II(II)'="") D
  1. .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)
  1. Q
  1. ;
  1. LISTLN(GST,GLOB) ;
  1. N GDA W !!,"Current IV lines at "_GST_": ",!
  1. S GDA=0 F S GDA=$O(GLOB(GDA)) Q:GDA'>0 W !,?2,GLOB(GDA,1),!,?4,GLOB(GDA,0)
  1. W ! Q