Routine: PSNCFINQ

Package	Total	Call Graph
VA FileMan	5	^%DT ($$GET1,GETS)^DIQ ^DIR ^DIWP ^DIWW
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
National Drug File	1	PSN PPS DNLD/INST STATUS REP

Name	Comments	DBIA/ICR reference
ASK	;ask if Download or Install Inquiry
ASK1	;
DATE	;enter date range for list of .DAT files
ISUM	; SUMMARY SCREEN FOR INSTALL FILES
DSUM	; SUMMARY SCREEN FOR DOWNLOAD FILES
HEAD	; SUMMARY HEADER PAGE
HEAD1(PSNH)	; DETAIL HEADER PAGE
CHOOSE	;File Selection
INSTALL	; INSTALL SCREEN
DOWNLD	; DOWNLOAD HISTORY
ERROR	; INSTALL ERROR SCREEN
CONT	;
END	; KILL VARIABLES

Name	Field # of Occurrence
^%DT	DATE+2, DATE+4
$$GET1^DIQ	ASK1+4
GETS^DIQ	ASK1+3, ISUM+4, DSUM+4, INSTALL+2
^DIR	ASK+4, HEAD+1, HEAD1+2, CHOOSE+4, INSTALL+24, CONT+1
^DIWP	DOWNLD+9, ERROR+10
^DIWW	DOWNLD+9, ERROR+10
$$FMTE^XLFDT	DATE+6, DOWNLD+5, DOWNLD+6, ERROR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: !,"("_CNT_") ",PSNCARR(57.231,PSNCFIEN_",1,",.01,"E"),?32,PSNCARR(57.231,PSNCFIEN_",1,",1,"E"),?55,PSNCARR(57.231,PSNCFIEN_",1,",2,"E") Line Location: ISUM+6
Function Call: WRITE	Prompt: !! Line Location: ISUM+8
Function Call: WRITE	Prompt: !!,"No Install files for date range chosen. Please enter new dates.",$C(7) Line Location: ISUM+8
Function Call: WRITE	Prompt: !!,"No Install files for date range chosen. Please enter new dates.",$C(7) Line Location: ISUM+8
Function Call: WRITE	Prompt: !,"("_CNT_") ",PSNCARD(57.234,PSNCFIEN_",1,",.01,"E"),?32,PSNCARD(57.234,PSNCFIEN_",1,",1,"E"),?55,PSNCARD(57.234,PSNCFIEN_",1,",2,"E") Line Location: DSUM+6
Function Call: WRITE	Prompt: !! Line Location: DSUM+8
Function Call: WRITE	Prompt: !!,"No Download files for date range chosen. Please enter new dates.",$C(7) Line Location: DSUM+8
Function Call: WRITE	Prompt: !!,"No Download files for date range chosen. Please enter new dates.",$C(7) Line Location: DSUM+8
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$S(PSNCFAX="D":"DOWNLOAD",1:"INSTALL")_" FILE NAME",?32,$S(PSNCFAX="D":"DOWNLOAD",1:"INSTALL")_" BEGIN DT/TM",?55,"COMPLETION DT/TM" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,PSNCFL2,?68,"PAGE: "_PSNCFPG,!,PSNCFLIN Line Location: HEAD+4
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,PSNH_" INFORMATION FOR FILE "_PSNINNM Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,?68,"PAGE: "_PSNCFPG,!,PSNCFLIN Line Location: HEAD1+5
Function Call: WRITE	Prompt: !!,"Current Install Status:",!,"-----------------------" Line Location: INSTALL+3
Function Call: WRITE	Prompt: !,"Name: ",?30,$G(PSNCFAR(57.23,"1,",.01,"E")) Line Location: INSTALL+4
Function Call: WRITE	Prompt: !,"Open VMS Local Directory:",?30,$G(PSNCFAR(57.23,"1,",1,"E")) Line Location: INSTALL+5
Function Call: WRITE	Prompt: !,"UNIX/LINUX Local Directory:",?30,$G(PSNCFAR(57.23,"1,",3,"E")) Line Location: INSTALL+6
Function Call: WRITE	Prompt: !,"PPS-N Install Version:",?30,$G(PSNCFAR(57.23,"1,",2,"E")) Line Location: INSTALL+7
Function Call: WRITE	Prompt: !,"PPS-N Mail Group:",?30,$G(PSNCFAR(57.23,"1,",5,"E")) Line Location: INSTALL+8
Function Call: WRITE	Prompt: !,"Secondary Mail Group:",?30,$G(PSNCFAR(57.23,"1,",6,"E")) Line Location: INSTALL+9
Function Call: WRITE	Prompt: !,"PPS-N Download Version:",?30,$G(PSNCFAR(57.23,"1,",8,"E")) Line Location: INSTALL+10
Function Call: WRITE	Prompt: !,"Download Status:",?30,$G(PSNCFAR(57.23,"1,",9,"E")) Line Location: INSTALL+11
Function Call: WRITE	Prompt: !,"Install Status:",?30,$G(PSNCFAR(57.23,"1,",10,"E")) Line Location: INSTALL+12
Function Call: WRITE	Prompt: !!,"Install Information for file "_PSNINNM_":",!,"--------------------------------------------------" Line Location: INSTALL+13
Function Call: WRITE	Prompt: !,"Install Begin Date/Time:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","INSTALL BEGIN DATE/TIME","E")) Line Location: INSTALL+14
Function Call: WRITE	Prompt: !,"Install Completion Date/Time:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","INSTALL COMPLETION DATE/TIME","E")) Line Location: INSTALL+15
Function Call: WRITE	Prompt: !,"Last VistA file processed:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","LAST VISTA FILE PROCESSED","E")) Line Location: INSTALL+16
Function Call: WRITE	Prompt: !,"Last File IEN processed:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","LAST FILE IEN PROCESSED","E")) Line Location: INSTALL+17
Function Call: WRITE	Prompt: !,"Last TMP file subscript:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","LAST TMP FILE SUBSCRIPT","E")) Line Location: INSTALL+18
Function Call: WRITE	Prompt: !,"Last Update file section:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","LAST UPDATE FILE SECTION","E")) Line Location: INSTALL+19
Function Call: WRITE	Prompt: !,"Displayed Last:",?30,$G(PSNCFARR(57.231,PSNCFIEN_",1,","DISPLAYED LAST","E")) Line Location: INSTALL+20
Function Call: WRITE	Prompt: ! Line Location: INSTALL+22
Function Call: WRITE	Prompt: !!,"No Download Information for this file" Line Location: DOWNLD+3
Function Call: WRITE	Prompt: !,"Download File Name:",?33,$P(PSNDND,"^",1) Line Location: DOWNLD+4
Function Call: WRITE	Prompt: !,"Download Begin Date/Time:",?33,$$FMTE^XLFDT($P(PSNDND,"^",2)) Line Location: DOWNLD+5
Function Call: WRITE	Prompt: !,"Download Complete Date/Time:",?33,$$FMTE^XLFDT($P(PSNDND,"^",3)) Line Location: DOWNLD+6
Function Call: WRITE	Prompt: !,"Download File Size:",?33,$E($P(PSNDND,"^",4),2,99) Line Location: DOWNLD+7
Function Call: WRITE	Prompt: !,"Download Error Message:" Line Location: DOWNLD+8
Function Call: WRITE	Prompt: ?33,$P(PSNDND,"^",5),! Line Location: DOWNLD+8
Function Call: WRITE	Prompt: !!,"No Error Information for this file" Line Location: ERROR+2
Function Call: WRITE	Prompt: !,"Error Date/Time:",?33,$$FMTE^XLFDT($P(PSNJD,"^",1)) Line Location: ERROR+5
Function Call: WRITE	Prompt: !,"Error File:",?33,$P(PSNJD,"^",2) Line Location: ERROR+6
Function Call: WRITE	Prompt: !,"Error IEN:",?33,$P(PSNJD,"^",3) Line Location: ERROR+7
Function Call: WRITE	Prompt: !,"Error TMP file subscript:",?33,$P(PSNJD,"^",4) Line Location: ERROR+8
Function Call: WRITE	Prompt: !,"Error Message: " Line Location: ERROR+9
Function Call: WRITE	Prompt: ?33,$P(PSNJD,"^",5),! Line Location: ERROR+9
Routine Call	DIR Line Location: ASK+4 HEAD+1 HEAD1+2 CHOOSE+4 INSTALL+24 CONT+1

FileNo	Call Tags
^PS(57.23 - [#57.23]	GETS^DIQ
57.231	GET1^DIQ, GETS^DIQ
57.234	GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.23 - [#57.23]	ISUM+3, DSUM+3, DOWNLD+2, DOWNLD+3, ERROR+2, ERROR+3, ERROR+4
^UTILITY($J	DOWNLD+9!, ERROR+10!

Name	Line Occurrences
@(	ASK1+1
ASK	ASK1+1, ASK1+2
ASK1	ASK1+5, ASK1+6
CHOOSE	ASK1+2
CONT	ASK1+6, ISUM+8, DSUM+8, DOWNLD+2, ERROR+2, ERROR+11
DATE	ASK+6
DOWNLD	ASK1+6
END	ASK+4, ASK+6
ERROR	INSTALL+26
HEAD	ISUM+2, ISUM+7, DSUM+2, DSUM+7
HEAD1	DOWNLD+1, ERROR+1
INSTALL	ASK1+5, INSTALL+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, DATE+2*, END+1!
%DT("A"	DATE+2, DATE+4
%DT(0	DATE+2, DATE+4
CNT	PSNCFINQ+3~, ISUM+2, ISUM+5, ISUM+6, ISUM+8, DSUM+2, DSUM+5, DSUM+6, DSUM+8, CHOOSE+1 , CHOOSE+2
DA	END+1!
DIC	PSNCFINQ+4!, END+1!
DIE	END+1!
DIR	PSNCFINQ+4!, ASK+2!, HEAD+1!, HEAD1+2!, CHOOSE+1!, INSTALL+22!, CONT+1!, END+1!
DIR("?"	CHOOSE+3*
DIR("A"	ASK+3, HEAD+1, HEAD1+2, CHOOSE+2, INSTALL+23, CONT+1
DIR(0	ASK+2, HEAD+1, HEAD1+2, CHOOSE+1, INSTALL+22, CONT+1
DIRUT	ASK+4, ASK1+2, CHOOSE+1!, CHOOSE+4, INSTALL+24, END+1!
DIWF	DOWNLD+9~, ERROR+10~
DIWL	DOWNLD+9~, ERROR+10~
DIWR	DOWNLD+9~, ERROR+10~
DR	END+1!
DT	DATE+2
DTOUT	DATE+2, DATE+4, END+1!
DUOUT	CHOOSE+1!, CHOOSE+4
IOF	HEAD+2, HEAD1+3
IOSL	ISUM+7, DSUM+7
IOST	DATE+7
PSFLG	DOWNLD+1, DOWNLD+2, DOWNLD+3, END+3!
PSNCARD	DSUM+1!
PSNCARD(	DSUM+5, DSUM+6
PSNCARR	ISUM+1!, END+1!
PSNCARR(	ISUM+5, ISUM+6
PSNCFANS	CHOOSE+5*, END+2!
PSNCFAR	ASK1+3!, END+1!
PSNCFAR(	INSTALL+4, INSTALL+5, INSTALL+6, INSTALL+7, INSTALL+8, INSTALL+9, INSTALL+10, INSTALL+11, INSTALL+12
PSNCFARR	INSTALL+1!, END+1!
PSNCFARR(	INSTALL+14, INSTALL+15, INSTALL+16, INSTALL+17, INSTALL+18, INSTALL+19, INSTALL+20
PSNCFAX	PSNCFINQ+3~, ASK+5*, ASK1+1, ASK1+4, ASK1+5, ASK1+6, HEAD+3, CHOOSE+2, END+3!
PSNCFB	PSNCFINQ+3~, DATE+3*, DATE+6, END+3!
PSNCFBEG	PSNCFINQ+3~, DATE+3*, DATE+4, ISUM+3, DSUM+3, END+2!
PSNCFBG	END+2!
PSNCFDEV	DATE+7*, END+1!
PSNCFDN	END+2!
PSNCFE	PSNCFINQ+3~, DATE+5*, DATE+6, END+3!
PSNCFEND	PSNCFINQ+3~, DATE+5*, ISUM+3, DSUM+3, END+2!
PSNCFER	END+1!
PSNCFIEN	PSNCFINQ+3~, ASK1+4, ISUM+4, ISUM+5, ISUM+6, DSUM+4, DSUM+5, DSUM+6, CHOOSE+5*, INSTALL+2 , INSTALL+14, INSTALL+15, INSTALL+16, INSTALL+17, INSTALL+18, INSTALL+19, INSTALL+20, ERROR+2, ERROR+3, ERROR+4 , END+2!
PSNCFL2	DATE+6*, HEAD+4, END+2!
PSNCFLIN	ASK+1*, HEAD+4, HEAD1+5, END+2!
PSNCFOUT	ASK+1, DATE+7, ISUM+2, ISUM+4, ISUM+7, DSUM+2, DSUM+4, DSUM+7, HEAD+1*, END+2!
PSNCFPG	ASK+1, DATE+7, ISUM+1, DSUM+1, HEAD+1, HEAD+4, HEAD1+2, HEAD1+5, DOWNLD+1, ERROR+1 , END+2!
PSNCFQ	ASK+1, ASK+6, ASK1+1, ASK1+2, ASK1+5, DATE+2, DATE+4, ISUM+8, DSUM+8, HEAD1+2* , CHOOSE+1, CHOOSE+4, INSTALL+24*, END+3!
PSNCFSM	END+3!
PSNCFSM(	ISUM+5, DSUM+5, CHOOSE+5
PSNCFXX	INSTALL+25*, INSTALL+26, END+2!
PSNDND	DOWNLD+3*, DOWNLD+4, DOWNLD+5, DOWNLD+6, DOWNLD+7, DOWNLD+8, DOWNLD+9, END+1!
PSNDT	DATE+1!, ISUM+3, DSUM+3, END+3!
PSNDT(	ISUM+3, ISUM+4, DSUM+3, DSUM+4
PSNH	HEAD1~, HEAD1+4, END+3!
PSNINNM	ASK1+4*, HEAD1+4, INSTALL+13, DOWNLD+2, END+1!
PSNJ	ISUM+1, ISUM+3, DSUM+1, DSUM+3, DOWNLD+2, DOWNLD+3, ERROR+3, ERROR+4, END+3!
PSNJD	ERROR+4*, ERROR+5, ERROR+6, ERROR+7, ERROR+8, ERROR+9, ERROR+10, END+3!
PSNX	END+3!
PSNX1	ISUM+1!, ISUM+3, DSUM+1!, DSUM+3
X	DATE+1~, CHOOSE+1!, DOWNLD+9~, ERROR+10~, END+1!
Y	ASK+2!, ASK+4, ASK+5, DATE+2, DATE+3, DATE+4, DATE+5, HEAD+1!, HEAD1+2!, CHOOSE+1! , CHOOSE+5, INSTALL+22!, INSTALL+24, INSTALL+25

Customize PDF page

Package: National Drug File

Routine: PSNCFINQ

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: