Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSAP54

Package: Drug Accountability

Routine: PSAP54


Information

PSAP54 ;VMP/RJS BUILD XTMP("PSAVSN" FROM A FLAT FILE ; 14MAR06

Source Information

Source file <PSAP54.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 $$FTG^%ZISH  $$FMADD^XLFDT  (BMES,MES)^XPDUTL  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DIR
EN
END
ERRMSG ; ERROR MESSAGE IF FILE WAS DOWNLOAD IN BINARY FORMAT
POSINIT ; PATCH POST INSTALL
POSERR1 ; ERROR MESSAGE IF FILE COULD NOT BE OPENED
POSERR2 ; ERROR MESSAGE IF FILE WAS FUOUND BUT HAS ALREADY BEEN INSTALLED
POSERR3 ; ERROR MESSAGE IF THE FLAT FILE WAS DOWNLOADED IN BINARY FORMAT

External References

Name Field # of Occurrence
$$FTG^%ZISH DIR+4, POSINIT+2
^DIR DIR, DIR+2
$$FMADD^XLFDT EN
BMES^XPDUTL POSERR1+2, POSERR1+6, POSERR2+2, POSERR3+1
MES^XPDUTL POSINIT+9, POSINIT+11, POSERR1+3, POSERR1+4, POSERR1+5, POSERR1+7, POSERR2+3, POSERR2+4, POSERR3+2, POSERR3+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Build McKesson VSN to Dispense Units Per Order Unit and Drug Description Data"
  • Line Location: PSAP54+6
Function Call: WRITE
  • Prompt: !!,"This Utility is used to build the ^XTMP(""PSAVSN"" global with then McKesson VSN,",!,"DUOU & Description. Please follow these steps prior to running this utility:",!
  • Line Location: PSAP54+7
Function Call: WRITE
  • Prompt: !,"1) Retrieve the MCKESSON_UPDATE.DAT in ASCII format directly from one of these",!,?5,"FTP servers:"
  • Line Location: PSAP54+8
Function Call: WRITE
  • Prompt: !,?5,"Albany ftp.fo-albany.domain.ext",!,?5,"Hines ftp.fo-hines.domain.ext",!,?5,"Salt Lake City ftp.fo-slc.domain.ext"
  • Line Location: PSAP54+9
Function Call: WRITE
  • Prompt: !," The preferred FTP server retrieve the file from download.vista.domain.ext",!," which will transmit the files from the first available FTP server."
  • Line Location: PSAP54+10
Function Call: WRITE
  • Prompt: !!,"2) At the HOST DIRECTORY: prompt enter the name of the directory that you",!," placed the file in. i.e. USER$:[TEMP]"
  • Line Location: PSAP54+11
Function Call: WRITE
  • Prompt: !!,?5,"If you enter an invalid directory this utility will return you to the",!,?5,"HOST DIRECTORY: prompt: Enter ^ to Quit:",!!
  • Line Location: PSAP54+12
Function Call: WRITE
  • Prompt: !,?5,"INVALID DIRECTORY NAME OR FILE DOES NOT EXIST",!,?5,"PLEASE ENTER THE DIRECTORY AGAIN"
  • Line Location: DIR+5
Function Call: WRITE
  • Prompt: !,"The McKesson Update for ",PSAFLDT," has already been installed",!,"Please try downloading the file again."
  • Line Location: DIR+9
Function Call: WRITE
  • Prompt: !!,"PROCESSING PLEASE WAIT "
  • Line Location: DIR+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"PROCESSING COMPLETE. The ^XTMP(""PSAVSN"" global has been updated"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,?10,"There was a problem with the input file."
  • Line Location: ERRMSG+2
Function Call: WRITE
  • Prompt: !,?9,"It may have been downloaded in BINARY mode."
  • Line Location: ERRMSG+3
Function Call: WRITE
  • Prompt: !,?6,"Please try downloading it again using ASCII mode.",!!
  • Line Location: ERRMSG+4
Routine Call
  • DIR
  • Line Location:
    • DIR
    • DIR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSAVSN" DIR+4, DIR+6, DIR+9!, EN+3, EN+6, END!, ERRMSG+1!, POSINIT+2, POSINIT+4, POSINIT+8
, POSERR2+5!, POSERR3+4!
^XTMP("PSAVSN" DIR+9, EN+1*, EN+9*, POSINIT+7

Label References

Name Line Occurrences
DIR DIR+5
EN POSINIT+10
END DIR+9
ERRMSG DIR+7
POSERR1 POSINIT+3
POSERR2 POSINIT+7
POSERR3 POSINIT+5, POSINIT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR DIR!, DIR+2!
DIR("A" DIR*, DIR+2*
DIR("B" DIR+2*
DIR(0 DIR*, DIR+2*
DT EN, EN+1
DUOUT PSAP54+13~, DIR, DIR+2
IOF PSAP54+5
MSG POSERR1+1*, POSERR1+2, POSERR2+1*, POSERR2+2, POSERR2+5!
PSACNTR EN+2*, EN+4*, EN+5*, END!, ERRMSG+1!
PSADATA DIR+6*, DIR+7, DIR+8, EN+6*, EN+7, EN+8, END!, ERRMSG+1!, POSINIT+4*, POSINIT+5
, POSINIT+6
PSADESC DIR+8*, EN+1, EN+8*, EN+9, END!, ERRMSG+1!, POSINIT+6*
PSADIR DIR+1*, DIR+4, END!, ERRMSG+1!, POSINIT+1*, POSINIT+2, POSERR1+1, POSERR1+8!, POSERR2+5!, POSERR3+4!
PSADT EN*, EN+1, END!, ERRMSG+1!
PSADUOU EN+8*, EN+9, END!, ERRMSG+1!
PSAFILE DIR+3*, DIR+4, END!, ERRMSG+1!, POSINIT+1*, POSINIT+2, POSERR1+1, POSERR1+8!, POSERR2+5!, POSERR3+4!
PSAFLDT DIR+8*, DIR+9, EN+1, END!, ERRMSG+1!, POSINIT+6*, POSINIT+7, POSERR2+1
PSAREC EN+2*, EN+3*, EN+6, END!, ERRMSG+1!
PSAVSN EN+8*, EN+9, END!, ERRMSG+1!
X PSAP54+13~, DIR+1, DIR+3
>> XPDQUES EN+5, EN+10
>> XPDQUES("POSPSADIR" POSINIT+1
>> XPDQUES("POSPSAFILE" POSINIT+1
Y PSAP54+13~, DIR+4*, DIR+5, POSINIT+2*, POSINIT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All