Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
483 bytes
|
Line | |
---|
1 | FHZDOC1 ; HISC/REL - First Line Listing ;8/2/90 15:19
|
---|
2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
---|
3 | S X="N",%DT="XT" D ^%DT S DTP=Y D DTP^FH
|
---|
4 | W !,"Routine First-line List",!!
|
---|
5 | GET W ! D ^%ZIS Q:POP K %UTILITY D ^%RSEL
|
---|
6 | S NAM="" G:$O(%UTILITY(NAM))="" DONE
|
---|
7 | U IO W @IOF,!?22,"First line list of DIETETIC Programs",!?31,DTP,!!
|
---|
8 | GO S NAM=$O(%UTILITY(NAM)) G:NAM="" DONE
|
---|
9 | X "ZL @NAM S X=$T(+1)" S N=$P(X,"-",2,99),N=$P(N,";",1) W $P(X," ",1),?10,N,! W:$Y>60 @IOF G GO
|
---|
10 | DONE U IO(0) S IOP="" D ^%ZIS Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.