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

Package: Inpatient Medications

Routine: PSJ0099


Information

PSJ0099 ;BIR/JLC - EVALUATE IV ORDER PROBLEMS ;12/03/2002

Source Information

Source file <PSJ0099.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$FMADD^XLFDT  
VA Fileman 2 NOW^%DTC  ^DIE  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
START ;run through entries in XTMP("PSOPOST7"
NOSTOP
ENNV ; Begin check of existing orders
SENDMSG ;Send mail message when check is complete.

External References

Name Field # of Occurrence
NOW^%DTC START+14, SENDMSG+1
^%ZTLOAD ENNV+2
^DIE NOSTOP+10
$$FMADD^XLFDT START+14
^XMD SENDMSG+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined to run this routine."
  • Line Location: ENNV+1
Function Call: WRITE
  • Prompt: !!,"The check of existing Pharmacy orders is",$S($D(ZTSK):"",1:" NOT")," queued",!
  • Line Location: ENNV+3
Function Call: WRITE
  • Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
  • Line Location: ENNV+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: S1," = ",@S1,!
  • Line Location: START+8
Routine Call
  • DIE
  • Line Location:
    • NOSTOP+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SENDMSG+1
^PS(55 - [#55] START+9, START+12, NOSTOP+1, NOSTOP+3, NOSTOP+4, NOSTOP+11*
^XTMP("PSJ0099" START+9*, START+11*, START+12!, START+13*, START+15, SENDMSG+6, NOSTOP+12!
^XTMP("PSOPOST7" START+1, START+2, START+4, START+6, SENDMSG+3

Label References

Name Line Occurrences
NOSTOP START+13

Naked Globals

Name Field # of Occurrence
^("PSOPOST7" START+1*
^($J START+15*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+14, SENDMSG+1
>> A START+9*, START+10, NOSTOP+5*, NOSTOP+6, NOSTOP+7
>> ACTDATA NOSTOP+4*, NOSTOP+5
>> CHK START+7*, START+8
>> CREAT START+14*, START+15
>> D2 NOSTOP*, NOSTOP+1*, NOSTOP+3, NOSTOP+4
>> D3 NOSTOP+2*, NOSTOP+3*, NOSTOP+4
>> DA NOSTOP+10*
>> DA(1 NOSTOP+10*
>> DFN START+3*, START+4*, START+6, START+7, START+9, START+11, START+12, START+13, NOSTOP+1, NOSTOP+3
, NOSTOP+4, NOSTOP+10, NOSTOP+11, NOSTOP+12
>> DIE NOSTOP+10*
DR NOSTOP+10!*
DUZ ENNV+1, SENDMSG+1
>> EXPR START+14*, START+15
>> JOB START+1*, START+2*, START+4, START+6
>> OLD NOSTOP*, NOSTOP+7*, NOSTOP+8*, NOSTOP+9
PSG SENDMSG+1!
PSG(1 SENDMSG+2*
PSG(2 SENDMSG+2*
PSG(3 SENDMSG+4*
PSG(4 SENDMSG+4*
PSG(5 SENDMSG+5*
PSG(6 SENDMSG+5*
PSG(7 SENDMSG+6*
PSG(8 SENDMSG+6*
>> PSJORD START+5*, START+6*, START+7, START+9, START+11, START+12, START+13, NOSTOP+1, NOSTOP+3, NOSTOP+4
, NOSTOP+10, NOSTOP+11, NOSTOP+12
>> PSJSTART START+14*
>> PSSTART START+10*
>> PSSTATUS START+10*, START+11
>> PSSTOP START+10*, NOSTOP+8
>> S1 START+7*, START+8*
>> STATUS NOSTOP+9*, NOSTOP+10, NOSTOP+11
>> XMDUZ SENDMSG+1*
>> XMSUB SENDMSG+1*
>> XMTEXT SENDMSG+1*
XMY SENDMSG+1!
XMY( SENDMSG+1*
>> Y SENDMSG+1*, SENDMSG+2
>> ZTDESC ENNV+2*
>> ZTIO ENNV+2*
>> ZTRTN ENNV+2*
ZTSAVE ENNV+2!
ZTSK ENNV+2!, ENNV+3, ENNV+4, ENNV+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All