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

Package: Integrated Billing

Routine: IBCNERPJ


Information

IBCNERPJ ;IB/BAA/AWC - IBCNE EIV HL7 RESPONSE REPORT;25 Feb 2015

Source Information

Source file <IBCNERPJ.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 $$STOP^IBCNERP1  EN^IBCNERPK  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNE HL7 RESPONSE REPORT  

Entry Points

Name Comments DBIA/ICR reference
PATIENT1 ;
EN ; entry point
PATIENT ;
PAYER ;
ENQ
DTRANGE ;
P100
P10
ANOTHER() ; "Select Another" prompt
; returns 1, if response was "YES", returns 0 otherwise
EXIT ;
P20
DEVICE ; Ask user to select device
DTRANGE1 ;
P30
TYPE ;
PAYER1 ;
P40

External References

Name Field # of Occurrence
^%ZIS DEVICE+4
HOME^%ZIS DEVICE+8
^%ZISC DEVICE+16
^%ZTLOAD DEVICE+8
^DIC PAYER1+1, PATIENT1+1
^DIR PAYER+6, PATIENT+7, DTRANGE+6, DTRANGE1+2, ANOTHER+4, TYPE+6
$$STOP^IBCNERP1 P20, P30, P40
EN^IBCNERPK DEVICE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"eIV HL7 Response Report",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRANGE+2
Function Call: WRITE
  • Prompt: !," Latest Date must not precede the Earliest Date."
  • Line Location: DTRANGE1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !!,"*** You will need a 132 column printer for this report. ***",!
  • Line Location: DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
Routine Call
  • DIC
  • Line Location:
    • PAYER1+1
    • PATIENT1+1
Routine Call
  • DIR
  • Line Location:
    • PAYER+6
    • PATIENT+7
    • DTRANGE+6
    • DTRANGE1+2
    • ANOTHER+4
    • TYPE+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EN+4!, ENQ!

Label References

Name Line Occurrences
$$ANOTHER PAYER1+4, PATIENT1+4
DEVICE P100
DTRANGE P30
DTRANGE1 DTRANGE1+3
ENQ DEVICE+4, DEVICE+5
EXIT P10, P20, P30, P40
P10 P20
P20 P30
P30 P40
PATIENT P40
PATIENT1 PATIENT1+4
PAYER P20
PAYER1 PAYER1+4
TYPE P10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, DEVICE+4*
DIC PAYER+1~, PAYER+13*, PATIENT+1~, PATIENT+12*
DIC("A" PAYER+10*, PATIENT+11*
DIC("S" PAYER+12*
DIC(0 PAYER+9*, PATIENT+10*
DIR PAYER+1~, PATIENT+1~, DTRANGE+1~, ANOTHER+2~, TYPE+1~
DIR("A" PAYER+3*, PAYER+4*, PATIENT+4*, PATIENT+5*, DTRANGE+4*, DTRANGE+5*, DTRANGE1+1!*, ANOTHER+3*, TYPE+4*
DIR("B" PAYER+5*, PATIENT+6*, DTRANGE+3*, ANOTHER+3*, TYPE+5*
DIR(0 PAYER+5*, PATIENT+6*, DTRANGE+3*, ANOTHER+3*, TYPE+3*
DIROUT PAYER+1~, PATIENT+1~, DTRANGE+1~, ANOTHER+2~, TYPE+1~
DIRUT PAYER+1~, PAYER+7, PATIENT+1~, PATIENT+8, DTRANGE+1~, DTRANGE+6, DTRANGE1+2, ANOTHER+2~, ANOTHER+4, TYPE+1~
, TYPE+6
DTOUT PAYER+1~, PAYER1+2, PATIENT+1~, PATIENT1+2, DTRANGE+1~, ANOTHER+2~, TYPE+1~
DUOUT PAYER+1~, PAYER1+2, PATIENT+1~, PATIENT1+2, DTRANGE+1~, ANOTHER+2~, TYPE+1~
I EN+1~, DEVICE+7*
IBCNERTN EN+1~, EN+3*, EN+4, DEVICE+14, ENQ!
>> IBCNESPC("PAT" PATIENT1+2!
IBCNESPJ EN+1~
INCNESPJ EN+1~, DEVICE+14, ENQ!
INCNESPJ("BEGDT" DTRANGE+7*, DTRANGE1+3
INCNESPJ("ENDDT" DTRANGE1+4*
INCNESPJ("PAT" PATIENT+9*, PATIENT1+3*
INCNESPJ("PYR" PAYER+8*, PAYER1+2!, PAYER1+3*
INCNESPJ("TYPE" TYPE+7*
IO DEVICE+14
IO("Q" DEVICE+5, DEVICE+8!, DEVICE+10!
IOF EN+5
POP DEVICE+1~, DEVICE+4
STOP EN+1~, EN+3*, P10, P20, P30, P40, PAYER+7*, PAYER1+2*, PATIENT+8*, PATIENT1+2*
, DTRANGE+6*, DTRANGE1+2*, ANOTHER+4*, TYPE+6*, ENQ!
U PAYER1+3, PATIENT1+3
X PAYER+1~, PATIENT+1~, DTRANGE+1~, ANOTHER+2~, TYPE+1~
Y PAYER+1~, PAYER+8, PAYER1+2, PAYER1+3, PATIENT+1~, PATIENT+9, PATIENT1+2, PATIENT1+3, DTRANGE+1~, DTRANGE+7
, DTRANGE1+3, DTRANGE1+4, ANOTHER+2~, ANOTHER+5, TYPE+1~, TYPE+7
ZTDESC DEVICE+1~, DEVICE+6*
ZTQUEUED DEVICE+1~, DEVICE+18
ZTREQ DEVICE+1~, DEVICE+18*
ZTRTN DEVICE+1~, DEVICE+6*
ZTSAVE DEVICE+1~
ZTSAVE( DEVICE+7*
ZTSK DEVICE+1~, DEVICE+9, DEVICE+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All