Routine: FHPRW2

Information

FHPRW2 ; HISC/REL - List Service Points ;4/25/93 14:24

Source file <FHPRW2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Type of Service:",?25,$S(TYP="T":"Tray Line",TYP="C":"Cafeteria",1:"") Line Location: Q3+2
Function Call: WRITE	Prompt: !,"Short Name:",?25,$P(X,"^",4) Line Location: Q3+3
Function Call: WRITE	Prompt: !,"Production Facility:",?25 Line Location: Q3+4
Function Call: WRITE	Prompt: $P($G(^FH(119.71,Z,0)),"^",1) Condition for execution: Z Line Location: Q3+4
Function Call: WRITE	Prompt: !!,"Production Diet %:",?28,"Sun Mon Tue Wed Thu Fri Sat",! Line Location: Q3+6
Function Call: WRITE	Prompt: !?3,"Total Sum",?23 Line Location: Q3+10
Function Call: WRITE	Prompt: $J(S(L),8,1) Line Location: Q3+10
Function Call: WRITE	Prompt: !!,"Additional Meals:",?32,"Meal",?40,"Sun Mon Tue Wed Thu Fri Sat" Line Location: Q31+1
Function Call: WRITE	Prompt: ! Line Location: Q31+3
Function Call: WRITE	Prompt: !!?3,$E(NAM,1,26) Line Location: P1+0
Function Call: WRITE	Prompt: !?3,$E(NAM,1,18),?23 Line Location: P2+0
Function Call: WRITE	Prompt: !!,"Associated Dietetic Wards:",! Line Location: WRD+0
Function Call: WRITE	Prompt: !?5,P(LL) Line Location: WRD+2
Function Call: WRITE	Prompt: ?45,P(K) Line Location: WRD+2
Function Call: WRITE	Prompt: !,$E(DTP,1,9),?27,"S E R V I C E P O I N T",?73,"Page ",PG Line Location: HDR+0
Function Call: WRITE	Prompt: !!?(78-$L(Y)\2),Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------",! Line Location: HDR+2