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

Package: Patient Care Component

Routine: APCDBPOV


Information

APCDBPOV ; IHS/CMI/LAB - POV LOOKUP ; 06 Oct 2015 1:21 PM

Source Information

Source file <APCDBPOV.m>

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDEPOV  

Entry Points

Name Comments DBIA/ICR reference
XITR
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
LEXR ;
XITL
RLEX ;EP - called from input template
START ;
EDITRFB1 ;
LEX ;EP - called from input template
LEXN ;
RI ;
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 LEX+27, RLEX+32
$$DSCHDATE^APCLV EDITRFB1+7
$$CHKRFB^AUPNSICD ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD RI+1
^DIR LEX+10, RLEX+9
$$ICDDX^ICDEX LEX+35, ICDONE9+6, ICDONE1+6, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21, RLEX+40
LOOK^LEXA LEX+21, LEX+22, RLEX+27
CONFIG^LEXSET LEX+5, LEX+6, LEX+15, LEX+16, RLEX+4, RLEX+23
$$ICDONE^LEXU LEX+31, ICDONE9+5, RLEX+36
$$ONE^LEXU LEX+32, ICDONE1+5, RLEX+37
$$VAL^XBDIQ1 RLEX+8, RLEX+15
EN^XBNEW START+1
$$DT^XLFDT ICDONE9+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX+24
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+28
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+29
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+30
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+34
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+36
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN+2
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: RLEX+29
Function Call: WRITE
  • Prompt: !
  • Line Location: RLEX+33
Function Call: WRITE
  • Prompt: !
  • Line Location: RLEX+34
Function Call: WRITE
  • Prompt: !
  • Line Location: RLEX+35
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: RLEX+39
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: RLEX+41
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXR+2
Routine Call
  • DIR
  • Line Location:
    • LEX+10
    • RLEX+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] EDITRFB1+6, EDITRFB1+7, EDITRFB1+8
^TMP("LEXFND" LEX+14!, RLEX+22!
^TMP("LEXHIT" LEX+14!, LEX+31, LEX+32, RLEX+22!, RLEX+36, RLEX+37
^TMP("LEXSCH" LEX+4!, LEX+14!, LEX+33!, RLEX+3!, RLEX+22!, RLEX+38!

Label References

Name Line Occurrences
LEX LEX+23, LEX+28, LEX+29, LEX+30
LEXR RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21
RLEX RLEX+28, RLEX+33, RLEX+34, RLEX+35
XITL LEX+1, LEX+11, LEX+12, LEX+34, LEX+36
XITR RLEX+10, RLEX+11, RLEX+12, RLEX+13, RLEX+15, RLEX+39, RLEX+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LEX+35*, LEX+36, LEXN+1, RLEX+16*, RLEX+17*, RLEX+18*, RLEX+19*, RLEX+20*, RLEX+21*, RLEX+40*
, RLEX+41, LEXR+1
ALEX ICDONE9~, ICDONE9+5*, ICDONE9+6, ICDONE1~, ICDONE1+5*, ICDONE1+6
ALEXICD ICDONE9+3~, ICDONE9+6*, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+6*, ICDONE1+7, ICDONE1+8
ALEXVDT ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+5, ICDONE1+6
APCDANS LEX+26*, EDITRFB1+11~, RLEX+31*
>> APCDD EDITRFB1+5*, EDITRFB1+7*, EDITRFB1+8*, EDITRFB1+9*, EDITRFB1+10*, RI+1, RLEX+4, RLEX+23, RLEX+27, RLEX+36
, RLEX+37, RLEX+40
>> APCDDATE LEX+5, LEX+6, LEX+15, LEX+16, LEX+21, LEX+22, LEX+31, LEX+32, LEX+35, EDITRFB1+9
>> APCDIAIE RLEX+10
APCDIMP LEX+2*, LEX+5, LEX+6, LEX+15, LEX+16, LEX+19, LEX+21, LEX+22, LEX+31, LEX+32
, LEX+35, EDITRFB1+11~, RI+1*, RI+2, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21, RLEX+23
, RLEX+25, RLEX+27, RLEX+36, RLEX+37
>> APCDINPE EDITRFB1+2*, EDITRFB1+4*
>> APCDT90 LEX+1, LEX+2
>> APCDTCLK LEX+11*, LEX+12*, LEX+34*, LEX+36*, LEXN+1*
>> APCDTDA RLEX+8, RLEX+15
APCDTDEL RLEX+2!, RLEX+10*
>> APCDTDIA EDITRFB1+1*, RLEX+5, RLEX+26
>> APCDTERR LEX+34*, LEX+36*, RLEX+39*, RLEX+41*
>> APCDTFIE RLEX+8, RLEX+15
>> APCDTNOG EDITRFB1+4*
>> APCDTNPV EDITRFB1+4*, RLEX+39*, RLEX+41*, LEXR+1*
>> APCDTNQP LEXN+1*
APCDTPCC XITL!, EDITRFB1+2*, EDITRFB1+4*, XITR!
>> APCDTSKI LEX+11*, LEX+12*, RLEX+12*
APCDTUPH RLEX+2!, RLEX+11*
>> APCDUINP LEX+13*, LEX+17, LEXN+1, RLEX+14*, RLEX+15, RLEX+17, RLEX+18, RLEX+19, RLEX+20, RLEX+21
, RLEX+24
>> APCDVSIT EDITRFB1+6, EDITRFB1+7, EDITRFB1+8
>> APCDY LEX+28, LEX+29, LEX+30, LEX+31, LEX+32, RLEX+33, RLEX+34, RLEX+35, RLEX+36, RLEX+37
D XITL!, XITR!
DA LEX+10!, RLEX+9!
DD XITL!, XITR!
>> DIC("A" RLEX+26*
>> DIC("S" LEX+19*, RLEX+25*
DIPGM XITL!, XITR!
DIR LEX+3!, LEX+10!, EDITRFB1+3!, RLEX+2!, RLEX+9!
DIR("?" LEX+8*, RLEX+6*
DIR("??" LEX+9*, RLEX+7*
DIR("A" LEX+7*, RLEX+5*
DIR("B" RLEX+8*
DIR(0 LEX+7*, RLEX+5*
>> DIRUT LEX+11, RLEX+12
DO LEX+33!, XITL!, RLEX+38!, XITR!
DT EDITRFB1+10
LEX LEX+14!, LEX+23, RLEX+22!, RLEX+28
LEX("HLP" LEX+24, RLEX+29
U LEX+31, LEX+32, LEX+36, ICDONE9+8, ICDONE1+8, EDITRFB1+7, EDITRFB1+8, RLEX+11, RLEX+36, RLEX+37
, RLEX+41
X LEX+17*, LEX+21, LEX+22, LEX+24*, XITL!, RLEX+10, RLEX+11, RLEX+24*, RLEX+27, RLEX+29*
, XITR!
Y LEX+12, LEX+13, LEX+31*, LEX+32*, LEX+34, LEX+35, XITL!, RLEX+13, RLEX+14, RLEX+36*
, RLEX+37*, RLEX+39, RLEX+40, XITR!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All