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

Package: Third Party Billing

Routine: ABMDE5D


Information

ABMDE5D ; IHS/ASDST/DMJ - Edit Page 5 - ICD PROCEDURE VIEW ;

Source Information

Source file <ABMDE5D.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Third Party Billing 6 ($$DX,$$ICDDX,$$ICDOP)^ABMCVAPI  (PAUSE,SUM)^ABMDE1  B^ABMDE5X  ^ABMDERR  $$SDT^ABMDUTL  ^ABMDWRAP  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMDE5  

Entry Points

Name Comments DBIA/ICR reference
HD2 ;
PX ;
XIT
LOOP2 ;LOOP 2
DISP2 ;EP - Entry Point to Display Dx Info
PROC ; ICD Procedure Info

External References

Name Field # of Occurrence
$$DX^ABMCVAPI PX+8
$$ICDDX^ABMCVAPI PX+7
$$ICDOP^ABMCVAPI PX+4, PX+13, PX+15
PAUSE^ABMDE1 DISP2+3, PX+5
SUM^ABMDE1 DISP2+4
B^ABMDE5X DISP2+2, LOOP2+21
^ABMDERR LOOP2+27
$$SDT^ABMDUTL PX+9
^ABMDWRAP PX+20
$$GET1^DIQ HD2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ICD Indicator for "_$$GET1^DIQ(9999999.18,ABMP("INS"),".01","E")_" : "
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: $S(ABMP("ICD10")>ABMP("VDT"):"ICD-9",1:"ICD-10"),!
  • Line Location: HD2+2
Function Call: WRITE
  • Prompt: !,"BIL",?4,"SERV",?16,"ICD"
  • Line Location: HD2+4
Function Call: WRITE
  • Prompt: !,"SEQ",?4,"DATE",?11,"IND",?16,"CODE -",?23,"PROCEDURE DESCRIPTION",?56,"PROVIDER'S NARRATIVE"
  • Line Location: HD2+6
Function Call: WRITE
  • Prompt: !,"===",?4,"=====",?11,"===",?16,"===================================",?52,"============================"
  • Line Location: HD2+8
Function Call: WRITE
  • Prompt: !,$J(ABM("I"),2),?4,"CHARGE DATE: ",$$SDT^ABMDUTL(ABM("Y"))
  • Line Location: PX+9
Function Call: WRITE
  • Prompt: !,?12,$S($P(ABM("X0"),U,6)=1:"10",1:"9")
  • Line Location: PX+10
Function Call: WRITE
  • Prompt: ?16,$P($$ICDOP^ABMCVAPI(ABM("ICD0IEN"),ABMP("VDT")),U,2)," -"
  • Line Location: PX+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] LOOP2+14, LOOP2+15, LOOP2+17, LOOP2+20!*, LOOP2+25, PX+1, PX+7
^ABMDPARM( PX+7
^AUTNPOV - [#9999999.27] PX+19
^ICD0 - [#80.1] PX+4

Label References

Name Line Occurrences
HD2 PROC+9, PX+5
LOOP2 PROC+9
PX LOOP2+25
XIT DISP2+3

Naked Globals

Name Field # of Occurrence
^( LOOP2+25
^(0 PX+7
^(1 PX+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM LOOP2+15*, LOOP2+16, LOOP2+17, LOOP2+23*, LOOP2+24*, LOOP2+25*
>> ABM("I" LOOP2+25*, PX+4, PX+9
>> ABM("ICD0IEN" PX+2*, PX+4, PX+13, PX+15
>> ABM("L" LOOP2+26*
>> ABM("X" LOOP2+25*, PX+1, PX+4, PX+7, PX+8
>> ABM("X0" PX+1*, PX+2, PX+4, PX+10, PX+19
>> ABM("Y" PX+7*, PX+9
ABME XIT!
ABME("CONT" LOOP2+27*!
ABME(0 LOOP2+27
>> ABMI LOOP2+14*, LOOP2+15
>> ABMICDI LOOP2+17*, LOOP2+18
>> ABMP("CDFN" LOOP2+14, LOOP2+15, LOOP2+17, LOOP2+20, LOOP2+25, PX+1, PX+7
>> ABMP("DDL" DISP2+3
>> ABMP("ICD10" PROC+3, HD2+2, LOOP2+18
>> ABMP("INS" HD2+1
>> ABMP("VDT" PROC+3, HD2+2, LOOP2+18, PX+4, PX+7, PX+8, PX+13, PX+15
>> ABMP("VISTDT" PROC+7
>> ABMU("2LM" PX+19*
>> ABMU("2RM" PX+19*
>> ABMU("2TAB" PX+19*
>> ABMU("2TXT" PX+19*
>> ABMU("LM" PX+17*
>> ABMU("RM" PX+17*
>> ABMU("TAB" PX+17*
>> ABMU("TXT" PX+7*, PX+8*, PX+15*
ABMZ DISP2+1!
ABMZ( PX+4*
ABMZ("DIC" PROC+1*
ABMZ("DICS" PROC+3*, PROC+4*
ABMZ("DR" PROC+7*
ABMZ("DR2" LOOP2+26*
ABMZ("ITEM" PROC+1*
ABMZ("LNUM" LOOP2+23*, LOOP2+26, PX+7*
ABMZ("NARR" PROC+8*
ABMZ("NUM" LOOP2+23*, LOOP2+25*
ABMZ("PG" DISP2+1*
ABMZ("SUB" PROC+1*, LOOP2+20
ABMZ("TITL" DISP2+1*
ABMZ("X" PROC+6*
ABMZ(1 LOOP2+23*
>> DIROUT DISP2+3, PX+5
>> DTOUT DISP2+3, PX+5
>> DUOUT DISP2+3, PX+5
DUZ(2 LOOP2+14, LOOP2+15, LOOP2+17, LOOP2+20, LOOP2+25, PX+1, PX+7
IOSL DISP2+3, PX+5
U PROC+8, LOOP2+17, PX+2, PX+4, PX+7, PX+8, PX+10, PX+13, PX+15, PX+19
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 |  Naked Globals |  Local Variables |  All