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

Package: Third Party Billing

Routine: ABMDE5B


Information

ABMDE5B ; IHS/ASDST/DMJ - PAGE 5B - PROCEDURE PART 2 ;

Source Information

Source file <ABMDE5B.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Third Party Billing 5 $$ICDOP^ABMCVAPI  SUM^ABMDE1  ^ABMDERR  $$SDT^ABMDUTL  ^ABMDWRAP  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
POV
V1 ; view
XIT

External References

Name Field # of Occurrence
$$ICDOP^ABMCVAPI POV+5, POV+8, POV+15
SUM^ABMDE1 ABMDE5B+10
^ABMDERR ABMDE5B+22
$$SDT^ABMDUTL POV+3
^ABMDWRAP POV+11, POV+24
$$GET1^DIQ POV+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?13,"***** PROCEDURE INFORMATION ENTERED THROUGH PCC *****"
  • Line Location: ABMDE5B+12
Function Call: WRITE
  • Prompt: !,"VISIT",?15,"ICD"
  • Line Location: ABMDE5B+14
Function Call: WRITE
  • Prompt: !,"DATE",?7,"PRI",?11,"IND",?15,"CODE - PROCEDURE DESCRIPTION",?50,"PROVIDER'S NARRATIVE"
  • Line Location: ABMDE5B+16
Function Call: WRITE
  • Prompt: !,"=====",?7,"===",?11,"===",?15,"===============================",?47,"================================="
  • Line Location: ABMDE5B+18
Function Call: WRITE
  • Prompt: *7,!," There are no PCC visits to view."
  • Line Location: ABMDE5B+20
Function Call: WRITE
  • Prompt: *7,!," There are no Procedures Coded in PCC to view."
  • Line Location: ABMDE5B+21
Function Call: WRITE
  • Prompt: !,$$SDT^ABMDUTL(+^AUPNVSIT(ABMA,0))
  • Line Location: POV+3
Function Call: WRITE
  • Prompt: !,?7,$S($P(ABMA(0),U,7)="Y":" P",1:" S")
  • Line Location: POV+4
Function Call: WRITE
  • Prompt: ?12,$J($S($P($$ICDOP^ABMCVAPI($P(ABMA(0),U),ABMP("VDT")),U,15)=31:"10",1:"9"),"2R")
  • Line Location: POV+5
Function Call: WRITE
  • Prompt: ?15,$P($$ICDOP^ABMCVAPI($P(ABMA(0),U),""),U,2)
  • Line Location: POV+8
Function Call: WRITE
  • Prompt: "*"
  • Line Location: POV+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000010.0826 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDCLM - [#9002274.3] ABMDE5B+19
^AUPNVPRC - [#9000010.08] POV, POV+14, POV+15, POV+16, POV+17, POV+25
^AUPNVPRC("AD" V1+1
^AUPNVSIT - [#9000010] POV+3
^AUTNPOV - [#9999999.27] POV+10

Label References

Name Line Occurrences
POV V1+1
V1 ABMDE5B+19
XIT ABMDE5B+23

Naked Globals

Name Field # of Occurrence
^(0 POV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABMA ABMDE5B+19*, V1+1, POV+3, XIT!
ABMA("C" ABMDE5B+11*, ABMDE5B+21, POV+2*
ABMA("D" ABMDE5B+11*
ABMA("I" ABMDE5B+19*, ABMDE5B+20
ABMA("J" V1+1*
ABMA("V" V1+1*, POV, POV+14, POV+15, POV+16, POV+17, POV+19, POV+25
ABMA("V1" POV+17*, POV+18, POV+19, POV+25
ABMA(0 POV*, POV+4, POV+5, POV+8, POV+10
>> ABMP("CDFN" ABMDE5B+19
>> ABMP("VDT" POV+5, POV+8, POV+15
ABMU POV+13!
ABMU("2LM" POV+10*
ABMU("2RM" POV+10*
ABMU("2TAB" POV+10*
ABMU("2TXT" POV+10*
ABMU("LM" POV+8*, POV+22*
ABMU("RM" POV+8*, POV+23*
ABMU("TAB" POV+8*
ABMU("TXT" POV+8*, POV+21*
>> ABMZ("PG" ABMDE5B+9*
>> ABMZ("TITL" ABMDE5B+10*
DUZ(2 ABMDE5B+19
>> IENS POV+19*, POV+21
U POV+4, POV+5, POV+8, POV+10, POV+14, POV+15
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