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

Package: Third Party Billing

Routine: ABMDRPCC


Information

ABMDRPCC ; IHS/ASDST/DMJ - View PCC Visit ;

Source Information

Source file <ABMDRPCC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 ^DIC  EN^DIQ1  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
Patient Care Component 1 ^APCDVDSP  
Third Party Billing 1 $$EN^ABMVDF  

Entry Points

Name Comments DBIA/ICR reference
HDR ;HEADER
DEV ;ASK FOR DEVICE
START ;START HERE
TM ;TASKMAN COME HERE
QUE ;QUE TO TASKMAN
LOOP ;LOOP HERE

External References

Name Field # of Occurrence
^%ZIS DEV+1, DEV+3
HOME^%ZIS DEV+2
^%ZTLOAD QUE+3
$$EN^ABMVDF TM+2, HDR+3
^APCDVDSP TM+1
^DIC START+4
EN^DIQ1 LOOP+6
^DIR LOOP+13, LOOP+17, LOOP+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"No PCC Visits Found for This Patient.",!
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: TM+2
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF"),!,"PATIENT: ",ABM("PNM"),?40,"SSN: ",ABM("SSN")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?9,"VISIT DATE/TIME",?30,"VISIT LOCATION",?50,"SERVICE CATEGORY",!,ABM("EQ"),!
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • START+4
Routine Call
  • DIR
  • Line Location:
    • LOOP+13
    • LOOP+17
    • LOOP+19
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVSIT - [#9000010] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] LOOP+3
^AUPNVSIT("AA" LOOP+1, LOOP+2
^DPT - [#2] START+5

Label References

Name Line Occurrences
HDR START+7, LOOP+16
QUE DEV+2

Naked Globals

Name Field # of Occurrence
^(0 START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
ABM LOOP+17!, LOOP+18!, LOOP+19!, LOOP+22!
ABM("EQ" START+7*, HDR+4
ABM("I" START+7*, LOOP+4*, LOOP+7, LOOP+12, LOOP+13, LOOP+19, HDR+2
ABM("PNM" START+5*, HDR+3
ABM("PST" LOOP+13, LOOP+19, HDR+2*
ABM("QUIT" LOOP+1, LOOP+2, LOOP+14*, LOOP+15*, LOOP+18
ABM("SSN" START+5*, START+6*, HDR+3
ABM("VDFN" LOOP+2*, LOOP+3, LOOP+4, LOOP+6
ABM("VDT" LOOP+1*, LOOP+2
ABM(9000010 LOOP+5!, LOOP+8, LOOP+9, LOOP+10, LOOP+11
ABMN LOOP+17, LOOP+22!, HDR+1!
ABMN( LOOP+4*, LOOP+14, LOOP+21
APCDPAT START+4*, START+5, LOOP+1, LOOP+2, TM+3!
APCDVDSP START+1!, LOOP+14*, LOOP+18, LOOP+19, LOOP+21*, TM+3!
>> AUPNLK("ALL" START+3*
>> DA LOOP+6*, LOOP+8, LOOP+9, LOOP+10, LOOP+11
>> DIC START+4*, LOOP+6*
>> DIC(0 START+4*
DIQ LOOP+6*!
DIQ(0 LOOP+6*
DIR LOOP+13!, LOOP+17!, LOOP+19!
DIR(0 LOOP+13*, LOOP+17*, LOOP+19*
>> DIROUT LOOP+20
>> DIRUT LOOP+20
>> DR LOOP+6*
>> DTOUT LOOP+20
>> DUOUT LOOP+20
IO DEV+2
IO("S" DEV+3
IO(0 DEV+2
ION DEV+3
>> IOP DEV+3*
IOSL LOOP+12
IOST TM+2
>> POP DEV+1
U START+5
>> X LOOP+14, LOOP+20, LOOP+21
>> Y START+4, LOOP+15, LOOP+19
>> ZTDESC QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE("APCDPAT" QUE+2*
>> ZTSAVE("APCDVDSP" QUE+2*
ZTSK QUE+3!
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