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

Package: Inpatient Medications

Routine: PSJCLOR1


Information

PSJCLOR1 ;BIR/JCH - SHOW NON-VERFIED CLINIC ORDERS GATHERED IN PSJCLOR1 ; 2/28/12 9:11am

Source Information

Source file <PSJCLOR1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
PROCESS ; Loop through selected patients and display profile/orders.
PROCESS1 ; Process patient
DISPLAYW ; Allow selection of patients on each ward selected.
DISPLAYP ; Display WORP1 (Ward or Priority)
DISPLAYT ;
GTORDERS ;
PROFILE ; Display the patient's profile and allow order selection.
DONE ; Clean up
V2 ;
WRT ;
ASK ;
H2 ;
HEADER ;
NP ;
DISPORD(DFN,ON)
HELP ;
IMPATPR ; View Profile Entry
PSJREVFY() ; Ask if Active orders should be re-verified
VFYHELP ; Help text for auto-reverify
SURE() ; Non-Pharmacist can't auto-reverify
SUREHELP ; Help text for non-pharmacists
HDR ; HEADER code for PSJ LM ECO protocol

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: PROCESS1+4
Function Call: WRITE
  • Prompt: !,$J(PSGVBY,4),?8,PPN," (",$P(PSGVBPN,U,3),")"
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !!?2,"Select patients either singularly separated by commas (1,2,3), by a range of",!,"patients separated by a dash (1-3), or a combination (1,2,4-6). To select all",!,"patients, enter 'ALL' or a dash ('-'). You can also enter '-n' to"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: " select the",!,"first patient through the 'nth' patient or enter 'n-' to select the 'nth'",!,"patient through the last patient. If a patient is selected more than once,"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,"only the first selection is used. (Entering '1,2,1' would return '1,2'.)"
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"CLINIC ORDERS - "
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: $S($G(PRD)=1:"STAT",$G(PRD)=2:"ASAP",1:"ROUTINE")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: $S(PSGVBWN="ZZ":"^OTHER",1:PSGVBWN)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!," No.",?8,"PATIENT",!,PSJHLIN
  • Line Location: HEADER+4
Function Call: READ
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: !,PSJOC(ON,X)
  • Line Location: DISPORD+4
Function Call: WRITE
  • Prompt: !!,"ES Edit Start Date"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," Select the medication orders you wish to edit. "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !," After selecting orders, a new Start Date/Time may be entered."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"VD View Order Detail"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," Select the medication orders you wish to view. "
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," Details for selected orders will be displayed."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !,"VP View Profile"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," View order profile that shows all medication orders."
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," No edits allowed at this view. "
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !,"CD Change Date Range"
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !," Change the search date range for the current patient's"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !," Clinic Orders. The search date range will revert to the"
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !," initial search date range for subsequent patients. ",!
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PSJREVFY+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSJREVFY+7
Function Call: WRITE
  • Prompt: !," All selected orders will have a status of NON-VERIFIED after editing",!
  • Line Location: PSJREVFY+8
Function Call: WRITE
  • Prompt: !?5,"Yes - ACTIVE orders will remain ACTIVE after they are modified.",!
  • Line Location: VFYHELP+1
Function Call: WRITE
  • Prompt: !?5,"No - The status of ACTIVE orders will be changed to NON-VERIFIED"
  • Line Location: VFYHELP+2
Function Call: WRITE
  • Prompt: !?5,"after they are modified. The orders must be re-verified, via"
  • Line Location: VFYHELP+3
Function Call: WRITE
  • Prompt: !?5,"Inpatient Order Entry or other order entry options, in order"
  • Line Location: VFYHELP+4
Function Call: WRITE
  • Prompt: !?5,"to change the status back to ACTIVE."
  • Line Location: VFYHELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SURE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SURE+6
Function Call: WRITE
  • Prompt: !," All selected orders will have a status of NON-VERIFIED after editing",!
  • Line Location: SURE+7
Function Call: WRITE
  • Prompt: !?5,"The status of ACTIVE orders will be changed to NON-VERIFIED"
  • Line Location: SUREHELP+1
Function Call: WRITE
  • Prompt: !?5,"after they are modified. The orders must be re-verified, via"
  • Line Location: SUREHELP+2
Function Call: WRITE
  • Prompt: !?5,"Inpatient Order Entry or other order entry options, in order"
  • Line Location: SUREHELP+3
Function Call: WRITE
  • Prompt: !?5,"to change the status back to ACTIVE."
  • Line Location: SUREHELP+4
Info |  Source |  Entry Points |  Interaction Calls