Routine: FHPRO2

Information

FHPRO2 ; HISC/REL/NCA/RVD - Forecast/Census Calculations ;1/23/98 16:10

Source file <FHPRO2.m>

Name	Line Occurrences
Function Call: READ	Prompt: E C A S T E D" Variable: 1 Timeout: "A Line Location: LIS+19
Function Call: WRITE	Prompt: !,DTP,?(L1-$L(Z)\2),Z,?(L1-7),"Page ",PG Line Location: LIS+21
Function Call: WRITE	Prompt: !,FHRETYP Line Location: LIS+22
Function Call: WRITE	Prompt: !?(L1-$L(Z)\2),Z,!!?(L1-$L(TIM)\2),TIM Line Location: LIS+24
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: LIS+25
Function Call: WRITE	Prompt: $P(S(X,K),"^",1) Line Location: LIS+26
Function Call: WRITE	Prompt: " Total" Line Location: LIS+27
Function Call: WRITE	Prompt: !,LN,! Line Location: LIS+27
Function Call: WRITE	Prompt: !?3,"N P O",?31 Line Location: LIS+29
Function Call: WRITE	Prompt: !?3,"P A S S",?31 Line Location: LIS+30
Function Call: WRITE	Prompt: !?3,"TF Only",?31 Line Location: LIS+31
Function Call: WRITE	Prompt: !?3,"No Order",?31 Line Location: LIS+32
Function Call: WRITE	Prompt: !!,"TOTAL MEALS",?31 Line Location: LIS+33
Function Call: WRITE	Prompt: $J(Z,6)," " Line Location: LIS+35
Function Call: WRITE	Prompt: $J(TOT,7) Line Location: LIS+36
Function Call: WRITE	Prompt: !!!,"*** Includes other gratuitous/paid meals.",! Line Location: LIS+37
Function Call: WRITE	Prompt: !,$P($G(^FH(116.2,K,0)),"^",1),?31 Line Location: PRO+0
Function Call: WRITE	Prompt: $J(Z,6)," " Line Location: P1+2
Function Call: WRITE	Prompt: $J(TOT,7) Line Location: P1+3