Routine: ACDPCCL4

Package	Total	Call Graph
Alcohol Chemical Dependency	4	(CONF,DEV,PAUSE)^ACDDEU DIQ1^ACDFMC $$DD^ACDFUNC ^ACDKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	2	$$EXTSET^XBFUNC PFTV^XBPFTV
IHS Patient	1	($$MCD,$$MCDPN,$$MCR,$$PI,$$PIN)^AUPNPAT

Package	Total	Caller Graph
Alcohol Chemical Dependency	3	ACDBILLP ACDPCCL ACDPCCLT

Entry Points

Name	Comments	DBIA/ICR reference
F	;Form feed
GENBILL	; EP-GENERATE HARDCOPY BILL
WRTBILLP	; EP
WRTBILLQ	; EP - FOR TASKMAN
EOJ	; EP
GETDEV	; EP-GET DEVICE FOR HARDCOPY OUTPUT
WRTBILL	; WRITE HARDCOPY BILL
WRTDATA	;
GETPDATA	;
HDR	; WRITE HEADER

External References

Name	Field # of Occurrence
^%ZIS	WRTBILLQ+1
^%ZISC	WRTBILLQ+5, WRTBILLQ+8
^%ZTLOAD	WRTBILL+3
CONF^ACDDEU	HDR+2
DEV^ACDDEU	GETDEV+4
PAUSE^ACDDEU	WRTDATA+46, F+2
DIQ1^ACDFMC	GETPDATA+3
$$DD^ACDFUNC	GETPDATA+4, WRTDATA+12
^ACDKILL	WRTBILLQ+7
$$MCD^AUPNPAT	WRTDATA+26
$$MCDPN^AUPNPAT	WRTDATA+26
$$MCR^AUPNPAT	WRTDATA+25
$$PI^AUPNPAT	WRTDATA+27
$$PIN^AUPNPAT	WRTDATA+27
$$EXTSET^XBFUNC	WRTDATA+15, WRTDATA+16, WRTDATA+21
PFTV^XBPFTV	WRTDATA+13, WRTDATA+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Generating hardcopy for billing",! Line Location: GENBILL+2
Function Call: WRITE	Prompt: !,"No hardcopy generated",! Line Location: GENBILL+4
Function Call: WRITE	Prompt: @IOF Line Location: WRTBILLQ+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: "*** MODIFICATION OF PREVIOUS BILL ***",! Line Location: WRTDATA+1
Function Call: WRITE	Prompt: !,"PATIENT NAME:",?40,ACDPDD(9000001,ACDEV("PAT"),.01) Line Location: WRTDATA+2
Function Call: WRITE	Prompt: !," SEX:",?40,ACDPDD(9000001,ACDEV("PAT"),1101.2) Line Location: WRTDATA+3
Function Call: WRITE	Prompt: !," DOB:",?40,ACDPDD(9000001,ACDEV("PAT"),1102.2) Line Location: WRTDATA+4
Function Call: WRITE	Prompt: !," SSN:",?40,ACDPDD(9000001,ACDEV("PAT"),1107.2) Line Location: WRTDATA+5
Function Call: WRITE	Prompt: !," PHONE:",?40,ACDPDD(9000001,ACDEV("PAT"),1606.2) Line Location: WRTDATA+6
Function Call: WRITE	Prompt: !," ADDRESS:",?40,ACDPDD(9000001,ACDEV("PAT"),1602.2) Line Location: WRTDATA+7
Function Call: WRITE	Prompt: !," ",?40,ACDPDD(9000001,ACDEV("PAT"),1603.2)," ",ACDPDD(9000001,ACDEV("PAT"),1604.2)," ",ACDPDD(9000001,ACDEV("PAT"),1605.2) Line Location: WRTDATA+8
Function Call: WRITE	Prompt: !!,"PRIMARY PROVIDER:",?40,X," ",Y Line Location: WRTDATA+11
Function Call: WRITE	Prompt: !!,"VISIT DATE:",?40,$$DD^ACDFUNC(ACDEV("V DATE")) Line Location: WRTDATA+12
Function Call: WRITE	Prompt: !," COMPONENT CODE:",?40,X Line Location: WRTDATA+14
Function Call: WRITE	Prompt: !," COMPONENT TYPE:",?40,$$EXTSET^XBFUNC(9002172.1,5,ACDEV("COMP TYPE")) Line Location: WRTDATA+15
Function Call: WRITE	Prompt: !," TYPE CONTACT:",?40,$$EXTSET^XBFUNC(9002172.1,3,ACDEV("TC")) Line Location: WRTDATA+16
Function Call: WRITE	Prompt: !," LOCATION:",?40,X Line Location: WRTDATA+18
Function Call: WRITE	Prompt: !," CLIENT SVC LOCATION:",?40,X Line Location: WRTDATA+19
Function Call: WRITE	Prompt: !," CLINIC:",?40,$P(^DIC(40.7,ACDEV("CLINIC"),0),U) Line Location: WRTDATA+20
Function Call: WRITE	Prompt: !," SERVICE CATEGORY:",?40,$$EXTSET^XBFUNC(9000010,.07,ACDEV("SVC CAT")) Line Location: WRTDATA+21
Function Call: WRITE	Prompt: !," TIME:",?40,ACDEV("TIME")_" MINUTES" Line Location: WRTDATA+22
Function Call: WRITE	Prompt: !," THIRD PARTY COVERAGE:" Line Location: WRTDATA+23
Function Call: WRITE	Prompt: ?40,"MEDICARE",! Line Location: WRTDATA+25
Function Call: WRITE	Prompt: ?40,ACDX,! Line Location: WRTDATA+26
Function Call: WRITE	Prompt: ?40,ACDX,! Line Location: WRTDATA+27
Function Call: WRITE	Prompt: ?40,"NONE" Line Location: WRTDATA+28
Function Call: WRITE	Prompt: !!,"PURPOSE OF VISIT:",?20,$P(ACDX,":",2),!,?20,$P(ACDX,":",3) Line Location: WRTDATA+32
Function Call: WRITE	Prompt: !!,"SERVICE:",?20,$P(ACDX,":",2),?40,"(",ACDEV("PROC",ACDCSDTE,ACDLOC,ACDY,"TIME")_" MINUTES)",!,?20,$P(ACDX,":",3) Line Location: WRTDATA+37
Function Call: WRITE	Prompt: !!,"PROVIDER:",?20,X," ",Y Line Location: WRTDATA+43
Function Call: WRITE	Prompt: !!,"..........................................",! Line Location: WRTDATA+45
Routine Call	%ZIS Line Location: WRTBILLQ+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	GETDEV+2
^ACDF5PI - [#9002173]	GETDEV+1
^ACDLOT - [#9002170.8]	WRTDATA+19
^DIC(40.7 - [#40.7]	WRTDATA+20
^DIC(7 - [#7]	WRTDATA+9, WRTDATA+41
^VA(200 - [#200]	WRTDATA+9, WRTDATA+41

Label References

Name	Line Occurrences
EOJ	GENBILL+6
F	WRTDATA+32, WRTDATA+37, WRTDATA+43
GETDEV	GENBILL+3
GETPDATA	WRTBILLP+2
HDR	WRTBILLP+5, WRTBILLP+16, F+3
WRTBILL	GENBILL+5
WRTBILLP	WRTBILLQ+3
WRTBILLQ	WRTBILL+5
WRTDATA	WRTBILLP+5, WRTBILLP+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS("B"	GETDEV+3*
ACDCSDTE	WRTBILLP+3, WRTBILLP+7, WRTBILLP+8*, WRTBILLP+9, WRTBILLP+10, WRTBILLP+11, WRTBILLP+14, WRTDATA+35, WRTDATA+36, WRTDATA+37 , WRTDATA+40, EOJ+2!
ACDDEV	GETDEV+1, GETDEV+2, GETDEV+3, EOJ+2!
>> ACDEV("CLINIC"	WRTDATA+20
>> ACDEV("COMP C	ODE" , WRTDATA+13
>> ACDEV("COMP T	YPE" , WRTDATA+15
>> ACDEV("CS LOC	" , WRTBILLP+10*, WRTDATA+19
>> ACDEV("LOCATION"	WRTBILLP+12*, WRTDATA+17
>> ACDEV("PAT"	GETPDATA+2, GETPDATA+4, GETPDATA+5, WRTDATA+2, WRTDATA+3, WRTDATA+4, WRTDATA+5, WRTDATA+6, WRTDATA+7, WRTDATA+8 , WRTDATA+25, WRTDATA+26, WRTDATA+27
>> ACDEV("POV"	WRTDATA+30, WRTDATA+31
>> ACDEV("PRI PR	OV" , WRTDATA+9
>> ACDEV("PROC"	WRTBILLP+8, WRTBILLP+10, WRTBILLP+11, WRTBILLP+14, WRTDATA+35, WRTDATA+36, WRTDATA+37, WRTDATA+40
>> ACDEV("SVC CA	T" , WRTDATA+21
>> ACDEV("TC"	WRTBILLP+4, WRTDATA+16
>> ACDEV("TIME"	WRTBILLP+15*, WRTDATA+22
>> ACDEV("V DATE	" , WRTBILLP+9*, WRTDATA+12, WRTDATA+25, WRTDATA+26, WRTDATA+27
ACDLOC	WRTBILLP+3, WRTBILLP+8, WRTBILLP+10, WRTBILLP+11, WRTBILLP+14, WRTDATA+35, WRTDATA+36, WRTDATA+37, WRTDATA+40, EOJ+2!
>> ACDMODEE	WRTDATA+1
ACDPDD	WRTBILLQ+4!, GETPDATA+1!, EOJ+2!
ACDPDD(9000001	GETPDATA+4, GETPDATA+5, WRTDATA+2, WRTDATA+3, WRTDATA+4, WRTDATA+5, WRTDATA+6, WRTDATA+7, WRTDATA+8
>> ACDPGM	GETDEV+1
ACDPROV	WRTDATA+39, WRTDATA+40, WRTDATA+41, EOJ+2!
ACDSLAVE	WRTBILLQ+1, WRTBILLQ+5, EOJ+2!
ACDX	WRTDATA+26, WRTDATA+27, WRTDATA+31, WRTDATA+32, WRTDATA+36, WRTDATA+37, EOJ+2!
ACDY	WRTDATA+24, WRTDATA+25, WRTDATA+26, WRTDATA+27, WRTDATA+28, WRTDATA+29, WRTDATA+30, WRTDATA+31, WRTDATA+34, WRTDATA+35 , WRTDATA+36, WRTDATA+37, EOJ+2!
>> DA	GETPDATA+2*
>> DIC	GETPDATA+2*
>> DIQ	GETPDATA+2*
>> DR	GETPDATA+2*
IO	WRTBILLQ+2, WRTDATA+46, F+2
IO("Q"	WRTBILL+1
IO(0	WRTDATA+46, F+2
IOF	WRTBILLQ+5, WRTBILLQ+6, HDR+1
>> IOP	WRTBILLQ+1*
IOSL	F+1
IOST	WRTBILLQ+6, WRTBILLQ+8
>> POP	GENBILL+4
U	GETDEV+1, GETDEV+2, WRTDATA+9, WRTDATA+19, WRTDATA+20, WRTDATA+41
>> X	WRTBILLP+11, WRTBILLP+12, WRTBILLP+13, WRTBILLP+14, WRTBILLP+15, GETPDATA+5, WRTDATA+9, WRTDATA+11, WRTDATA+13, WRTDATA+14 , WRTDATA+17, WRTDATA+18, WRTDATA+19, WRTDATA+41*, WRTDATA+43
>> Y	WRTBILLP+14, WRTDATA+9, WRTDATA+11, WRTDATA+41*, WRTDATA+43
>> ZTDESC	WRTBILL+2*
>> ZTDTH	WRTBILL+2*
>> ZTQUEUED	WRTBILLQ+7
>> ZTREQ	WRTBILLQ+7*
>> ZTRTN	WRTBILL+2*
>> ZTSAVE("ACDEV"	WRTBILL+2*

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPCCL4

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: