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

Package: National Drug File

Routine: PSNPPSNV


Information

PSNPPSNV ;HP/MJE-PPSN update NDF data additional update code ; 05 Mar 2014 1:20 PM

Source Information

Source file <PSNPPSNV.m>

Entry Points

Name Comments DBIA/ICR reference
DATA ;Process DATA transactions
PMIUPDT ;Get PMI data and completly replace all globals 50.621-627
TASKIT(FREQ,START) ; create/update PSNTUPDT option start time and frequency
; Input:
; FREQ - Optional
; START - Optional
END ;
SCHDOPT ; edit option PSNTUPDT/PSN TASK SCHEDULE INSTALL to create and/or edit the scheduling date/time
; Called from "PSN PPS SCHEDULE INSTALL" option to create and/or edit the scheduling
PROMPT ;
UPDT ;
DNLD ;
DEMAIL ;
TYPE ;
TYPE2 ;
TYPE3 ;
PATH ;
INSTV ;
DNLDV ;
EMAIL ;
SQAMAIL ;
LOAD ;GET DOSE STUFF
SETD(X) ;
ENTER ; press enter key

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No action taken!"
  • Line Location: TASKIT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASKIT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASKIT+11
Function Call: WRITE
  • Prompt: !!,"No action taken!"
  • Line Location: TASKIT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASKIT+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASKIT+16
Function Call: WRITE
  • Prompt: !!,"No action taken!"
  • Line Location: TASKIT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TASKIT+18
Function Call: WRITE
  • Prompt: !!,"Warning! The download you have scheduled will occur only once."
  • Line Location: TASKIT+19
Function Call: WRITE
  • Prompt: !,"Your start time is:"
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"The NDF update install will automatically be re-scheduled Daily",!
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !!,"The NDF update install will automatically be re-scheduled Weekly",!
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !!,"The NDF update install will NOT automatically be re-scheduled",!
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !!!,"This option allows you to schedule a recurring TaskMan job to perform the NDF"
  • Line Location: SCHDOPT+9
Function Call: WRITE
  • Prompt: !,"update installation from PPS-N."
  • Line Location: SCHDOPT+10
Function Call: WRITE
  • Prompt: !!,"Warning! This NDF update install should be scheduled during non-peak hours."
  • Line Location: SCHDOPT+11
Function Call: WRITE
  • Prompt: !!,"You will need to select a date/time and how often this update should reoccur."
  • Line Location: SCHDOPT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: SCHDOPT+17
Function Call: WRITE
  • Prompt: !!,"This option allows a user to setup the following PPS-N configuration settings:"
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: !!,"1) The Cache host disk directory path that will be used for location of the"
  • Line Location: PROMPT+7
Function Call: WRITE
  • Prompt: !," PPS-N weekly NDF update file/s."
  • Line Location: PROMPT+8
Function Call: WRITE
  • Prompt: !!,"2) The last successful INSTALL version number of the PPS-N update file."
  • Line Location: PROMPT+9
Function Call: WRITE
  • Prompt: !," This is the UPDT option version number."
  • Line Location: PROMPT+10
Function Call: WRITE
  • Prompt: !!,"3) The last successful DOWNLOAD version number of the PPS-N update file."
  • Line Location: PROMPT+11
Function Call: WRITE
  • Prompt: !," This is the DNLD option version number."
  • Line Location: PROMPT+12
Function Call: WRITE
  • Prompt: !!,"4) The Exchange email Group or Individual email address that the PPS-N national"
  • Line Location: PROMPT+13
Function Call: WRITE
  • Prompt: !," and locally generated reports will be sent to."
  • Line Location: PROMPT+14
Function Call: WRITE
  • Prompt: !!,"5) The PPS-N mail group for the PPSN NATIONAL TEST SQA email status."
  • Line Location: PROMPT+15
Function Call: WRITE
  • Prompt: !!,"6) The Scheduled Options, Menu Options, and Protocols that should be paused"
  • Line Location: PROMPT+16
Function Call: WRITE
  • Prompt: !," while the PPS-n update file is processed."
  • Line Location: PROMPT+17
Function Call: WRITE
  • Prompt: !!,"7) The PPS-N NATIONAL SQA ACCOUNT (Q)A, (P)roduction, Product (S)upport"
  • Line Location: PROMPT+18
Function Call: WRITE
  • Prompt: !," or (T)est."
  • Line Location: PROMPT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+21
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: PROMPT+23
Function Call: WRITE
  • Prompt: !,"At the prompt please enter the specific VMS or Linux directory path name"
  • Line Location: PROMPT+24
Function Call: WRITE
  • Prompt: !,"where the PPS-N update file/s will be located. If you are not familiar with"
  • Line Location: PROMPT+25
Function Call: WRITE
  • Prompt: !,"the required information please consult your ADPAC."
  • Line Location: PROMPT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+28
Function Call: WRITE
  • Prompt: @IOF,!!!,"At the prompt you can change the last successful update version number"
  • Line Location: UPDT+1
Function Call: WRITE
  • Prompt: !,"of the PPS-N update file. This is for the UPDT option."
  • Line Location: UPDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDT+4
Function Call: WRITE
  • Prompt: @IOF,!!!,"At the prompt you can change the last successful DOWNLOAD version number"
  • Line Location: DNLD+1
Function Call: WRITE
  • Prompt: !,"of the PPS-N update file. This is for the DNLD option."
  • Line Location: DNLD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DNLD+4
Function Call: WRITE
  • Prompt: @IOF,!!!,"At the prompt you can change the Exchange email Group or Individual"
  • Line Location: DEMAIL+1
Function Call: WRITE
  • Prompt: !,"email address that the PPS-N national and locally generated reports"
  • Line Location: DEMAIL+2
Function Call: WRITE
  • Prompt: !,"will be sent to."
  • Line Location: DEMAIL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMAIL+5
Function Call: WRITE
  • Prompt: @IOF,!!!,"At the prompt you can change the Exchange email Group or Individual"
  • Line Location: DEMAIL+12
Function Call: WRITE
  • Prompt: !,"email address that the PPS-N PPSN NATIONAL TEST SQA emails will be sent to."
  • Line Location: DEMAIL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMAIL+15
Function Call: WRITE
  • Prompt: @IOF,!!!,"At the prompt you can change the PPS-N NATIONAL SQA ACCOUNT"
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!,"Your current PPS-N NATIONAL SQA ACCOUNT is set to: "
  • Line Location: TYPE2+3
Function Call: WRITE
  • Prompt: TYPE_" "_$S(TYPE="Q":"for National SQA Testing",TYPE="P":"for Production",TYPE="T":"for Test Account",TYPE="S":"for Product Support",1:"")
  • Line Location: TYPE2+3
Function Call: WRITE
  • Prompt: !,"P = Production",?40,"T = Test Account"
  • Line Location: TYPE3+1
Function Call: WRITE
  • Prompt: !,"S = Product Support",?40,"Q = QA National Testing"
  • Line Location: TYPE3+2
Function Call: WRITE
  • Prompt: !,"N = QA NDFMS",!
  • Line Location: TYPE3+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter selection: "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: TYPE3+4
Function Call: WRITE
  • Prompt: !!,"You must enter P, T, S, Q or N",!
  • Line Location: TYPE3+15
Function Call: WRITE
  • Prompt: X
  • Line Location: TYPE3+18
Function Call: WRITE
  • Prompt: !!,"Your current update file path is set to: ",$$GETD^PSNFTP()
  • Line Location: PATH+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: PATH+2
Function Call: WRITE
  • Prompt: X
  • Line Location: PATH+9
Function Call: WRITE
  • Prompt: !!,"Your current PPS-N INSTALL file version number is set to: "
  • Line Location: INSTV+1
Function Call: WRITE
  • Prompt: $P(^PS(57.23,1,0),"^",3)
  • Condition for execution: $D(^PS(57.23,1,0))
  • Line Location: INSTV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INSTV+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: INSTV+2
Function Call: WRITE
  • Prompt: X
  • Line Location: INSTV+8
Function Call: WRITE
  • Prompt: !!,"Your current PPS-N DOWNLOAD file version number is set to: "
  • Line Location: DNLDV+1
Function Call: WRITE
  • Prompt: $P(^PS(57.23,1,0),"^",7)
  • Condition for execution: $D(^PS(57.23,1,0))
  • Line Location: DNLDV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DNLDV+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: DNLDV+2
Function Call: WRITE
  • Prompt: X
  • Line Location: DNLDV+8
Function Call: WRITE
  • Prompt: !!,"Your current email address is set to: "
  • Line Location: EMAIL+1
Function Call: WRITE
  • Prompt: $P($G(^PS(57.23,1,0)),"^",6)
  • Condition for execution: $D(^PS(57.23,1,0))
  • Line Location: EMAIL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EMAIL+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: EMAIL+2
Function Call: WRITE
  • Prompt: X
  • Line Location: EMAIL+11
Function Call: WRITE
  • Prompt: !!,"Your current email address is set to: "
  • Line Location: SQAMAIL+1
Function Call: WRITE
  • Prompt: $P($G(^PS(57.23,1,1)),"^",1)
  • Condition for execution: $D(^PS(57.23,1,1))
  • Line Location: SQAMAIL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SQAMAIL+1
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: SQAMAIL+2
Function Call: WRITE
  • Prompt: X
  • Line Location: SQAMAIL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTER+2
Info |  Source |  Entry Points |  Interaction Calls