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

Package: Patient Care Component

Routine: APCDLPOV


Information

APCDLPOV ; IHS/CMI/LAB - POV LOOKUP ; 01 Apr 2015 3:19 PM

Source Information

Source file <APCDLPOV.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Patient 3 $$CHKPL91^AUPNSIC9  ($$CHKPL,$$IMP)^AUPNSICD  $$IMP^AUPNVUTL  
Lexicon Utility 3 LOOK^LEXA  CONFIG^LEXSET  ($$ICDONE,$$ONE)^LEXU  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
DRG Grouper 1 ($$ICDDX,$$IMP)^ICDEX  
Kernel 1 ($$DT,$$FMADD)^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
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
LEXP ;
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 ;
EDITPLA1 ;
XITL
PLEX ;EP - called from input template
START ;
XITP
PI ;
EDITPLA ;EP
LEX ;EP - called from input template
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+25, PLEX+36
$$DSCHDATE^APCLV LEX+7, EDITPLA1+10
$$CHKPL91^AUPNSIC9 ICDONE99+8
$$CHKPL^AUPNSICD ICDONE9+8, ICDONE1+8
$$IMP^AUPNSICD I+1, PI+1
$$IMP^AUPNVUTL EDITPLA1+6
^DIR LEX1+8, PLEX+10
$$ICDDX^ICDEX LEX1+33, ICDONE9+6, ICDONE99+6, ICDONE1+6, PLEX+18, PLEX+19, PLEX+20, PLEX+21, PLEX+22, PLEX+44
$$IMP^ICDEX LEX+3
LOOK^LEXA LEX1+19, LEX1+20, PLEX+30, PLEX+31
CONFIG^LEXSET LEX1+3, LEX1+4, LEX1+13, LEX1+14, PLEX+4, PLEX+5, PLEX+24, PLEX+25
$$ICDONE^LEXU LEX1+29, ICDONE9+5, ICDONE99+5, PLEX+40
$$ONE^LEXU LEX1+30, ICDONE1+5, PLEX+41
$$VAL^XBDIQ1 PLEX+9, PLEX+16
EN^XBNEW START+1, EDITPLA+1
$$DT^XLFDT ICDONE9+4, ICDONE99+4
$$FMADD^XLFDT LEX+3, EDITPLA1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+27
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+28
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+32
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN+2
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: PLEX+33
Function Call: WRITE
  • Prompt: !
  • Line Location: PLEX+37
Function Call: WRITE
  • Prompt: !
  • Line Location: PLEX+38
Function Call: WRITE
  • Prompt: !
  • Line Location: PLEX+39
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: PLEX+43
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: PLEX+45
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXP+2
Routine Call
  • DIR
  • Line Location:
    • LEX1+8
    • PLEX+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] LEX+6, LEX+7, LEX+8, EDITPLA1+9, EDITPLA1+10, EDITPLA1+11
^TMP("LEXFND" LEX1+12!, PLEX+23!
^TMP("LEXHIT" LEX1+12!, LEX1+29, LEX1+30, PLEX+23!, PLEX+40, PLEX+41
^TMP("LEXSCH" LEX1+2!, LEX1+12!, LEX1+31!, PLEX+3!, PLEX+23!, PLEX+42!

Label References

Name Line Occurrences
I LEX+5
LEX LEX1+21, LEX1+26, LEX1+27, LEX1+28
LEX1 LEX+3
LEXP PLEX+18, PLEX+19, PLEX+20, PLEX+21, PLEX+22
PI EDITPLA1+8
PLEX EDITPLA1+6, PLEX+32, PLEX+37, PLEX+38, PLEX+39
XITL LEX1+9, LEX1+10, LEX1+32, LEX1+34
XITP PLEX+11, PLEX+12, PLEX+13, PLEX+14, PLEX+16, PLEX+43, PLEX+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LEX1+33*, LEX1+34, LEXN+1, PLEX+17*, PLEX+18*, PLEX+19*, PLEX+20*, PLEX+21*, PLEX+22*, PLEX+44*
, PLEX+45, LEXP+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+11~, LEX1+24*, EDITPLA1+14~, PLEX+35*
>> APCDD LEX+3*, LEX+4*, LEX+5*, LEX+7*, LEX+8*, LEX+9*, LEX+10*, I+1, LEX1+3, LEX1+4
, LEX1+13, LEX1+14, LEX1+19, LEX1+20, LEX1+29, LEX1+30, EDITPLA1+6*, EDITPLA1+7*, EDITPLA1+8*, EDITPLA1+10*
, EDITPLA1+11*, EDITPLA1+12*, EDITPLA1+13*, PI+1, PLEX+4, PLEX+5, PLEX+24, PLEX+25, PLEX+30, PLEX+31
, PLEX+40, PLEX+41, PLEX+44
>> APCDDATE LEX+5, LEX+9, LEX1+33, EDITPLA1+8, EDITPLA1+12
>> APCDIAIE PLEX+11
APCDIMP LEX+3*, LEX+11~, I+1*, LEX1+3, LEX1+4, LEX1+13, LEX1+14, LEX1+16, LEX1+17, LEX1+19
, LEX1+20, LEX1+29, LEX1+30, LEX1+33, EDITPLA1+6*, EDITPLA1+14~, PI+1*, PLEX+4, PLEX+5, PLEX+18
, PLEX+19, PLEX+20, PLEX+21, PLEX+22, PLEX+24, PLEX+25, PLEX+27, PLEX+28, PLEX+30, PLEX+31
, PLEX+40, PLEX+41, PLEX+44
>> APCDINAD LEX+5, EDITPLA1+8
>> APCDINPE LEX+1*, EDITPLA1+3*, EDITPLA1+5*
>> APCDLOOK LEX1+9*, LEX1+10*
>> APCDT90 LEX1+5, EDITPLA1+1
>> APCDTCLK LEX1+32*, LEX1+34*, LEXN+1*
>> APCDTDA PLEX+9, PLEX+16
APCDTDEL PLEX+2!, PLEX+11*
>> APCDTDIA LEX1+18, EDITPLA1+1*, EDITPLA1+2*, PLEX+6, PLEX+29
>> APCDTERR LEX1+32*, LEX1+34*, PLEX+43*, PLEX+45*
>> APCDTFIE PLEX+9, PLEX+16
>> APCDTIN9 LEX+3, LEX1+5, LEX1+6, LEX1+7, LEX1+16, EDITPLA1+1, EDITPLA1+6, PLEX+7, PLEX+8, PLEX+27
>> APCDTNOG EDITPLA1+5*
>> APCDTNPV EDITPLA1+5*, PLEX+43*, PLEX+45*, LEXP+1*
APCDTPCC LEX+1*, XITL!, EDITPLA1+3*, EDITPLA1+5*, XITP!
>> APCDTSKI LEX1+9*, LEX1+10*, PLEX+13*
>> APCDTUPH PLEX+12*
>> APCDUINP LEX1+11*, LEX1+15, PLEX+15*, PLEX+16, PLEX+18, PLEX+19, PLEX+20, PLEX+21, PLEX+22, PLEX+26
>> APCDVSIT LEX+6, LEX+7, LEX+8, EDITPLA1+9, EDITPLA1+10, EDITPLA1+11
>> APCDY LEX1+26, LEX1+27, LEX1+28, LEX1+29, LEX1+30, PLEX+37, PLEX+38, PLEX+39, PLEX+40, PLEX+41
D XITL!, XITP!
DA LEX1+8!, PLEX+10!
DD XITL!, XITP!
>> DIC("A" LEX1+18*, PLEX+29*
>> DIC("S" LEX1+16*, LEX1+17*, PLEX+27*, PLEX+28*
DIPGM XITL!, XITP!
DIR LEX1+1!, LEX1+8!, EDITPLA1+4!, PLEX+2!, PLEX+10!
DIR("?" LEX1+6*, PLEX+7*
DIR("??" LEX1+7*, PLEX+8*
DIR("A" LEX1+5*, PLEX+6*
DIR("B" PLEX+9*
DIR(0 LEX1+5*, PLEX+6*
>> DIRUT LEX1+9, PLEX+13
DO LEX1+31!, XITL!, PLEX+42!, XITP!
DT LEX+5, LEX+10, EDITPLA1+8, EDITPLA1+13
LEX LEX1+12!, LEX1+21, PLEX+23!, PLEX+32
LEX("HLP" LEX1+22, PLEX+33
U LEX+7, LEX+8, LEX1+29, LEX1+30, LEX1+34, ICDONE9+8, ICDONE99+8, ICDONE1+8, EDITPLA1+10, EDITPLA1+11
, PLEX+12, PLEX+40, PLEX+41, PLEX+45
X LEX1+15*, LEX1+19, LEX1+20, LEX1+22*, XITL!, PLEX+11, PLEX+12, PLEX+26*, PLEX+30, PLEX+31
, PLEX+33*, XITP!
Y LEX1+10, LEX1+11, LEX1+29*, LEX1+30*, LEX1+32, LEX1+33, XITL!, PLEX+14, PLEX+15, PLEX+40*
, PLEX+41*, PLEX+43, PLEX+44, XITP!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All