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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  
National Drug File 2 (DATE,DL,FILE,PMI,SELECT,SUMM,TYPE)^PSNVCR1  START1^PSNVCR2  
VA FileMan 2 $$GET1^DID  ^DIR  

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
National Drug File 2 PSN PPS VISTA COMPARISON RPT  PSNVCR1  

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

External References

Name Field # of Occurrence
^%ZIS PSNVCR+21
^%ZTLOAD PSNVCR+24
$$GET1^DID DIN+10, VAG+10, VDC+10, DFO+10, DRU+8, PAT+8, PAS+8, VAD+8, NDC+10, VAP+10
^DIR PSNVCR+25, FIELD+7, END+1, YN+1
DATE^PSNVCR1 PSNVCR+14
DL^PSNVCR1 PSNVCR+18
FILE^PSNVCR1 PSNVCR+11
PMI^PSNVCR1 PSNVCR+16
SELECT^PSNVCR1 DINN+6, VAGN+6, VDCN+6, DFON+6, DRUN+6, PATN+6, PASN+6, VADN+6, NDCN+6, VAPN+6
SUMM^PSNVCR1 PSNVCR+15
TYPE^PSNVCR1 PSNVCR+17
START1^PSNVCR2 PSNVCR+19, PSNVCR+26

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
Routine Call
  • %ZIS
  • Line Location:
    • PSNVCR+21
Routine Call
  • DIR
  • Line Location:
    • PSNVCR+25
    • FIELD+7
    • END+1
    • YN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DIN+3, DIN+8, VAG+3, VAG+8, VDC+3, VDC+8, DFO+3, DFO+8, DRU+3, DRU+6
, PAT+3, PAT+6, PAS+3, PAS+6, VAD+3, VAD+6, NDC+3, NDC+8, VAP+3, VAP+8

Label References

Name Line Occurrences
$$DFONM DFO+10
$$DINNM DIN+10
$$NDCNM NDC+10
$$VAGNM VAG+10
$$VAPNM VAP+10
$$VDCNM VDC+10
@( SELFIELD+5
AUDF DINN+3, VAGN+3, VDCN+3, DFON+3, DRUN+3, PATN+3, PASN+3, VADN+3, NDCN+3, VAPN+3
DFON DFON+6
DIN SELFIELD+4
DINN DINN+6
DRUN DRUN+6
END PSNVCR+11, PSNVCR+12, PSNVCR+13, PSNVCR+14, PSNVCR+15, PSNVCR+16, PSNVCR+17, PSNVCR+18, PSNVCR+21
FIELD PSNVCR+12
MESS DINN+5, VAGN+5, VDCN+5, DFON+5, DRUN+5, PATN+5, PASN+5, VADN+5, NDCN+5, VAPN+5
NDCN NDCN+6
PASN PASN+6
PATN PATN+6
SELFIELD SFLD+1
SFLD FIELD+2
VADN VADN+6
VAGN VAGN+6
VAPN VAPN+6
VDCN VDCN+6
YN DINN+5, VAGN+5, VDCN+5, DFON+5, DRUN+5, PATN+5, PASN+5, VADN+5, NDCN+5, VAPN+5
, AUDF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PSNVCR+3~, PSNVCR+21!*, PSNVCR+24!
DIR PSNVCR+3~, PSNVCR+25!, FIELD+3!, END+1!, YN+1!
DIR("?" FIELD+4*, FIELD+5*
DIR("A" PSNVCR+25*, FIELD+6*, END+1*, YN+1*
DIR(0 PSNVCR+25*, FIELD+3*, END+1*, YN+1*
DIROUT PSNVCR+3~
DIRUT PSNVCR+3~, FIELD+7
DTOUT PSNVCR+3~, YN+2
DUOUT PSNVCR+3~, YN+2
IO PSNVCR+26
IO("Q" PSNVCR+22
IOF DINN+1, VAGN+1, VDCN+1, DFON+1, DRUN+1, PATN+1, PASN+1, VADN+1, NDCN+1, VAPN+1
, AUDF+2
IOP PSNVCR+3~, PSNVCR+21!
IOSL AUDF+2
POP PSNVCR+3~, PSNVCR+21!
PSNVL SELFIELD+2~, SELFIELD+3*, SELFIELD+4, SELFIELD+5
PSNVRAGN SELFIELD+2~, DINN+6, VAGN+6, VDCN+6, DFON+6, DRUN+6, PATN+6, PASN+6, VADN+6, NDCN+6
, VAPN+6
PSNVRANS PSNVCR+4~
PSNVRAR PSNVCR+4~, PSNVCR+13
PSNVRAR( DIN+5*, DIN+6*, VAG+5*, VAG+6*, VDC+5*, VDC+6*, DFO+5*, DFO+6*, DRU+4*, PAT+4*
, PAS+4*, VAD+4*, NDC+5*, NDC+6*, VAP+5*, VAP+6*
PSNVRBEG PSNVCR+4~
PSNVRCN SELFIELD+2~, DIN+7*, DIN+9*, DIN+10, DIN+12, DINN+6, VAG+7*, VAG+9*, VAG+10, VAG+12
, VAGN+6, VDC+7*, VDC+9*, VDC+10, VDC+12, VDCN+6, DFO+7*, DFO+9*, DFO+10, DFO+12
, DFON+6, DRU+5*, DRU+7*, DRU+8, DRU+9, DRUN+6, PAT+5*, PAT+7*, PAT+8, PAT+9
, PATN+6, PAS+5*, PAS+7*, PAS+8, PAS+9, PASN+6, VAD+5*, VAD+7*, VAD+8, VAD+9
, VADN+6, NDC+7*, NDC+9*, NDC+10, NDC+12, NDCN+6, VAP+7*, VAP+9*, VAP+10, VAP+12
, VAPN+6
PSNVRDAT SELFIELD+2~, DIN+7!, VAG+7!, VDC+7!, DFO+7!, DRU+5!, PAT+5!, PAS+5!, VAD+5!, NDC+7!
, VAP+7!
PSNVRDAT( DIN+9*, DIN+10*, DIN+12*, VAG+9*, VAG+10*, VAG+12*, VDC+9*, VDC+10*, VDC+12*, DFO+9*
, DFO+10*, DFO+12*, DRU+7*, DRU+8*, DRU+9*, PAT+7*, PAT+8*, PAT+9*, PAS+7*, PAS+8*
, PAS+9*, VAD+7*, VAD+8*, VAD+9*, NDC+9*, NDC+10*, NDC+12*, VAP+9*, VAP+10*, VAP+12*
, AUDF+1, AUDF+3, AUDF+4
PSNVREND PSNVCR+4~
PSNVRFIL PSNVCR+4~
PSNVRFIL( SELFIELD+3
PSNVRFL SELFIELD+2~, DINN+2*, DINN+5, VAGN+2*, VAGN+5, VDCN+2*, VDCN+5, DFON+2*, DFON+5, DRUN+2*
, DRUN+5, PATN+2*, PATN+5, PASN+2*, PASN+5, VADN+2*, VADN+5, NDCN+2*, NDCN+5, VAPN+2*
, VAPN+5, AUDF+4*
PSNVROUT PSNVCR+4~, PSNVCR+5*, PSNVCR+11, PSNVCR+12, PSNVCR+14, PSNVCR+15, PSNVCR+16, PSNVCR+17, PSNVCR+18, FIELD+7*
, SELFIELD+3, DINN+4, VAGN+4, VDCN+4, DFON+4, DRUN+4, PATN+4, PASN+4, VADN+4, NDCN+4
, VAPN+4, AUDF+1, AUDF+2, YN+2*
PSNVRPMI PSNVCR+4~, PSNVCR+5*
PSNVRSEE PSNVCR+4~, FIELD+2, FIELD+8*, SFLD+1
PSNVRSL SELFIELD~, DIN+1, VAG+1, VDC+1, DFO+1, DRU+1, PAT+1, PAS+1, VAD+1, NDC+1
, VAP+1
PSNVRSL1 SELFIELD+2~, DIN+2*, DIN+3, DIN+4, DIN+5, DIN+6, DIN+7*, DIN+8, DIN+9, DIN+11
, VAG+2*, VAG+3, VAG+4, VAG+5, VAG+6, VAG+7*, VAG+8, VAG+9, VAG+11, VDC+2*
, VDC+3, VDC+4, VDC+5, VDC+6, VDC+7*, VDC+8, VDC+9, VDC+11, DFO+2*, DFO+3
, DFO+4, DFO+5, DFO+6, DFO+7*, DFO+8, DFO+9, DFO+11, DRU+2*, DRU+3, DRU+4
, DRU+5*, DRU+6, DRU+7, PAT+2*, PAT+3, PAT+4, PAT+5*, PAT+6, PAT+7, PAS+2*
, PAS+3, PAS+4, PAS+5*, PAS+6, PAS+7, VAD+2*, VAD+3, VAD+4, VAD+5*, VAD+6
, VAD+7, NDC+2*, NDC+3, NDC+4, NDC+5, NDC+6, NDC+7*, NDC+8, NDC+9, NDC+11
, VAP+2*, VAP+3, VAP+4, VAP+5, VAP+6, VAP+7*, VAP+8, VAP+9, VAP+11, AUDF+1*
, AUDF+3, AUDF+4
PSNVRSL2 SELFIELD+2~, DIN+3*, DIN+4, DIN+8*, DIN+9, DIN+11, VAG+3*, VAG+4, VAG+8*, VAG+9
, VAG+11, VDC+3*, VDC+4, VDC+8*, VDC+9, VDC+11, DFO+3*, DFO+4, DFO+8*, DFO+9
, DFO+11, DRU+3*, DRU+4, DRU+6*, DRU+7, DRU+9, PAT+3*, PAT+4, PAT+6*, PAT+7
, PAT+9, PAS+3*, PAS+4, PAS+6*, PAS+7, PAS+9, VAD+3*, VAD+4, VAD+6*, VAD+7
, VAD+9, NDC+3*, NDC+4, NDC+8*, NDC+9, NDC+11, VAP+3*, VAP+4, VAP+8*, VAP+9
, VAP+11
PSNVRSL3 SELFIELD+2~
PSNVRSQ1 SELFIELD+2~, DIN+4*, DIN+5, DIN+6, DIN+11*, DIN+12, VAG+4*, VAG+5, VAG+6, VAG+11*
, VAG+12, VDC+4*, VDC+5, VDC+6, VDC+11*, VDC+12, DFO+4*, DFO+5, DFO+6, DFO+11*
, DFO+12, NDC+4*, NDC+5, NDC+6, NDC+11*, NDC+12, VAP+4*, VAP+5, VAP+6, VAP+11*
, VAP+12
PSNVRSQ2 SELFIELD+2~, DIN+4*, DIN+5, DIN+6, DIN+11*, DIN+12, VAG+4*, VAG+5, VAG+6, VAG+11*
, VAG+12, VDC+4*, VDC+5, VDC+6, VDC+11*, VDC+12, DFO+4*, DFO+5, DFO+6, DFO+11*
, DFO+12, NDC+4*, NDC+5, NDC+6, NDC+11*, NDC+12, VAP+4*, VAP+5, VAP+6, VAP+11*
, VAP+12
PSNVRSTR SELFIELD+2~, DIN+4*, DIN+5, DIN+6, DIN+11*, DIN+12, VAG+4*, VAG+5, VAG+6, VAG+11*
, VAG+12, VDC+4*, VDC+5, VDC+6, VDC+11*, VDC+12, DFO+4*, DFO+5, DFO+6, DFO+11*
, DFO+12, NDC+4*, NDC+5, NDC+6, NDC+11*, NDC+12, VAP+4*, VAP+5, VAP+6, VAP+11*
, VAP+12
PSNVRSUB SELFIELD+2~, DIN+10*, DINNM+1, VAG+10*, VAGNM+1, VDC+10*, VDCNM+1, DFO+10*, DFONM+1, DRU+8*
, PAT+8*, PAS+8*, VAD+8*, NDC+10*, NDCNM+1, VAP+10*, VAPNM+1, VAPNM+2, AUDF+3*
PSNVRSUM PSNVCR+4~, PSNVCR+16
PSNVRTYP PSNVCR+4~, PSNVCR+18, PSNVCR+19
X PSNVCR+3~
Y PSNVCR+3~, PSNVCR+25!, FIELD+3!, FIELD+8, YN+1!, YN+2
ZTDESC PSNVCR+3~, PSNVCR+22*
ZTRTN PSNVCR+3~, PSNVCR+22*
ZTSAVE PSNVCR+3~
ZTSAVE("PSNVRAR(" PSNVCR+23*
ZTSAVE("PSNVRBEG" PSNVCR+23*
ZTSAVE("PSNVREND" PSNVCR+23*
ZTSAVE("PSNVRFIL(" PSNVCR+23*
ZTSAVE("PSNVRPMI" PSNVCR+23*
ZTSAVE("PSNVRSUM" PSNVCR+23*
ZTSAVE("PSNVRTYP" PSNVCR+23*
ZTSK PSNVCR+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All