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 |  Local Variables |  All
Print Page as PDF
Routine: APCDPLFH

Package: Patient Care Component

Routine: APCDPLFH


Information

APCDPLFH ;IHS/CMI/LAB - UPDATE ICD CODE FROM BSTS ; 31 Jan 2017 8:51 AM

Source Information

Source file <APCDPLFH.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 FILE^DICN  (,UPDATE)^DIE  ^DIR  
DRG Grouper 2 ($$CODEN,$$ICDDX)^ICDCODE  ($$CODEABA,$$ICDDX)^ICDEX  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBVK  
IHS Patient 1 ($$CONC,$$IMP)^AUPNSICD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Standard Terminology 1 BSTSVOF1  

Entry Points

Name Comments DBIA/ICR reference
SETE ;
LOG
QUEUE ;EP
LOGFH
XIT ;
FH ;
ADDL
ADDLFH

External References

Name Field # of Occurrence
$$CONC^AUPNSICD QUEUE+11, FH+9
$$IMP^AUPNSICD APCDPLFH+6, QUEUE+1
FILE^DICN LOG+4, LOGFH+4
^DIE QUEUE+32, ADDL+6, FH+29, ADDLFH+5
UPDATE^DIE ADDL+17, ADDLFH+15
^DIR APCDPLFH+8
$$CODEN^ICDCODE QUEUE+27, ADDL+12, FH+24, ADDLFH+10
$$ICDDX^ICDCODE QUEUE+19, FH+17
$$CODEABA^ICDEX QUEUE+26, ADDL+11, FH+23, ADDLFH+9
$$ICDDX^ICDEX QUEUE+18, FH+16
$$VAL^XBDIQ1 QUEUE+13, FH+11
EN^XBVK XIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to update the diagnosis on Problem List"
  • Line Location: APCDPLFH+4
Function Call: WRITE
  • Prompt: !,"and family history entries when you first switch to ICD-10 from ICD-9",!,"or when a DTS upgrade with updated mappings is received.",!!
  • Line Location: APCDPLFH+5
Function Call: WRITE
  • Prompt: !!,"Your system's ICD files are set to ",$S(APCDIMP=30:"ICD10",1:"ICD9")," when this runs it will ",!,"put ",$S(APCDIMP=30:"ICD10",1:"ICD9")," codes as the diagnosis on the Problem and Family History entries.",!!
  • Line Location: APCDPLFH+7
Function Call: WRITE
  • Prompt: !!,"Hold on..this may take a few minutes.."
  • Line Location: APCDPLFH+13
Function Call: WRITE
  • Prompt: !,"Looping through Problem entries....."
  • Line Location: QUEUE+2
Function Call: WRITE
  • Prompt: !,"Now looping through Family History entries.."
  • Line Location: FH+1
Routine Call
  • DIE
  • Line Location:
    • ADDL+17
    • ADDLFH+15
Routine Call
  • DIE
  • Line Location:
    • QUEUE+32
    • ADDL+6
    • FH+29
    • ADDLFH+5
Routine Call
  • DIR
  • Line Location:
    • APCDPLFH+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPROB - [#9000011] Classic Fileman Calls
^AUPNFH - [#9000014] Classic Fileman Calls
^APCDPLMD - [#9001040.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNFH - [#9000014] FH+3, FH+6, FH+7, FH+10, FH+13, FH+14, ADDLFH+4
^AUPNPROB - [#9000011] QUEUE+4, QUEUE+7, QUEUE+8, QUEUE+10, QUEUE+12, QUEUE+15, QUEUE+16, ADDL+5

Label References

Name Line Occurrences
ADDL QUEUE+28, QUEUE+29, QUEUE+30
ADDLFH FH+25, FH+26, FH+27
LOG ADDL+3
LOGFH ADDLFH+3
QUEUE APCDPLFH+14
SETE ADDL+18, ADDLFH+16
XIT APCDPLFH+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCD001E QUEUE+13*, QUEUE+21, FH+11*, FH+19
>> APCDCI QUEUE+8*, QUEUE+9, QUEUE+11, LOG+3, FH+7*, FH+8, FH+9, LOGFH+3
>> APCDCNT QUEUE+3*, QUEUE+5*, QUEUE+6, FH+2*, FH+4*, FH+5
>> APCDE ADDL+9*
APCDFDA ADDL+15!, ADDLFH+13!
APCDFDA( ADDL+16*, ADDLFH+14*
>> APCDFNUM ADDL+8*, ADDL+16, ADDLFH+7*, ADDLFH+14
>> APCDICDS QUEUE+11*, QUEUE+22, QUEUE+25, ADDL+2, FH+9*, FH+20, FH+22, ADDLFH+2
>> APCDIMP APCDPLFH+6*, APCDPLFH+7, QUEUE+1*, QUEUE+18, QUEUE+19, QUEUE+26, QUEUE+27, ADDL+11, ADDL+12, FH+16
, FH+17, FH+23, FH+24, ADDLFH+9, ADDLFH+10
>> APCDLOGE LOG+6*, LOGFH+6*, SETE+1
>> APCDN01 QUEUE+25*, QUEUE+26*, QUEUE+27*, QUEUE+28, QUEUE+29, QUEUE+30, QUEUE+32, LOG+3, FH+22*, FH+23*
, FH+24*, FH+25, FH+26, FH+27, FH+29, LOGFH+3
APCDNA ADDL+1!, ADDL+2*, ADDL+3, ADDL+10, LOG+3, ADDLFH+1!, ADDLFH+2*, ADDLFH+3, ADDLFH+8, LOGFH+3
>> APCDNODE ADDL+9*
>> APCDO01 QUEUE+12*, QUEUE+30, LOG+3, FH+10*, FH+27, LOGFH+3
>> APCDOA QUEUE+14*, QUEUE+20*, QUEUE+21, LOG+3, FH+12*, FH+18*, FH+19, LOGFH+3
>> APCDOLDT QUEUE+21*, QUEUE+22, ADDL+3, FH+19*, FH+20, ADDLFH+3
>> APCDP ADDL+11*, ADDL+12*, ADDL+13, ADDL+14, ADDL+16, ADDLFH+9*, ADDLFH+10*, ADDLFH+11, ADDLFH+12, ADDLFH+14
>> APCDX QUEUE+3*, QUEUE+4*, QUEUE+7, QUEUE+8, QUEUE+10, QUEUE+11, QUEUE+12, QUEUE+13, QUEUE+15, QUEUE+16
, QUEUE+32, ADDL+5, ADDL+6, ADDL+16, LOG+3, FH+2*, FH+3*, FH+6, FH+7, FH+9
, FH+10, FH+11, FH+13, FH+14, FH+29, ADDLFH+4, ADDLFH+5, ADDLFH+14, LOGFH+3
>> APCDY ADDL+10*, ADDL+11, ADDL+12, ADDLFH+8*, ADDLFH+9, ADDLFH+10
>> APCDZ ADDL+5*, ADDL+6, ADDL+10*, ADDLFH+4*, ADDLFH+5, ADDLFH+8*
D0 LOG+1!, LOGFH+1!
DA APCDPLFH+8!, QUEUE+32!*, ADDL+6*!, FH+29!*, ADDLFH+5*!, SETE+1*
DA(1 ADDL+6*, ADDLFH+5*
DD LOG+1!, LOGFH+1!
DIADD LOG+2*, LOG+5!, LOGFH+2*, LOGFH+5!
DIC LOG+1!, LOG+2*, LOG+5!, LOGFH+1!, LOGFH+2*, LOGFH+5!
DIC("DR" LOG+3*, LOGFH+3*
DIC(0 LOG+2*, LOGFH+2*
DIE QUEUE+32!*, ADDL+6*!, FH+29!*, ADDLFH+5*!, SETE+1*
DIR APCDPLFH+8!
DIR("A" APCDPLFH+8*
DIR("B" APCDPLFH+8*
DIR(0 APCDPLFH+8*
>> DIRUT APCDPLFH+9
DLAYGO LOG+2*, LOG+5!, LOGFH+2*, LOGFH+5!
DO LOG+1!, LOGFH+1!
DR QUEUE+32!*, ADDL+6*!, FH+29!*, ADDLFH+5*!, SETE+1*
DT APCDPLFH+6, QUEUE+1, QUEUE+11, LOG+3, FH+9, LOGFH+3
>> ERR("DIERR" ADDL+18, ADDLFH+16, SETE+1
U QUEUE+8, QUEUE+10, QUEUE+11, QUEUE+12, QUEUE+16, QUEUE+18, QUEUE+19, FH+7, FH+9, FH+10
, FH+14, FH+16, FH+17
>> X QUEUE+15*, QUEUE+16, LOG+3*, FH+13*, FH+14, LOGFH+3*
>> Y APCDPLFH+10, QUEUE+16*, QUEUE+17, QUEUE+18*, QUEUE+19*, QUEUE+20, LOG+6, FH+14*, FH+15, FH+16*
, FH+17*, FH+18, LOGFH+6
>> ZTQUEUED QUEUE+2, QUEUE+6, FH+1, FH+5
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 |  Local Variables |  All