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

Package: Integrated Billing

Routine: IBCNRE4


Information

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

Source Information

Source file <IBCNRE4.m>

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

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