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

Package: Patient Care Component

Routine: APCDXPOV


Information

APCDXPOV ; IHS/CMI/LAB - POV LOOKUP ;

Source Information

Source file <APCDXPOV.m>

Call Graph

Call Graph Total: 13

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

Entry Points

Name Comments DBIA/ICR reference
EDIT01 ;EP
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
START1 ;EP
XITL
1 ;EDIT .12 OF V HOSP
START ;
LEX ;EP - called from input template
EDIT011 ;
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 LEX+39
$$CHK^AUPNSICA ICDONE9+8, ICDONE1+7
$$IMP^AUPNSICD I, 1+14
^DIC LEX+35
^DIE 1+18
^DIR LEX+11
$$ICDDX^ICDEX LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+59, ICDONE9+6, ICDONE1+5
LOOK^LEXA LEX+29, LEX+30
CONFIG^LEXSET LEX+4, LEX+5, LEX+16, LEX+17
$$ICDONE^LEXU LEX+55, ICDONE9+5
$$ONE^LEXU LEX+56, ICDONE1+4
$$VAL^XBDIQ1 LEX+10, LEX+15, 1+19
EN^XBNEW START+2, EDIT01+1
$$DT^XLFDT ICDONE9+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Admitting Diagnosis is Required."
  • Line Location: LEX+20
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX+32
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+40
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+45
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX+50
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+58
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX+60
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"Please Note: Admitting Diagnosis is Required.",!
  • Line Location: 1+13
Routine Call
  • DIE
  • Line Location:
    • 1+18
Routine Call
  • DIC
  • Line Location:
    • LEX+35
Routine Call
  • DIR
  • Line Location:
    • LEX+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] START1+5, START1+7, START1+9, START1+10, 1+4, 1+6, 1+8, 1+9
^TMP("LEXHIT" LEX+55, LEX+56
^TMP("LEXSCH" LEX+3!, LEX+57!

Label References

Name Line Occurrences
1 1+19
LEX LEX+20, LEX+31, LEX+40, LEX+45, LEX+50, 1+16
LEXN LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+31, LEX+40, LEX+45, LEX+50
XITL LEX+12, LEX+13, LEX+15, LEX+58, LEX+60

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START1+3~, LEX+19*, LEX+21*, LEX+22*, LEX+23*, LEX+24*, LEX+25*, LEX+31, LEX+35*, LEX+36*
, LEX+40, LEX+43*, LEX+45, LEX+48*, LEX+50, LEX+53*, LEX+59*, LEX+60, LEXN+1, ICDONE1+3~
ALEVXDT ICDONE1+3~
ALEX ICDONE9~, ICDONE9+5*, ICDONE9+6, ICDONE1~, ICDONE1+4*, ICDONE1+5
ALEXICD ICDONE9+3~, ICDONE9+6*, ICDONE9+7, ICDONE9+8, ICDONE1+3~, ICDONE1+5*, ICDONE1+6, ICDONE1+7
ALEXVDT ICDONE9~, ICDONE9+4*, ICDONE9+5, ICDONE9+6, ICDONE1~, ICDONE1+4, ICDONE1+5
>> APCDANS LEX+38*
>> APCDD START1+1*, START1+7*, START1+8*, START1+9, START1+10*, START1+11*, I, LEX+4, LEX+5, LEX+16
, LEX+17, LEX+29, LEX+30, LEX+55, LEX+56, LEX+59, 1+3*, 1+6*, 1+7*, 1+8
, 1+9*, 1+10*, 1+11, 1+14
>> APCDDATE START1+8, 1+7
>> APCDHDAT 1+11*
>> APCDIMP I*, LEX+4, LEX+5, LEX+16, LEX+17, LEX+21, LEX+22, LEX+23, LEX+24, LEX+25
, LEX+26, LEX+27, LEX+29, LEX+30, LEX+55, LEX+56, LEX+59, 1+14*
APCDINAD 1+15!
>> APCDINPE START1+1*
>> APCDLOOK START+1*, LEX+12*, LEX+13*, LEX+58*, LEX+60*, LEXN+1*, 1+15*, 1+18
>> APCDTDA LEX+10, LEX+15, 1+18, 1+19
>> APCDTDEL 1+15*
>> APCDTDIA LEX+6, LEX+28, 1+15*
>> APCDTERR LEX+58*, LEX+60*
>> APCDTFIE 1+15*
>> APCDTNQP START+1*, LEXN+1*
APCDTPCC START1+1*, XITL!
>> APCDTSKI LEX+12*, LEX+13*, 1+17
>> APCDUINP LEX+14*, LEX+15, LEX+18, LEX+21, LEX+22, LEX+23, LEX+24, LEX+25, LEX+35, LEXN+1
>> APCDVSIT START1+5, START1+7, 1+4, 1+6
>> APCDY LEX+40, LEX+45, LEX+50, LEX+55, LEX+56
>> BDGV START1+9, START1+10, 1+8, 1+9
D START1+3~, START1+4*, XITL!
DA LEX+9!, EDIT011+1!, 1+18*!
DD XITL!
DIC LEX+35*!
DIC("A" LEX+28*
DIC("S" LEX+26*, LEX+27*, LEX+35*
DIC(0 LEX+35*
DIE EDIT011+1!, 1+18*!
DIPGM XITL!
DIR LEX+2!, LEX+11!, 1+2!
DIR("?" LEX+7*
DIR("??" LEX+8*
DIR("A" LEX+6*
DIR("B" LEX+10*
DIR(0 LEX+6*
>> DIRUT LEX+12
DO LEX+57!, XITL!
DR EDIT011+1!, 1+18*!
DT START1+11, 1+10
>> LEX LEX+31
>> LEX("HLP" LEX+32
U START1+7, START1+10, LEX+36, LEX+55, LEX+56, LEX+60, ICDONE9+8, ICDONE1+7, 1+6, 1+9
X LEX+18*, LEX+20, LEX+29, LEX+30, LEX+32*, LEX+35*, XITL!
Y LEX+13, LEX+14, LEX+36, LEX+55*, LEX+56*, LEX+58, LEX+59, XITL!
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