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: APCDCPOV

Package: Patient Care Component

Routine: APCDCPOV


Information

APCDCPOV ; IHS/CMI/LAB - POV LOOKUP ;

Source Information

Source file <APCDCPOV.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Patient 3 $$CHKE91^AUPNSIC9  ($$CHKE1,$$IMP)^AUPNSICD  $$IMP^AUPNVUTL  
Lexicon Utility 3 LOOK^LEXA  CONFIG^LEXSET  ($$ICDONE,$$ONE)^LEXU  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
VA Fileman 2 ^DIC  ^DIR  
DRG Grouper 1 ($$ICDDX,$$IMP)^ICDEX  
Kernel 1 ($$DT,$$FMADD)^XLFDT  
Patient Care Component 1 GETANS^APCDAPOV  
Patient Care Component Reports 1 $$DSCHDATE^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEPOV  

Entry Points

Name Comments DBIA/ICR reference
EDITCAU1 ;
ICDONE99(ALEX,ALEXVDT) ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01
; LEXVDT Date to use for screening by codes
LEX1 ;reader call to get TEXT for code
XITC
ICDONE9(ALEX,ALEXVDT) ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01
; LEXVDT Date to use for screening by codes
I ;
CI ;
XITL
START ;
CLEX ;EP
LEXC ;
LEX ;EP - called from input template
INJ(C,S) ;EP
LEXN ;
ICDONE1(ALEX,ALEXVDT) ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01
; LEXVDT Date to use for screening by codes

External References

Name Field # of Occurrence
GETANS^APCDAPOV LEX1+29, CLEX+40
$$DSCHDATE^APCLV LEX+10, EDITCAU1+11
$$CHKE91^AUPNSIC9 ICDONE99+8
$$CHKE1^AUPNSICD ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD I+1, CI+1
$$IMP^AUPNVUTL EDITCAU1+7
^DIC LEX1+25, CLEX+36
^DIR LEX1+8, CLEX+10
$$ICDDX^ICDEX LEX1+49, ICDONE9+6, ICDONE99+6, ICDONE1+6, CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+60
$$IMP^ICDEX LEX+6
LOOK^LEXA LEX1+19, LEX1+20, CLEX+30, CLEX+31
CONFIG^LEXSET LEX1+3, LEX1+4, LEX1+13, LEX1+14, CLEX+4, CLEX+5, CLEX+24, CLEX+25
$$ICDONE^LEXU LEX1+45, ICDONE9+5, ICDONE99+5, CLEX+56
$$ONE^LEXU LEX1+46, ICDONE1+5, CLEX+57
$$VAL^XBDIQ1 CLEX+9, CLEX+16
EN^XBNEW START+1
$$DT^XLFDT ICDONE9+4, ICDONE99+4
$$FMADD^XLFDT LEX+6, EDITCAU1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+30
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+40
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+48
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+50
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN+2
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: CLEX+33
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEX+41
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEX+46
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEX+51
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: CLEX+59
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: CLEX+61
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXC+2
Routine Call
  • DIC
  • Line Location:
    • LEX1+25
    • CLEX+36
Routine Call
  • DIR
  • Line Location:
    • LEX1+8
    • CLEX+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] LEX+9, LEX+10, LEX+11, EDITCAU1+10, EDITCAU1+11, EDITCAU1+12
^TMP("LEXFND" LEX1+12!, CLEX+23!
^TMP("LEXHIT" LEX1+12!, LEX1+45, LEX1+46, CLEX+23!, CLEX+56, CLEX+57
^TMP("LEXSCH" LEX1+2!, LEX1+12!, LEX1+47!, CLEX+3!, CLEX+23!, CLEX+58!

Label References

Name Line Occurrences
CI EDITCAU1+9
CLEX EDITCAU1+7, CLEX+32, CLEX+41, CLEX+46, CLEX+51
I LEX+8
LEX LEX1+21, LEX1+30, LEX1+35, LEX1+40
LEX1 LEX+6
LEXC CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+32, CLEX+41, CLEX+46, CLEX+51
LEXN LEX1+21, LEX1+30, LEX1+35, LEX1+40
XITC CLEX+11, CLEX+12, CLEX+13, CLEX+14, CLEX+16, CLEX+59, CLEX+61
XITL LEX1+9, LEX1+10, LEX1+48, LEX1+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LEX1+21, LEX1+25*, LEX1+26*, LEX1+30, LEX1+33*, LEX1+35, LEX1+38*, LEX1+40, LEX1+43*, LEX1+49*
, LEX1+50, LEXN+1, INJ+1~, INJ+2*, INJ+3, INJ+4*, INJ+5*, INJ+6*, INJ+7*, CLEX+17*
, CLEX+18*, CLEX+19*, CLEX+20*, CLEX+21*, CLEX+22*, CLEX+32, CLEX+36*, CLEX+37*, CLEX+41, CLEX+44*
, CLEX+46, CLEX+49*, CLEX+51, CLEX+54*, CLEX+60*, CLEX+61, LEXC+1
ALEX ICDONE9~, ICDONE9+5*, ICDONE9+6, ICDONE99~, ICDONE99+5*, ICDONE99+6, ICDONE1~, ICDONE1+5*, ICDONE1+6
ALEXICD ICDONE9+3~, ICDONE9+6*, ICDONE9+7, ICDONE9+8, ICDONE99+3~, ICDONE99+6*, ICDONE99+7, ICDONE99+8, ICDONE1+3~, ICDONE1+6*
, ICDONE1+7, ICDONE1+8
ALEXVDT ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE99~, ICDONE99+4*, ICDONE99+5, ICDONE99+6, ICDONE1~, ICDONE1+5
, ICDONE1+6
APCDANS LEX+14~, LEX1+28*, EDITCAU1+15~, CLEX+39*
>> APCDD LEX+6*, LEX+7*, LEX+8*, LEX+10*, LEX+11*, LEX+12*, LEX+13*, I+1, LEX1+3, LEX1+4
, LEX1+13, LEX1+14, LEX1+19, LEX1+20, LEX1+45, LEX1+46, LEX1+49, EDITCAU1+7*, EDITCAU1+8*, EDITCAU1+9*
, EDITCAU1+11*, EDITCAU1+12*, EDITCAU1+13*, EDITCAU1+14*, CI+1, CLEX+4, CLEX+5, CLEX+24, CLEX+25, CLEX+30
, CLEX+31, CLEX+56, CLEX+57, CLEX+60
>> APCDDATE LEX+8, LEX+12, EDITCAU1+9, EDITCAU1+13
>> APCDIAIE CLEX+11
APCDIMP LEX+6*, LEX+14~, I+1*, LEX1+3, LEX1+4, LEX1+13, LEX1+14, LEX1+16, LEX1+17, LEX1+19
, LEX1+20, LEX1+45, LEX1+46, LEX1+49, EDITCAU1+7*, EDITCAU1+15~, CI+1*, CLEX+4, CLEX+5, CLEX+18
, CLEX+19, CLEX+20, CLEX+21, CLEX+22, CLEX+24, CLEX+25, CLEX+27, CLEX+28, CLEX+30, CLEX+31
, CLEX+56, CLEX+57, CLEX+60
>> APCDINAD LEX+8, EDITCAU1+9
>> APCDINPE LEX+4*, EDITCAU1+4*, EDITCAU1+6*
>> APCDLOOK LEX1+9*, LEX1+10*
>> APCDT90 LEX+1, LEX+2, LEX+3, EDITCAU1+1, EDITCAU1+2, EDITCAU1+3
>> APCDTCLK LEX1+48*, LEX1+50*, LEXN+1*
>> APCDTDA CLEX+9, CLEX+16
APCDTDEL CLEX+2!, CLEX+11*
>> APCDTDIA LEX+1*, LEX+2*, LEX+3*, LEX1+5, LEX1+18, EDITCAU1+1*, EDITCAU1+2*, EDITCAU1+3*, CLEX+6, CLEX+29
>> APCDTERR LEX1+48*, LEX1+50*, CLEX+59*, CLEX+61*
>> APCDTFIE EDITCAU1+1, EDITCAU1+2, EDITCAU1+3, CLEX+9, CLEX+16
>> APCDTIN9 LEX+1, LEX+2, LEX+3, LEX+6, LEX1+6, LEX1+7, LEX1+16, EDITCAU1+1, EDITCAU1+2, EDITCAU1+3
, EDITCAU1+7, CLEX+7, CLEX+8, CLEX+27
>> APCDTNOG EDITCAU1+6*
>> APCDTNPV EDITCAU1+6*, CLEX+59*, CLEX+61*, LEXC+1*
APCDTPCC LEX+4*, XITL!, EDITCAU1+4*, EDITCAU1+6*, XITC!
>> APCDTSKI LEX1+9*, LEX1+10*, CLEX+13*
APCDTUPH CLEX+2!, CLEX+12*
>> APCDUINP LEX1+11*, LEX1+15, LEX1+25, CLEX+15*, CLEX+16, CLEX+18, CLEX+19, CLEX+20, CLEX+21, CLEX+22
, CLEX+26, CLEX+36
>> APCDVSIT LEX+9, LEX+10, LEX+11, EDITCAU1+10, EDITCAU1+11, EDITCAU1+12
>> APCDY LEX1+30, LEX1+35, LEX1+40, LEX1+45, LEX1+46, CLEX+41, CLEX+46, CLEX+51, CLEX+56, CLEX+57
C INJ~, INJ+4, INJ+5, INJ+6, INJ+8, INJ+9
D XITL!, XITC!
DA LEX1+8!, CLEX+10!
DD XITL!, XITC!
DIC LEX1+25*!, CLEX+36*!
DIC("A" LEX1+18*, CLEX+29*
DIC("S" LEX1+16*, LEX1+17*, LEX1+25*, CLEX+27*, CLEX+28*, CLEX+36*
DIC(0 LEX1+25*, CLEX+36*
DIPGM XITL!, XITC!
DIR LEX1+1!, LEX1+8!, EDITCAU1+5!, CLEX+2!, CLEX+10!
DIR("?" LEX1+6*, CLEX+7*
DIR("??" LEX1+7*, CLEX+8*
DIR("A" LEX1+5*, CLEX+6*
DIR("B" CLEX+9*
DIR(0 LEX1+5*, CLEX+6*
>> DIRUT LEX1+9, CLEX+13
DO LEX1+47!, XITL!, CLEX+58!, XITC!
DT LEX+8, LEX+13, EDITCAU1+9, EDITCAU1+14
LEX LEX1+12!, LEX1+21, CLEX+23!, CLEX+32
LEX("HLP" LEX1+22, CLEX+33
S INJ~, INJ+3
U LEX+10, LEX+11, LEX1+26, LEX1+45, LEX1+46, LEX1+50, ICDONE9+8, ICDONE99+8, ICDONE1+8, EDITCAU1+11
, EDITCAU1+12, CLEX+12, CLEX+37, CLEX+56, CLEX+57, CLEX+61
X LEX1+15*, LEX1+19, LEX1+20, LEX1+22*, LEX1+25*, XITL!, CLEX+11, CLEX+12, CLEX+26*, CLEX+30
, CLEX+31, CLEX+33*, CLEX+36*, XITC!
Y LEX1+10, LEX1+11, LEX1+26, LEX1+45*, LEX1+46*, LEX1+48, LEX1+49, XITL!, CLEX+14, CLEX+15
, CLEX+37, CLEX+56*, CLEX+57*, CLEX+59, CLEX+60, XITC!
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