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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDE5

Package: Third Party Billing

Routine: ABMDE5


Information

ABMDE5 ; IHS/SD/SDR - Edit Page 5 - DIAGNOSIS ;

Source Information

Source file <ABMDE5.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Third Party Billing 8 ($$DX,$$ICDDX)^ABMCVAPI  (PAUSE,SUM)^ABMDE1  DISP2^ABMDE5D  A^ABMDE5X  RES^ABMDEMLA  SEL^ABMDEOPT  ^ABMDERR  ^ABMDWRAP  
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
OPT
DISP
DIAG ; Diagnosis Info
ECODE ;
XIT
HD ;
DX ;
LOOP ;
OPT2

External References

Name Field # of Occurrence
$$DX^ABMCVAPI DX+5, DX+6, DX+12, DX+19, DX+25, DX+41, DX+44, DX+48, DX+52
$$ICDDX^ABMCVAPI DX+19
PAUSE^ABMDE1 DISP+2, DX+2
SUM^ABMDE1 DISP+3
DISP2^ABMDE5D OPT2+1
A^ABMDE5X DISP+1, LOOP+14
RES^ABMDEMLA OPT+22
SEL^ABMDEOPT OPT+3, OPT2+3
^ABMDERR LOOP+19
^ABMDWRAP DX+42
^DIE ECODE+9
$$GET1^DIQ HD+2, DX+39
^DIR OPT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ICD INDICATOR: ICD-9",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"ICD Indicator for "_$$GET1^DIQ(9999999.18,ABMP("INS"),".01","E")_" : "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: $S(ABMP("ICD10")>ABMP("VDT"):"ICD-9",1:"ICD-10"),!
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"BIL",?7,"ICD"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"SEQ",?6," CODE ",?14,"IND"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?19,"Dx DESCRIPTION",?51,"PROVIDER'S NARRATIVE"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?20,"Dx DESCRIPTION",?50,"PROVIDER'S NARRATIVE"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"===",?5,"========",?14,"==="
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: ?13,"==========================",?40,"======================================="
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: ?18,"==========================",?45,"==================================="
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !,$J(ABM("I"),2),?5,$P($$DX^ABMCVAPI(+ABM("X"),ABMP("VDT")),U,2)
  • Line Location: DX+6
Function Call: WRITE
  • Prompt: ?15,$S(+$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),17,+ABM("X"),0)),U,6)=1:"10",1:"9")
  • Line Location: DX+8
Routine Call
  • DIE
  • Line Location:
    • ECODE+9
Routine Call
  • DIR
  • Line Location:
    • OPT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABMDCLM - [#9002274.3] Classic Fileman Calls
9002274.3017 GET1^DIQ
^AUTNINS - [#9999999.18] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13!*, LOOP+17, DX+1, DX+8, DX+51, DX+52
, ECODE+4, ECODE+5, ECODE+6, ECODE+7
^ABMDEXP - [#9002274.08] OPT+8
^ABMDPARM( HD+8, HD+15, DX+10, DX+14, DX+25, DX+26
^ICD9 - [#80] DX+14
^ICD9("BA" DX+41

Label References

Name Line Occurrences
@( OPT+21, OPT2+6
DISP OPT+1
DX LOOP+17
ECODE DX+12
HD DIAG+7, DX+2
LOOP DIAG+7
OPT OPT+23, OPT2+4
OPT2 OPT+19, OPT2+7
XIT OPT+3, OPT+4, OPT+7, OPT+8, OPT2+3, OPT2+4

Naked Globals

Name Field # of Occurrence
^( LOOP+17, DX+41
^(0 DX+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM OPT!, OPT2!, LOOP+8*, LOOP+9, LOOP+10, LOOP+16*, LOOP+17*, XIT!
ABM("CP" DX+20*, DX+21*, DX+22, DX+23
ABM("DO" OPT+21*, OPT2+6*
ABM("I" LOOP+17*, DX+5, DX+6
ABM("L" LOOP+18*
ABM("X" LOOP+17*, DX+1, DX+5, DX+6, DX+8, DX+12, DX+14, DX+19, DX+25, DX+38
, DX+51, DX+52, ECODE+4, ECODE+6, ECODE+7
ABM("X0" DX+1*, DX+5, DX+10, DX+39, DX+43, DX+44, DX+47, DX+48
>> ABMBFY OPT+10*, OPT+18
ABME OPT!, OPT2!, XIT!
ABME("CONT" LOOP+19*!
ABME(0 LOOP+19
>> ABMEFLG LOOP+1*, DX+12, ECODE+10*
>> ABMI LOOP+7*, LOOP+8
>> ABMICDI LOOP+10*, LOOP+11
>> ABMP("BTYP" HD+8, HD+15, DX+10, DX+26
>> ABMP("CDFN" OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13, LOOP+17, DX+1, DX+8, DX+38, DX+51
, DX+52, ECODE+3, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> ABMP("DDL" OPT2+3, DISP+2
>> ABMP("DFLT" OPT+3*
>> ABMP("ED" OPT+3!
>> ABMP("EXP" OPT+8, OPT+9
>> ABMP("ICD10" DIAG+4, HD+3, LOOP+11, DX+12, DX+47, DX+51
>> ABMP("INS" HD+2
>> ABMP("LDFN" HD+8, HD+15, DX+10, DX+26
>> ABMP("OPT" OPT+3*, OPT2+3*
>> ABMP("PAGE" OPT2+3
>> ABMP("PX" OPT+7
>> ABMP("QUIT" OPT2+3*
>> ABMP("VDT" DIAG+4, HD+3, LOOP+11, DX+5, DX+6, DX+12, DX+19, DX+25, DX+41, DX+44
, DX+47, DX+48, DX+51, DX+52
ABMU OPT!
ABMU("2LM" DX+30*, DX+36*
ABMU("2RM" DX+30*, DX+36*
ABMU("2TAB" DX+30*, DX+36*
ABMU("2TXT" DX+39*, DX+40*, DX+41*
ABMU("LM" DX+28*, DX+34*
ABMU("RM" DX+28*, DX+34*
ABMU("TAB" DX+28*, DX+34*
ABMU("TXT" DX+13*, DX+15*, DX+23*, DX+25*
>> ABMUTXT DX+13*, DX+19*
ABMZ OPT!, OPT2!, XIT!
ABMZ( DX+5*
ABMZ("DIC" DIAG+1*
ABMZ("DICS" DIAG+4*, DIAG+5*
ABMZ("DR" DIAG+1*
ABMZ("DR2" LOOP+18*
ABMZ("ITEM" DIAG+1*
ABMZ("LNUM" LOOP+2*, LOOP+18, DX+1*
ABMZ("NARR" DIAG+1*
ABMZ("NUM" OPT+3, OPT+9, LOOP+2*, LOOP+17*
ABMZ("PG" DISP*
ABMZ("SUB" DIAG+1*, LOOP+13
ABMZ("TITL" DISP*
ABMZ("X" DIAG+1*
ABMZ(1 LOOP+2*
ABMZCPTD DX+16!
ABMZCPTD( DX+21, DX+22, DX+23
DA ECODE+1~, ECODE+3*
DIE ECODE+1~, ECODE+2*
DIR OPT+16!
DIR("A" OPT+12*, OPT+13*
DIR("B" OPT+14*
DIR(0 OPT+11*
>> DIROUT OPT+4, OPT2+4, DISP+2, DX+2
>> DIRUT OPT+1, OPT2+1
DR ECODE+1~, ECODE+4*, ECODE+6*, ECODE+7*, ECODE+8
>> DTOUT OPT+1, OPT+4, OPT2+1, OPT2+4, DISP+2, DX+2
>> DUOUT OPT+1, OPT+4, OPT2+1, OPT2+4, DISP+2, DX+2
DUZ(2 OPT+7, LOOP+7, LOOP+8, LOOP+10, LOOP+13, LOOP+17, DX+1, DX+8, DX+14, DX+25
, DX+51, DX+52, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> IENS DX+38*, DX+39
IOSL DISP+2, DX+2
U OPT+8, DIAG+1, HD+8, HD+15, LOOP+10, DX+1, DX+5, DX+6, DX+8, DX+10
, DX+12, DX+14, DX+19, DX+25, DX+26, DX+39, DX+41, DX+43, DX+44, DX+47
, DX+48, DX+51, DX+52, ECODE+4, ECODE+5, ECODE+6, ECODE+7
>> Y OPT+3, OPT+7, OPT+8, OPT+9, OPT+10, OPT+17, OPT+18*, OPT+19, OPT+21, OPT2+3
, OPT2+4, OPT2+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All