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

Package: National Drug File

Routine: PSNVCR2


Information

PSNVCR2 ;BIR/RTR-VISTA COMPARISON REPORT CONTINUED ; 11 January 2017

Source Information

Source file <PSNVCR2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 DD^%DT  $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 1 ^%ZISC  
National Drug File 1 PMIP^PSNVCR1  

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

Entry Points

Name Comments DBIA/ICR reference
START ;Print report
START1 ;Print report without queuing
END ;
HD ;Report Header
MESS ;
DIN ;print info for Drug Ingredient (#50.416) File
VAG ;print info for VA Generic (#50.6) File
VDC ;print info for VA Drug Class (#50.605) File
DFO ;print info for Dosage Form (#50.606) File
DRU ;print info for Drug Units (#50.607) File
PAT ;print info for Package Type (#50.608) File
PAS ;print info for Package Size (#50.609) File
VAD ;print info for VA Dispense Unit (#50.64) File
NDC ;print info for NDC/UPN (#50.67) File
VAP ;print info for VA Product (#50.68) File
DRM ;print info for Drug Manufacturer (#55.95) File
DRI ;print info for Drug Interaction (#56) File
PRT(PSNCRS2) ;Print Audit File changes
SUM(PSNCRS6) ;Print Audit File summary changes
PSUM(PSNCRFDN,PSNCRFTR) ;Print summary values
PFUL(PSNPRHLA,PSNPRHLB) ;Print full values
CH1 ;IEN change of the same name
CH2 ;Subfile change of the same field name name
KL ;Kill TMP global
KLF ;Kill TMP global

External References

Name Field # of Occurrence
DD^%DT START1+2, START1+3
^%ZISC END+8
$$GET1^DID PRT+15, PRT+16
$$GET1^DIQ PRT+18, SUM+14
^DIR END+3, HD+1
PMIP^PSNVCR1 START1+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START1+11
Function Call: WRITE
  • Prompt: !!,"No data to print.",!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"UPDATE FILE CHANGE REPORT"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: " (Summary)"
  • Condition for execution: PSNVRSUM="S"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?68,"PAGE: "_PSNCRPG,!,PSNCRL2_PSNCRSUB,!,PSNCRLIN
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !!,"DRUG INGREDIENT file (#50.416) - "_PSNCRAT_" records"
  • Line Location: DIN+4
Function Call: WRITE
  • Prompt: !!,"VA GENERIC file (#50.6) - "_PSNCRAT_" records"
  • Line Location: VAG+4
Function Call: WRITE
  • Prompt: !!,"VA DRUG CLASS file (#50.605) - "_PSNCRAT_" records"
  • Line Location: VDC+4
Function Call: WRITE
  • Prompt: !!,"DOSAGE FORM file (#50.606) - "_PSNCRAT_" records"
  • Line Location: DFO+4
Function Call: WRITE
  • Prompt: !!,"DRUG UNITS file (#50.607) - "_PSNCRAT_" records"
  • Line Location: DRU+4
Function Call: WRITE
  • Prompt: !!,"PACKAGE TYPE file (#50.608) - "_PSNCRAT_" records"
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!,"PACKAGE SIZE file (#50.609) - "_PSNCRAT_" records"
  • Line Location: PAS+4
Function Call: WRITE
  • Prompt: !!,"VA DISPENSE UNIT file (#50.64) - "_PSNCRAT_" records"
  • Line Location: VAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NDC+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: NDC+4
Function Call: WRITE
  • Prompt: !!,"NDC/UPN file (#50.67) - "_PSNCRAT_" records"
  • Line Location: NDC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: VAP+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: VAP+4
Function Call: WRITE
  • Prompt: !!,"VA PRODUCT file (#50.68) - "_PSNCRAT_" records"
  • Line Location: VAP+5
Function Call: WRITE
  • Prompt: !!,"DRUG MANUFACTURER file (#55.95) - "_PSNCRAT_" records"
  • Line Location: DRM+4
Function Call: WRITE
  • Prompt: !!,"DRUG INTERACTION file (#56) - "_PSNCRAT_" records"
  • Line Location: DRI+4
Function Call: WRITE
  • Prompt: !,PSNCRFDN_" MISSING ENTRIES^"_PSNCRFTR_"^"_PSNCRSM9_"^"_PSNCRS9
  • Line Location: PSUM+3
Function Call: WRITE
  • Prompt: !,PSNPRHLA_"^Records - "_PSNPRHLB
  • Line Location: PFUL+5
Function Call: WRITE
  • Prompt: !?5,"No Change"
  • Line Location: PFUL+7
Function Call: WRITE
  • Prompt: !!,$S(PSNPRNDC:PSNPR1,PSNPRMS1:PSNPRMS2,1:PSNPRNDM)
  • Line Location: PFUL+13
Function Call: WRITE
  • Prompt: !,PSNPRHLH
  • Line Location: PFUL+25
Function Call: WRITE
  • Prompt: !!,PSNPR1_" (Duplicate Name #"_PSNPRHLC_")"
  • Line Location: CH1+3
Function Call: WRITE
  • Prompt: !!?5,PSNPR3_" ("_PSNPR4_")"
  • Line Location: CH2+4
Function Call: WRITE
  • Prompt: !!?5,PSNPR3_" ("_PSNPR4_")"_" (Duplicate Field. SubFile #"_$P(PSNPRHLO,"^",2)_")"
  • Line Location: CH2+6
Routine Call
  • DIR
  • Line Location:
    • END+3
    • HD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIA - [#1.1] PRT+4, PRT+5, PRT+6, PRT+20, SUM+7, SUM+8, SUM+9
^PS(50.416 - [#50.416] DIN+3
^PS(50.605 - [#50.605] VDC+3
^PS(50.606 - [#50.606] DFO+3
^PS(50.607 - [#50.607] DRU+3
^PS(50.608 - [#50.608] PAT+3
^PS(50.609 - [#50.609] PAS+3
^PS(55.95 - [#55.95] DRM+3
^PS(56 - [#56] DRI+3
^PSNDF(50.6 - [#50.6] VAG+3
^PSNDF(50.64 - [#50.64] VAD+3
^PSNDF(50.67 - [#50.67] NDC+4, PFUL+11
^PSNDF(50.68 - [#50.68] VAP+4
^TMP("PSNFFILE" PRT+20*, PFUL+6, PFUL+10, PFUL+15, PFUL+16, PFUL+17, PFUL+18, PFUL+20, PFUL+21, KLF+1!
^TMP("PSNSFILE" SUM+18*, KL+1!
^TMP("PSNTFILE" SUM+16*, KL+1!

Label References

Name Line Occurrences
@( START1+12, DIN+6, VAG+6, VDC+6, DFO+6, DRU+6, PAT+6, PAS+6, VAD+6, NDC+7
, VAP+7, DRM+6, DRI+6
CH1 PFUL+15
CH2 PFUL+18
END START1+14
HD START1+8, DIN+5, VAG+5, VDC+5, DFO+5, DRU+5, PAT+5, PAS+5, VAD+5, NDC+6
, VAP+6, DRM+5, DRI+5, PSUM+6, PSUM+9, PSUM+14, PSUM+17, PFUL+7, PFUL+13, PFUL+19
, PFUL+23, PFUL+24, CH1+3, CH2+4, CH2+6
KL PSUM+4, PSUM+9, PSUM+14, PSUM+16
KLF DIN+10, VAG+10, VDC+10, DFO+10, DRU+10, PAT+10, PAS+10, VAD+10, NDC+11, VAP+11
, DRM+10, DRI+10
PFUL DIN+10, VAG+10, VDC+10, DFO+10, DRU+10, PAT+10, PAS+10, VAD+10, NDC+11, VAP+11
, DRM+10, DRI+10
PRT DIN+8, VAG+8, VDC+8, DFO+8, DRU+8, PAT+8, PAS+8, VAD+8, NDC+9, VAP+9
, DRM+8, DRI+8
PSUM DIN+11, VAG+11, VDC+11, DFO+11, DRU+11, PAT+11, PAS+11, VAD+11, NDC+12, VAP+12
, DRM+11, DRI+11
SUM DIN+9, VAG+9, VDC+9, DFO+9, DRU+9, PAT+9, PAS+9, VAD+9, NDC+10, VAP+10
, DRM+9, DRI+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR START+1~, END+3!, HD+1!
DIR("A" END+3*, HD+1*
DIR(0 END+3*, HD+1*
DIROUT START+1~
DIRUT START+1~
DTOUT START+1~
DUOUT START+1~
IOF END+5, HD+2
IOSL DIN+5, VAG+5, VDC+5, DFO+5, DRU+5, PAT+5, PAS+5, VAD+5, NDC+6, VAP+6
, DRM+5, DRI+5, PSUM+6, PSUM+9, PSUM+14, PSUM+17, PFUL+7, PFUL+13, PFUL+19, PFUL+23
, PFUL+24, CH1+3, CH2+4, CH2+6
IOST START1+6
PSNCH START1+1~, START1+10*, START1+12
PSNCRA2 START1+1~, DIN+3*, VAG+3*, VDC+3*, DFO+3*, DRU+3*, PAT+3*, PAS+3*, VAD+3*, NDC+4*
, VAP+4*, DRM+3*, DRI+3*
PSNCRAT START1+1~, DIN+1*, DIN+3*, DIN+4, DIN+10, DIN+11, VAG+1*, VAG+3*, VAG+4, VAG+10
, VAG+11, VDC+1*, VDC+3*, VDC+4, VDC+10, VDC+11, DFO+1*, DFO+3*, DFO+4, DFO+10
, DFO+11, DRU+1*, DRU+3*, DRU+4, DRU+10, DRU+11, PAT+1*, PAT+3*, PAT+4, PAT+10
, PAT+11, PAS+1*, PAS+3*, PAS+4, PAS+10, PAS+11, VAD+1*, VAD+3*, VAD+4, VAD+10
, VAD+11, NDC+1*, NDC+4*, NDC+5, NDC+11, NDC+12, VAP+1*, VAP+4*, VAP+5, VAP+11
, VAP+12, DRM+1*, DRM+3*, DRM+4, DRM+10, DRM+11, DRI+1*, DRI+3*, DRI+4, DRI+10
, DRI+11
PSNCRBG START1+1~, START1+2*, START1+5
PSNCRDEV START1+1~, START1+6*, END+2, END+3, END+4, HD+1, NDC+3, NDC+4, VAP+3, VAP+4
PSNCREN START1+1~, START1+3*, START1+5
PSNCRFDN PSUM~, PSUM+2, PSUM+3, PSUM+12
PSNCRFN1 PRT+3~, PRT+9*, PRT+10, PRT+12, PRT+14, PRT+15
PSNCRFN2 PRT+3~, PRT+9*, PRT+10, PRT+11, PRT+12, PRT+14, PRT+15, PRT+16
PSNCRFN3 PRT+3~, PRT+10*, PRT+12*, PRT+13, PRT+14, PRT+16
PSNCRFN4 PRT+3~, PRT+14*, PRT+17*, PRT+19, PRT+20
PSNCRFN5 PRT+3~, PRT+14*, PRT+17*, PRT+19, PRT+20
PSNCRFTR PSUM~, PSUM+2, PSUM+3
PSNCRL2 START1+1~, START1+5*, HD+4
PSNCRLAB PRT+3~, PRT+15*, PRT+16*, PRT+17*, PRT+20
PSNCRLC1 START1+1~, DIN+1*, DIN+7, DIN+8, DIN+9, VAG+1*, VAG+7, VAG+8, VAG+9, VDC+1*
, VDC+7, VDC+8, VDC+9, DFO+1*, DFO+7, DFO+8, DFO+9, DRU+1*, DRU+7, DRU+8
, DRU+9, PAT+1*, PAT+7, PAT+8, PAT+9, PAS+1*, PAS+7, PAS+8, PAS+9, VAD+1*
, VAD+7, VAD+8, VAD+9, NDC+1*, NDC+8, NDC+9, NDC+10, VAP+1*, VAP+8, VAP+9
, VAP+10, DRM+1*, DRM+7, DRM+8, DRM+9, DRI+1*, DRI+7, DRI+8, DRI+9
PSNCRLC2 START1+1~, KLF+1!
PSNCRLC2( PRT+19*
PSNCRLC3 START1+1~, DIN+1*, DIN+10, DIN+11, VAG+1*, VAG+10, VAG+11, VDC+1*, VDC+10, VDC+11
, DFO+1*, DFO+10, DFO+11, DRU+1*, DRU+10, DRU+11, PAT+1*, PAT+10, PAT+11, PAS+1*
, PAS+10, PAS+11, VAD+1*, VAD+10, VAD+11, NDC+1*, NDC+11, NDC+12, VAP+1*, VAP+11
, VAP+12, DRM+1*, DRM+10, DRM+11, DRI+1*, DRI+10, DRI+11
PSNCRLC4 START1+1~
PSNCRLF START1+1~, START1+6*, START1+11, START1+13*
PSNCRLIN START1+1~, START1+7!*, HD+4
PSNCRM1 SUM+6~, SUM+11*, SUM+13
PSNCRM2 SUM+6~, SUM+11*, SUM+12, SUM+13
PSNCRNAM PRT+3~, PRT+18*, PRT+20
PSNCROCT PRT+3~, PRT+19*, PRT+20
PSNCROUT START1+1~, START1+6*, START1+10, START1+14, END+1, END+3, HD+1*, DIN+5, VAG+5, VDC+5
, DFO+5, DRU+5, PAT+5, PAS+5, VAD+5, NDC+6, VAP+6, DRM+5, DRI+5, PSUM+9
, PSUM+14, PFUL+10, PFUL+13, PFUL+15, PFUL+16, PFUL+17, PFUL+18, PFUL+19, PFUL+20, PFUL+23
, PFUL+24, CH1+1, CH2+1
PSNCRPAS PRT+3~, PRT+6*, PRT+7*, PRT+8, PRT+13, PRT+14, PRT+15*, PRT+16*, PRT+17
PSNCRPG START1+1~, START1+6*, HD+1, HD+4*
PSNCRS2 PRT~, PRT+4, PRT+5, PRT+6, PRT+10, PRT+12, PRT+14, PRT+15, PRT+18, PRT+19
, PRT+20
PSNCRS6 SUM~, SUM+7, SUM+8, SUM+9, SUM+12, SUM+13, SUM+14
PSNCRS7 START1+1~, SUM+18*, PSUM+2, PSUM+4, PSUM+7, PSUM+8, KL+1*
PSNCRS8 START1+1~, SUM+17*, PSUM+2, PSUM+10, KL+1*
PSNCRS9 START1+1~, SUM+15*, PSUM+3, PSUM+4, PSUM+11, PSUM+15, KL+1*
PSNCRSL1 PRT+3~, PRT+4*, PRT+5, SUM+6~, SUM+7*, SUM+8
PSNCRSL2 PRT+3~, PRT+5*, PRT+6, PRT+20, SUM+6~, SUM+8*, SUM+9
PSNCRSLF PRT+3~, PRT+7*, PRT+9, SUM+6~, SUM+10*, SUM+11, SUM+12
PSNCRSLI PRT+3~, PRT+7*, PRT+18, PRT+19, PRT+20, SUM+6~, SUM+10*, SUM+14, SUM+16, SUM+18
PSNCRSLN PRT+3~, PRT+6*, PRT+7, SUM+6~, SUM+9*, SUM+10
PSNCRSM9 START1+1~, SUM+16*, PSUM+3, PSUM+13, KL+1*
PSNCRSUB START1+1~, START1+7*, HD+4, DIN+2*, VAG+2*, VDC+2*, DFO+2*, DRU+2*, PAT+2*, PAS+2*
, VAD+2*, NDC+2*, VAP+2*, DRM+2*, DRI+2*
PSNCRTOT START1+1~, START1+6*, END+1, DIN+1*, VAG+1*, VDC+1*, DFO+1*, DRU+1*, PAT+1*, PAS+1*
, VAD+1*, NDC+1*, VAP+1*, DRM+1*, DRI+1*
PSNFON START1+1~, START1+4*, START1+8, START1+11, START1+13, END+7, DIN+4, DIN+5, VAG+4, VAG+5
, VDC+4, VDC+5, DFO+4, DFO+5, DRU+4, DRU+5, PAT+4, PAT+5, PAS+4, PAS+5
, VAD+4, VAD+5, NDC+3, NDC+4, NDC+5, NDC+6, VAP+3, VAP+4, VAP+5, VAP+6
, DRM+4, DRM+5, DRI+4, DRI+5, PSUM+1, PFUL+5, PFUL+7, PFUL+13, PFUL+14, PFUL+19
, PFUL+22, PFUL+25, CH1+3, CH2+3, CH2+6
PSNPR1 PFUL+3~, PFUL+10*, PFUL+11, PFUL+12, PFUL+13, PFUL+14, PFUL+15, PFUL+16, PFUL+17, PFUL+18
, PFUL+20, PFUL+21, CH1+3, CH1+4
PSNPR2 PFUL+3~, PFUL+15*, PFUL+16, PFUL+17, PFUL+18, PFUL+20, PFUL+21
PSNPR3 PFUL+3~, PFUL+16*, PFUL+17, PFUL+18, PFUL+20, PFUL+21, CH2+3, CH2+4, CH2+6, CH2+7
PSNPR4 PFUL+3~, PFUL+17*, PFUL+18, PFUL+20, PFUL+21, CH2+2, CH2+3, CH2+4, CH2+5, CH2+6
, CH2+7
PSNPR5 PFUL+3~, PFUL+18*, PFUL+20, PFUL+21, CH2+1, CH2+2, CH2+5
PSNPR6 PFUL+3~, PFUL+20*, PFUL+21
PSNPR7 PFUL+3~, PFUL+21*, PFUL+22, PFUL+23, PFUL+24
PSNPRHL1 PFUL+3~, PFUL+9*, PFUL+15*
PSNPRHLA PFUL~, PFUL+4, PFUL+5, PFUL+8, PFUL+14, CH1+4
PSNPRHLB PFUL~, PFUL+5
PSNPRHLC PFUL+3~, PFUL+13*, CH1+2*, CH1+3, CH1+4
PSNPRHLD PFUL+3~, PFUL+9*, PFUL+10*, PFUL+15*
PSNPRHLH PFUL+3~, PFUL+14*, PFUL+22*, PFUL+25*, CH1+4*, CH2+3*, CH2+7*
PSNPRHLM PFUL+3~, PFUL+16*, CH2+2*, CH2+5*
PSNPRHLN PFUL+3~, PFUL+16*, CH2+2, CH2+3*, CH2+4*, CH2+5*
PSNPRHLO PFUL+3~, CH2+5*, CH2+6, CH2+7
PSNPRMS1 PFUL+3~, PFUL+12*, PFUL+13, PFUL+14
PSNPRMS2 PFUL+3~, PFUL+12!*, PFUL+13, PFUL+14
PSNPRNDC PFUL+3~, PFUL+4*, PFUL+11, PFUL+13, PFUL+14
PSNPRNDM PFUL+3~, PFUL+4!, PFUL+11*, PFUL+13, PFUL+14
PSNVRAR END+6!
PSNVRAR( DIN+7, VAG+7, VDC+7, DFO+7, DRU+7, PAT+7, PAS+7, VAD+7, NDC+8, VAP+8
, DRM+7, DRI+7, PRT+10, PRT+12, SUM+12, SUM+13
PSNVRBEG START1+2, END+6!, PRT+4, SUM+7
PSNVREND START1+3, END+6!, PRT+4, SUM+7
PSNVRFIL END+6!
PSNVRFIL( START1+10
PSNVRPMI START1+5, START1+15, END+6!
PSNVRSUM END+6!, HD+3, DIN+2, DIN+6, DIN+8, DIN+10, VAG+2, VAG+6, VAG+8, VAG+10
, VDC+2, VDC+6, VDC+8, VDC+10, DFO+2, DFO+6, DFO+8, DFO+10, DRU+2, DRU+6
, DRU+8, DRU+10, PAT+2, PAT+6, PAT+8, PAT+10, PAS+2, PAS+6, PAS+8, PAS+10
, VAD+2, VAD+6, VAD+8, VAD+10, NDC+2, NDC+7, NDC+9, NDC+11, VAP+2, VAP+7
, VAP+9, VAP+11, DRM+2, DRM+6, DRM+8, DRM+10, DRI+2, DRI+6, DRI+8, DRI+10
PSNVRTYP START1+4, END+6!
Y START+1~, START1+2*, START1+3*, HD+1!
>> ZTQUEUED END+8
>> ZTREQ END+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All