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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSNCFINQ

Package: National Drug File

Routine: PSNCFINQ


Information

PSNCFINQ ;BIR/PC - Control File Inquiry Screen ;01/30/2017

Source Information

Source file <PSNCFINQ.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.23 - [#57.23] GETS^DIQ
57.231 GET1^DIQ,  GETS^DIQ
57.234 GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call