- 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 Feb 18, 2025@23:22:12 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
