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

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
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: 9

Package Total Caller Graph
Inpatient Medications 9 PSGCAP  PSGL  PSGMAR  PSGMMAR  PSGPR  PSGTCTD  PSGVBW  PSIVORC  
PSJEXP  

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

External References

Name Field # of Occurrence
^DIR SELECT+16, SELECT+27, SELECT+45, SELECT+56

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
Routine Call
  • DIR
  • Line Location:
    • SELECT+16
    • SELECT+27
    • SELECT+45
    • SELECT+56

Label References

Name Line Occurrences
@( CHK+4, CHK2+4
CHK SELECT+5
CHK2 SELECT+34
SELECT SELECT+35, PRI+1, NOCL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SELECT+12~, SELECT+23~, SELECT+41~, SELECT+52~
DIR("A" SELECT+15*, SELECT+26*, SELECT+44*, SELECT+55*
DIR(0 SELECT+13*, SELECT+24*, SELECT+42*, SELECT+53*
DIRUT SELECT+12~, SELECT+18, SELECT+23~, SELECT+29, SELECT+41~, SELECT+47, SELECT+52~, SELECT+58
DTIME SELECT+5, SELECT+34
DTOUT SELECT+12~, SELECT+18, SELECT+23~, SELECT+29, SELECT+41~, SELECT+47, SELECT+52~, SELECT+58
DUOUT SELECT+12~, SELECT+18, SELECT+23~, SELECT+29, SELECT+41~, SELECT+47, SELECT+52~, SELECT+58
PSGCHKSTR SELECT+4~*, SELECT+5
PSGCLSTR SELECT+4~*, SELECT+5
>> PSGINCL SELECT+9*, SELECT+17*
>> PSGINCLG SELECT+38*, SELECT+46*
>> PSGINWD SELECT+20*, SELECT+28*
>> PSGINWDG SELECT+49*, SELECT+57*
PSGNOCL SELECT+4, SELECT+33, CHK+2, NOCL+1~*
PSGPRIFL SELECT+5, CHK+2, VBW+5, PRI+1*!
PSGPRMT SELECT+6~, SELECT+7*, SELECT+11, SELECT+22, SELECT+40, SELECT+51
>> PSGSS SELECT+5*, SELECT+10, SELECT+21, SELECT+32, SELECT+35*, CHK+1, CHK+2*, CHK+3*
>> PSGSS2 SELECT+33*, SELECT+34*, SELECT+35, SELECT+39, SELECT+50, CHK2+1, CHK2+2*, CHK2+3*
PSGSSA SELECT+32!, SELECT+61!, CHK+1*, CHK+2, CHK2+1*, CHK2+2
>> PSGSSH SELECT+1*, CHK+4, CHK2+4
PSGWGSTR SELECT+4~*, SELECT+5
>> Q CHK+1*, CHK2+1*
U SELECT+7
X SELECT+12~, SELECT+23~, SELECT+41~, SELECT+52~, CHK+2*, CHK2+2*
>> XQY0 SELECT+7
Y SELECT+12~, SELECT+17, SELECT+18*, SELECT+23~, SELECT+28, SELECT+29*, SELECT+41~, SELECT+46, SELECT+47*, SELECT+52~
, SELECT+57, SELECT+58*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All