Routine: FHPATM

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P1+0
Function Call: WRITE	Prompt: " [ Date cannot be in Future ]" Line Location: P1+1
Function Call: WRITE	Prompt: " [ DATE MORE THAN 5 DAYS IN PAST ]" Line Location: P1+2
Function Call: WRITE	Prompt: ! Line Location: P2+0
Function Call: WRITE	Prompt: !!?5,"Name",?24,"ID#",?35,"Date/Time",?49,"FROM Ward-Bed",?65,"TO Ward-Bed" Line Location: F0+0
Function Call: WRITE	Prompt: !!?26,"--- A D M I S S I O N S ---",! Line Location: F0+1
Function Call: WRITE	Prompt: !!?26,"--- D I S C H A R G E S ---",! Line Location: F0+2
Function Call: WRITE	Prompt: !!?27,"--- T R A N S F E R S ---",! Line Location: F0+3
Function Call: WRITE	Prompt: ! Line Location: F0+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: HDR+1
Function Call: WRITE	Prompt: !?23,"P A T I E N T M O V E M E N T S" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Division: " Line Location: HDR+3
Function Call: WRITE	Prompt: "ALL" Line Location: HDR+3
Function Call: WRITE	Prompt: VAUTD(N) Line Location: HDR+4
Function Call: WRITE	Prompt: ", " Condition for execution: $O(VAUTD(N))>0 Line Location: HDR+4
Function Call: WRITE	Prompt: !!?(80-$L(H1)\2),H1 Line Location: HDR+5
Function Call: WRITE	Prompt: !,$E($P(Y(0),"^",1),1,21),?23,BID Line Location: P0+3
Function Call: WRITE	Prompt: ?32,$J(+$E(NX,6,7),2),"-",$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(NX,4,5)) Line Location: P0+4
Function Call: WRITE	Prompt: $J($S(I2>12:I2-12,1:I2),3),":",$E(NX_"000",11,12),$S(I2>11:"pm",1:"am") Line Location: P0+5
Function Call: WRITE	Prompt: ?48,FW,?65,TW Line Location: P0+6
Function Call: WRITE	Prompt: ?79,NOWRD Condition for execution: NOWRD="*" Line Location: P0+6
Function Call: WRITE	Prompt: !!,"* Denotes that there is no associated Ward in the Dietetic Ward File!" Line Location: NOTE+0
Routine Call	%ZIS Line Location: P2

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	G1+4
^DGPM - [#405]	F1, F1+1, LST+1
^DGPM("APID"	LST+1
^DIC(42 - [#42]	G1, G1+3
^DPT - [#2]	P0
^FH(119.6 - [#119.6]	GET+1, G1+1, G1+2

Name	Line Occurrences
F0	P2+2
F1	F1+2
FND	F0+1, F0+2, F0+3
G1	GET, GET+1
GET	P0+2
HDR	FHPATM+2, F0
KIL	P1, P2, P2+1, P2+2
L1	LST+1
LST	GET, GET+5
NOTE	P2+2
P0	PRT
P1	P1+1, P1+2
PRT	F1+1

Name	Field # of Occurrence
^(0	P0

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR+5
>> %DT	P1*
>> %DT("A"	P1*
%ZIS	P2*!, P2+2!
%ZIS("A"	P2*
>> ADM	PRT*
>> BID	P0+3
>> DA	F1+1*, LST+1
>> DAT	FHPATM+2, P1, P1+1, P1+2, HDR, FND
>> DFN	PRT*, P0, LST+1
DT	P1+2, HDR+5*
>> DTP	HDR, HDR+5
>> FH7R	P0+2, G1
>> FHLST	P2+1*
>> FHPGM	P2+1*
>> FR	GET, GET+2, GET+4, G1+4, G1+5, LST+1, L1
>> FW	P0+6, GET, GET+2, GET+4, G1, G1+1, G1+5, LST+1, L1*
>> H1	HDR, HDR+5
>> I2	P0+5*
IO	P2+2
IO("Q"	P2+1
IOF	HDR+1
IOP	P2!, P2+2!
IOST	HDR+1
N	HDR+4~*
>> NOD	F0+1, F0+2, F0+3*, F1, F1+1, P0, P0+1, P0+2, GET, GET+1
>> NOW	P1+1, HDR+5*, F1
>> NOWRD	F1+1, P0+6, GET+1, G1+3*
>> NX	FND, F1, F1+1, P0+4, P0+5, LST
>> POP	P2
>> SW	G1+1*, G1+3
>> T0	LST+1*
>> TR	GET, GET+1, GET+2, GET+3, G1+4, G1+5
>> TRN	LST, LST+1
>> TW	P0+2, P0+6, GET, GET+1, GET+2, GET+3, G1, G1+1, G1+2, G1+3 , G1+5*
U	G1+1, G1+2, G1+3
>> VAUTD	HDR+2, HDR+3, P0+2
>> VAUTD(	HDR+4, P0+2
>> X	P1+2, LST+1*, L1
>> X1	P1+2, F1+1, PRT, GET+1
>> X2	P1+2*
>> XT	PRT*, P0, P0+1, GET+3, GET+4, GET+5
>> Y	P1
>> Y(0	P0*, P0+3

Customize PDF page

Package: Dietetics

Routine: FHPATM

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: