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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSO55FX2

Package: Outpatient Pharmacy

Routine: PSO55FX2


Information

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

Source Information

Source file <PSO55FX2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 2 ^%DT  (C,NOW)^%DTC  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 (MSG,PH2)^PSO55FX3  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END
ALOG ;
RBP ;rebuild the "P" header rec
BEG ;
CHK2 ;for every patient go through the "P","A" x-ref
CHK1 ;for every patient go through the "P" x-ref
EN1
SMAIL ;
CREC ;

External References

Name Field # of Occurrence
^%DT BEG+4
C^%DTC EN+3, ALOG+6
NOW^%DTC BEG+3
^%ZTLOAD BEG+7
MSG^PSO55FX3 BEG+2
PH2^PSO55FX3 EN+1, EN1+2
$$SITE^VASITE SMAIL+36
^XMD SMAIL+38, SMAIL+79

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!,"* DUZ NOT DEFINED - QUITTING *"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!!?10,"Job not queued - quitting!"
  • Line Location: BEG+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("AMV1" ALOG+7, ALOG+8
^DPT - [#2] ALOG+2, CREC+1, CREC+2
^PS(55 - [#55] EN1+1, CHK1+1, CHK1+3!, CHK1+4!, CHK1+7!, CHK2+1, CHK2+3!, CHK2+4!, CHK2+7!, RBP+1
, RBP+2*
^PS(59 - [#59] SMAIL+26, SMAIL+40
^PSRX - [#52] CHK1+3, CHK1+4, CHK1+6, CHK1+8, ALOG+1, ALOG+4, ALOG+5, ALOG+12, ALOG+13, ALOG+14
, CREC+4, CHK2+3, CHK2+4, CHK2+6, CHK2+8
^TMP( SMAIL+1!, SMAIL+4*, SMAIL+5*, SMAIL+6*, SMAIL+7*, SMAIL+8*, SMAIL+9*, SMAIL+11*, SMAIL+12*, SMAIL+13*
, SMAIL+14*, SMAIL+15*, SMAIL+16*, SMAIL+17*, SMAIL+19*, SMAIL+21*, SMAIL+22*, SMAIL+23*, SMAIL+24*, SMAIL+28*
, SMAIL+31*, SMAIL+32*, SMAIL+33*, SMAIL+38!, SMAIL+41*, SMAIL+42*, SMAIL+43*, SMAIL+44*, SMAIL+45*, SMAIL+46*
, SMAIL+47*, SMAIL+48*, SMAIL+49*, SMAIL+50*, SMAIL+52*, SMAIL+55*, SMAIL+56*, SMAIL+57*, SMAIL+58*, SMAIL+59*
, SMAIL+60*, SMAIL+62*, SMAIL+63*, SMAIL+64*, SMAIL+65*, SMAIL+66*, SMAIL+68*, SMAIL+71*, SMAIL+72*, SMAIL+74*
, SMAIL+75*, SMAIL+76*, SMAIL+79!, END!
^XTMP( EN+3*, EN+4, EN+5, EN+6, EN+7, EN+8, EN1+1*, CREC+4*, CREC+5*, SMAIL+25
, SMAIL+27, SMAIL+39, SMAIL+53, SMAIL+67, SMAIL+69, SMAIL+70, SMAIL+73, END!
^XTMP("PSO2" EN+1, EN1+2*

Label References

Name Line Occurrences
ALOG CHK1+8, CHK2+8
CHK1 EN1+1
CHK2 EN1+1
EN1 EN+3
RBP CHK1+9
SMAIL EN1+2

Naked Globals

Name Field # of Occurrence
^( CHK1+1, ALOG+4, ALOG+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BEG+3
%DT BEG+3!*, BEG+4!
%DT("A" BEG+3*
%DT(0 BEG+3*
>> AL ALOG+3*, ALOG+11*, ALOG+13*, CREC+4
CDFN ALOG+1*, ALOG+2, ALOG+8, ALOG+9, CREC+1, CREC+2, CREC+4, CREC+5, END!
>> CDT ALOG+5*, ALOG+6
>> CT ALOG+3*, ALOG+7, ALOG+9*, ALOG+10
DFN EN+2*, EN+5*, EN1+1*, CHK1+1, CHK1+3, CHK1+4, CHK1+6, CHK1+7, CHK2+1, CHK2+3
, CHK2+4, CHK2+6, CHK2+7, RBP+1, RBP+2, END!
DIV ALOG+14*, CREC+4, CREC+5, SMAIL+26*, SMAIL+28, SMAIL+40*, SMAIL+47, SMAIL+78, END!
DT EN+3
>> DTOUT BEG+5
DUZ BEG+1, SMAIL+35, SMAIL+77
>> EDT ALOG+6*, ALOG+7
I CHK1+1*, CHK1+3, CHK1+4, CHK1+7, RBP+1*, SMAIL+27*, END!
>> II ALOG+3*, ALOG+4*, ALOG+11*, ALOG+12*, SMAIL+69*, SMAIL+70
J CHK2+1*, CHK2+3, CHK2+4, CHK2+7, SMAIL+25*, SMAIL+26, SMAIL+27, SMAIL+28, SMAIL+39*, SMAIL+40
, SMAIL+41, SMAIL+42, SMAIL+43, SMAIL+44, SMAIL+45, SMAIL+46, SMAIL+47, SMAIL+48, SMAIL+49, SMAIL+50
, SMAIL+52, SMAIL+53, SMAIL+55, SMAIL+56, SMAIL+57, SMAIL+58, SMAIL+59, SMAIL+60, SMAIL+62, SMAIL+63
, SMAIL+64, SMAIL+65, SMAIL+66, SMAIL+67, SMAIL+68, SMAIL+69, SMAIL+70, SMAIL+71, SMAIL+72, SMAIL+73
, SMAIL+74, SMAIL+75, SMAIL+76, SMAIL+79, END!
>> JJ ALOG+3*, ALOG+4*, ALOG+5, ALOG+11*, ALOG+12*, ALOG+13
JN EN+2*, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN1+1, CREC+4, CREC+5
, SMAIL+25, SMAIL+27, SMAIL+39, SMAIL+53, SMAIL+67, SMAIL+69, SMAIL+70, SMAIL+73, END!
K SMAIL+51*, SMAIL+53*, SMAIL+59, SMAIL+60, SMAIL+61, SMAIL+67, SMAIL+69, SMAIL+70, SMAIL+71, SMAIL+72
, END!
L SMAIL+27*, SMAIL+28, SMAIL+67*, SMAIL+69, SMAIL+70, END!
LR RBP+1*, RBP+2, RBP+3!
NAME CREC+2*, CREC+4, END!
NR RBP+1*, RBP+2, RBP+3!
>> PDFN ALOG+8*, ALOG+9
>> QQ SMAIL+70*, SMAIL+71, SMAIL+72
RB CHK1+1*, CHK1+3*, CHK1+4*, CHK1+7*, CHK1+9, RBP+3!, END!
RX CHK1+1*, CHK1+3, CHK1+4, CHK1+6, CHK1+7, CHK1+8, ALOG+1, ALOG+4, ALOG+5, ALOG+12
, ALOG+13, ALOG+14, CREC+4, CREC+5, CHK2+1*, CHK2+3, CHK2+4, CHK2+6, CHK2+7, CHK2+8
, END!
>> S1 SMAIL+51*, SMAIL+59, SMAIL+71, SMAIL+72
>> S2 SMAIL+51*, SMAIL+59, SMAIL+71, SMAIL+72
>> SDT ALOG+6*, ALOG+7*, ALOG+8
>> SSN CREC+1*, CREC+2
STA EN1*, END!
STAT END!
TY EN+2*, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN1+1, CREC+4, CREC+5
, SMAIL+25, SMAIL+27, SMAIL+39, SMAIL+53, SMAIL+67, SMAIL+69, SMAIL+70, SMAIL+73, END!
>> UL SMAIL+51*, SMAIL+52, SMAIL+64, SMAIL+74
>> X EN+3, ALOG+6
X1 EN+3*, ALOG+6*, END!
X2 EN+3*, ALOG+6*, END!
XMDUZ SMAIL+37*, SMAIL+77*, END!
>> XMSUB SMAIL+36*, SMAIL+78*
>> XMTEXT SMAIL+38*, SMAIL+79*
XMY SMAIL+1!, SMAIL+38!, SMAIL+79!, END!
XMY( SMAIL+35*, SMAIL+77*
XMY("G.PL2 PA TCH TRACKING@DOMAIN.NAME" , SMAIL+35*
XX SMAIL+24*, SMAIL+28*, SMAIL+53*, SMAIL+55*, SMAIL+56*, SMAIL+57*, SMAIL+58*, SMAIL+59*, SMAIL+60*, SMAIL+62*
, SMAIL+63*, SMAIL+64*, SMAIL+65*, SMAIL+66*, SMAIL+68, SMAIL+71*, SMAIL+72*, SMAIL+74*, SMAIL+75*, SMAIL+76*
, END!
XY SMAIL+25!, END!
XY( SMAIL+28*, SMAIL+49
XZ CHK1+1!, CHK2+9!
XZ( CHK1+3*, CHK1+4*, CHK1+7*, CHK2+3, CHK2+4, CHK2+7
>> Y BEG+5, BEG+6
>> YY SMAIL+51*, SMAIL+54, SMAIL+60*, SMAIL+62*
ZA EN+2*, EN+6*, EN1+1, CHK1+3*, CHK1+4*, CHK1+7*, SMAIL+2, SMAIL+6, END!
ZB EN+2*, EN+7*, EN1+1, CHK2+3*, CHK2+4*, CHK2+7*, SMAIL+2, SMAIL+7, END!
ZC EN+2*, EN+8*, EN1+1, CREC+4*, SMAIL+2, SMAIL+8, SMAIL+10, SMAIL+20, END!
>> ZTDESC BEG+6*
>> ZTDTH BEG+6*
>> ZTIO BEG+6*
>> ZTRTN BEG+6*
>> ZTSAVE("DUZ" BEG+6*
>> ZTSK BEG+7
ZZ SMAIL+1*, SMAIL+4, SMAIL+5, SMAIL+6, SMAIL+7, SMAIL+8, SMAIL+9, SMAIL+11, SMAIL+12, SMAIL+13
, SMAIL+14, SMAIL+15, SMAIL+16, SMAIL+17, SMAIL+19, SMAIL+21, SMAIL+22, SMAIL+23, SMAIL+24, SMAIL+28
, SMAIL+31, SMAIL+32, SMAIL+33, SMAIL+38, SMAIL+41, SMAIL+42, SMAIL+43, SMAIL+44, SMAIL+45, SMAIL+46
, SMAIL+47, SMAIL+48, SMAIL+49, SMAIL+50, SMAIL+52, SMAIL+55, SMAIL+56, SMAIL+57, SMAIL+58, SMAIL+59
, SMAIL+60, SMAIL+62, SMAIL+63, SMAIL+64, SMAIL+65, SMAIL+66, SMAIL+68, SMAIL+71, SMAIL+72, SMAIL+74
, SMAIL+75, SMAIL+76, SMAIL+79, END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All