Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACDPCCL4

Package: Alcohol Chemical Dependency

Routine: ACDPCCL4


Information

ACDPCCL4 ;IHS/ADC/EDE/KML - PCC LINK;

Source Information

Source file <ACDPCCL4.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 3

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All