Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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.

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
Info |  Source |  Entry Points |  Interaction Calls