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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBNCPDRB

Package: Integrated Billing

Routine: IBNCPDRB


Information

IBNCPDRB ;ALB/CFS - ROI EXPIRATION REPORT ;21-SEP-15

Source Information

Source file <IBNCPDRB.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
VA FileMan 1 ^DIR  

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 IBNCPDRA  

Entry Points

Name Comments DBIA/ICR reference
REPORT(RPTNAME,DATESEL,AIB,IBEXCEL) ;
; RPTNAME = Report name
; DATESEL = Earliest and Latest expiration dates selected by user (format: earliest^latest)
; AIB = "A" - User chose to display Active statuses only
; "I" - User chose to display on Inactive statuses only
; "B" - User chose to display Active and Inactive statuses
; IBEXCEL = 1 if the user requested to print in EXCEL format; 0 otherwise
EXCELHDR ;
; Print headers in EXCEL format.
HEADER ;
GETTMP ;
; Get the data from the scratch global.
EXCELN(PATNAME,DOD,EFFDATE,EXPDATE,STATUS,ADDED,USERNAME,INSNAME,DRUGNAME) ;
; Display data in EXCEL format
WRTDATA(PATNAME,DOD,EFFDATE,EXPDATE,STATUS,ADDED,USERNAME,INSNAME,DRUGNAME) ;
; Display the data to screen or to ListMan Queued report depending on user request.
PAUSE() ;
; Press RETURN to continue or '^' to exit.

External References

Name Field # of Occurrence
^DIR PAUSE+5
$$FMTE^XLFDT REPORT+9, REPORT+10, HEADER+7, GETTMP+12, GETTMP+13, GETTMP+15, GETTMP+19
$$NOW^XLFDT HEADER+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient name^Date of Death^Effective Date^Expiration Date^Status^Date Added^Entered By^Insurance Name^Drug Name"
  • Line Location: EXCELHDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,RPTNAME,?119,"Page: ",?126,IBPAGE
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Date Range: "_IBEDATE_" - "_IBLDATE,?101,"Run Date: "_NOW
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Status: ",$S(AIB="A":"Active ROIs",AIB="I":"Inactive ROIs",1:"All")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,?23,"Date of",?33,"Eff.",?44,"Exp.",?60,"Date"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Death",?33,"Date",?44,"Date",?55,"St",?60,"Added",?71,"Entered By"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?90,"Insurance Name",?110,"Drug Name"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,"***** NO DATA TO REPORT *****",!
  • Line Location: GETTMP+7
Function Call: WRITE
  • Prompt: !!,"*** END OF REPORT ***",!
  • Line Location: GETTMP+24
Function Call: WRITE
  • Prompt: !,PATNAME,"^",DOD,"^",EFFDATE,"^",EXPDATE,"^",STATUS,"^",ADDED,"^",USERNAME,"^",INSNAME,"^",DRUGNAME
  • Line Location: EXCELN+3
Function Call: WRITE
  • Prompt: !,$E(PATNAME,1,21),?23,DOD,?33,EFFDATE,?44,EXPDATE
  • Line Location: WRTDATA+2
Function Call: WRITE
  • Prompt: ?55,STATUS,?60,ADDED,?71,$E(USERNAME,1,16),?90,$E(INSNAME,1,17),?110,$E(DRUGNAME,1,22)
  • Line Location: WRTDATA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTDATA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBNCPDRA" GETTMP+5, GETTMP+8, GETTMP+9, GETTMP+10, GETTMP+11

Label References

Name Line Occurrences
$$PAUSE GETTMP+6, GETTMP+7, GETTMP+25, WRTDATA+5
EXCELHDR REPORT+12
EXCELN GETTMP+21
GETTMP REPORT+14
HEADER REPORT+13, WRTDATA+7
WRTDATA GETTMP+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDED GETTMP+2~, GETTMP+15*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+3
AIB REPORT~, HEADER+9
CRT REPORT+7~, REPORT+11*, GETTMP+6, GETTMP+25, WRTDATA+5
DASH HEADER+1~, HEADER+2*, HEADER+5*, HEADER+10, HEADER+14
DATA GETTMP+2~, GETTMP+11*, GETTMP+12, GETTMP+13, GETTMP+14, GETTMP+15, GETTMP+16, GETTMP+17, GETTMP+18
DATESEL REPORT~, REPORT+8*, REPORT+9, REPORT+10
DIR PAUSE+2~, PAUSE+5!
DIR(0 PAUSE+5*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+6
DOD GETTMP+2~, GETTMP+12*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+2
DRUGNAME GETTMP+2~, GETTMP+18*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+3
DTOUT PAUSE+2~
DUOUT PAUSE+2~
EFFDATE GETTMP+2~, GETTMP+13*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+2
EXPDATE GETTMP+2~, GETTMP+19*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+2
IBEDATE REPORT+7~, REPORT+9*, HEADER+8
IBEXCEL REPORT~, REPORT+12, REPORT+13, GETTMP+6, GETTMP+21, GETTMP+24, PAUSE+4
IBLDATE REPORT+7~, REPORT+10*, HEADER+8
IBPAGE REPORT+7~, HEADER+4*, HEADER+6
IBQ GETTMP+2~, GETTMP+4*, GETTMP+6*, GETTMP+7*, GETTMP+8, GETTMP+9, GETTMP+10, GETTMP+22, GETTMP+23, GETTMP+25*
, WRTDATA+5*, WRTDATA+6
INSNAME GETTMP+2~, GETTMP+17*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+3
IOF HEADER+3
IOSL WRTDATA+4
IOST REPORT+11
NOW HEADER+1~, HEADER+7*, HEADER+8
PATNAME GETTMP+2~, GETTMP+20*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+2
QUIT PAUSE+2~, PAUSE+3*, PAUSE+6*, PAUSE+7
RPTNAME REPORT~, REPORT+8*, HEADER+6
STATUS GETTMP+14*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+2*, EXCELN+3, WRTDATA~, WRTDATA+3
SUB1 GETTMP+2~, GETTMP+8*, GETTMP+9, GETTMP+10, GETTMP+11, GETTMP+19
SUB2 GETTMP+2~, GETTMP+9*, GETTMP+10, GETTMP+11, GETTMP+20
SUB3 GETTMP+2~, GETTMP+10*, GETTMP+11
U REPORT+9, REPORT+10, GETTMP+12, GETTMP+13, GETTMP+14, GETTMP+15, GETTMP+16, GETTMP+17, GETTMP+18
USERNAME GETTMP+3~, GETTMP+16*, GETTMP+21, GETTMP+22, EXCELN~, EXCELN+3, WRTDATA~, WRTDATA+3
X PAUSE+2~
Y PAUSE+2~
>> ZTQUEUED GETTMP+6, GETTMP+25, WRTDATA+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All