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

Package: Inpatient Medications

Routine: PSGSEL


Information

PSGSEL ;BIR/CML3 - SELECT ORDERS BY WARD, WARD GROUP, PATIENT, OR PRIORITY ;05/15/98 9:26 AM

Source Information

Source file <PSGSEL.m>

Entry Points

Name Comments DBIA/ICR reference
SELECT ; give user choice to select search method
CHK ;
CHK2 ;
HELP ; the following are the help text messages for the various options
GENERIC
VBW
EXP
MAR
LBL
TCR
PPR
AP
ORVC
PRI ; Priompt for Priority along with Group, Ward, Clinic and Patient
NOCL ; *283 - Prompt to only allow Ward Group, Ward, and Patient

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: PSGSS
  • Timeout: DTIME
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !!,"Select by ",PSGWGSTR," (G), WARD (W), ",PSGCLSTR_$S($G(PSGPRIFL):"PATIENT (P) or PRIORITY (PR)",1:"or PATIENT (P)")_": "
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: PSGSS="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+25
Function Call: READ
  • Formatting: !!
  • Prompt: "Select by WARD GROUP (W) or CLINIC GROUP (C): "
  • Variable: PSGSS2
  • Timeout: DTIME
  • Line Location: SELECT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+54
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK2+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'."
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: !!,?2,"To run this option for an entire WARD GROUP, enter 'G'. To run this option for a single WARD, enter 'W'. To run this option for a single PATIENT, enter 'P'."
  • Line Location: GENERIC+0
Function Call: WRITE
  • Prompt: !!?2,"To verify all of the orders in an entire WARD GROUP, enter 'G'. To verify"
  • Line Location: VBW+0
Function Call: WRITE
  • Prompt: !,"all of the orders in an entire CLINIC GROUP, enter 'CG'. To verify all of the"
  • Line Location: VBW+1
Function Call: WRITE
  • Prompt: !,"orders in a single WARD, enter 'W'. To verify all of the orders in a single"
  • Line Location: VBW+2
Function Call: WRITE
  • Prompt: !,"CLINIC, enter 'C'. To verify all of the orders for a single PATIENT, enter"
  • Line Location: VBW+3
Function Call: WRITE
  • Prompt: !,"'P'."
  • Line Location: VBW+4
Function Call: WRITE
  • Prompt: " To verify all of the orders for a single PRIORITY, enter 'PR'."
  • Line Location: VBW+5
Function Call: WRITE
  • Prompt: !?2,"To print STOP ORDER NOTICES for an entire WARD GROUP, enter 'G'. To print notices for a single WARD, enter 'W'. To print notices for a single PATIENT, enter 'P'."
  • Line Location: EXP+0
Function Call: WRITE
  • Prompt: !?2,"To run a Medication Administration Record (MAR or CMR) for an entire WARD",!,"GROUP, enter 'G'. To run an MAR for a single WARD, enter 'W'. To run an MAR for a single PATIENT, enter 'P'."
  • Line Location: MAR+0
Function Call: WRITE
  • Prompt: !?2,"To print labels for all of the orders in an entire WARD GROUP, enter 'G'. To print labels for all of the orders in a WARD, enter 'W'. To print the",!,"labels for a single PATIENT, enter 'P'."
  • Line Location: LBL+0
Function Call: WRITE
  • Prompt: !?2,"To run a TOTAL COST REPORT for an entire WARD GROUP, enter 'G'. To run the report for a single WARD, enter 'W'. To run the report for a single PATIENT,",!,"or a set of PATIENTS, enter 'P'."
  • Line Location: TCR+0
Function Call: WRITE
  • Prompt: !?2,"To print PATIENT PROFILES for an entire WARD GROUP, enter 'G'. To print profiles for a single WARD, enter 'W'. To print a profile for a single",!,"PATIENT, enter 'P'."
  • Line Location: PPR+0
Function Call: WRITE
  • Prompt: !?2,"To print ACTION PROFILES for an entire WARD GROUP, enter 'G'. To print",!,"ACTION PROFILES for a single WARD, enter 'W'. To print an ACTION PROFILE",!,"for a single patient, enter 'P'. PLEASE NOTE that only patients"
  • Line Location: AP+0
Function Call: WRITE
  • Prompt: " with active",!,"orders are selectable, and that only patients with active orders will print for",!,"a ward or ward group."
  • Line Location: AP+1
Function Call: WRITE
  • Prompt: !?2,"To complete orders for an entire WARD GROUP, enter 'G'. To complete orders for an entire CLINIC GROUP, enter 'CG'"
  • Line Location: ORVC+0
Function Call: WRITE
  • Prompt: "To complete orders for a single WARD, enter 'W'. To complete orders for a single PATIENT, enter",!,"a 'P'."
  • Line Location: ORVC+1
Info |  Source |  Entry Points |  Interaction Calls