FHZDOC ; HISC/REL - Produce Documentation ;5/16/91 09:24
;;5.5;DIETETICS;;Jan 28, 2005
;
;
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
W !! Q:$O(G(""))="" S A="" F I=0:0 S A=$O(G(A)) Q:A="" W !?6,$P(G(A),";",1)
O1 R !!?6,"Select Option: ",A:DTIME Q:'$T!("^"[A) I A'?2U W *7," Enter 2 Letters of Option" G O1
I '$D(G(A)) W *7," ??" G O1
S X=$P(G(A),";",3) K A,I,G D @X K X G OP
PGMS ;;
;;FL First Line Listing;1;^FHZDOC1
;;DM Diagram Menus;1;^FHZDOC2
;;FF File List;1;EN1^FHZDOC3
;;FS File Security;1;EN2^FHZDOC3
;;PD Package Definition;1;EN3^FHZDOC3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHZDOC 626 printed Sep 23, 2025@19:31:49 Page 2
FHZDOC ; HISC/REL - Produce Documentation ;5/16/91 09:24
+1 ;;5.5;DIETETICS;;Jan 28, 2005
+2 ;
+3 ;
OP KILL G
FOR I=1:1
SET A=$PIECE($TEXT(PGMS+I),";",3,99)
if A=""
QUIT
IF @$PIECE(A,";",2)
SET G($EXTRACT(A,1,2))=A
+1 WRITE !!
if $ORDER(G(""))=""
QUIT
SET A=""
FOR I=0:0
SET A=$ORDER(G(A))
if A=""
QUIT
WRITE !?6,$PIECE(G(A),";",1)
O1 READ !!?6,"Select Option: ",A:DTIME
if '$TEST!("^"[A)
QUIT
IF A'?2U
WRITE *7," Enter 2 Letters of Option"
GOTO O1
+1 IF '$DATA(G(A))
WRITE *7," ??"
GOTO O1
+2 SET X=$PIECE(G(A),";",3)
KILL A,I,G
DO @X
KILL X
GOTO OP
PGMS ;;
+1 ;;FL First Line Listing;1;^FHZDOC1
+2 ;;DM Diagram Menus;1;^FHZDOC2
+3 ;;FF File List;1;EN1^FHZDOC3
+4 ;;FS File Security;1;EN2^FHZDOC3
+5 ;;PD Package Definition;1;EN3^FHZDOC3
