Routine: FHORD13

Information

FHORD13 ; HISC/REL/NCA/RVD - Reprint Diet Label ;2/26/96 11:57

Source file <FHORD13.m>

Name	Comments	DBIA/ICR reference
F0
W0
D2
P0
PPT
P1	;
Q1	; Reprint the Diet Labels
F1
Q2
Q3
LST	;
L1
OUTP	;process outpatient dat
OUTW	;set all outpt data for printing
PROUT	;print outptlabels
KIL
LL

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?21,"R E P R I N T D I E T L A B E L S" Line Location: FHORD13+2
Function Call: READ	Timeout: DTIME Line Location: F0+0
Function Call: WRITE	Prompt: *7,!!," Answer with C, L, P or A" Line Location: F0+1
Function Call: WRITE	Prompt: ! Line Location: W0+0
Function Call: WRITE	Prompt: ! Line Location: D2+0
Function Call: WRITE	Prompt: ! Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: P1+3
Function Call: WRITE	Prompt: ! Line Location: Q1+11
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: !,$E(N1,1,S2-5-$L(W1)),?(S2-3-$L(W1)),W1,!,BID Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: @FHIO("EON") Line Location: L1+2
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+2
Function Call: WRITE	Prompt: !,$S(ALG="":"",1:"*ALG"),!,Y,!! Line Location: L1+2
Function Call: WRITE	Prompt: !!,$P(Y,",",1,L) Line Location: L1+3
Function Call: WRITE	Prompt: ! Condition for execution: LAB=2 Line Location: L1+3
Function Call: WRITE	Prompt: !,$E($P(Y,",",L+1,5),2,99),! Line Location: L1+3
Function Call: WRITE	Prompt: @FHIO("EOF") Line Location: L1+4
Function Call: WRITE	Prompt: ?(S2-20),DTP,!! Condition for execution: LAB=2 Line Location: L1+4

FileNo	Call Tags
^FH(119.6 - [#119.6]	Classic Fileman Calls
^FH(119.73 - [#119.73]	Classic Fileman Calls