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

Package: Patient Care Component

Routine: APCDEPOV


Information

APCDEPOV ; IHS/CMI/LAB - POV LOOKUP ; 01 Apr 2015 3:18 PM

Source Information

Source file <APCDEPOV.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA Fileman 5 EN^DDIOL  ^DIC  ^DIE  ^DIK  ^DIR  
Patient Care Component 4 GETANS^APCDAPOV  RLEX^APCDBPOV  CLEX^APCDCPOV  PLEX^APCDLPOV  
Lexicon Utility 3 LOOK^LEXA  CONFIG^LEXSET  ($$ICDONE,$$ONE)^LEXU  
IHS Patient 2 $$IMP^AUPNSICD  $$IMP^AUPNVUTL  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBNEW  
DRG Grouper 1 $$ICDDX^ICDEX  
Kernel 1 $$FMADD^XLFDT  
Patient Care Component Reports 1 $$DSCHDATE^APCLV  

Entry Points

Name Comments DBIA/ICR reference
ECOD ;
XITL
89 ;
NA ;
ECO21 ;
1 ;EDIT .01 FIELD OF V POV
EDIT011 ;
3 ;
2 ;DUAL CODING .24
4 ;PRESENT ON ADMISSION/PRIMARY/SECONDAY H VISITS ONLY
9 ;DUAL CODE .25
8 ;EP -.09 CAUSE 1
ECOD1 ;
POC ;EP
141 ;RFB
K ;
ECO31 ;
11 ;DUAL CODE .26
10 ;.18
13 ;DUAL CODE .27
12 ;.19
15 ;POC .21/.28
14 ;
17 ;
16 ;DUAL CODE .28
EDIT01 ;EP
ECO3 ;
ECO2 ;
LEX ;EP - called from input template
LEXN ;
DELETE ;

External References

Name Field # of Occurrence
GETANS^APCDAPOV LEX+40
RLEX^APCDBPOV 141+9
CLEX^APCDCPOV 8+7, 9+8, 10+8, 11+8, 12+8, 13+8
PLEX^APCDLPOV 15+8, 16+8
$$DSCHDATE^APCLV 1+6, ECOD1+5, ECO21+5, ECO31+5
$$IMP^AUPNSICD 1+12, 2+1, 8+5, 9+1, 10+5, 11+1, 12+5, 13+1, 141+5, 15+5
, 16+1, ECOD1+11, ECO21+11, ECO31+11
$$IMP^AUPNVUTL 2+6, 9+7, 11+6, 13+6, 16+6
EN^DDIOL NA+3
^DIC LEX+36
^DIE 1+19, 2+13, 3+9, NA+5, 4+3, 17+1, 8+11, 9+14, 10+12, 11+14
, 12+12, 13+14, 141+13, 15+12, 16+14, DELETE+13
^DIK DELETE+8
^DIR NA+1, LEX+10, DELETE+4, DELETE+10
$$ICDDX^ICDEX 3+8, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+60
LOOK^LEXA LEX+30, LEX+31
CONFIG^LEXSET LEX+4, LEX+5, LEX+24, LEX+25
$$ICDONE^LEXU LEX+56
$$ONE^LEXU LEX+57
$$VAL^XBDIQ1 3+6, 3+10, NA+1, LEX+9, LEX+16
EN^XBNEW EDIT01+1, ECOD+2, ECO2+2, ECO3+2
$$FMADD^XLFDT 2+6, 9+7, 11+6, 13+6, 16+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: !,"?? "
  • Line Location: 2+14
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 8+12
Function Call: WRITE
  • Prompt: !,"?? "
  • Line Location: 9+15
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 10+13
Function Call: WRITE
  • Prompt: !,"?? "
  • Line Location: 11+15
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 12+13
Function Call: WRITE
  • Prompt: !,"?? "
  • Line Location: 13+15
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 141+14
Function Call: WRITE
  • Prompt: !?5,"??"
  • Line Location: 15+13
Function Call: WRITE
  • Prompt: !,"?? "
  • Line Location: 16+15
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX+33
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+41
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+46
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+51
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+59
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+61
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ECOD1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ECO21+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ECO31+1
Routine Call
  • DIE
  • Line Location:
    • 1+19
    • 2+13
    • 3+9
    • NA+5
    • 4+3
    • 17+1
    • 8+11
    • 9+14
    • 10+12
    • 11+14
    • 12+12
    • 13+14
    • 141+13
    • 15+12
    • 16+14
    • DELETE+13
Routine Call
  • DIC
  • Line Location:
    • LEX+36
Routine Call
  • DIR
  • Line Location:
    • NA+1
    • LEX+10
    • DELETE+4
    • DELETE+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDSITE - [#9001001.2] 2+3, 9+3, 11+3, 13+3, 16+3
^AUPNVPOV - [#9000010.07] 3+5, 3+8
^AUPNVSIT - [#9000010] 1+5, 1+6, 1+7, ECOD1+4, ECOD1+5, ECOD1+6, ECO21+4, ECO21+5, ECO21+6, ECO31+4
, ECO31+5, ECO31+6
^TMP("LEXFND" LEX+23!
^TMP("LEXHIT" LEX+23!, LEX+56, LEX+57
^TMP("LEXSCH" LEX+3!, LEX+23!, LEX+58!

Label References

Name Line Occurrences
1 1+20
10 89+4, 10+13, ECO21+12
11 10+11, 11+15
12 89+6, 12+13, ECO31+12
13 12+11, 13+15
141 141+14
15 141+6, 141+12, 15+13
16 15+11, 16+15
2 1+18, 2+14
3 2+2, 2+3, 2+9, 2+11
4 3+5, 3+7
8 89+2, 8+12, ECOD1+12
9 8+10, 9+15
DELETE 1+15, 2+8, 8+8, 9+9, 10+9, 11+9, 12+9, 13+9, 141+11, 15+10
, 16+10
K 2+4, 3+4, 4+1, 89+1, 14+1, 8+1, 9+4, 10+1, 11+4, 12+1
, 13+4, 141+1, 15+1, 16+4
LEX 1+14, 2+7, LEX+32, LEX+41, LEX+46, LEX+51
LEXN LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+32, LEX+41, LEX+46, LEX+51
NA NA+3
POC 14+2, ECOD1+13
XITL LEX+11, LEX+12, LEX+13, LEX+16, LEX+59, LEX+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LEX+17*, LEX+18*, LEX+19*, LEX+20*, LEX+21*, LEX+22*, LEX+32, LEX+36*, LEX+37*, LEX+41
, LEX+44*, LEX+46, LEX+49*, LEX+51, LEX+54*, LEX+60*, LEX+61, LEXN+1
>> APCDANS LEX+39*
>> APCDD 1+3*, 1+6*, 1+7*, 1+8*, 1+9*, 1+10, 1+12, 2+1, 2+6*, 3+8
, 8+3*, 8+5, 9+1, 9+7*, 10+3*, 10+5, 11+1, 11+6*, 12+3*, 12+5
, 13+1, 13+6*, 141+3*, 141+5, 15+3*, 15+5, 16+1, 16+6*, LEX+4, LEX+5
, LEX+24, LEX+25, LEX+30, LEX+31, LEX+56, LEX+57, LEX+60, ECOD1+3*, ECOD1+5*, ECOD1+6*
, ECOD1+7*, ECOD1+8*, ECOD1+9, ECOD1+11, ECO21+3*, ECO21+5*, ECO21+6*, ECO21+7*, ECO21+8*, ECO21+9
, ECO21+11, ECO31+3*, ECO31+5*, ECO31+6*, ECO31+7*, ECO31+8*, ECO31+9, ECO31+11
>> APCDDATE 1+8, ECOD1+7, ECO21+7, ECO31+7
>> APCDHDAT 1+10*, 8+3, 10+3, 12+3, 141+3, 15+3, ECOD1+9*, ECO21+9*, ECO31+9*
>> APCDIAIE 1+4*
APCDIMP 1+12*, 2+1*, 2+2, 2+5*, 2+6*, K+2!, 8+5*, 8+6, 9+1*, 9+2
, 9+5*, 9+7*, 10+5*, 10+6, 11+1*, 11+2, 11+5*, 11+6*, 12+5*, 12+6
, 13+1*, 13+2, 13+5*, 13+6*, 141+5*, 141+6, 15+5*, 15+6, 16+1*, 16+2
, 16+5*, 16+6*, LEX+4, LEX+5, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+24
, LEX+25, LEX+27, LEX+28, LEX+30, LEX+31, LEX+56, LEX+57, ECOD1+11*, ECO21+11*, ECO31+11*
>> APCDOVRR EDIT011+2*
>> APCDTDA 1+19, 2+13, 3+5, 3+6, 3+8, 3+9, 3+10, NA+1, NA+5, 4+3
, 17+1, 8+11, 9+14, 10+12, 11+14, 12+12, 13+14, 141+13, 15+12, 16+14
, LEX+9, LEX+16, DELETE+8, DELETE+13
APCDTDEL 1+13*, 1+15, 1+16, 2+5*, 2+8, 2+9, K+2!, 8+6*, 8+8, 9+5*
, 9+9, 9+11, 10+6*, 10+9, 11+5*, 11+9, 11+10, 12+6*, 12+9, 13+5*
, 13+9, 13+10, 141+7*, 141+11, 15+6*, 15+10, 16+5*, 16+10, 16+11, LEX+2!
, LEX+11*, DELETE+1*, DELETE+7*
APCDTDIA 1+13*, 2+5*, K+2!, 8+6*, 9+5*, 10+6*, 11+5*, 12+6*, 13+5*, 141+7*
, 15+6*, 16+5*, LEX+6, LEX+29
>> APCDTERR LEX+59*, LEX+61*
APCDTFIE 1+13*, 2+5*, K+2!, 8+6*, 9+5*, 10+6*, 11+5*, 12+6*, 13+5*, 141+7*
, 15+6*, 16+5*, LEX+9, LEX+16, DELETE+2, DELETE+13
>> APCDTIMH 4+2*, 4+4
APCDTIN9 2+5*, K+2!, 9+5*, 11+5*, 13+5*, 16+5*, LEX+7, LEX+8, LEX+27
APCDTNPV 1+13*, 1+18, 1+19, 2+5*, 2+11, 2+13, K+2!, 8+6*, 8+10, 8+11
, 9+5*, 9+12, 9+14, 10+6*, 10+11, 10+12, 11+5*, 11+12, 11+14, 12+6*
, 12+11, 12+12, 13+5*, 13+12, 13+14, 141+7*, 141+12, 141+13, 15+6*, 15+11
, 15+12, 16+5*, 16+12, 16+14, LEX+59*, LEX+61*, LEXN+1*
>> APCDTNQ 3+8*, 3+9, NA+4*, NA+5
>> APCDTNQP LEXN+1*
APCDTPCC XITL!
>> APCDTSKI 1+17, 2+10, LEX+13*
>> APCDTTMP 3+7
APCDTUPH 89+3, 89+5, 89+7, 14+3, K+2!, 8+9, 9+6!, 9+10, 10+7!, 10+10
, 11+7!, 11+11, 12+7!, 12+10, 13+7!, 13+11, 141+8!, 141+10, 15+7!, 15+9
, 16+7!, 16+9
>> APCDUINP LEX+15*, LEX+16, LEX+18, LEX+19, LEX+20, LEX+21, LEX+22, LEX+26, LEX+36, LEXN+1
>> APCDVSIT 1+5, 1+6, 1+7, ECOD1+4, ECOD1+5, ECOD1+6, ECO21+4, ECO21+5, ECO21+6, ECO31+4
, ECO31+5, ECO31+6
>> APCDY LEX+41, LEX+46, LEX+51, LEX+56, LEX+57
D XITL!
DA EDIT011+1!, 1+19*!, 2+12!, 2+13*!, 3+9*!, NA+1!, NA+5*!, 4+3*!, 17+1*!, K+1!
, 8+11*!, 9+13!, 9+14*!, 10+12*!, 11+13!, 11+14*!, 12+12*!, 13+13!, 13+14*!, 141+13*!
, 15+12*!, 16+13!, 16+14*!, LEX+10!, DELETE+4!, DELETE+8*, DELETE+10!, DELETE+13*!
DD XITL!
DIC LEX+36*!
DIC("A" LEX+29*
DIC("S" LEX+27*, LEX+28*, LEX+36*
DIC(0 LEX+36*
DIE EDIT011+1!, 1+19*!, 2+12!, 2+13*!, 3+9*!, NA+5*!, 4+3*!, 17+1*!, K+1!, 8+11*!
, 9+13!, 9+14*!, 10+12*!, 11+13!, 11+14*!, 12+12*!, 13+13!, 13+14*!, 141+13*!, 15+12*!
, 16+13!, 16+14*!, DELETE+13*!
DIE("NO^" 3+9*
>> DIK DELETE+8*
DIPGM XITL!
DIR 1+2!, NA+1!, K+1!, 8+2!, 10+2!, 12+2!, 141+2!, 15+2!, LEX+2!, LEX+10!
, DELETE+3!, DELETE+4!, DELETE+9!, DELETE+10!, ECOD1+2!, ECO21+2!, ECO31+2!
DIR("?" LEX+7*
DIR("??" LEX+8*
DIR("A" NA+1*, LEX+6*, DELETE+4*, DELETE+10*
DIR("B" NA+1*, LEX+9*
DIR(0 NA+1*, LEX+6*, DELETE+4*, DELETE+10*
DIRUT NA+2, 141+2!, LEX+2!, LEX+13, DELETE+6, DELETE+12
DO LEX+58!, XITL!
DR EDIT011+1!, 1+19*!, 2+12!, 2+13*!, 3+9*!, NA+5*!, 4+3*!, 17+1*!, K+1!, 8+11*!
, 9+13!, 9+14*!, 10+12*!, 11+13!, 11+14*!, 12+12*!, 13+13!, 13+14*!, 141+13*!, 15+12*!
, 16+13!, 16+14*!, DELETE+13*!
DT 1+9, ECOD1+8, ECO21+8, ECO31+8
DUZ(2 2+3, 9+3, 11+3, 13+3, 16+3
LEX LEX+23!, LEX+32
LEX("HLP" LEX+33
U 1+6, 1+7, 2+3, 3+5, 3+8, 9+3, 11+3, 13+3, 16+3, LEX+37
, LEX+56, LEX+57, LEX+61, ECOD1+5, ECOD1+6, ECO21+5, ECO21+6, ECO31+5, ECO31+6
X NA+3, LEX+11, LEX+12, LEX+26*, LEX+30, LEX+31, LEX+33*, LEX+36*, XITL!
Y 1+20, 2+14, NA+4, 8+12, 9+15, 10+13, 11+15, 12+13, 13+15, 141+14
, 15+13, 16+15, LEX+15, LEX+37, LEX+56*, LEX+57*, LEX+59, LEX+60, XITL!, DELETE+5
, DELETE+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All