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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 C^%DTC  ^DIR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO55FX2  

Entry Points

Name Comments DBIA/ICR reference
MSG ;
PH2 ;
SPH2

External References

Name Field # of Occurrence
C^%DTC PH2+2
^DIR MSG+19
$$SITE^VASITE SPH2+20
^XMD SPH2+22

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
Routine Call
  • DIR
  • Line Location:
    • MSG+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] SPH2+4, SPH2+5
^PSRX - [#52] SPH2+1, SPH2+2, SPH2+3, SPH2+6
^PSRX("AD" SPH2, SPH2+1
^TMP( SPH2+9*, SPH2+10*, SPH2+11*, SPH2+13*, SPH2+14*, SPH2+15*, SPH2+17*, SPH2+23!
^XTMP( PH2+2*, PH2+3, PH2+4, PH2+5, PH2+6, SPH2+6*, SPH2+7*, SPH2+17, SPH2+23!
^XTMP("PSO2" SPH2+23!

Label References

Name Line Occurrences
SPH2 PH2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AL SPH2+24!
CDT SPH2+24!
CT SPH2+24!
DFN SPH2+3*, SPH2+4, SPH2+5, SPH2+23!
DIR MSG+19!
DIR("A" MSG+19*
DIR(0 MSG+19*
DT PH2+2
EDT SPH2+24!
II SPH2+24!
IOF MSG+1
J SPH2+3*, SPH2+4*, SPH2+5, SPH2+16*, SPH2+17*, SPH2+23!
JJ SPH2+24!
JN PH2+1*, PH2+2, PH2+3, PH2+4, PH2+5, PH2+6, SPH2+6, SPH2+7, SPH2+17, SPH2+23!
PDFN SPH2+24!
PF SPH2+3*, SPH2+4, SPH2+5*, SPH2+6, SPH2+23!
PS PH2+1*, PH2+6*, SPH2+6*, SPH2+7, SPH2+10, SPH2+12, SPH2+23!
QQ SPH2+24!
RX PH2+1*, PH2+5*, SPH2+1*, SPH2+2, SPH2+3, SPH2+5, SPH2+6, SPH2+7, SPH2+8*, SPH2+23!
S1 SPH2+24!
S2 SPH2+24!
SD PH2+1*, PH2+4*, SPH2*, SPH2+1, SPH2+7, SPH2+23!
SDT SPH2+24!
TY PH2+1*, PH2+2, PH2+3, PH2+4, PH2+5, PH2+6, SPH2+6, SPH2+7, SPH2+17, SPH2+23!
UL SPH2+24!
>> X PH2+2
X1 PH2+2*, SPH2+23!
X2 PH2+2*, SPH2+23!
XMDUZ SPH2+21*, SPH2+23!
>> XMSUB SPH2+20*
>> XMTEXT SPH2+22*
XMY SPH2+23!
XMY("G.PL2 PA TCH TRACKING@DOMAIN.NAME" , SPH2+18*
XX SPH2+16*, SPH2+17*, SPH2+23!
YY SPH2+24!
>> ZTQUEUED SPH2+25
>> ZTREQ SPH2+25*
ZZ SPH2+9*, SPH2+10, SPH2+11, SPH2+13, SPH2+14, SPH2+15, SPH2+17, SPH2+23!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All