Last change
on this file since 1361 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
611 bytes
|
Line | |
---|
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.