Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
611 bytes
|
Rev | Line | |
---|
[613] | 1 | FHZDOC ; HISC/REL - Produce Documentation ;5/16/91 09:24
|
---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
---|
| 3 | ;
|
---|
| 4 | ;
|
---|
| 5 | OP K G F I=1:1 S A=$P($T(PGMS+I),";",3,99) Q:A="" I @$P(A,";",2) S G($E(A,1,2))=A
|
---|
| 6 | W !! Q:$O(G(""))="" S A="" F I=0:0 S A=$O(G(A)) Q:A="" W !?6,$P(G(A),";",1)
|
---|
| 7 | O1 R !!?6,"Select Option: ",A:DTIME Q:'$T!("^"[A) I A'?2U W *7," Enter 2 Letters of Option" G O1
|
---|
| 8 | I '$D(G(A)) W *7," ??" G O1
|
---|
| 9 | S X=$P(G(A),";",3) K A,I,G D @X K X G OP
|
---|
| 10 | PGMS ;;
|
---|
| 11 | ;;FL First Line Listing;1;^FHZDOC1
|
---|
| 12 | ;;DM Diagram Menus;1;^FHZDOC2
|
---|
| 13 | ;;FF File List;1;EN1^FHZDOC3
|
---|
| 14 | ;;FS File Security;1;EN2^FHZDOC3
|
---|
| 15 | ;;PD Package Definition;1;EN3^FHZDOC3
|
---|
Note:
See
TracBrowser
for help on using the repository browser.