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

Package: Inpatient Medications

Routine: PSJCLOR3


Information

PSJCLOR3 ;BIR/JCH - GET UNIT DOSE/IV CLINIC ORDERS ; 2/28/12 9:11am

Source Information

Source file <PSJCLOR3.m>

Entry Points

Name Comments DBIA/ICR reference
ECHK ;
SET ;
IVSET ;Set IV data in ^TMP("PSJ",$J,.
IVSET1 ;
ENU ; update status field to reflect expired orders, if necessary
ENUNM ;
EN(PSJPTYP) ; enter here to find clinic orders meeting search criteria, store in ^TMP
; PSJPTYP=1:UD ONLY, 2:IV ONLY, 3:BOTH
NVSET ; Set up orders from 53.1.
KILL ;
COMCHK(PSJCOM,PSJPTYP) ;Check complex orders for order type
PRMPTOR ; Prompt for order numbers
PRMPTSD ; Prompt for start date/time
PRMPTSD2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...a few moments, I have some updating to do..."
  • Line Location: ENU+1
Function Call: WRITE
  • Prompt: !!," * The new start date is after one or more stop date(s). * ",!," The stop date(s) will be automatically changed to reflect the new start date.",!
  • Line Location: PRMPTSD+39
Function Call: WRITE
  • Prompt: !!," * This patient has active order(s) on "_$$FMTE^XLFDT($P(PSJNEWSD,"."))_". *"
  • Line Location: PRMPTSD+41
Function Call: WRITE
  • Prompt: !
  • Line Location: PRMPTSD+45
Function Call: WRITE
  • Prompt: !,"Active Order(s) on "_$$FMTE^XLFDT($P(PSJNEWSD,"."))_" (CONTINUED)",!!,"Active Order(s) (CONTINUED)"_$E(PSJBLANK,1,20)_"Current Start / Stop Dates",!,PSJDASH
  • Line Location: PRMPTSD+45
Function Call: WRITE
  • Prompt: !
  • Line Location: PRMPTSD+50
Function Call: WRITE
  • Prompt: !,"Selected Orders:",?45,"Current Start / Stop Dates",!,$G(PSJHLIN)
  • Line Location: PRMPTSD+52
Function Call: WRITE
  • Prompt: !
  • Line Location: PRMPTSD+53
Function Call: WRITE
  • Prompt: !,"Selected Orders (CONTINUED):",?45,"Current Start / Stop Dates",!,$G(PSJHLIN)
  • Line Location: PRMPTSD+53
Function Call: WRITE
  • Prompt: !,$G(PSJHLIN)
  • Line Location: PRMPTSD+54
Function Call: WRITE
  • Prompt: " ** NOTHING CHANGED **"
  • Line Location: PRMPTSD+59
Function Call: WRITE
  • Prompt: $C(7),!?5," Time is REQUIRED. Re-enter Start Date. "
  • Line Location: PRMPTSD2+6
Function Call: WRITE
  • Prompt: $C(7),!?3,"Start Date/Time earlier than NOW is not allowed. Re-enter Start Date. "
  • Line Location: PRMPTSD2+7
Function Call: WRITE
  • Prompt: $C(7),!?3,"Start Date cannot be more than 365 days from today. Re-enter Start Date."
  • Line Location: PRMPTSD2+8
Info |  Source |  Entry Points |  Interaction Calls