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

Package: Third Party Billing

Routine: ABMDE8B


Information

ABMDE8B ; IHS/ASDST/DMJ - Edit Page 8 - WORKSHEET SURG PROC ;

Source Information

Source file <ABMDE8B.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Third Party Billing 7 $$CPT^ABMCVAPI  (PAUSE,SUM)^ABMDE1  ^ABMDE8B1  (B,MODE)^ABMDE8X  ^ABMDERR  ($$GETREV,$$SDT)^ABMDUTL  ^ABMDWRAP  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EOP
ICD ;
MS1 ;
; If no data in surgical multiple, kill the x-ref that brought us here
TOTL
APRV
XIT
HD ;
MS ; Surgical Procedures
DISP2
LOOP

External References

Name Field # of Occurrence
$$CPT^ABMCVAPI ICD+3
PAUSE^ABMDE1 DISP2+1, EOP
SUM^ABMDE1 DISP2+2
^ABMDE8B1 MS+16
B^ABMDE8X MS+1
MODE^ABMDE8X MS+12
^ABMDERR XIT
$$GETREV^ABMDUTL EOP+19
$$SDT^ABMDUTL EOP+10, EOP+11
^ABMDWRAP EOP+31
$$GET1^DIQ EOP+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"BIL",?5,"SERV",?12,"REVN",?19,"CORR",?26,"CPT"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"SEQ",?5,"DATE",?12,"CODE",?19,"DIAG",?26,"CODE",?41,"PROVIDER'S NARRATIVE",?64,"UNITS",?72,"CHARGE"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"===",?5,"=====",?12,"====",?18,"======",?26,"===========================================",?71,"========"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?70,"=========",!?68,$J(("$"_$FN(ABM("TOTL"),",",2)),11)
  • Line Location: TOTL+0
Function Call: WRITE
  • Prompt: !,$J(ABM("I"),2)
  • Line Location: EOP+9
Function Call: WRITE
  • Prompt: ?5,"CHARGE DATE: ",$$SDT^ABMDUTL($P(ABM("X0"),U,5))
  • Line Location: EOP+10
Function Call: WRITE
  • Prompt: "-",$$SDT^ABMDUTL($P(ABM("X0"),U,19))
  • Line Location: EOP+11
Function Call: WRITE
  • Prompt: !,?12,$$GETREV^ABMDUTL($P(ABM("X0"),U,3))
  • Line Location: EOP+19
Function Call: WRITE
  • Prompt: ?18,$P(ABM("X0"),U,4)
  • Line Location: EOP+20
Function Call: WRITE
  • Prompt: ?26,$P(ABMZ(ABM("I")),U)
  • Line Location: EOP+21
Function Call: WRITE
  • Prompt: ABMZ("MOD")
  • Condition for execution: ABMZ("MOD")]""
  • Line Location: EOP+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9002274.3021 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] APRV+2, APRV+3, MS+4, MS+5, LOOP+1, MS1+2!, MS1+3, MS1+4, EOP+14, EOP+15
, EOP+16, EOP+18
^ABMDEXP - [#9002274.08] MS+13, MS+14
^VA(200 - [#200] APRV+3, EOP+13, EOP+18

Label References

Name Line Occurrences
HD MS+15, EOP
LOOP MS+15
MS APRV
MS1 LOOP+1
XIT DISP2+1, TOTL+1

Naked Globals

Name Field # of Occurrence
^(0 APRV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM LOOP*, LOOP+1*, MS1+2, EOP+14, EOP+15, EOP+16, EOP+18, XIT+1!
ABM("I" LOOP+1*, ICD+3, EOP+9, EOP+21
ABM("ICD" ICD+2*
ABM("ICD0" ICD+1!
ABM("L" LOOP+2*
ABM("LITMTOTAL" EOP+4*, EOP+5*, EOP+6*, EOP+7, EOP+8, EOP+32
ABM("M" EOP+2*, EOP+3
ABM("TOTL" MS+10*, TOTL, EOP+8*
ABM("X" LOOP+1*, MS1+2, MS1+3, MS1+4, ICD+3, EOP+23
ABM("X0" MS1+3*, MS1+5, ICD+3, EOP+3, EOP+4, EOP+5, EOP+6, EOP+10, EOP+11, EOP+12
, EOP+13, EOP+19, EOP+20, EOP+24, EOP+28
ABM("X1" MS1+4*, EOP+3
>> ABMDPRV MS+4*, MS+5*
>> ABME("CONT" XIT*!
>> ABME(0 XIT
ABMMODE XIT+1!
ABMMODE(2 MS+13, MS+14
>> ABMP("CDFN" APRV+2, APRV+3, MS+4, MS+5, LOOP+1, MS1+2, MS1+3, MS1+4, EOP+14, EOP+15
, EOP+16, EOP+18, EOP+23
>> ABMP("DDL" DISP2+1
>> ABMP("VDT" ICD+3
>> ABMP("VISTDT" MS+2, MS+3
>> ABMP("VTYP" MS+16
>> ABMP(638 APRV
>> ABMRPRV EOP+14*, EOP+15*, EOP+16*, EOP+17, EOP+18
ABMU EOP+7!
ABMU("2LM" EOP+29*
ABMU("2RM" EOP+30*
ABMU("2TXT" EOP+28*
ABMU("LM" EOP+25*
ABMU("RM" EOP+26*
ABMU("TAB" EOP+27*
ABMU("TXT" EOP+24*
ABMU(1 EOP+7*
ABMZ DISP2!
ABMZ( ICD+3*, EOP+21
ABMZ("CAT" MS+1*
ABMZ("CHRG" MS+7*
ABMZ("CONTRACT" APRV+3*
ABMZ("D" APRV+2*, APRV+3
ABMZ("DIAG" MS+14*
ABMZ("DIC" MS+9*
ABMZ("DR" MS+2*, MS+3*, MS+6*, MS+13*
ABMZ("DR2" LOOP+2*
ABMZ("ITEM" MS+8*
ABMZ("LNUM" LOOP*, LOOP+2, MS1+5*
ABMZ("MOD" LOOP+3*, EOP+1*, EOP+3*, EOP+5, EOP+21, EOP+25, EOP+27
ABMZ("NARR" MS+11*
ABMZ("NUM" LOOP*, LOOP+1*
ABMZ("PG" DISP2*
ABMZ("SUB" MS+1*
ABMZ("TITL" DISP2*
ABMZ("X" MS+10*
ABMZ(1 LOOP*
>> DIROUT DISP2+1
>> DTOUT DISP2+1
>> DUOUT DISP2+1
DUZ(2 APRV+2, APRV+3, MS+4, MS+5, LOOP+1, MS1+2, MS1+3, MS1+4, EOP+14, EOP+15
, EOP+16, EOP+18
I APRV+1~*, APRV+2
>> IENS EOP+23*, EOP+24
IOSL DISP2+1, EOP
U APRV+3, MS+5, MS+11, LOOP+3, MS1+5, ICD+3, EOP+3, EOP+7, EOP+10, EOP+11
, EOP+12, EOP+13, EOP+18, EOP+19, EOP+20, EOP+21, EOP+24, EOP+28
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