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

Package: National Drug File

Routine: PSNVCR


Information

PSNVCR ;BIR/RTR-VISTA COMPARISON REPORT ; 11 December 2016

Source Information

Source file <PSNVCR.m>

Entry Points

Name Comments DBIA/ICR reference
FIELD ;Field selection
SFLD ;
END ;
SELFIELD(PSNVRSL) ; Set Field array as PSNVRAR(#,#)=""
DIN ;Set Fields for Drug Ingredients (#50.416) File
DINN ;Redisplay for selection
DINNM() ;
VAG ;Set Fields for VA Generic (#50.6) File
VAGN ;Redisplay for selection
VAGNM() ;
VDC ;Set Fields for VA Drug Class (#50.605) File
VDCN ;Redisplay for selection
VDCNM() ;
DFO ;Set Fields for Dosage Form (#50.606) File
DFON ;Redisplay for selection
DFONM() ;
DRU ;Set Fields for Drug Units (#50.607) File
DRUN ;Redisplay for selection
PAT ;Set Fields for Package Type (#50.608) File
PATN ;Redisplay for selection
PAS ;Set Fields for Package Size (#50.609) File
PASN ;Redisplay for selection
VAD ;Set Fields for VA Dispense Unit (#50.64) File
VADN ;Redisplay for selection
NDC ;Set Fields for NDC/UPN (#50.67) File
NDCN ;Redisplay for selection
NDCNM() ;
VAP ;Set Fields for VA Product (#50.68) File
VAPN ;Redisplay for selection
VAPNM() ;
AUDF ;Show audited fields
MESS ;Write Message
YN ;yes or no prompt if no audited fields found for a file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Update File Change Report",!
  • Line Location: PSNVCR+8
Function Call: WRITE
  • Prompt: !!?5,"No fields selected to print.",!
  • Line Location: PSNVCR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PSNVCR+21
Function Call: WRITE
  • Prompt: !!,"Report queued to print.",!
  • Line Location: PSNVCR+24
Function Call: WRITE
  • Prompt: !
  • Line Location: FIELD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DINN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Drug Ingredients (#50.416) File:",!
  • Line Location: DINN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VAGN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the VA Generic (#50.6) File:",!
  • Line Location: VAGN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VDCN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the VA Drug Class (#50.605) File:",!
  • Line Location: VDCN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DFON+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Dosage Form (#50.606) File:",!
  • Line Location: DFON+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRUN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Drug Units (#50.607) File:",!
  • Line Location: DRUN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PATN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Package Type (#50.608) File:",!
  • Line Location: PATN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PASN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Package Size (#50.609) File:",!
  • Line Location: PASN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VADN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the VA Dispense Unit (#50.64) File:",!
  • Line Location: VADN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NDCN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the NDC/UPN (#50.67) File:",!
  • Line Location: NDCN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VAPN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the VA PRODUCT (#50.68) File:",!
  • Line Location: VAPN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AUDF+2
Function Call: WRITE
  • Prompt: !,"***No Audited fields for this file.***"
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+1
Info |  Source |  Entry Points |  Interaction Calls