Routine: ACHSPAP

Information

ACHSPAP ; IHS/ITSC/PMF - LINK TO PATIENT CARE COMPONENT (1/2) ; JUL 10, 2008

Source Information

Source file <ACHSPAP.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Contract Health Management Information System	3	($$DIE,$$DOC)^ACHS ^ACHSEOBG (CHS,VCPT,VDEN)^ACHSPAP1
Patient Care Component	3	EN^APCDALV EN^APCDALVR ^APCDVDLT
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS Patient	1	^AUPNPAT
VA Fileman	1	WAIT^DICD

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Contract Health Management Information System	4	ACHSEOB3 ACHSEOB9 ACHSPAM ACHSPAP2

Entry Points

Name	Comments	DBIA/ICR reference
VPOV1	; ; Pointer to ^ICD9( is in ACHS("DX").
FLG(N)	;
VCPT	; Create entries in "V CPT"
PX	; Create/update "V PROCEDURE" data.
VISIT	; Check/create VISIT entry in Patient Care Component.
VDEN	; Create entries in "V DENTAL"
CHS	; Create an entry in V CHS
LOC(T)	; ; Given the Type of service return the LOCATION IEN: ; TOS LOCATION Name ; ------------------------ ------------------------- ; 1 = Inpatient CHS HOSPITAL ; 2 = Dental CHS OTHER ; 3 = Outpatient CHS PHYSICIAN OFFICE ; If the above cannot be ascertained based on the ASUFAC of the ; facility, return DUZ(2).
TOK()	;EP - Change argument to 1 interactive testing.
ERRS	;
VPOV	; Create entry in "V POV" file.
PX1	;
VPRV	; Create entry in "V PROVIDER" file. ^AUPNVPRV 9000010.06

External References

Name	Field # of Occurrence
$$DIE^ACHS	ACHSPAP+24, ACHSPAP+45, VISIT+16
$$DOC^ACHS	ACHSPAP+24, ACHSPAP+27, ACHSPAP+43, ACHSPAP+45, VPOV1+37
^ACHSEOBG	ACHSPAP+41
CHS^ACHSPAP1	CHS+2
VCPT^ACHSPAP1	VCPT+2
VDEN^ACHSPAP1	VDEN+2
EN^APCDALV	VISIT+12
EN^APCDALVR	VPRV+34, VPOV1+49, PX1+28
^APCDVDLT	ACHSPAP+28, ACHSPAP+44
^AUPNPAT	ACHSPAP+33, PX1+4
WAIT^DICD	ACHSPAP+21
$$ICDDX^ICDEX	VPOV+8, VPOV1+23
$$ICDOP^ICDEX	PX+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Transferring Medical data to PATIENT CARE COMPONENT!",! Line Location: ACHSPAP+21
Function Call: WRITE	Prompt: !,"DELETING EXISTING VISIT INFO." Line Location: ACHSPAP+25
Function Call: WRITE	Prompt: *7,!,"MEDICAL DATA FAILED TRANSFER TO PATIENT CARE COMPONENT.",!,$$FLG(APCDALVR("APCDAFLG")) Line Location: ACHSPAP+47
Function Call: WRITE	Prompt: !,"VALUE = '",$P(APCDALVR("APCDAFLG"),U,2),"'" Line Location: ACHSPAP+48
Function Call: WRITE	Prompt: !,"PCC VISIT..." Line Location: VISIT+1
Function Call: WRITE	Prompt: !,"Edit VISIT field of DOCUMENT failed." Line Location: VISIT+16
Function Call: WRITE	Prompt: !,"PCC PROVIDER..." Line Location: VPRV+1
Function Call: WRITE	Prompt: !,"PCC PURPOSE OF VISIT..." Line Location: VPOV+1
Function Call: WRITE	Prompt: !,"PCC PROCEDURE..." Line Location: PX+1
Function Call: WRITE	Prompt: !,"PCC V DENTAL..." Line Location: VDEN+1
Function Call: WRITE	Prompt: !,"PCC V CPT..." Line Location: VCPT+1
Function Call: WRITE	Prompt: !,"PCC V CHS..." Line Location: CHS+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^ICD0 - [#80.1]	Classic Fileman Calls
^AUTNPOV - [#9999999.27]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PX1+3
^ACHSF - [#9002080]	ACHSPAP+31, VPOV+8, PX+5, PX+6, PX+7
^AUTTLOC - [#9999999.06]	LOC+10
^AUTTLOC("C"	LOC+13, LOC+15
^AUTTSITE(1	VPRV+9, VPRV+13
^DD(80.1	PX1+2
^DD(9000010.06	VPRV+16, VPRV+21, VPRV+25, VPRV+29
^DD(9000010.07	VPOV1+12, VPOV1+28, VPOV1+38
^DD(9000010.08	PX1+9, PX1+20, PX1+25
^DIC(3 - [#3]	VPRV+9
^ICD0 - [#80.1]	PX1+14
^ICD9 - [#80]	VPOV+8
^VA(200 - [#200]	VPRV+4

Label References

Name	Line Occurrences
$$FLG	ACHSPAP+41, ACHSPAP+47
$$LOC	VISIT+5
$$TOK	ACHSPAP+25, VISIT+1, VPRV+1, VPOV+1, PX+1, VDEN+1, VCPT+1, CHS+1
@(	ACHSPAP+38
PX1	PX+7
VPOV1	VPOV+8

Naked Globals

Name	Field # of Occurrence
^(	VPOV+8
^(0	PX+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACHSPAP+31, ACHSPAP+38
A	LOC+9~, LOC+10, LOC+11, LOC+12, LOC+13, LOC+15*
>> ACHS	ACHSPAP+11, ACHSPAP+15, VPOV+8, PX+5*, PX+6, PX+7
>> ACHS("DX"	VPOV+8*, VPOV+9!, VPOV1+11, VPOV1+23
>> ACHS("PTR"	PX+6*, PX+8!, PX1+14
>> ACHS("PX"	PX+7*, PX+8!, PX1+8
>> ACHS("PXDT"	PX+6*, PX+8!, PX1+24
>> ACHSDIEN	ACHSPAP+31, VPOV+8, PX+5, PX+6, PX+7
>> ACHSDOCR	ACHSPAP+18, ACHSPAP+19, ACHSPAP+32, VISIT+3, VISIT+5, VISIT+7, VPRV+20, VPOV1+16
ACHSDUZ0	ACHSPAP+13~, ACHSPAP+35*, ACHSPAP+51
>> ACHSEDAT	ACHSPAP+41*
>> ACHSERRE	ACHSPAP+41*
>> ACHSISAO	ACHSPAP+16, ACHSPAP+41
ACHSLBL	ACHSPAP+13~, ACHSPAP+38*
ACHSTRAN	ACHSPAP+13~, ACHSPAP+31*, VISIT+4, VISIT+7
ACHSWOK	ACHSPAP+13~, ACHSPAP+16*, ACHSPAP+18, ACHSPAP+19, ACHSPAP+21, ACHSPAP+24, ACHSPAP+46, VISIT+16
APCDALVR	ACHSPAP+13~, ACHSPAP+38!
APCDALVR("ACHSDIEN"	VPOV1+46*
APCDALVR("APCDADD"	VISIT+11*
APCDALVR("APCDAFLG"	ACHSPAP+38, ACHSPAP+40, ACHSPAP+41, ACHSPAP+47, ACHSPAP+48, VISIT+14, VPRV+5, VPRV+9, VPRV+17, VPRV+22* , VPRV+26, VPRV+30, VPRV+36, VPOV+8, VPOV1+13, VPOV1+29, VPOV1+38, VPOV1+51, PX+5, PX1+10 , PX1+21, PX1+26, PX1+30*
APCDALVR("APCDATMP"	VPRV+32, VPOV1+3, PX1+1*
APCDALVR("APCDCAT"	VISIT+7*
APCDALVR("APCDDATE"	VISIT+4*
APCDALVR("APCDLOC"	VISIT+5*
APCDALVR("APCDOVRR"	VPOV1+7*
APCDALVR("APCDPAT"	VISIT+3, VPRV+20, VPOV1+16*
APCDALVR("APCDTCI"	VPOV1+38*
APCDALVR("APCDTNQ"	VPOV1+23, VPOV1+29, PX1+14, PX1+16, PX1+17, PX1+19, PX1+21
APCDALVR("APCDTOA"	VPRV+28*
APCDALVR("APCDTPD"	PX1+24*, PX1+26
APCDALVR("APCDTPOV"	VPOV1+11*, VPOV1+13
APCDALVR("APCDTPRC"	PX1+8*, PX1+10
APCDALVR("APCDTPRO"	VPRV+18*
APCDALVR("APCDTPS"	VPRV+24, VPOV+3, VPOV1+53!
APCDALVR("APCDTYPE"	ACHSPAP+11, ACHSPAP+15, VISIT+6
APCDALVR("APCDVSIT"	ACHSPAP+38*, ACHSPAP+43, VISIT+16
APCDANE	ACHSPAP+13~, ACHSPAP+32*
APCDAUTO	ACHSPAP+13~, ACHSPAP+32*
>> APCDOVRR	VPOV1+26*
APCDVDLT	ACHSPAP+26~, ACHSPAP+27, ACHSPAP+42~, ACHSPAP+43, ACHSPAP+44
AUPNTALK	ACHSPAP+13~, ACHSPAP+32*
>> DFN	PX1+4
>> DIC	VPRV+13, VPOV1+10, VPOV1+19, VPOV1+38, PX1+7, PX1+13
>> DIC(0	VPRV+14, VPOV1+10, VPOV1+19, VPOV1+38, PX1+2, PX1+3
>> DIE	VPRV+13, VPOV1+10, VPOV1+19, VPOV1+38, PX1+7, PX1+13
DUZ(0	ACHSPAP+35, ACHSPAP+36, ACHSPAP+51
DUZ(2	ACHSPAP+31, VPOV+8, PX+5, PX+6, PX+7, LOC+10, LOC+11, LOC+16
N	FLG~, FLG+1
T	LOC~, LOC+12, LOC+15
U	ACHSPAP+18, ACHSPAP+19, ACHSPAP+31, ACHSPAP+32, ACHSPAP+48, VISIT+3, VISIT+4, VISIT+5, VISIT+7, VISIT+14 , VPRV+9, VPRV+13, VPRV+16, VPRV+20, VPRV+21, VPRV+25, VPRV+29, VPRV+36, VPOV+8, VPOV1+12 , VPOV1+13, VPOV1+16, VPOV1+23, VPOV1+28, VPOV1+29, VPOV1+38, VPOV1+51, PX+6, PX+7, PX1+9 , PX1+10, PX1+14, PX1+20, PX1+21, PX1+25, PX1+26, PX1+30, LOC+10
X	VPRV+4, VPRV+5, VPRV+9!, VPRV+15, VPRV+17, VPRV+18, VPRV+20, VPRV+22, VPRV+24, VPRV+26 , VPRV+28, VPRV+30, VPOV1+11, VPOV1+13, VPOV1+23, VPOV1+29, VPOV1+37, VPOV1+38, PX1+2, PX1+3 , PX1+8, PX1+10, PX1+14, PX1+19, PX1+21, PX1+24, PX1+26
Y	ACHSPAP+32, PX1+4, LOC+9~, LOC+13, LOC+14, LOC+15
>> ZTQUEUED	ACHSPAP+16

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPAP

Call Graph Total: 9

Caller Graph Total: 4