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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACHSPAP

Package: Contract Health Management Information System

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

Marked Items

Name Field # of Occurrence
$T(ERRS+N FLG+2, FLG+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All