Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
527 bytes
|
Rev | Line | |
---|
[628] | 1 | GMRYCATH ;HIRMFO/YH-UTILITY FOR CATHETER AND OTHER ;11/6/96
|
---|
| 2 | ;;4.0;Intake/Output;;Apr 25, 1997
|
---|
| 3 | FINDCA(II) ;SEARCH FOR CATHETER FOR A SELECTED IV SITE
|
---|
| 4 | N JJ S JJ=0 F S JJ=$O(^GMR(126,DFN,"IV","SITE",II,JJ)) Q:JJ'>0!(II(II)'="") D
|
---|
| 5 | .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)
|
---|
| 6 | Q
|
---|
| 7 | ;
|
---|
| 8 | LISTLN(GST,GLOB) ;
|
---|
| 9 | N GDA W !!,"Current IV lines at "_GST_": ",!
|
---|
| 10 | S GDA=0 F S GDA=$O(GLOB(GDA)) Q:GDA'>0 W !,?2,GLOB(GDA,1),!,?4,GLOB(GDA,0)
|
---|
| 11 | W ! Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.