Routine: FHPRW4

Information

FHPRW4 ; HISC/REL - List Supp. Fdg. Sites ;4/25/93 14:23

Source file <FHPRW4.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Short Name:",?25,$P(X,"^",2) Line Location: Q5+1
Function Call: WRITE	Prompt: !,"Separate Labels:",?25,$S($P(X,"^",4)="Y":"YES",1:"NO") Line Location: Q5+2
Function Call: WRITE	Prompt: !,"Items on Ward Lists:",?25,$S($P(X,"^",5)="Y":"YES",1:"NO") Line Location: Q5+3
Function Call: WRITE	Prompt: !,"Production Facility:",?25 Line Location: Q5+4
Function Call: WRITE	Prompt: $P($G(^FH(119.71,Z,0)),"^",1) Condition for execution: Z Line Location: Q5+4
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),?15,"S U P P L E M E N T A L F E E D I N G S I T E",?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