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

Package: National Drug File

Routine: PSNVCR2


Information

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

Source Information

Source file <PSNVCR2.m>

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

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