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

Package: Integrated Billing

Routine: IBCNRE2


Information

IBCNRE2 ;DAOU/DMK - Edit NCPDP PROCESSOR APPLICATION Sub-file ;23-DEC-2003

Source Information

Source file <IBCNRE2.m>

Entry Points

Name Comments DBIA/ICR reference
1000 ; Control processing
2000 ; Control processing
EDIT ; Edit subfile entry data
; 366.013 NCPDP PROCESSOR APPLICATION subfile
HEADING ; Print heading
IEN ; Select file entry
INIT1 ; Initialize variables
PRINT1 ; Print file entry data
; 366.01 NCPDP PROCESSOR File
PRINT2 ; Print subfile entry data
; 366.013 NCPDP PROCESSOR APPLICATION Subfile

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: "NCPDP PROCESSOR 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("NCPDP Processor Name: ",40),$G(A(FILENO,IENS,.01)),!
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: $J("Date/Time Created: ",40),$G(A(FILENO,IENS,.03)),!
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: $J("Blocked? ",40),$G(A(FILENO,IENS,.02)),!
  • Line Location: PRINT1+17
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