Routine: FHORD93

Information

FHORD93 ; HISC/NCA/RVD - Diet Census Percentage (Cont.) ;1/23/98 16:09

Source file <FHORD93.m>

Name	Line Occurrences
Function Call: READ	Prompt: E C A S T E D" Variable: 1 Timeout: "A Line Location: LST+3
Function Call: WRITE	Prompt: !,DTP,?(L1-$L(Z)\2),Z,?(L1-7),"Page ",PG,!?(L1-21\2),"P E R C E N T A G E S" Line Location: LST+4
Function Call: WRITE	Prompt: !,$G(FHSITENM) Line Location: LST+5
Function Call: WRITE	Prompt: !!?(L1-$L(Z)\2),Z,!!?(L1-$L(X)\2),X Line Location: LST+8
Function Call: WRITE	Prompt: !!?(L1-31\2),"P R O D U C T I O N D I E T S",!!?29 Line Location: LST+9
Function Call: WRITE	Prompt: $P(S(X,K),"^",1)_" %" Line Location: LST+10
Function Call: WRITE	Prompt: ! Line Location: LST+11
Function Call: WRITE	Prompt: !?3,"N P O",?31 Line Location: LST+13
Function Call: WRITE	Prompt: !?3,"P A S S",?31 Line Location: LST+14
Function Call: WRITE	Prompt: !?3,"TF Only",?31 Line Location: LST+15
Function Call: WRITE	Prompt: !?3,"No Order",?31 Line Location: LST+16
Function Call: WRITE	Prompt: ! Line Location: LST+17
Function Call: WRITE	Prompt: !,$P($G(^FH(116.2,K,0)),"^",1),?31 Line Location: PRO+0
Function Call: WRITE	Prompt: $J(Z,8,1)," " Line Location: P1+0