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

Package: Patient Care Component

Routine: APCDAOP


Information

APCDAOP ; IHS/CMI/LAB - PROMPT FOR PROCEDURE ;

Source Information

Source file <APCDAOP.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lexicon Utility 3 LOOK^LEXA  CONFIG^LEXSET  $$P10ONE^LEXU  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Patient Care Component 2 START1^APCDAOP  (GETANS,START1)^APCDAPOV  
DRG Grouper 1 ($$ICDOP,$$IMP)^ICDEX  
IHS Patient 1 ($$CHKOP,$$IMPOP)^AUPNSICD  
IHS VA Utilities 1 EN^XBNEW  
Kernel 1 ($$DT,$$FMADD)^XLFDT  
Patient Care Component Reports 1 ($$DSCHDATE,$$VD)^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDAOP  

Entry Points

Name Comments DBIA/ICR reference
LEX1 ;EP - called from input template
DUAL(APCDDDA,APCDDVS,APCDDDF,APCDDDFE,APCDDDL,APCDDDS) ;EP - CALLED FROM INPUT TEMPLATES
I
LEXN1 ;
START1 ;EP
N
ENDUAL ;
START ;
XIT
XITL1
TEST ;
ICDONE(ALEX,ALEXVDT) ;EP - Return one ICD code for an expression
; LEX IEN of file 757.01
; LEXVDT Date to use for screening by codes
CPT ;EP

External References

Name Field # of Occurrence
START1^APCDAOP ENDUAL+7
GETANS^APCDAPOV LEX1+33
START1^APCDAPOV ENDUAL+8
$$DSCHDATE^APCLV START1+10
$$VD^APCLV ENDUAL+5
$$CHKOP^AUPNSICD ICDONE+8
$$IMPOP^AUPNSICD I
^DIC N+15, CPT+2
^DIE ENDUAL+9
^DIR N+5, LEX1+10, ENDUAL+11
$$ICDOP^ICDEX ICDONE+6, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+42
$$IMP^ICDEX START1+8
LOOK^LEXA LEX1+28, TEST+3
CONFIG^LEXSET LEX1+6, LEX1+22, TEST+2
$$P10ONE^LEXU ICDONE+5, LEX1+38
EN^XBNEW START+2, DUAL+1
$$DT^XLFDT ICDONE+4
$$FMADD^XLFDT START1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Code not selected."
  • Line Location: N+17
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"No ICD Operation Match for that code - notify supervisor.",!
  • Line Location: CPT+7
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"No ICD Operation Match for that code - notify supervisor.",!
  • Line Location: CPT+9
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The ICD Operation code this CPT maps to is INACTIVE (",$P(^ICD0(APCDLOOK,0),U),") - cannot use!",!
  • Line Location: CPT+10
Function Call: WRITE
  • Prompt: !,LEX("HLP",X)
  • Line Location: LEX1+30
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+34
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+35
Function Call: WRITE
  • Prompt: !
  • Line Location: LEX1+36
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+41
Function Call: WRITE
  • Prompt: !!,"lexicon isn't passing back an ICD code."
  • Line Location: LEX1+43
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DUAL+3
Function Call: WRITE
  • Prompt: !!,"For dual coding."
  • Line Location: ENDUAL+2
Function Call: WRITE
  • Prompt: !!,"You did not enter an ICD-9 code.",!
  • Line Location: ENDUAL+10
Routine Call
  • DIE
  • Line Location:
    • ENDUAL+9
Routine Call
  • DIC
  • Line Location:
    • N+15
    • CPT+2
Routine Call
  • DIR
  • Line Location:
    • N+5
    • LEX1+10
    • ENDUAL+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD0 - [#80.1] Classic Fileman Calls
^ICPT - [#81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] START1+4, START1+9, START1+10, START1+11
^DD(9000010.08 N+12, N+13, CPT+2
^ICD0 - [#80.1] CPT+10
^ICPT - [#81] CPT+7, CPT+8
^TMP("LEXFND" LEX1+4!, LEX1+20!, LEX1+40!
^TMP("LEXHIT" LEX1+4!, LEX1+20!, LEX1+38, LEX1+40!
^TMP("LEXSCH" LEX1+4!, LEX1+20!, LEX1+39!, LEX1+40!, TEST+1!

Label References

Name Line Occurrences
CPT START1+14
ENDUAL ENDUAL+14
LEX1 LEX1+29, LEX1+34, LEX1+35, LEX1+36
LEXN1 LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19
N START1+8, N+18, N+19
XIT N+6, N+7, N+16, N+17, CPT+3, CPT+4, CPT+5, CPT+7, CPT+9, CPT+10
, CPT+12
XITL1 LEX1+11, LEX1+12, LEX1+41, LEX1+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START1+6~, LEX1+14*, LEX1+15*, LEX1+16*, LEX1+17*, LEX1+18*, LEX1+19*, LEX1+42*, LEX1+43, LEXN1+1
ALEX ICDONE~, ICDONE+5*, ICDONE+6
ALEXICD ICDONE+3~, ICDONE+6*, ICDONE+7, ICDONE+8
ALEXVDT ICDONE~, ICDONE+4*, ICDONE+5, ICDONE+6
>> APCDANS LEX1+32*
>> APCDCAT START1+3*, START1+4*, START1+5*, START1+14
>> APCDCPT CPT+6*, CPT+7*, CPT+9*, CPT+10*
APCDD START1+6~, START1+7*, START1+8*, START1+10*, START1+11*, START1+12*, START1+13*, I, LEX1+6, LEX1+15
, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+22, LEX1+28, LEX1+38, LEX1+42
>> APCDDATE START1+12, ENDUAL+5*
APCDDDA DUAL~, DUAL+2!, ENDUAL+9
APCDDDF DUAL~, ENDUAL+9
APCDDDFE DUAL~, ENDUAL+9
APCDDDL DUAL~, ENDUAL+3
APCDDDS DUAL~, ENDUAL+7, ENDUAL+8
APCDDVS DUAL~, ENDUAL+4, ENDUAL+5
>> APCDIMP START1+8*, I*, N+4, LEX1+6, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19, LEX1+22
, LEX1+28, LEX1+38, LEX1+42
>> APCDINPE START1+1*
>> APCDLOOK START+1*, START1+2*, N+2*, N+6*, N+7*, N+17*, N+18*, N+19*, N+20*, CPT+4*
, CPT+5*, CPT+7*, CPT+8*, CPT+9*, CPT+10*, CPT+11*, LEX1+11*, LEX1+12*, LEX1+41*, LEX1+43*
, LEXN1+1*, ENDUAL+9
>> APCDPARM START1+14
>> APCDTDIA N+3, LEX1+7, ENDUAL+3*
APCDTERR START1+2!, N+2!, N+17*, N+19*, CPT+5*, CPT+7*, CPT+9*, CPT+10*, LEX1+41*, LEX1+43*
>> APCDTIN9 START1+8, N+12, N+13, LEX1+8, LEX1+9, ENDUAL+1*
>> APCDTNQP START+1*, N+10*, N+20*, LEXN1+1*
APCDTPCC START1+1*, XIT!, CPT+1*, XITL1!
APCDTSKI START1+2!, N+2!, N+6*, N+7*, N+18*, CPT+4*, LEX1+11*, LEX1+12*
>> APCDUINP START1+1*, N+8*, N+11, N+20, LEX1+13*, LEX1+15, LEX1+16, LEX1+17, LEX1+18, LEX1+19
, LEX1+23, LEXN1+1
>> APCDVSIT START1+4, START1+9, START1+10, START1+11, ENDUAL+4*
>> APCDY LEX1+34, LEX1+35, LEX1+36, LEX1+38
D XIT!, XITL1!
DA N+5!, LEX1+10!, ENDUAL+9*!, ENDUAL+11!
DD XIT!, XITL1!
DIC N+9!, N+14*, N+15!, CPT+2*!
DIC("A" N+14*, CPT+2*, LEX1+26*
DIC("W" N+14*
DIC(0 N+14*, CPT+2*
DIE ENDUAL+9*!
DIPGM XIT!, XITL1!
DIR N!, N+5!, LEX1+2!, LEX1+10!, ENDUAL+11!
DIR("?" N+4*, LEX1+8*
DIR("??" LEX1+9*
DIR("A" N+3*, LEX1+7*, ENDUAL+11*
DIR("B" ENDUAL+11*
DIR(0 N+3*, LEX1+7*, ENDUAL+11*
>> DIRUT N+6, LEX1+11, ENDUAL+13
DO XIT!, LEX1+39!, XITL1!
DR ENDUAL+9*!
DT START1+13, TEST+2, TEST+3
LEX LEX1+3*, LEX1+4!, LEX1+20!, LEX1+29, LEX1+40!
LEX("HLP" LEX1+30
U START1+4, START1+10, START1+11, START1+14, N+17, N+18, N+19, CPT+10, ICDONE+8, LEX1+38
, LEX1+43
X N+11*, N+17, N+18, XIT!, CPT+4, LEX1+23*, LEX1+28, LEX1+30*, XITL1!
Y N+7, N+8, N+16, N+17, N+18, N+19, N+20, XIT!, CPT+3, CPT+4
, CPT+5, CPT+6, CPT+7, CPT+8, LEX1+12, LEX1+13, LEX1+38*, LEX1+41, LEX1+42, XITL1!
, ENDUAL+12
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