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

Package: Outpatient Pharmacy

Routine: PSO55FX3


Information

PSO55FX3 ;ISC-BHAM/MHA - cleanup of bad p nodes and mismatched Rxs in file 55 ; 07/26/2001

Source Information

Source file <PSO55FX3.m>

Entry Points

Name Comments DBIA/ICR reference
MSG ;
PH2 ;
SPH2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"*** This patch will be queued to run in the background ***",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"It will scan through the PHARMACY PATIENT file (#55) and will look"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"for possible bad 'P' or 'P','A' cross-references or prescriptions with"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"mismatched patients. If it finds any bad cross-references then it will clean"
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"those bad cross-references and a count of them for each Outpatient Site"
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"entry will be sent in a mail message to the patch installer. If it finds any"
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !,"prescriptions that belong to other patients the mail message will also include"
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: !,"a list of those patients with prescriptions that may have been discontinued"
  • Line Location: MSG+8
Function Call: WRITE
  • Prompt: !,"because a DATE OF DEATH or an ADMISSION was entered for the patient with a"
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: !,"corrupt cross-reference. Forward this mail message to the corresponding"
  • Line Location: MSG+10
Function Call: WRITE
  • Prompt: !,"Pharmacy Application Coordinator, or to the appropriate Outpatient Pharmacy"
  • Line Location: MSG+11
Function Call: WRITE
  • Prompt: !,"Personnel, for their review and correction. It will send summary information"
  • Line Location: MSG+12
Function Call: WRITE
  • Prompt: !,"to G.PL2 PATCH TRACKING group on FORUM to keep a count of bad nodes by site."
  • Line Location: MSG+13
Function Call: WRITE
  • Prompt: !,"This patch will also scan through the PRESCRIPTION file (#52) using the 'AD'"
  • Line Location: MSG+14
Function Call: WRITE
  • Prompt: !,"cross-reference and will check if a corresponding entry exists in the"
  • Line Location: MSG+15
Function Call: WRITE
  • Prompt: !,"PHARMACY PATIENT file (#55). The software will provide a count of missing"
  • Line Location: MSG+16
Function Call: WRITE
  • Prompt: !,"entries in a separate mail message that will be sent to G.PL2 PATCH TRACKING"
  • Line Location: MSG+17
Function Call: WRITE
  • Prompt: !,"on FORUM for their review.",!
  • Line Location: MSG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+19
Function Call: WRITE
  • Prompt: !,"This task stores information in ^XTMP(""PSO"" global. Upon completion of the"
  • Line Location: MSG+20
Function Call: WRITE
  • Prompt: !,"cleanup process, the information stored in this global will be used to"
  • Line Location: MSG+21
Function Call: WRITE
  • Prompt: !,"generate several e-mail messages. If this task stops unexpectedly, it can be"
  • Line Location: MSG+22
Function Call: WRITE
  • Prompt: !,"restarted by doing BEG^PSO55FX2. The routine will begin processing with the"
  • Line Location: MSG+23
Function Call: WRITE
  • Prompt: !,"last record reviewed and will utilize the same global reference for storing"
  • Line Location: MSG+24
Function Call: WRITE
  • Prompt: !,"data. No information will be lost.",!
  • Line Location: MSG+25
Function Call: WRITE
  • Prompt: !,"We recommend re-indexing the ""B"" cross-reference of the PHARMACY PATIENT file"
  • Line Location: MSG+26
Function Call: WRITE
  • Prompt: !,"(#55), during non-peak hours or when the number of pharmacy users on the system"
  • Line Location: MSG+27
Function Call: WRITE
  • Prompt: !,"is at a minimum any time after completion of this job.",!!
  • Line Location: MSG+28
Info |  Source |  Entry Points |  Interaction Calls