Routine: PSGPRVR

Package	Total	Call Graph
Inpatient Medications	5	ENDTS^PSGAMS ($$ENDDN,$$ENNPN)^PSGMI ^PSGPRVR0 (ENCV,ENKV)^PSGSETU EN3^PSGTI
VA Fileman	2	^DIC YN^DICN
Kernel	1	^%ZISC

Package

Total

Call Graph

Inpatient Medications

ENDTS^PSGAMS ($$ENDDN,$$ENNPN)^PSGMI ^PSGPRVR0 (ENCV,ENKV)^PSGSETU EN3^PSGTI

VA Fileman

^DIC YN^DICN

Kernel

^%ZISC

Package	Total	Caller Graph
Inpatient Medications	1	PSJU PRVR

Package

Total

Caller Graph

Inpatient Medications

PSJU PRVR

Name	Comments	DBIA/ICR reference
SP	;
QUES	;
SPH	;
ENQ	;
ADD	;
SH	;
DONE	;
SHC	;
PAGE	;
DRG	;

Name	Field # of Occurrence
^%ZISC	PSGPRVR+2
^DIC	SP+1
YN^DICN	PAGE+1
ENDTS^PSGAMS	PSGPRVR+2
$$ENDDN^PSGMI	DRG+2
$$ENNPN^PSGMI	DRG+1
^PSGPRVR0	ENQ+4
ENCV^PSGSETU	PSGPRVR+2
ENKV^PSGSETU	DONE+1
EN3^PSGTI	PSGPRVR+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Show ALL or SELECTED providers? ALL// " Formatting: !! Timeout: DTIME Variable: PSGPRVRF Line Location: SH+1
Function Call: WRITE	Prompt: !!,"...SHOW PROVIDERS not selected, report terminated..." Line Location: SH+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SP+1
Function Call: WRITE	Prompt: !!,"Select ",$S(PSGPRVRF>0:"another ",1:""),"PROVIDER: " Line Location: SP+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: SP+1
Function Call: WRITE	Prompt: !!,"...PROVIDER(S) not selected, report terminated..." Line Location: SP+2
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to have this report start a new page for each provider printed.",!,"Enter '^' to abort this print now." Line Location: PAGE+1
Function Call: WRITE	Prompt: $C(7) Line Location: SHC+1
Function Call: WRITE	Prompt: " (ALL)" Line Location: SHC+2
Function Call: WRITE	Prompt: !!?2,"Enter 'A' (or press RETURN) to show ALL providers on this report. Enter 'S'",!,"to choose which providers you want to show on this report.",!,"PLEASE NOTE: If you choose to select which providers will print, a new " Line Location: SHC+3
Function Call: WRITE	Prompt: "page",!,"will automatically be started for each provider." Line Location: SHC+4
Function Call: WRITE	Prompt: $P(X,PSGPRVRF,2) Line Location: SHC+5
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: SHC+6
Function Call: WRITE	Prompt: !!?2,"Select a PROVIDER for which you wish to have cost data print." Line Location: SPH+1
Routine Call	DIC Line Location: SP+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.6 - [#57.6]	ENQ+2, DRG+2
^PSDRUG - [#50]	DRG+2
^TMP("PSG"	ENQ+1!, ENQ+3, ENQ+4!, ADD+1

Name	Line Occurrences
ADD	DRG+2
DRG	ENQ+2
ENQ	PSGPRVR+2
PAGE	SH+3
QUES	PSGPRVR+2, SP+3
SHC	SH+1
SPH	SP+1

Name	Field # of Occurrence
^(	ENQ+3!, DRG+2, ADD+1*
^(0	DRG+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAGE+1*, PAGE+2
DIC	SP+1*!
DIC("S"	SP+1*
DIC(0	SP+1*
DRG	DONE+1!, ENQ+3, DRG+1, DRG+2*
DRGN	DONE+1!, DRG+2*, ADD+1
DTIME	SH+1, SP+1
FD	PSGPRVR+2, DONE+1!, ENQ+2
HLP	PSGPRVR+2*, DONE+1!
IO	PSGPRVR+2
IO("Q"	PSGPRVR+2
IO(0	PSGPRVR+2
IOST	PSGPRVR+2
ND	DONE+1!, DRG+2*, ADD+1
NF	DONE+1!, DRG+2*, ADD+1
NU	DONE+1!, ADD+1*
P	DONE+1!
PG	DONE+1!
>> POP	PSGPRVR+2
PR	DONE+1!, ENQ+2, ENQ+3, DRG+1, DRG+2
PRN	DONE+1!, DRG+1*, ADD+1
PSGPRVRF	PSGPRVR+2, DONE+1!, ENQ+2, QUES+1!, SH+1, SH+2, SH+3, SP+1, SP+2, SP+3 , PAGE+1, SHC+1, SHC+2, SHC+3, SHC+4!, SHC+5*, SHC+6!
PSGPRVRF(	ENQ+2, SP+1*
PSGPRVRP	PSGPRVR+2, DONE+1!, QUES+1, SP+4, PAGE+2*
>> Q	ENQ+3*
RTN	PSGPRVR+2*, DONE+1!
SD	PSGPRVR+2, DONE+1!, ENQ+2
ST	DONE+1!, ENQ+2*, DRG+2
STOP	DONE+1!
STRT	DONE+1!
U	DRG+2
W	DONE+1!, ENQ+2*, DRG+2
WN	DONE+1!
>> X	SP+1, SP+2, SHC+5
>> XQUIT	PSGPRVR+2
>> Y	SP+1

Customize PDF page

Package: Inpatient Medications

Routine: PSGPRVR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: