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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJBCMA6

Package: Inpatient Medications

Routine: PSJBCMA6


Information

PSJBCMA6 ;B'ham/JCH - Send Message when Clinic Order Setup incomplete ; 18 Aug 98 / 2:48 PM

Source Information

Source file <PSJBCMA6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^%DT  NOW^%DTC  ^DIC  
Inpatient Medications 2 TXT^PSGMUTL  CONT^PSJOE0  
List Manager 1 (CLEAR,FULL)^VALM1  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 3 PSJ LM FINISH  PSJHL4  PSJI LM FINISH  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
NOCLDEF(DFN,ORDER) ; If clinic not defined in Clinic Definition file for Pending order, send message
MSGEN(PSJCLMSG) ; Begin
SENDMSG ;Send mail message
DONE ;
GETDT ; check date/time for job to run
CON() ;
CWARN(DFN,ORDER) ; Display warning about undefined CLINIC DEFINITION

External References

Name Field # of Occurrence
^%DT GETDT+2, CON+1
NOW^%DTC SENDMSG+1
^DIC NOCLDEF+4, NOCLDEF+6, CWARN+4, CWARN+5
TXT^PSGMUTL NOCLDEF+14, CWARN+9
CONT^PSJOE0 CWARN+14
CLEAR^VALM1 CWARN+7
FULL^VALM1 CWARN+7
^XMD SENDMSG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CWARN+10
Function Call: WRITE
  • Prompt: !,MARX(I)
  • Line Location: CWARN+10
Function Call: WRITE
  • Prompt: !!,"This order will NOT display in BCMA, unless the clinic is defined in the"
  • Line Location: CWARN+11
Function Call: WRITE
  • Prompt: !,"CLINIC DEFINITION (#53.46) file, and the SEND TO BCMA (#3) field is set to YES."
  • Line Location: CWARN+12
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy ADPAC.",!
  • Line Location: CWARN+13
Routine Call
  • DIC
  • Line Location:
    • NOCLDEF+4
    • NOCLDEF+6
    • CWARN+4
    • CWARN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^PS(53.46 - [#53.46] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SENDMSG+1
^PS(53.1 - [#53.1] NOCLDEF+3, CWARN+3

Label References

Name Line Occurrences
MSGEN NOCLDEF+16
SENDMSG MSGEN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOCLDEF+17!, SENDMSG+1
%DT GETDT+1~*, CON+1~*
CL NOCLDEF+2~, NOCLDEF+3*, NOCLDEF+4, NOCLDEF+6, CWARN+2~, CWARN+3*, CWARN+4, CWARN+5
CLNM NOCLDEF+2~, NOCLDEF+7*, NOCLDEF+9, NOCLDEF+13, CWARN+2~, CWARN+6*, CWARN+8
DA DONE+1!
DFN NOCLDEF~, NOCLDEF+1, NOCLDEF+11, CWARN~, CWARN+1
DIC NOCLDEF+2~, NOCLDEF+4*, NOCLDEF+6*, CWARN+2~, CWARN+4*, CWARN+5*
DIC(0 NOCLDEF+4*, NOCLDEF+6*, CWARN+4*, CWARN+5*
DIK DONE+1!
I NOCLDEF+2~, NOCLDEF+15*, SENDMSG+2~*, CWARN+2~, CWARN+10*
MARX DONE+1!, CWARN+2~
MARX( NOCLDEF+15, CWARN+10
MSG1 CWARN+2~, CWARN+8*, CWARN+9
MSG2 NOCLDEF+2~, NOCLDEF+13*, NOCLDEF+14
ND0 NOCLDEF+2~
NDP2 NOCLDEF+2~
ORDER NOCLDEF~, NOCLDEF+1, NOCLDEF+3, NOCLDEF+12, CWARN~, CWARN+1, CWARN+3
PSG SENDMSG+1!
PSGCL DONE+1!
PSGCL( SENDMSG+2*
PSJCLMSG MSGEN~
PSJCLMSG( SENDMSG+2
PSJMARR NOCLDEF+2~, NOCLDEF+16
PSJMARR(1 NOCLDEF+8*
PSJMARR(3 NOCLDEF+9*
PSJMARR(4 NOCLDEF+10*
PSJMARR(5 NOCLDEF+11*
PSJMARR(6 NOCLDEF+12*
PSJMARR(7 NOCLDEF+12*, NOCLDEF+15*
X NOCLDEF+2~, NOCLDEF+4*, NOCLDEF+6*, DONE+1!, GETDT+2!, GETDT+3*, CWARN+2~, CWARN+4*, CWARN+5*
XMDUN DONE+1!
XMDUZ SENDMSG+1*, DONE+1!
XMMG DONE+1!
XMSUB SENDMSG+1*, DONE+1!
XMTEXT SENDMSG+1*, DONE+1!
XMY SENDMSG+1!, DONE+1!
XMY("G.PSJ CL INIC DEFINITION" , SENDMSG+1*
XMZ DONE+1!
Y NOCLDEF+2~, NOCLDEF+4, NOCLDEF+6, NOCLDEF+7, SENDMSG+1*, DONE+1!, GETDT+1~, GETDT+2, GETDT+3, CON+2
, CWARN+2~, CWARN+4, CWARN+5, CWARN+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All