Routine: FHORD91

Information

FHORD91 ; HISC/REL/NCA/RVD - Diet Census Cont. ;1/23/98 16:08

Source file <FHORD91.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: LST+0
Function Call: WRITE	Prompt: !,DTP,?(L1-35\2),"A C T U A L D I E T C E N S U S" Line Location: LST+0
Function Call: WRITE	Prompt: !,FHSITENM Line Location: LST+3
Function Call: WRITE	Prompt: !,?(L1-$L(Z)\2),Z,!!?(L1-$L(X)\2),X Line Location: LST+4
Function Call: WRITE	Prompt: !!?(L1-31\2),"P R O D U C T I O N D I E T S",!! Line Location: LST+5
Function Call: WRITE	Prompt: ?FHSP1 Line Location: LST+19
Function Call: WRITE	Prompt: $P(S(X,K),"^",1) Line Location: LST+20
Function Call: WRITE	Prompt: " Tray Cafe Total",! Line Location: LST+21
Function Call: WRITE	Prompt: !?3,"N P O",?FHSP2 Line Location: LST+23
Function Call: WRITE	Prompt: !?3,"P A S S",?FHSP2 Line Location: LST+24
Function Call: WRITE	Prompt: !?3,"TF Only",?FHSP2 Line Location: LST+25
Function Call: WRITE	Prompt: !?3,"No Order",?FHSP2 Line Location: LST+27
Function Call: WRITE	Prompt: !!,"TOTAL MEALS",?FHSP2 Line Location: LST+28
Function Call: WRITE	Prompt: ! Line Location: LST+28
Function Call: WRITE	Prompt: !,$E($P($G(^FH(116.2,K,0)),"^",1),1,21),?FHSP2 Line Location: PRO+0
Function Call: WRITE	Prompt: $S(Z:$J(Z,6),1:$J("",6))," " Line Location: P1+1
Function Call: WRITE	Prompt: $J(N("T"),6),$J(N("C"),6),$J(N("T")+N("C"),7) Line Location: P1+2