Routine: APSPT161

Information

APSPT161 ; IHS/DSD/ENM - GENERATED FROM 'APSP INTERVENTIONS' PRINT TEMPLATE (#1780) ; [ 09/03/97 1:30 PM ]

Package	Total	Call Graph
VA Fileman	3	CP^DIO2 ^DIWP (,0,A)^DIWW

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: N+0
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " Line Location: DT+0
Function Call: WRITE	Prompt: $J(Y#100\1,2)_"," Condition for execution: Y#100 Line Location: DT+0
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+0
Function Call: WRITE	Prompt: Y Line Location: DT+1
Function Call: WRITE	Prompt: ?20 Line Location: BEGIN+2
Function Call: WRITE	Prompt: $E(Y,1,30) Line Location: BEGIN+2
Function Call: WRITE	Prompt: ?0 Line Location: BEGIN+3
Function Call: WRITE	Prompt: "REASON FOR" Condition for execution: $D(^APSPQA(32.4,D0,13)) Line Location: BEGIN+3
Function Call: WRITE	Prompt: ?0 Line Location: C1R+2
Function Call: WRITE	Prompt: "ACTION TAKEN: " Condition for execution: $D(^APSPQA(32.4,D0,14)) Line Location: C1R+2
Function Call: WRITE	Prompt: ?0 Line Location: D1R+2
Function Call: WRITE	Prompt: "CLINICAL IMPACT:" Condition for execution: $D(^APSPQA(32.4,D0,15)) Line Location: D1R+2
Function Call: WRITE	Prompt: ?0 Line Location: E1R+2
Function Call: WRITE	Prompt: "FINANCIAL IMPACT:" Condition for execution: $D(^APSPQA(32.4,D0,16)) Line Location: E1R+2
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------",!! Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	BEGIN+3, BEGIN+4, C1+1, C1R+2, C1R+3, D1+1, D1R+2, D1R+3, E1+1, E1R+2 , E1R+3, F1+1
^DIC(16 - [#16]	BEGIN+2
^DIC(6 - [#6]	BEGIN+2
^TMP($J	T

Name	Field # of Occurrence
>> C	C, S, P, A, D, D+1
>> D0	BEGIN+3, BEGIN+4, C1+1, C1R+2, C1R+3, D1+1, D1R+2, D1R+3, E1+1, E1R+2 , E1R+3, F1+1
>> D1	BEGIN+4, C1+1, C1R+3, D1+1, D1R+3, E1+1, E1R+3, F1+1
>> DIOT(2	T
DIP	BEGIN+3!, C1R+2!, D1R+2!, E1R+2!, F1R+1!
>> DITTO(	D, D+1*
DIWF	T, BEGIN+4, C1R+3, D1R+3, E1R+3, F1R+2!
>> DIWL	C1+1, D1+1, E1+1, F1+1
>> DIWR	C1+1, D1+1, E1+1, F1+1
>> DIXX	M
>> DN	T, BEGIN+1*, BEGIN+2, BEGIN+3, BEGIN+4, C1R+2, C1R+3, D1R+2, D1R+3, E1R+2 , E1R+3, F1R+1
>> DQ(	C*
>> H(	S*
>> I(1	BEGIN+4, C1R+3, D1R+3, E1R+3
IOSL	T
>> J(1	BEGIN+4, C1R+3, D1R+3, E1R+3
>> L(	S*
>> N(	P*
>> Q(	S*
>> S(	A*
U	DT, BEGIN+2
>> X	BEGIN+2, BEGIN+4, C1+1, C1R+3, D1+1, D1R+3, E1+1, E1R+3, F1+1
Y	C, S, A, D, D+1, DT, DT+1, BEGIN+2, BEGIN+3!, C1R+2! , D1R+2!, E1R+2!, F1R+1!, F1R+2!