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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBAGMR

Package: Integrated Billing

Routine: IBAGMR


Information

IBAGMR ;WOIFO/AAT-GMT SINGLE PATIENT REPORT;11-JUL-02

Source Information

Source file <IBAGMR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Integrated Billing 2 REPORT^IBAGMR1  ($$GMTEFD,$$ISGMTPT)^IBAGMT  
Registration 1 (DEM,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB GMT SINGLE PATIENT REPORT  

Entry Points

Name Comments DBIA/ICR reference
ASKDEV ; Ask about output device and print the report (or run task)
RUNTASK ; Start Taskman job
DATE
DATAGN ;Loop entry point
NOW()
ASKDT(IBPRMT,IBDFLT) ;Date input
ASKPAT()

External References

Name Field # of Occurrence
NOW^%DTC NOW+1
^%ZIS ASKDEV+3
HOME^%ZIS RUNTASK+8
^%ZISC ASKDEV+7
^%ZTLOAD RUNTASK+4
^DIC ASKPAT+1
^DIR ASKDT+5
REPORT^IBAGMR1 ASKDEV+6
$$GMTEFD^IBAGMT DATE+1
$$ISGMTPT^IBAGMT ASKPAT+2
DEM^VADPT IBAGMR+11
KVAR^VADPT IBAGMR+14
$$FMTE^XLFDT ASKDT+3, ASKDT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IBAGMR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+3
Function Call: WRITE
  • Prompt: !!,"This request has been queued. The task number is "_ZTSK_"."
  • Line Location: RUNTASK+5
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RUNTASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTASK+8
Function Call: WRITE
  • Prompt: !,"Ending date must follow start date!",!
  • Line Location: DATAGN+8
Function Call: WRITE
  • Prompt: " (",$$FMTE^XLFDT(Y),")"
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: !!,"*** WARNING! GMT Copayment Status is unknown for the patient!",!
  • Line Location: ASKPAT+3
Function Call: WRITE
  • Prompt: !!,"*** WARNING! The patient does not have GMT Copayment Status!",!
  • Line Location: ASKPAT+4
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+1
Routine Call
  • DIR
  • Line Location:
    • ASKDT+5
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+3
Routine Call
  • %ZIS
  • Line Location:
    • RUNTASK+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Label References

Name Line Occurrences
$$ASKDT DATAGN+3, DATAGN+6
$$ASKPAT IBAGMR+8
$$NOW DATE+1
ASKDEV IBAGMR+13
DATAGN DATAGN+8
DATE IBAGMR+12
RUNTASK ASKDEV+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%DT IBAGMR+6~, DATE~
%H NOW~
%I NOW~
%ZIS ASKDEV+1~, ASKDEV+2*
DFN IBAGMR+6~, IBAGMR+9*
DIC IBAGMR+6~, ASKPAT~, ASKPAT+1*
DIC(0 ASKPAT+1*
DIR ASKDT+1~
DIR("A" ASKDT+2*
DIR("B" ASKDT+3*
DIR(0 ASKDT+4*
DIROUT ASKDT+1~
DIRUT ASKDT+1~, ASKDT+5
DT ASKPAT+2
IBBDT IBAGMR+6~, IBAGMR+12, DATAGN+1*, DATAGN+3*, DATAGN+4, DATAGN+7*, DATAGN+8
IBDFLT ASKDT~, ASKDT+3
IBDFN IBAGMR+6~, IBAGMR+8*, IBAGMR+9
IBEDT IBAGMR+6~, DATAGN+1*, DATAGN+6*, DATAGN+7, DATAGN+8
IBGMTEFD DATE~, DATE+1*, DATAGN+3
IBGMTST ASKPAT~, ASKPAT+2*, ASKPAT+3, ASKPAT+4
IBNOW DATE~, DATE+1*, DATAGN+3, DATAGN+6
IBPRMT ASKDT~, ASKDT+2
IBQUIT IBAGMR+4~, IBAGMR+5*, IBAGMR+8*
IBVAR RUNTASK+1~, RUNTASK+3*
IO ASKDEV+6
IO("Q" ASKDEV+5, RUNTASK+7!
POP ASKDEV+1~, ASKDEV+3
VADM IBAGMR+10!
X IBAGMR+6~, NOW~, NOW+2, ASKDT+1~
Y IBAGMR+6~, DATE~, ASKDT+1~, ASKDT+6, ASKDT+7, ASKPAT~, ASKPAT+2, ASKPAT+3, ASKPAT+4, ASKPAT+5
Y0 ASKDT+1~
ZTDESC RUNTASK+1~, RUNTASK+2*
ZTRTN RUNTASK+1~, RUNTASK+2*
ZTSAVE RUNTASK+1~
ZTSAVE( RUNTASK+3*
ZTSK RUNTASK+1~, RUNTASK+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All