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

Package: Outpatient Pharmacy

Routine: PSOELPS2


Information

PSOELPS2 ;BIR/EJW-CPRS and Outpatient Pharmacy Status Update ;12/04/02

Source Information

Source file <PSOELPS2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  (C,NOW)^%DTC  ^DIC  ^DIR  
Kernel 3 ^%ZTLOAD  $$DT^XLFDT  (BMES,MES)^XPDUTL  
MailMan 1 ^XMD  
Order Entry Results Reporting 1 $$STATUS^ORQOR2  
Outpatient Pharmacy 1 EN^PSOHLSN1  

Entry Points

Name Comments DBIA/ICR reference
EN ;
CHKARROW ;
ACT ; SET ENTRY IN ACTIVITY LOG
ASK
MAIL ;Send MailMan message upon job completion
UPDCPRS ; UPDATE CPRS ENTRY WITH CORRECT STATUS AND DATE
GETPACRF ;
GETDEL ;
GETDATE ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN

External References

Name Field # of Occurrence
^%DT GETDATE+8
DD^%DT MAIL+8, MAIL+9, GETDATE+3, GETDATE+11
C^%DTC UPDCPRS+3
NOW^%DTC EN+5, MAIL+4, ACT+4, GETDATE+3, GETDATE+7
^%ZTLOAD PSOELPS2+21
^DIC GETPACRF+1
^DIR GETPACRF+6
$$STATUS^ORQOR2 EN+11
EN^PSOHLSN1 UPDCPRS+1
$$DT^XLFDT EN+4
^XMD MAIL+12
BMES^XPDUTL PSOELPS2+10, PSOELPS2+13, PSOELPS2+17, GETPACRF+3, GETPACRF+4, GETPACRF+5, GETDATE+4, ASK, ASK+1
MES^XPDUTL PSOELPS2+11, PSOELPS2+12, PSOELPS2+14, PSOELPS2+15, PSOELPS2+16, PSOELPS2+18, PSOELPS2+19, GETDATE+5, GETDATE+6, GETDATE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+7
Function Call: READ
  • Timeout: 300
  • Variable: XX
  • Line Location: ASK+1
Routine Call
  • DIC
  • Line Location:
    • GETPACRF+1
Routine Call
  • DIR
  • Line Location:
    • GETPACRF+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" EN+1
^OR(100 - [#100] EN+12, EN+13, UPDCPRS+4*, UPDCPRS+5*
^PSRX - [#52] EN+8, EN+9, EN+14, EN+24*, GETDEL+2, GETDEL+4, ACT+2, ACT+3*, ACT+4*, CHKARROW+2
, CHKARROW+8*
^PSRX("APL" EN+7
^XTMP("PSOELPS2" EN+1, MAIL+13, UPDCPRS+3*, UPDCPRS+4*, UPDCPRS+5*, CHKARROW+5*

Label References

Name Line Occurrences
ACT EN+22
ASK ASK+1
CHKARROW EN+10
GETDATE PSOELPS2+20, ASK+2
GETDEL EN+16, EN+20
GETPACRF PSOELPS2+8, EN+3
UPDCPRS EN+18, EN+23

Naked Globals

Name Field # of Occurrence
^( GETDEL+2
^(3 UPDCPRS+5
^(6 UPDCPRS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5, MAIL+4, ACT+4, GETDATE+3, GETDATE+7
%DT GETDATE+7!*, GETDATE+8!
%DT("A" GETDATE+7*
%DT(0 GETDATE+7*
DIC GETPACRF+1*!
DIC(0 GETPACRF+1*
DIFROM MAIL+12~
DIR GETPACRF+6!
DIR("A" GETPACRF+6*
DIR(0 GETPACRF+6*
DT EN+4*, UPDCPRS+2, UPDCPRS+3
>> DTOUT GETDATE+8
DUZ MAIL+2, MAIL+3, UPDCPRS+1*, ACT+4
IR ACT+1~, ACT+2*, ACT+3*, ACT+4
J ACT+1~, ACT+2*
>> NOW GETDATE+2*, GETDATE+8*, GETDATE+9, ASK
PSOACRL EN+2~, GETDEL+4*, GETDEL+5
PSOADT EN+2~, GETDEL+2*, GETDEL+5*, UPDCPRS+2*, UPDCPRS+4, UPDCPRS+5
PSOALC EN+2~, GETDEL+5*, GETDEL+6
PSOCOMM EN+2~, GETDEL+1*, GETDEL+5*, GETDEL+6*, UPDCPRS+1
PSOCPRS EN+2~, EN+7*, EN+8, EN+11, EN+12, EN+13, UPDCPRS+4, UPDCPRS+5
PSOCSTAT EN+2~, EN+14*, EN+15, EN+19
PSOECT EN+2~, EN+6*, MAIL+6, UPDCPRS+1*
PSOEND EN+2~, MAIL+4*, MAIL+9*, MAIL+11
PSOETEXT EN+2~
PSOETEXT(1 MAIL+5*
PSOETEXT(2 MAIL+6*
PSOETEXT(3 MAIL+7*
PSOETEXT(4 MAIL+10*
PSOETEXT(5 MAIL+11*
PSOIJ EN+2~, GETDEL+2*
PSOJJ EN+2~, EN+17, EN+21, GETDEL+2*, GETDEL+3, GETDEL+4
PSONAT EN+2~, GETDEL+5*, UPDCPRS+1
PSOPACRF PSOELPS2+7~, PSOELPS2+9, EN+3, EN+13, MAIL+1!, GETPACRF+7*
PSOPHR EN+2~, GETDEL+2*, GETDEL+5*, UPDCPRS+1
PSOREAS EN+2~, GETDEL+2*
>> PSORX2 EN+6*, MAIL+7, CHKARROW+7*
PSORXNUM EN+2~, EN+7*, EN+8, EN+9, EN+12, EN+14, EN+24, GETDEL+2, GETDEL+4, UPDCPRS+1
, ACT+2, ACT+3, ACT+4, CHKARROW+2, CHKARROW+5, CHKARROW+8
PSOSTA EN+2~, EN+11*, EN+15, EN+19
PSOSTART EN+2~, EN+5*, MAIL+8*, MAIL+10
PSOXCOM EN+2~
PSOXDT EN+2~
PSOZDUZ EN+2~, UPDCPRS+1*
RX2 CHKARROW+1~, CHKARROW+2*, CHKARROW+3, CHKARROW+4, CHKARROW+5, CHKARROW+6*, CHKARROW+8
>> SAVEY GETDATE+10*, GETDATE+13
>> TODAY GETDATE+3*
>> X UPDCPRS+3, GETPACRF+1*, GETDATE+12*, ASK
>> X1 UPDCPRS+3*
>> X2 UPDCPRS+3*
XMDUZ MAIL+3*, MAIL+12!
XMSUB MAIL+3*, MAIL+12!
XMTEXT MAIL+12*!
>> XMY( MAIL+3*
>> XX ASK+1*, ASK+2
Y MAIL+8*, MAIL+9*, MAIL+12!, GETPACRF+2, GETPACRF+7, GETDATE+3*, GETDATE+8, GETDATE+9, GETDATE+10, GETDATE+12
, GETDATE+13*, ASK+3
ZTDESC PSOELPS2+21*!
ZTDTH PSOELPS2+21!, GETDATE+1*, GETDATE+8*, ASK+3*, ASK+4*
ZTIO PSOELPS2+21*!
>> ZTQUEUED PSOELPS2+22, EN+1, MAIL+14
>> ZTREQ EN+1*, MAIL+14*
ZTRTN PSOELPS2+21*!
>> ZTSAVE("PSOPACRF" PSOELPS2+21*
>> ZTSK PSOELPS2+22
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All