source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHZDOC.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 611 bytes
Line 
1FHZDOC ; HISC/REL - Produce Documentation ;5/16/91 09:24
2 ;;5.5;DIETETICS;;Jan 28, 2005
3 ;
4 ;
5OP 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)
7O1 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
10PGMS ;;
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.