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

Package: Integrated Billing

Routine: IBCNRE4


Information

IBCNRE4 ;DAOU/DMK - Edit PLAN APPLICATION Sub-file ;23-DEC-2003

Source Information

Source file <IBCNRE4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIE  $$ROOT^DILFD  ($$GET1,GETS)^DIQ  
Kernel 2 HOME^%ZIS  $$NOW^XLFDT  
Integrated Billing 1 ($$LOOKUP2,$$SELECT1)^IBCNRFM1  

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

Package Total Caller Graph
E Claims Management Engine 1 BPS PRTCL IBCNR EDIT PLAN  
Integrated Billing 1 IBCNR EDIT PLAN  

Entry Points

Name Comments DBIA/ICR reference
1000 ; Control processing
2000 ; Control processing
CONTINUE ; Pause until user ready to continue
EDIT ; Edit subfile entry data
; 366.033 PLAN APPLICATION Subfile
HEADING ; Print heading
IEN ; Select file entry
INIT1 ; Initialize variables
PRINT1 ; Print file entry data
; 366.03 PLAN File
PRINT2 ; Print subfile entry data
; 366.033 PLAN APPLICATION Subfile

External References

Name Field # of Occurrence
HOME^%ZIS INIT1+5
^DIE EDIT+24
$$ROOT^DILFD EDIT+7
$$GET1^DIQ EDIT+15
GETS^DIQ PRINT1+7, PRINT2+7
$$LOOKUP2^IBCNRFM1 IEN+8
$$SELECT1^IBCNRFM1 IEN+3
$$NOW^XLFDT EDIT+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONTINUE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: "PLAN File Inquiry and Edit (E-PHARM)",!
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: " E-PHARM APPLICATION not defined"
  • Line Location: IEN+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: $J("Plan ID: ",40),$G(A(FILENO,IENS,.01)),!
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: $J("Date/Time Created: ",40),$G(A(FILENO,IENS,.07)),!
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: $J("Plan Name: ",40),$G(A(FILENO,IENS,.02)),!
  • Line Location: PRINT1+17
Function Call: WRITE
  • Prompt: $J("Plan Name - Short: ",40),$G(A(FILENO,IENS,.04)),!
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: $J("Payer Name: ",40),$G(A(FILENO,IENS,.03)),!
  • Line Location: PRINT1+23
Function Call: WRITE
  • Prompt: $J("Type: ",40),$G(A(FILENO,IENS,.05)),!
  • Line Location: PRINT1+26
Function Call: WRITE
  • Prompt: $J("Region: ",40),$G(A(FILENO,IENS,.06)),!
  • Line Location: PRINT1+29
Function Call: WRITE
  • Prompt: $J("Pharmacy Benefits Manager (PBM) Name: ",40),$G(A(FILENO,IENS,10.01)),!
  • Line Location: PRINT1+32
Function Call: WRITE
  • Prompt: $J("Banking Identification Number (BIN): ",40),$G(A(FILENO,IENS,10.02)),!
  • Line Location: PRINT1+35
Function Call: WRITE
  • Prompt: $J("Processor Control Number (PCN): ",40),$G(A(FILENO,IENS,10.03)),!
  • Line Location: PRINT1+38
Function Call: WRITE
  • Prompt: $J("NCPDP Processor Name: ",40),$G(A(FILENO,IENS,10.04)),!
  • Line Location: PRINT1+41
Function Call: WRITE
  • Prompt: $J("Enabled?: ",40),$G(A(FILENO,IENS,10.05)),!
  • Line Location: PRINT1+44
Function Call: WRITE
  • Prompt: $J("Software Vendor ID: ",40),$G(A(FILENO,IENS,10.06)),!
  • Line Location: PRINT1+47
Function Call: WRITE
  • Prompt: $J("Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.07)),!
  • Line Location: PRINT1+50
Function Call: WRITE
  • Prompt: $J("Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.08)),!
  • Line Location: PRINT1+53
Function Call: WRITE
  • Prompt: $J("Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.09)),!
  • Line Location: PRINT1+56
Function Call: WRITE
  • Prompt: $J("Eligibility Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.15)),!
  • Line Location: PRINT1+59
Function Call: WRITE
  • Prompt: $J("Maximum NCPDP Transactions: ",40),$G(A(FILENO,IENS,10.1)),!
  • Line Location: PRINT1+62
Function Call: WRITE
  • Prompt: $J("Test Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.11)),!
  • Line Location: PRINT1+65
Function Call: WRITE
  • Prompt: $J("Test Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.12)),!
  • Line Location: PRINT1+68
Function Call: WRITE
  • Prompt: $J("Test Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.13)),!
  • Line Location: PRINT1+71
Function Call: WRITE
  • Prompt: $J("Test Eligibility Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.14)),!
  • Line Location: PRINT1+74
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: $J("Application: ",40),$G(A(FILENO1,IENS1,.01)),!
  • Line Location: PRINT2+10
Function Call: WRITE
  • Prompt: $J("Date/Time Created: ",40),$G(A(FILENO1,IENS1,.13)),!
  • Line Location: PRINT2+13
Function Call: WRITE
  • Prompt: $J("Deactivated? ",40),$G(A(FILENO1,IENS1,.11)),!
  • Line Location: PRINT2+16
Function Call: WRITE
  • Prompt: $J("Date/Time Deactivated: ",40),$G(A(FILENO1,IENS1,.12)),!
  • Line Location: PRINT2+19
Function Call: WRITE
  • Prompt: $J("National Active? ",40),$G(A(FILENO1,IENS1,.02)),!
  • Line Location: PRINT2+22
Function Call: WRITE
  • Prompt: $J("Date/Time National Edited: ",40),$G(A(FILENO1,IENS1,.06)),!
  • Line Location: PRINT2+25
Function Call: WRITE
  • Prompt: $J("Local Active? ",40),$G(A(FILENO1,IENS1,.03)),!
  • Line Location: PRINT2+28
Function Call: WRITE
  • Prompt: $J("Date/Time Local Edited: ",40),$G(A(FILENO1,IENS1,.05)),!
  • Line Location: PRINT2+31
Function Call: WRITE
  • Prompt: $J("User Edited Local: ",40),$G(A(FILENO1,IENS1,.04)),!
  • Line Location: PRINT2+34
Routine Call
  • %ZIS
  • Line Location:
    • INIT1+5
Routine Call
  • DIE
  • Line Location:
    • EDIT+24

Label References

Name Line Occurrences
2000 1000+6
CONTINUE 2000+14
EDIT 2000+20
HEADING 1000+5
IEN 2000+6
INIT1 1000+4
PRINT1 2000+11
PRINT2 2000+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDIT+4~
A EDIT+4~, PRINT1+3~, PRINT2+3~
A( PRINT1+10, PRINT1+11, PRINT1+14, PRINT1+17, PRINT1+20, PRINT1+23, PRINT1+26, PRINT1+29, PRINT1+32, PRINT1+35
PRINT1+38, PRINT1+41, PRINT1+44, PRINT1+47, PRINT1+50, PRINT1+53, PRINT1+56, PRINT1+59, PRINT1+62, PRINT1+65
PRINT1+68, PRINT1+71, PRINT1+74, PRINT2+10, PRINT2+13, PRINT2+16, PRINT2+19, PRINT2+22, PRINT2+25, PRINT2+28
PRINT2+31, PRINT2+34
ANAME 1000+1~, IEN+8, INIT1+1*
APIEN 1000+1~, 2000+8, EDIT+6, IEN+8*, IEN+9, IEN+10
CONTINUE 2000+1~, CONTINUE+1~, CONTINUE+2*
D EDIT+4~
D0 EDIT+4~
DA EDIT+3~, EDIT+6*
DA(1 EDIT+6*
DDER EDIT+4~
DI EDIT+4~
DIC EDIT+3~
DIDEL EDIT+3~
DIE EDIT+3~, EDIT+7*
DISYS 1000+2~, EDIT+4~
DLAYGO EDIT+3~
DQ EDIT+4~
DR EDIT+3~, EDIT+10*, EDIT+16*, EDIT+19*, EDIT+22*
DTIME CONTINUE+2
DTOUT EDIT+3~
DUZ EDIT+19
FIELDNO 1000+1~, IEN+8, INIT1+2*, INIT1+4
FILENO 1000+1~, IEN+3, IEN+8, INIT1+3*, INIT1+4, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+14, PRINT1+17
PRINT1+20, PRINT1+23, PRINT1+26, PRINT1+29, PRINT1+32, PRINT1+35, PRINT1+38, PRINT1+41, PRINT1+44, PRINT1+47
PRINT1+50, PRINT1+53, PRINT1+56, PRINT1+59, PRINT1+62, PRINT1+65, PRINT1+68, PRINT1+71, PRINT1+74
FILENO1 1000+1~, EDIT+7, EDIT+15, INIT1+4*, PRINT2+7, PRINT2+10, PRINT2+13, PRINT2+16, PRINT2+19, PRINT2+22
PRINT2+25, PRINT2+28, PRINT2+31, PRINT2+34
I IEN+1~
IEN 2000+1~, 2000+7, EDIT+6, EDIT+7, IEN+3*, IEN+4, IEN+5, IEN+8, IEN+10
IENS 2000+1~, IEN+5*, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+14, PRINT1+17, PRINT1+20, PRINT1+23, PRINT1+26
PRINT1+29, PRINT1+32, PRINT1+35, PRINT1+38, PRINT1+41, PRINT1+44, PRINT1+47, PRINT1+50, PRINT1+53, PRINT1+56
PRINT1+59, PRINT1+62, PRINT1+65, PRINT1+68, PRINT1+71, PRINT1+74
IENS1 2000+1~, EDIT+15, IEN+10*, PRINT2+7, PRINT2+10, PRINT2+13, PRINT2+16, PRINT2+19, PRINT2+22, PRINT2+25
PRINT2+28, PRINT2+31, PRINT2+34
IOF HEADING+1, INIT1+5
KEY 2000+1~, EDIT+10, PRINT1+10*
OLD EDIT+4~, EDIT+15*
QUIT 1000+1~, 1000+6, 2000+3*, 2000+7*
X EDIT+3~
Y EDIT+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All