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

Package: Inpatient Medications

Routine: PSJIPST1


Information

PSJIPST1 ;BIR/CML3-INSTALL INPATIENT MEDS FOR OE/RR (& MAS) ;03 OCT 96 / 8:42 AM

Source Information

Source file <PSJIPST1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 3 ENS^PSGIU  BADNAMES^PSJIPST3  CONVERT^PSJUTL1  
Kernel 3 ^%ZTLOAD  $$FMDIFF^XLFDT  MES^XPDUTL  
VA Fileman 2 NOW^%DTC  FILE^DICN  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJIPST  

Entry Points

Name Comments DBIA/ICR reference
ENPL ; Entry point to begin conversion process to change pick list
; from primary drug to orderable item.
DEQORDER ; Convert existing UD and IV orders to new format.
; Entries found with no 0 node will be deleted!
; THIS IS NO LONGER USED
UNDO ; FOR DIAGNOSTIC DEVELOPMENT ONLY!!!
ENORDER ; Begin conversion of existing orders (active after t-365)
; THIS IS NO LONGER CALLED FROM OUR POST INIT
; THIS CONVERSION IS RAN THROUGH CPRS
START ;
MAILMUD ;
DONE ;
SETUP1 ;
ENMUD ; Mark ALL 50 drugs as UD items.
SETUP ;

External References

Name Field # of Occurrence
NOW^%DTC DEQORDER+4, DEQORDER+9, MAILMUD+1
^%ZTLOAD ENORDER+4, ENPL+3
FILE^DICN SETUP1+4
ENS^PSGIU ENMUD+1
BADNAMES^PSJIPST3 DEQORDER+6
CONVERT^PSJUTL1 DEQORDER+5
$$FMDIFF^XLFDT DEQORDER+11
^XMD DEQORDER+13, MAILMUD+3
MES^XPDUTL ENORDER+6, ENORDER+7, ENORDER+9, ENPL+5, ENPL+6, ENPL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
  • Line Location: ENORDER+8
Function Call: WRITE
  • Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
  • Line Location: ENPL+7
Function Call: WRITE
  • Prompt: $C(7),!!,"Cannot find the protocol menu '",MENU,"'.",!,"You need to add the protocol '",ITEM,"' to this protocol menu.",!
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Cannot find the protocol '",ITEM,"'.",!,"You need to add this protocol to the protocol menu '",MENU,"'.",!
  • Line Location: SETUP1+1
Function Call: WRITE
  • Prompt: !,"Protocol '",ITEM,"' is already set up under the protocol",!,"menu '",MENU,"'."
  • Line Location: SETUP1+2
Function Call: WRITE
  • Prompt: !,"Protocol '",ITEM,"' ",$S($P(Y,"^",3):"",1:"NOT "),"added to the protocol menu",!,"'",MENU,"'."
  • Line Location: SETUP1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEQORDER+9, MAILMUD+1
^DD(101 SETUP1+3
^ORD(101 - [#101] SETUP+1, SETUP1+1, SETUP1+2, SETUP1+3*
^PS(55 - [#55] DEQORDER+5, UNDO+1*, UNDO+2!, UNDO+3!
^PSDRUG - [#50] ENMUD+1

Label References

Name Line Occurrences
DONE START+3
SETUP START+3

Naked Globals

Name Field # of Occurrence
^("I" ENMUD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEQORDER+4, DEQORDER+9, DEQORDER+11, MAILMUD+1
APU MAILMUD+1~
DA DONE+1!, SETUP1+4!
DA(1 SETUP1+4*
>> DAYS DEQORDER+11*, DEQORDER+12
DD SETUP1+4!
DFN DEQORDER+5*, DONE+1!, UNDO+1*, UNDO+2, UNDO+3
DIC DONE+1!, SETUP1+4!*
DIC(0 SETUP1+4*
DIE DONE+1!
DIFROM DEQORDER+13~, MAILMUD+3~
DIK DONE+1!
DINUM DONE+1!
DLAYGO DONE+1!, SETUP1+4*
DO SETUP1+4!
DR DONE+1!
DRG ENMUD+1*, MAILMUD+1~
DT ENMUD+1
DUZ DEQORDER+9, MAILMUD+1
>> HOURS DEQORDER+11*, DEQORDER+12
ITEM START+3*, DONE+1!, SETUP+1, SETUP1+1, SETUP1+2, SETUP1+5
MENU START+3*, DONE+1!, SETUP+1, SETUP1+1, SETUP1+2, SETUP1+5
>> MENUP SETUP+1*, SETUP1+2, SETUP1+3, SETUP1+4
>> MINS DEQORDER+11*, DEQORDER+12
ON DONE+1!, UNDO+2*, UNDO+3*
>> PCNT DEQORDER+4*, DEQORDER+5*, DEQORDER+12
PSG DEQORDER+9!, DONE+1!
PSG(1 DEQORDER+10*
PSG(2 DEQORDER+10*
PSG(3 DEQORDER+12*
PSG(4 DEQORDER+12*
PSG(5 DEQORDER+12*
>> PSIUDA ENMUD+1*
>> PSIUX ENMUD+1*
PSJ MAILMUD+1~
PSJ(1 MAILMUD+2*
PSJ(2 MAILMUD+2*
>> PSJMESSG ENORDER+7*, ENORDER+9*, ENPL+6*, ENPL+8*
>> PSJSTART DEQORDER+4*, DEQORDER+11
U UNDO+1
X DEQORDER+11*, DONE+1!, SETUP1+1*, SETUP1+2
XMDUZ DEQORDER+9*, DONE+1!, MAILMUD+1*
XMSUB DEQORDER+9*, DONE+1!, MAILMUD+1*
XMTEXT DEQORDER+9*, DONE+1!, MAILMUD+1*
XMY DEQORDER+9!, DONE+1!, MAILMUD+1~
XMY( DEQORDER+9*, MAILMUD+1*
Y DEQORDER+9*, DEQORDER+10, DONE+1!, SETUP1+5, MAILMUD+1*, MAILMUD+2
ZTDESC ENORDER+4*, ENPL+3*, DONE+1!
ZTDTH ENORDER+4*, ENPL+3*, DONE+1!
ZTIO ENORDER+4*, ENPL+3*, DONE+1!
ZTREQ DONE+1!
ZTRTN ENORDER+4*, ENPL+3*, DONE+1!
ZTSAVE ENORDER+4!, ENPL+3!, DONE+1!
ZTSK ENORDER+4!, ENORDER+7, ENORDER+9, ENPL+3!, ENPL+6, ENPL+8, DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All