Routine: PSNPPSNV

Package	Total	Call Graph
VA FileMan	4	^%DT NOW^%DTC UPDATE^DIE ^DIR
National Drug File	3	($$GETD,$$GETOS)^PSNFTP ($$LEGACY,SCHCK)^PSNPPSDL DISOPTS^PSNPPSNR
Kernel	2	$$FMADD^XLFDT RESCH^XUTMOPT

Package	Total	Caller Graph
National Drug File	3	PSN PPS SCHEDULE INSTALL PSNPPSNF PSNPPSNU

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

Name	Field # of Occurrence
^%DT	TASKIT+6
NOW^%DTC	TASKIT+6
UPDATE^DIE	DATA+3, PMIUPDT+3
^DIR	TASKIT+12, TASKIT+17, SCHDOPT+6, SCHDOPT+19, PROMPT+4, PROMPT+21, PROMPT+30, UPDT+6, DNLD+6, DEMAIL+7 , DEMAIL+17, TYPE+5, TYPE3+19, PATH+10, INSTV+9, DNLDV+9, EMAIL+12, SQAMAIL+13, ENTER+2
$$GETD^PSNFTP	PATH+1
$$GETOS^PSNFTP	SETD+2
$$LEGACY^PSNPPSDL	SCHDOPT+8
SCHCK^PSNPPSDL	SCHDOPT+14
DISOPTS^PSNPPSNR	DEMAIL+22
$$FMADD^XLFDT	TASKIT+8
RESCH^XUTMOPT	END+1, END+3

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
Routine Call	DIE Line Location: DATA+3 PMIUPDT+3
Routine Call	DIR Line Location: TASKIT+12 TASKIT+17 SCHDOPT+6 SCHDOPT+19 PROMPT+4 PROMPT+21 PROMPT+30 UPDT+6 DNLD+6 DEMAIL+7 DEMAIL+17 TYPE+5 TYPE3+19 PATH+10 INSTV+9 DNLDV+9 EMAIL+12 SQAMAIL+13 ENTER+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(	PMIUPDT+5!, PMIUPDT+13*
^PS(50.607 - [#50.607]	LOAD+2
^PS(57.23 - [#57.23]	INSTV+1, INSTV+7, DNLDV+1, DNLDV+7, EMAIL+1, EMAIL+10, SQAMAIL+1, SQAMAIL+11, SETD+3, SETD+4
^PS(59.7 - [#59.7]	TYPE2+2, TYPE3+17*
^PSDRUG - [#50]	LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD+6
^PSNDF(50.68 - [#50.68]	DATA+10, DATA+11, PMIUPDT+10, PMIUPDT+11
^TMP("PSN PPSN PARSED"	DATA+5, DATA+7, PMIUPDT+5, PMIUPDT+6, PMIUPDT+13
^TMP($J	DATA+8, DATA+11, DATA+12!, PMIUPDT+7!, PMIUPDT+8, PMIUPDT+11, PMIUPDT+12!, LOAD+2, LOAD+3, LOAD+4* , LOAD+5, LOAD+6
^XUSEC("PSN PPS ADMIN"	SCHDOPT+3, SCHDOPT+7, PROMPT+1, PROMPT+5

Name	Line Occurrences
DNLDV	DNLD+8, DNLDV+3
EMAIL	DEMAIL+9, EMAIL+3
END	TASKIT+12, TASKIT+17
ENTER	TASKIT+7, TASKIT+13, TASKIT+18, END+7
INSTV	UPDT+8, INSTV+3
PATH	PROMPT+32, PATH+3
SETD	PATH+8
SQAMAIL	DEMAIL+19, SQAMAIL+3
TASKIT	SCHDOPT+22
TYPE2	TYPE3+5, TYPE3+15

Name	Field # of Occurrence
^(	DATA+8, PMIUPDT+8, LOAD+3, LOAD+4, LOAD+5, LOAD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TASKIT+6
>> %DT	TASKIT+6*
>> %DT("A"	TASKIT+6*
>> %DT(0	TASKIT+6*
>> CTRLIEN	DATA+2, PMIUPDT+2
>> CTRLXIEN	DATA+2, PMIUPDT+2
DA	DATA+6~, DATA+10, DATA+11, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+10, PMIUPDT+11, PMIUPDT+14!, LOAD+2 , LOAD+3, LOAD+4, LOAD+5, LOAD+6
DA1	LOAD+1~, LOAD+3, LOAD+4, LOAD+5, LOAD+6
DIR	TASKIT+10!, TASKIT+15!, SCHDOPT+6!, SCHDOPT+16!, PROMPT+4!, PROMPT+21!, PROMPT+27!, UPDT+3!, UPDT+9!, DNLD+3! , DNLD+9!, DEMAIL+4!, DEMAIL+10!, DEMAIL+14!, DEMAIL+20!, DEMAIL+23!, TYPE+2!, TYPE3+19!, TYPE3+20!, PATH+10! , INSTV+9!, DNLDV+9!, EMAIL+12!, SQAMAIL+13!, ENTER+1!, ENTER+2!
DIR("?"	TASKIT+10, TASKIT+15, SCHDOPT+16, PROMPT+27, UPDT+3, DNLD+3, DEMAIL+4, DEMAIL+14, TYPE+2*
DIR("A"	TASKIT+11, TASKIT+16, SCHDOPT+6, SCHDOPT+17, PROMPT+4, PROMPT+21, PROMPT+28, UPDT+4, DNLD+4, DEMAIL+5 , DEMAIL+15, TYPE+3, TYPE3+19, PATH+10, INSTV+9, DNLDV+9, EMAIL+12, SQAMAIL+13, ENTER+2*
DIR("B"	TASKIT+12, TASKIT+17, SCHDOPT+18, PROMPT+29, UPDT+5, DNLD+5, DEMAIL+6, DEMAIL+16, TYPE+4*
DIR(0	TASKIT+10, TASKIT+15, SCHDOPT+6, SCHDOPT+16, PROMPT+4, PROMPT+21, PROMPT+27, UPDT+3, DNLD+3, DEMAIL+4 , DEMAIL+14, TYPE+2, TYPE3+19, PATH+10, INSTV+9, DNLDV+9, EMAIL+12, SQAMAIL+13, ENTER+2*
DIRUT	TASKIT+10!, TASKIT+13, TASKIT+15!, TASKIT+18, SCHDOPT+16!, PROMPT+27!, UPDT+3!, UPDT+9!, DNLD+3!, DNLD+9! , DEMAIL+4!, DEMAIL+10!, DEMAIL+14!, DEMAIL+20!, DEMAIL+23!, TYPE+2!, TYPE3+20!
DTIME	TYPE3+4, PATH+2, INSTV+2, DNLDV+2, EMAIL+2, SQAMAIL+2
DTOUT	TASKIT+7, TYPE+2!, TYPE3+4, PATH+2, INSTV+2, DNLDV+2, EMAIL+2, SQAMAIL+2
DUOUT	TASKIT+10!, TASKIT+15!, SCHDOPT+16!, PROMPT+27!, UPDT+3!, UPDT+9!, DNLD+3!, DNLD+9!, DEMAIL+4!, DEMAIL+10! , DEMAIL+14!, DEMAIL+20!, DEMAIL+23!, TYPE+2!, TYPE3+20!
DUZ	SCHDOPT+3, SCHDOPT+7, PROMPT+1, PROMPT+5
FDA	DATA+1!, DATA+4!, PMIUPDT+1~, PMIUPDT+4~
FDA(	DATA+2, PMIUPDT+2
FREQ	TASKIT~, TASKIT+12, TASKIT+17, TASKIT+19*, END+1, END+3, END+4, END+5, END+6
I	DATA+6~, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+8, PMIUPDT+14!
>> IN	LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD+6
>> INDX	LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD+6
IOF	TASKIT+7, TASKIT+13, TASKIT+18, END+7, PROMPT+1, PROMPT+23, UPDT+1, DNLD+1, DEMAIL+1, DEMAIL+12 , TYPE+1
J	DATA+6~, DATA+7, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+6, PMIUPDT+8, PMIUPDT+14!, LOAD+2* , LOAD+3, LOAD+4, LOAD+5, LOAD+6
K	DATA+6~, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+8, PMIUPDT+14!
LINE	DATA+6~, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+8, PMIUPDT+14!
>> NA	LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD+6
PSERROR	TASKIT+5!, END+3
PSN	DATA+6~, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+5, PMIUPDT+13, PMIUPDT+14!
PSNLEGF	SCHDOPT+2~, SCHDOPT+8*
PSOSX	SETD+1~, SETD+2*, SETD+3, SETD+4
PSSROOT	SCHDOPT+21~
ROOT	DATA+6~, DATA+7, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+6, PMIUPDT+8, PMIUPDT+14!
START	TASKIT~, TASKIT+8*, END+3
TYPE	TYPE2+1~, TYPE2+2*, TYPE2+3
U	SETD+3, SETD+4
X	DATA+6~, DATA+8, DATA+13!, PMIUPDT+1~, PMIUPDT+4~, PMIUPDT+8, PMIUPDT+14!, TASKIT+10!, TASKIT+15!, SCHDOPT+16! , PROMPT+27!, UPDT+3!, UPDT+9!, DNLD+3!, DNLD+9!, DEMAIL+4!, DEMAIL+10!, DEMAIL+14!, DEMAIL+20!, DEMAIL+23! , TYPE+2!, TYPE3+4, TYPE3+5, TYPE3+14, TYPE3+15, TYPE3+16, TYPE3+17, TYPE3+18, TYPE3+20!, PATH+2 , PATH+3, PATH+7, PATH+8, PATH+9, INSTV+2, INSTV+3, INSTV+6, INSTV+7, INSTV+8, DNLDV+2 , DNLDV+3, DNLDV+6, DNLDV+7, DNLDV+8, EMAIL+2, EMAIL+3, EMAIL+9, EMAIL+10, EMAIL+11, SQAMAIL+2 , SQAMAIL+3, SQAMAIL+10, SQAMAIL+11, SQAMAIL+12, LOAD+2, LOAD+4, LOAD+6*, SETD~, SETD+3, SETD+4
Y	TASKIT+7, TASKIT+8, TASKIT+10!, TASKIT+12, TASKIT+15!, TASKIT+17, TASKIT+19, SCHDOPT+16!, SCHDOPT+20, PROMPT+22 , PROMPT+27!, PROMPT+31, PROMPT+32, UPDT+3!, UPDT+7, UPDT+8, UPDT+9!, DNLD+3!, DNLD+7, DNLD+8 , DNLD+9!, DEMAIL+4!, DEMAIL+8, DEMAIL+9, DEMAIL+10!, DEMAIL+14!, DEMAIL+18, DEMAIL+19, DEMAIL+20!, DEMAIL+23! , TYPE+2!, TYPE+6, TYPE3+20!

Customize PDF page

Package: National Drug File

Routine: PSNPPSNV

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: