Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
START ;
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
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
DONE ;
UNDO ; FOR DIAGNOSTIC DEVELOPMENT ONLY!!!
SETUP ;
SETUP1 ;
ENMUD ; Mark ALL 50 drugs as UD items.
MAILMUD ;

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
Info |  Source |  Entry Points |  Interaction Calls