Routine: PSGSEL

Package	Total	Call Graph
VA Fileman	1	^DIR

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

Entry Points

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

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

Customize PDF page

Package: Inpatient Medications

Routine: PSGSEL

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

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