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

Package: National Drug File

Routine: PSNVCR1


Information

PSNVCR1 ;BIR/RTR-VISTA COMPARISON REPORT CONTINUED ; 10 January 2017

Source Information

Source file <PSNVCR1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  C^%DTC  $$GET1^DID  ^DIR  
National Drug File 2 YN^PSNVCR  HD^PSNVCR2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
National Drug File 2 PSNVCR  PSNVCR2  

Entry Points

Name Comments DBIA/ICR reference
AGAIN ;Re-prompt file selection
DL ;Delimited File message
SELFILE(PSNVRSET) ; Set File array
YN ;yes or no prompt if no audited fields found for a file
MESS ;Write Message
PMIP ;Print PMI and Warning label totals
SELECT(PSNVRNM) ;Select fields from each file selected
DRMN ;Redisplay for selection
DRI ;Set Fields for Drug Interaction (#56) File
SUMM ;Prompt for full listing or summary
DRIN ;Redisplay for selection
DRM ;Set Fields for Drug Manufacturer (#55.95) File
AUDF ;Show audited fields
FILE ;File Selection
DATE ;Date selection
TYPE ;Prompt for report format or delimited list
PMI ;Prompt for PMI and Warning Lablels if summary was selected in prior prompt

External References

Name Field # of Occurrence
^%DT DATE+3, DATE+6
C^%DTC DATE+2, DATE+4
$$GET1^DID DRM+8, DRI+8
^DIR FILE+6, AGAIN+17, AGAIN+25, SUMM+5, PMI+4, TYPE+5, SELECT+6, SELECT+15, YN+1
YN^PSNVCR SELECT+11
HD^PSNVCR2 PMIP+2, PMIP+4, PMIP+6, PMIP+11, PMIP+16, PMIP+21, PMIP+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Since all files were selected, all audited fields will be shown on the report."
  • Line Location: FILE+8
Function Call: WRITE
  • Prompt: !!?4,"1) "_$P(PSNVRLAR(1),"^")_" "_$P(PSNVRLAR(1),"^",2)
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !?4,"2) "_$P(PSNVRLAR(2),"^")_" "_$P(PSNVRLAR(2),"^",2)
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !?4,"3) "_$P(PSNVRLAR(3),"^")_" "_$P(PSNVRLAR(3),"^",2)
  • Line Location: AGAIN+3
Function Call: WRITE
  • Prompt: !?4,"4) "_$P(PSNVRLAR(4),"^")_" "_$P(PSNVRLAR(4),"^",2)
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: !?4,"5) "_$P(PSNVRLAR(5),"^")_" "_$P(PSNVRLAR(5),"^",2)
  • Line Location: AGAIN+5
Function Call: WRITE
  • Prompt: !?4,"6) "_$P(PSNVRLAR(6),"^")_" "_$P(PSNVRLAR(6),"^",2)
  • Line Location: AGAIN+6
Function Call: WRITE
  • Prompt: !?4,"7) "_$P(PSNVRLAR(7),"^")_" "_$P(PSNVRLAR(7),"^",2)
  • Line Location: AGAIN+7
Function Call: WRITE
  • Prompt: !?4,"8) "_$P(PSNVRLAR(8),"^")_" "_$P(PSNVRLAR(8),"^",2)
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: !?4,"9) "_$P(PSNVRLAR(9),"^")_" "_$P(PSNVRLAR(9),"^",2)
  • Line Location: AGAIN+9
Function Call: WRITE
  • Prompt: !?3,"10) "_$P(PSNVRLAR(10),"^")_" "_$P(PSNVRLAR(10),"^",2)
  • Line Location: AGAIN+10
Function Call: WRITE
  • Prompt: !?3,"11) "_$P(PSNVRLAR(11),"^")_" "_$P(PSNVRLAR(11),"^",2)
  • Line Location: AGAIN+11
Function Call: WRITE
  • Prompt: !?3,"12) "_$P(PSNVRLAR(12),"^")_" "_$P(PSNVRLAR(12),"^",2),!
  • Line Location: AGAIN+12
Function Call: WRITE
  • Prompt: !!,"You have selected the following files:",!
  • Line Location: AGAIN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PMI+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !!,"You have selected the following fields:",!
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRMN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Drug Manufacturer (#55.95) File:",!
  • Line Location: DRMN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRIN+1
Function Call: WRITE
  • Prompt: !?5,"Audited fields from the Drug Interaction (#56) File:",!
  • Line Location: DRIN+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
Function Call: WRITE
  • Prompt: !!,"You have selected the delimited file output."
  • Line Location: DL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DL+3
Function Call: WRITE
  • Prompt: !,"The report output will be displayed on the screen in a delimited format, so"
  • Line Location: DL+4
Function Call: WRITE
  • Prompt: !,"it can be captured and exported. If you are using Reflections, you can turn"
  • Line Location: DL+5
Function Call: WRITE
  • Prompt: !,"logging on by selecting 'File' on the top left corner of the screen, then"
  • Line Location: DL+6
Function Call: WRITE
  • Prompt: !,"select 'Logging' and capture to your desired location."
  • Line Location: DL+7
Function Call: WRITE
  • Prompt: !!,"The format of the output is as follows, using '^' as the delimiter:"
  • Line Location: DL+8
Function Call: WRITE
  • Prompt: !!,"File Name^Records - #####"
  • Line Location: DL+13
Function Call: WRITE
  • Prompt: !,"File Name^Entry Name^Field Name^Field Number^Old Value^New Value"
  • Line Location: DL+14
Function Call: WRITE
  • Prompt: !!,"**notes** - the Old Value and New Value will repeat as often as necessary."
  • Line Location: DL+15
Function Call: WRITE
  • Prompt: !," duplicate Entry Names will have (duplicate #) appended."
  • Line Location: DL+16
Function Call: WRITE
  • Prompt: !," duplicate Field Names will have the subfile number appended."
  • Line Location: DL+17
Function Call: WRITE
  • Prompt: !," File Name^***No Changes** will print if there were no changes."
  • Line Location: DL+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PMIP+3
Function Call: WRITE
  • Prompt: !,"PMI and Warning Label counts",!
  • Line Location: PMIP+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PMIP+7
Function Call: WRITE
  • Prompt: !?5,"PMI-ENGLISH FILE (#50.621) - "_PSNCRAT_" records"
  • Line Location: PMIP+8
Function Call: WRITE
  • Prompt: !,"PMI-ENGLISH FILE^"_PSNCRAT_"^0^0"
  • Line Location: PMIP+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: PMIP+12
Function Call: WRITE
  • Prompt: !!?5,"PMI-SPANISH FILE (#50.622) - "_PSNCRAT_" records"
  • Line Location: PMIP+13
Function Call: WRITE
  • Prompt: !,"PMI-SPANISH FILE^"_PSNCRAT_"^0^0"
  • Line Location: PMIP+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: PMIP+17
Function Call: WRITE
  • Prompt: !!?5,"PMI MAP-ENGLISH FILE (#50.623) - "_PSNCRAT_" records"
  • Line Location: PMIP+18
Function Call: WRITE
  • Prompt: !,"PMI MAP-ENGLISH FILE^"_PSNCRAT_"^0^0"
  • Line Location: PMIP+19
Function Call: WRITE
  • Prompt: "."
  • Line Location: PMIP+22
Function Call: WRITE
  • Prompt: !!?5,"PMI MAP-SPANISH FILE (#50.624) - "_PSNCRAT_" records"
  • Line Location: PMIP+23
Function Call: WRITE
  • Prompt: !,"PMI MAP-SPANISH FILE^"_PSNCRAT_"^0^0"
  • Line Location: PMIP+24
Routine Call
  • DIR
  • Line Location:
    • FILE+6
    • AGAIN+17
    • AGAIN+25
    • SUMM+5
    • PMI+4
    • TYPE+5
    • SELECT+6
    • SELECT+15
    • YN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DRM+3, DRM+6, DRI+3, DRI+6
^PS(50.621 - [#50.621] PMIP+7
^PS(50.622 - [#50.622] PMIP+12
^PS(50.623 - [#50.623] PMIP+17
^PS(50.624 - [#50.624] PMIP+22

Label References

Name Line Occurrences
AGAIN AGAIN+27
AUDF DRMN+3, DRIN+3
DRIN DRIN+6
DRMN DRMN+6
MESS DRMN+5, DRIN+5
SELECT DRMN+6, DRIN+6
SELFILE FILE+7
YN DRMN+5, DRIN+5, AUDF+2, DL+2, DL+9, DL+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~, DATE+3*, DATE+5!, DATE+6*
%DT("A" DATE+3*, DATE+6*
%DT(0 DATE+3*, DATE+5*
%H DATE+1~
DIR FILE+2!, AGAIN+13!, AGAIN+25!, SUMM+1!, PMI+1!, TYPE+1!, SELECT+2!, SELECT+15!, YN+1!
DIR("?" FILE+3*, FILE+4*, AGAIN+15*, AGAIN+16*, SUMM+2*, SUMM+3*, PMI+2*, PMI+3*, TYPE+2*, TYPE+3*
, SELECT+4*, SELECT+5*
DIR("A" FILE+5*, AGAIN+14*, AGAIN+25*, SUMM+4*, PMI+1*, TYPE+4*, SELECT+3*, SELECT+15*, YN+1*
DIR("B" AGAIN+25*, PMI+1*, SELECT+15*
DIR(0 FILE+2*, AGAIN+13*, AGAIN+25*, SUMM+1*, PMI+1*, TYPE+1*, SELECT+2*, SELECT+15*, YN+1*
>> DIRUT FILE+6, AGAIN+17, SUMM+5, TYPE+5, SELECT+6
DT DATE+2
>> DTOUT AGAIN+26, DATE+3, DATE+6, PMI+5, SELECT+16, YN+2
>> DUOUT AGAIN+26, PMI+5, SELECT+16, YN+2
IOF SELECT+11, DRMN+1, DRIN+1, AUDF+2, DL+3
IOSL SELECT+11, AUDF+2, PMIP+2, PMIP+4, PMIP+6, PMIP+11, PMIP+16, PMIP+21, PMIP+25
>> PSNCRA2 PMIP+7*, PMIP+12*, PMIP+17*, PMIP+22*
>> PSNCRAT PMIP+7*, PMIP+8, PMIP+9, PMIP+12*, PMIP+13, PMIP+14, PMIP+17*, PMIP+18, PMIP+19, PMIP+22*
, PMIP+23, PMIP+24
>> PSNCRDEV PMIP+7, PMIP+12, PMIP+17, PMIP+22
>> PSNCROUT PMIP+2, PMIP+4, PMIP+6, PMIP+11, PMIP+16, PMIP+21
>> PSNFON PMIP+2, PMIP+3, PMIP+4, PMIP+5, PMIP+6, PMIP+7, PMIP+8, PMIP+9, PMIP+11, PMIP+12
, PMIP+13, PMIP+14, PMIP+16, PMIP+17, PMIP+18, PMIP+19, PMIP+21, PMIP+22, PMIP+23, PMIP+24
, PMIP+25
PSNVR90 DATE+1~, DATE+2*, DATE+3
PSNVRAB1 SELECT+1~, SELECT+21*, SELECT+22, SELECT+23
PSNVRAB2 SELECT+1~, SELECT+21*, SELECT+22, SELECT+23
PSNVRAB3 SELECT+1~, SELECT+21*, SELECT+22, SELECT+23
PSNVRABN SELECT+1~, SELECT+20*, SELECT+21
>> PSNVRAGN SELECT+2*, SELECT+17*, DRMN+6, DRIN+6
>> PSNVRANS FILE+7*, FILE+8
PSNVRAR SELECT+16!
PSNVRAR( SELECT+22*, SELECT+23*, DRM+4*
PSNVRAR(56 DRI+4*
>> PSNVRBEG DATE+4*, DATE+5*
>> PSNVRCN DRM+5*, DRM+7*, DRM+8, DRM+9, DRMN+6, DRI+5*, DRI+7*, DRI+8, DRI+9, DRIN+6
PSNVRDAT DRM+5!, DRI+5!
PSNVRDAT( SELECT+13, SELECT+20, SELECT+22, SELECT+23, DRM+7*, DRM+8*, DRM+9*, DRI+7*, DRI+8*, DRI+9*
, AUDF+1, AUDF+3, AUDF+4
>> PSNVREND DATE+7*
PSNVRFIL AGAIN+27!
PSNVRFIL( SELFILE+15*, AGAIN+23*
>> PSNVRFL DRMN+2*, DRMN+5, DRIN+2*, DRIN+5, AUDF+4*
PSNVRHNM SELECT+1~, SELECT+12*, SELECT+13, SELECT+19*, SELECT+20, SELECT+22, SELECT+23
PSNVRHPC SELECT+1~, SELECT+8*, SELECT+10, SELECT+18
PSNVRHPL SELECT+1~, SELECT+8*, SELECT+10*, SELECT+12, SELECT+18*, SELECT+19
PSNVRLAR SELFILE+1~
PSNVRLAR( SELFILE+15, AGAIN+23, AGAIN+24
PSNVRLAR(1 SELFILE+2*, AGAIN+1
PSNVRLAR(10 SELFILE+11*, AGAIN+10
PSNVRLAR(11 SELFILE+12*, AGAIN+11
PSNVRLAR(12 SELFILE+13*, AGAIN+12
PSNVRLAR(2 SELFILE+3*, AGAIN+2
PSNVRLAR(3 SELFILE+4*, AGAIN+3
PSNVRLAR(4 SELFILE+5*, AGAIN+4
PSNVRLAR(5 SELFILE+6*, AGAIN+5
PSNVRLAR(6 SELFILE+7*, AGAIN+6
PSNVRLAR(7 SELFILE+8*, AGAIN+7
PSNVRLAR(8 SELFILE+9*, AGAIN+8
PSNVRLAR(9 SELFILE+10*, AGAIN+9
PSNVRLP SELFILE+1~, SELFILE+15*, AGAIN+19*, AGAIN+21*, AGAIN+22
PSNVRLPC SELFILE+1~, AGAIN+19*, AGAIN+21
PSNVRLST SELFILE+1~, AGAIN+18*, AGAIN+19, AGAIN+22
PSNVRLTH SELFILE+1~, AGAIN+23*, AGAIN+24
PSNVRNM SELECT~, SELECT+2, SELECT+4
PSNVRNUM SELFILE+1~, AGAIN+22*, AGAIN+23, AGAIN+24
>> PSNVROUT FILE+6*, FILE+7, AGAIN+17*, AGAIN+26*, DATE+3*, DATE+6*, SUMM+5*, PMI+5*, TYPE+5*, SELECT+6*
, SELECT+10, SELECT+11, SELECT+14, SELECT+16*, DRMN+4, DRIN+4, AUDF+1, AUDF+2, YN+2*, DL+2
>> PSNVRPMI PMI+6*, DL+10
>> PSNVRSEE FILE+8*
PSNVRSET SELFILE~, SELFILE+14
PSNVRSHO SELECT+1~, SELECT+7*, SELECT+8, SELECT+12, SELECT+19
>> PSNVRSL DRM+1, DRI+1
>> PSNVRSL1 DRM+2*, DRM+3, DRM+4, DRM+5*, DRM+6, DRM+7, DRI+2*, DRI+3, DRI+4, DRI+5*
, DRI+6, DRI+7, AUDF+1*, AUDF+3, AUDF+4
>> PSNVRSL2 DRM+3*, DRM+4, DRM+6*, DRM+7, DRM+9, DRI+3*, DRI+4, DRI+6*, DRI+7, DRI+9
>> PSNVRSUB DRM+8*, DRI+8*, AUDF+3*
>> PSNVRSUM SUMM+6*, DL+9
>> PSNVRTYP TYPE+6*
X DATE+1~, DATE+2, DATE+4, DATE+5!
X1 DATE+1~, DATE+2*, DATE+4*
X2 DATE+1~, DATE+2*, DATE+4*
Y FILE+2!, FILE+7, AGAIN+13!, AGAIN+18, AGAIN+25!, AGAIN+27, DATE+3, DATE+4, DATE+5, DATE+6
, DATE+7, SUMM+1!, SUMM+6, PMI+1!, PMI+6, TYPE+1!, TYPE+6, SELECT+2!, SELECT+7, SELECT+15!
, SELECT+17, YN+1!, YN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All