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

Package: Integrated Billing

Routine: IBNCPDRA


Information

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

Source Information

Source file <IBNCPDRA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZISC  EN^XUTMDEVQ  
Integrated Billing 1 REPORT^IBNCPDRB  
Pharmacy Data Management 1 DATA^PSS50  
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 IBCNR ROI EXPIRATION REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE() ; Beginning expiration date and ending expiration date selection prompts.
SELAIB() ; (A)ctive, (I)nactive or (B)oth selection prompt.
EXCEL() ; Export the report to MS Excel?
; Function return values:
; 0 - User selected "No" at prompt.
; 1 - User selected "Yes" at prompt.
; ^ - User aborted.
; This function allows the user to indicate whether the report should be
; printed in a format that could easily be imported into an Excel
; spreadsheet. If the user wants to print in EXCEL format, the variable
; IBEXCEL will be set to '1', otherwise IBEXCEL will be set to '0' for "No"
; or "^" to abort.
DEVICE() ; Device selection.
COMPILE(RPTNAME,DATESEL,AIB,IBEXCEL) ; Compile the report.
; RPTNAME = Report Name
; DATESEL = The earliest and latest expiration dates (format: earliest^latest).
; AIB = Active, Inactive or Both.
; IBEXCEL = 1 if user requested to display in EXCEL format; 0 otherwise.
GETDATA(DATES,AIB) ; Get the data from ^IBT(356.25)
; DATES = The earliest and latest expiration dates (format: earliest^latest).
; AIB = Active, Inactive or Both
DRUG(DRUGIEN) ; Get drug name
; DRUGIEN = drug ien pointer

External References

Name Field # of Occurrence
^%ZISC COMPILE+11
^DIR DATE+3, DATE+8, SELAIB+4, EXCEL+20, DEVICE+22
REPORT^IBNCPDRB COMPILE+10
DATA^PSS50 DRUG+4
EN^XUTMDEVQ DEVICE+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Release of Information Expiration Report",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS REPORT REQUIRES THAT A DEVICE WITH 132 COLUMN WIDTH BE USED."
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"IT WILL NOT DISPLAY CORRECTLY USING 80 COLUMN WIDTH DEVICES",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !?11,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+22
Function Call: WRITE
  • Prompt: !,"Compiling Release of Information Expiration Report. Please wait..."
  • Line Location: COMPILE+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+10
Routine Call
  • DIR
  • Line Location:
    • DATE+3
    • DATE+8
    • SELAIB+4
    • EXCEL+20
    • DEVICE+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] GETDATA+32
^DPT - [#2] GETDATA+24, GETDATA+26
^IBT(356.25 - [#356.25] GETDATA+7, GETDATA+11
^TMP("IBNCPDRA" COMPILE+5!, COMPILE+12!, GETDATA+34*
^TMP($J DRUG+3!, DRUG+5, DRUG+6!
^VA(200 - [#200] GETDATA+28

Label References

Name Line Occurrences
$$DATE EN+3
$$DEVICE EN+9
$$DRUG GETDATA+30
$$EXCEL EN+7
$$SELAIB EN+5
GETDATA COMPILE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE GETDATA+3~, GETDATA+17*, GETDATA+22, GETDATA+23, GETDATA+27
ADDED GETDATA+3~, GETDATA+18*, GETDATA+34
AIB EN+1~, EN+5*, EN+6, COMPILE~, COMPILE+8, COMPILE+10, GETDATA~, GETDATA+22, GETDATA+23
CNT GETDATA+3~, GETDATA+6*, GETDATA+9*, GETDATA+10
D0 GETDATA+3~, GETDATA+7*, GETDATA+11, GETDATA+34
DATE1 GETDATA+3~, GETDATA+5*, GETDATA+21
DATE2 GETDATA+3~, GETDATA+5*, GETDATA+21
DATES GETDATA~, GETDATA+5
DATESEL EN+1~, EN+3*, EN+4, COMPILE~, COMPILE+8, COMPILE+10
DEV EN+1~, EN+9*
DIR DATE+1~, DATE+4!, DATE+9!, SELAIB+1~, SELAIB+5!, EXCEL+11~, EXCEL+21!, DEVICE+1~, DEVICE+22!
DIR("?" EXCEL+16*, EXCEL+17*, EXCEL+18*
DIR("A" DATE+2*, DATE+7*, SELAIB+3*, EXCEL+13*
DIR("B" DATE+2*, DATE+7*, SELAIB+3*, EXCEL+14*, EXCEL+15*
DIR(0 DATE+2*, DATE+7*, SELAIB+2*, EXCEL+12*, DEVICE+22*
DIROUT DATE+1~, SELAIB+1~, DEVICE+1~
DIRUT DATE+1~, DATE+5, DATE+10, SELAIB+1~, SELAIB+6, EXCEL+11~, EXCEL+22, DEVICE+1~
DOD GETDATA+3~, GETDATA+26*, GETDATA+34
DPTIEN GETDATA+3~, GETDATA+12*, GETDATA+24, GETDATA+26
DRUG GETDATA+3~, GETDATA+13*, GETDATA+30
DRUGIEN DRUG~, DRUG+4, DRUG+5
DRUGNAME GETDATA+3~, GETDATA+8*, GETDATA+30*, GETDATA+31*, GETDATA+34
DTOUT DATE+1~, SELAIB+1~, DEVICE+1~
DUOUT DATE+1~, SELAIB+1~, DEVICE+1~
EFFDATE GETDATA+3~, GETDATA+15*, GETDATA+34
ENTERDBY GETDATA+3~, GETDATA+8*, GETDATA+28*, GETDATA+29*, GETDATA+34
EXPDATE GETDATA+4~, GETDATA+16*, GETDATA+20, GETDATA+21, GETDATA+34
IBEXCEL EN+1~, EN+7*, EN+8, EXCEL+14, DEVICE+4, DEVICE+7, COMPILE~, COMPILE+6, COMPILE+10
INS GETDATA+4~, GETDATA+14*, GETDATA+32
INSNAME GETDATA+4~, GETDATA+8*, GETDATA+32*, GETDATA+33*, GETDATA+34
IO COMPILE+6, GETDATA+10
IOF EN+2, EN+4, EN+6, EN+8, EN+10
NODE0 GETDATA+4~, GETDATA+11*, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+17
NODE1 GETDATA+4~, GETDATA+11*, GETDATA+18, GETDATA+19
PATNAME GETDATA+4~, GETDATA+8*, GETDATA+24*, GETDATA+25, GETDATA+34
>> POP DEVICE+21
RET DEVICE+1~, DEVICE+2*, DEVICE+21*, DEVICE+23
RPTNAME DEVICE+1~, DEVICE+3*, DEVICE+15, COMPILE~, COMPILE+10
STATUS GETDATA+4~, GETDATA+27*, GETDATA+34
U DATE+6, DATE+11, GETDATA+5, GETDATA+12, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+18
, GETDATA+19, GETDATA+24, GETDATA+26, GETDATA+28, GETDATA+32, GETDATA+34
USERIEN GETDATA+4~, GETDATA+19*, GETDATA+28
VAL DATE+1~, DATE+2*, DATE+6*, DATE+7, DATE+11*, DATE+12
X DATE+1~, SELAIB+1~, DEVICE+1~, DRUG+2~, DRUG+5*, DRUG+7
Y DATE+1~, DATE+6, DATE+11, SELAIB+1~, SELAIB+7, EXCEL+11~, EXCEL+23, DEVICE+1~
ZTDESC DEVICE+1~, DEVICE+15*, DEVICE+20
>> ZTQUEUED COMPILE+6, COMPILE+13, GETDATA+10
>> ZTREQ COMPILE+13*
ZTRTN DEVICE+1~, DEVICE+14*, DEVICE+20
ZTSAVE DEVICE+1~, DEVICE+20
ZTSAVE("AIB" DEVICE+18*
ZTSAVE("DATESEL" DEVICE+17*
ZTSAVE("IBEXCEL" DEVICE+19*
ZTSAVE("RPTNAME" DEVICE+16*
ZTSK DEVICE+1~, DEVICE+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All