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

Package: National Drug File

Routine: PSNVCR1


Information

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

Source Information

Source file <PSNVCR1.m>

Entry Points

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

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