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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 8 ENQL^PSGLW  A^PSJ200  ^PSJAC  ENOR^PSJCLOR4  CHK^PSJDPT  (,RESTORE)^PSJHVARS  DSPLORDU^PSJLMUT1  CONT^PSJOE0  
List Manager 2 (EN,SHOW)^VALM  FULL^VALM1  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Inpatient Medications 6 PSJ LM CLINIC ORDERS  PSJ LM ECO HIDDEN ACTIONS  PSJ LM ECO IM PR  PSJ LM ECO MENU  PSJCLOR  PSJCLOR5  

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

External References

Name Field # of Occurrence
^DIR WRT+4, ASK+1, PSJREVFY+7, SURE+6
ENQL^PSGLW PROCESS+2
A^PSJ200 HDR+1
^PSJAC GTORDERS+1
ENOR^PSJCLOR4 IMPATPR+1
CHK^PSJDPT ASK+5
^PSJHVARS IMPATPR+1
RESTORE^PSJHVARS IMPATPR+1
DSPLORDU^PSJLMUT1 DISPORD+3
CONT^PSJOE0 PROCESS1+4, HELP+18
$$L^PSSLOCK PROCESS1+4
UL^PSSLOCK PROCESS1+8
EN^VALM PROFILE+1
SHOW^VALM HDR+1
FULL^VALM1 HELP+1, IMPATPR+1, PSJREVFY+1, SURE+1

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
Routine Call
  • DIR
  • Line Location:
    • WRT+4
    • ASK+1
    • PSJREVFY+7
    • SURE+6
Routine Call
  • VALM
  • Line Location:
    • PROFILE+1
Routine Call
  • VALM
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] HDR+2
^TMP("PSGVBW" DISPLAYW+1, DISPLAYP+4, DISPLAYT+4, V2+1, ASK+1!
^TMP("PSGVBW3" ASK+6
^TMP("PSJLIST" START+2!, WRT+3*, ASK+4
^TMP("PSJPRO" HDR+2
^TMP("PSJSELECT" START+2, PROCESS+2, PROCESS1+2, PROCESS1+3, DISPLAYW+1!, ASK+6*

Label References

Name Line Occurrences
ASK DISPLAYP+5, DISPLAYT+5
DISPLAYP DISPLAYW+1
DISPLAYT DISPLAYP+4
DISPLAYW START+2
DONE PROCESS+3
GTORDERS PROCESS1+7
HEADER DISPLAYP+3
PROCESS1 PROCESS+2
PROFILE GTORDERS+3
V2 DISPLAYT+4
WRT V2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN GTORDERS+1*, PROFILE+1, DISPORD~, DISPORD+3
DIR PROCESS+1!, WRT+4~, ASK+1~, PSJREVFY+2!, SURE+2!
DIR("?" PSJREVFY+7*, SURE+6*
DIR("A" WRT+4*, ASK+1*, PSJREVFY+2*, PSJREVFY+3*, PSJREVFY+4*, PSJREVFY+5*, PSJREVFY+6*, PSJREVFY+7*, SURE+3*, SURE+4*
, SURE+5*, SURE+6*
DIR(0 WRT+4*, ASK+1*, PSJREVFY+7*, SURE+6*
DTIME NP+1
>> DTOUT ASK+1
>> DUOUT ASK+1, PSJREVFY+8, SURE+7
IOF WRT+6, HEADER+1
IOSL WRT+4
>> NP NP+1*
ON DISPORD~, DISPORD+3, DISPORD+4
>> PPN V2+1*, WRT+3
>> PRD HEADER+2
PSGASKX ASK+1~, ASK+4*, ASK+6
PSGDFN ASK+1~, ASK+4*, ASK+5
>> PSGOEA START+1*
>> PSGOL GTORDERS+1*, PROFILE+1
PSGOP PROCESS+2*, DONE+1!
PSGP PROCESS+2, GTORDERS+1*, PROFILE+1*, DONE+1!, V2+1*, WRT+3, ASK+6, IMPATPR+1
PSGPICK DISPLAYP+1~, DISPLAYT+4, V2+1, WRT+5*, ASK+2*
>> PSGPRD WRT+2*
>> PSGPRIF DISPLAYT+3, HEADER+2, HEADER+3
>> PSGPRIN DISPLAYP+4*, DISPLAYT+2*, DISPLAYT+3*
>> PSGPXN START+1*, PROCESS1+9*
>> PSGSS START+2
>> PSGVBPN V2+1*, WRT+3
>> PSGVBTM DISPLAYT+4*, V2+1, WRT+3
>> PSGVBWN DISPLAYP+2*, DISPLAYT+3*, WRT+2*, WRT+3, HEADER+3
PSGVBY DISPLAYP+5, DISPLAYT+5, WRT+1*, WRT+3, WRT+4, ASK+1, HEADER+4!*
>> PSGWORP1 DISPLAYW+1*, DISPLAYP+2, DISPLAYP+4, DISPLAYT+3, DISPLAYT+4, V2+1, WRT+2
>> PSGWORP2 DISPLAYP+4*, DISPLAYT+2, DISPLAYT+3, DISPLAYT+4, V2+1, WRT+2
PSJACNWP GTORDERS+1!
PSJASK DISPLAYW+2!, DISPLAYP+5, DISPLAYT+5, WRT+1*, WRT+6*
>> PSJBEG PROCESS1+6*, GTORDERS+2*
PSJCLN PROCESS1+1~
PSJCNT PROCESS+1~, PROCESS+2*, PROCESS1+2, PROCESS1+3, DISPLAYW+1*, ASK+6*
PSJCURCL PROCESS1+1~, PROCESS1+2*
>> PSJEND PROCESS1+5*, GTORDERS+2*
PSJGOTO PROCESS+2, PROCESS1+3!, PROCESS1+7!
PSJHLIN START+1~*, HEADER+4
PSJINDEX ASK+3*, ASK+4, ASK+7!
PSJLINE DISPORD+1~, DISPORD+2*
PSJLK PROCESS1+4*, PROCESS1+8, DONE+1!
PSJLM IMPATPR+1~
PSJNEWOE PROFILE+1*, DONE+1!
PSJOC DISPORD+1~
PSJOC( DISPORD+4
>> PSJOL PROFILE+1*
>> PSJORD PROFILE+1
PSJPAD PROCESS1+1~
PSJPAGE PROCESS1+1~
PSJPDD PROCESS1+1~
PSJPDOB PROCESS1+1~
PSJPDX PROCESS1+1~
PSJPHT PROCESS1+1~
PSJPHTD PROCESS1+1~
PSJPN PROCESS1+3*, PROCESS1+4, PROCESS1+5, PROCESS1+6, PROCESS1+7, GTORDERS+1, DONE+1!
PSJPNV PROCESS+1!*
PSJPRB PROCESS1+1~
>> PSJPRIF DISPLAYT+5
PSJPSEX PROCESS1+1~
PSJPSSN PROCESS1+1~
PSJPTD PROCESS1+1~
PSJPWDN PROCESS1+1~
PSJPWT PROCESS1+1~
PSJPWTD PROCESS1+1~
>> PSJSYSL PROCESS+2
PSJTMPBG PROCESS1+6, GTORDERS+2!
PSJTMPED PROCESS1+5, GTORDERS+2!
PSJTMPN PROCESS1+1~, PROCESS1+3*, PROCESS1+8
>> PSJVALQ PROFILE+1, PROFILE+2*
RMORDAT PROCESS1+1~
U PROCESS1+4, PROCESS1+8, GTORDERS+1, WRT+3, ASK+6
VADM IMPATPR+1~
VAIN IMPATPR+1~
VALMBCK DONE+1!, HELP+18*, IMPATPR+1*
X WRT+5, DISPORD+1~, DISPORD+4*
>> XQORM("#" HDR+2*
Y ASK+2, ASK+3, ASK+4, ASK+7!, PSJREVFY+2!*, PSJREVFY+8, PSJREVFY+9, SURE+2!*, SURE+7, SURE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All