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, OR PATIENT ; 15 May 98 / 9:26 AM

Source Information

Source file <PSGSEL.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

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
MAR
HELP ; the following are the help text messages for the various options
ORVC
AP
GENERIC
CHK ;
TCR
CHK2 ;
PPR
VBW
EXP
LBL
SELECT ; give user choice to select by

External References

Name Field # of Occurrence
^DIR SELECT+14, SELECT+25, SELECT+42, SELECT+53

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+23
Function Call: READ
  • Prompt: "Select by WARD GROUP (W) or CLINIC GROUP (C): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSGSS2
  • Line Location: SELECT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+40
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+51
Function Call: WRITE
  • Prompt: $S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",PSGSS="G":"GROUP",1:"")
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: $S(PSGSS="P":"PATIENT",PSGSS="W":"WARD",PSGSS="G":"GROUP",PSGSS="C":"CLINIC",1:"")
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: $P(X,PSGSSA,2,99)
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !!?2,"To leave this option, press the RETURN key or enter an '^'."
  • Line Location: CHK+6
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 an '^'."
  • Line Location: CHK2+4
Function Call: WRITE
  • Prompt: !!,?2,"To run this option for an entire WARD GROUP, enter a 'G'. To run this option for a single WARD, enter a 'W'. To run this option for a single PATIENT, enter a 'P'."
  • Line Location: GENERIC+0
Function Call: WRITE
  • Prompt: !!?2,"To verify all of the orders in an entire WARD GROUP, enter a 'G'. To verify all of the orders in an entire CLNIC GROUP, enter 'CG'."
  • Line Location: VBW+0
Function Call: WRITE
  • Prompt: " To verify all of the orders in a single WARD, enter a 'W'. To verify all of the orders in a single CLINIC, enter a 'C'."
  • Line Location: VBW+1
Function Call: WRITE
  • Prompt: "To verify all of the orders for a single PATIENT, enter a 'P'."
  • Line Location: VBW+2
Function Call: WRITE
  • Prompt: !?2,"To print STOP ORDER NOTICES for an entire WARD GROUP, enter a 'G'. To print notices for a single WARD, enter a 'W'. To print notices for a single PATIENT, enter a '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 a 'G'. To run an MAR for a single WARD, enter a 'W'. To run an MAR for a single PATIENT, enter a 'P'."
  • Line Location: MAR+0
Function Call: WRITE
  • Prompt: !?2,"To print labels for all of the orders in an entire WARD GROUP, enter a 'G'. To print labels for all of the orders in a WARD, enter a 'W'. To print the",!,"labels for a single PATIENT, enter a 'P'."
  • Line Location: LBL+0
Function Call: WRITE
  • Prompt: !?2,"To run a TOTAL COST REPORT for an entire WARD GROUP, enter a 'G'. To run the report for a single WARD, enter a 'W'. To run the report for a single PATIENT,",!,"or a set of PATIENTS, enter a 'P'."
  • Line Location: TCR+0
Function Call: WRITE
  • Prompt: !?2,"To print PATIENT PROFILES for an entire WARD GROUP, enter a 'G'. To print profiles for a single WARD, enter a 'W'. To print a profile for a single",!,"PATIENT, enter a 'P'."
  • Line Location: PPR+0
Function Call: WRITE
  • Prompt: !?2,"To print ACTION PROFILES for an entire WARD GROUP, enter a 'G'. To print",!,"ACTION PROFILES for a single WARD, enter a 'W'. To print an ACTION PROFILE",!,"for a single patient, enter a '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 a '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 a 'W'. To complete orders for a single PATIENT, enter",!,"a 'P'."
  • Line Location: ORVC+1
Routine Call
  • DIR
  • Line Location:
    • SELECT+14
    • SELECT+25
    • SELECT+42
    • SELECT+53

Label References

Name Line Occurrences
@( CHK+6, CHK2+4
CHK SELECT+2
CHK2 SELECT+31
SELECT SELECT+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SELECT+10~, SELECT+21~, SELECT+38~, SELECT+49~
DIR("A" SELECT+13*, SELECT+24*, SELECT+41*, SELECT+52*
DIR(0 SELECT+11*, SELECT+22*, SELECT+39*, SELECT+50*
DIRUT SELECT+10~, SELECT+16, SELECT+21~, SELECT+27, SELECT+38~, SELECT+44, SELECT+49~, SELECT+55
DTIME SELECT+2, SELECT+31
DTOUT SELECT+10~, SELECT+16, SELECT+21~, SELECT+27, SELECT+38~, SELECT+44, SELECT+49~, SELECT+55
DUOUT SELECT+10~, SELECT+16, SELECT+21~, SELECT+27, SELECT+38~, SELECT+44, SELECT+49~, SELECT+55
>> PSGINCL SELECT+7*, SELECT+15*
>> PSGINCLG SELECT+35*, SELECT+43*
>> PSGINWD SELECT+18*, SELECT+26*
>> PSGINWDG SELECT+46*, SELECT+54*
PSGPRMT SELECT+4~, SELECT+5*, SELECT+9, SELECT+20, SELECT+37, SELECT+48
>> PSGSS SELECT+2*, SELECT+8, SELECT+19, SELECT+30, SELECT+32*, CHK+2, CHK+3, CHK+4*, CHK+5*
>> PSGSS2 SELECT+31*, SELECT+32, SELECT+36, SELECT+47, CHK2+1, CHK2+2*, CHK2+3*
PSGSSA SELECT+30!, SELECT+58!, CHK+3*, CHK+4, CHK2+1*, CHK2+2
>> PSGSSH SELECT+1*, CHK+6, CHK2+4
>> Q CHK+3*, CHK2+1*
U SELECT+5
X SELECT+10~, SELECT+21~, SELECT+38~, SELECT+49~, CHK+4*, CHK2+2*
>> XQY0 SELECT+5
Y SELECT+10~, SELECT+15, SELECT+16*, SELECT+21~, SELECT+26, SELECT+27*, SELECT+38~, SELECT+43, SELECT+44*, SELECT+49~
, SELECT+54, SELECT+55*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All