Routine: PSGDCC

Package	Total	Call Graph
VA Fileman	4	^%DT (C,NOW)^%DTC ^DIC ^DIR
Inpatient Medications	3	^PSGDCCM $$ENDTC^PSGMI (ENCV,ENKV)^PSGSETU

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSJU DCC

Entry Points

Name	Comments	DBIA/ICR reference
DELDC	;
DTM	;
CHG	;
DELM	;
DELOUT	;
DONE	;
NCM	;
ENDEL	; delete cost data (completely!)
DT	;
C1	;

External References

Name	Field # of Occurrence
^%DT	DT+1, ENDEL+2
C^%DTC	CHG+2
NOW^%DTC	CHG+1
^DIC	PSGDCC+4
^DIR	PSGDCC+6
^PSGDCCM	CHG+4
$$ENDTC^PSGMI	ENDEL+2
ENCV^PSGSETU	PSGDCC+3
ENKV^PSGSETU	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No drug chosen, or change made." Line Location: PSGDCC+4
Function Call: WRITE	Prompt: !,"No new cost entered. No changes made." Line Location: PSGDCC+7
Function Call: WRITE	Prompt: !!," Enter the new cost (Price Per Dispense Unit) for the drug chosen. The cost",!,"entered here will be used in resetting the data in the cost stats file.",!,"The cost entered may be a decimal value with no trailing zeros." Line Location: NCM+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: DT+1
Function Call: WRITE	Prompt: !!,"Enter ",M," DATE: " Line Location: DT+1
Function Call: WRITE	Prompt: X="^" Condition for execution: '$T $C(7) S:'$T Line Location: DT+1
Function Call: WRITE	Prompt: !?2,M," DATE NOT ENTERED. CHANGE TERMINATED." Line Location: DT+2
Function Call: WRITE	Prompt: !!," Enter the ",$S(M="STOP":"stop",1:"start")," date of the range of dates over which the cost data is to be",!,"changed. The start and stop dates may be the same day, effectively creating a one day change," Line Location: DTM+1
Function Call: WRITE	Prompt: " but the stop date may not come before the start date.",!," Time is not entered.",! Line Location: DTM+2
Function Call: WRITE	Prompt: $C(7),!!,"NO COST DATA FOUND TO DELETE." Line Location: ENDEL+1
Function Call: READ	Prompt: "Enter LIMIT DATE: " Formatting: !! Timeout: DTIME Variable: X Line Location: ENDEL+2
Function Call: WRITE	Prompt: $C(7),$C(7),!,"No data found prior to date chosen!" Condition for execution: Y'>0 !?2,"No date chosen, or data deleted." I Y>0 W !,"...a few moments, please..." D DELDC W:'H Line Location: ENDEL+3
Function Call: WRITE	Prompt: !!?2,"ALL cost data for doses dispensed on or before the date selected will be",!,"completely deleted from the computer. The earliest date found is ",PSGOD,".",!!,"WARNING!! THIS DATA CANNOT BE REBUILT OR RECOMPILED!",! Line Location: DELM+1
Routine Call	DIC Line Location: PSGDCC+4
Routine Call	DIR Line Location: PSGDCC+6

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.6 - [#57.6]	CHG+1, CHG+2, CHG+3, CHG+4, C1+2, ENDEL+1, DELDC+1, DELDC+2
^PSDRUG - [#50]	PSGDCC+5, CHG+3

Name	Field # of Occurrence
^(	DELDC+1!, DELDC+2!
^(0	CHG+2, CHG+3
^(660	PSGDCC+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHG+1
%DT	PSGDCC+4!, DT+1, DT+2!, ENDEL+2!, DELOUT+1!
%DT(0	DT+1*
CC	PSGDCC+5*, DONE+1!
DIC	PSGDCC+4!*
DIC("A"	PSGDCC+4*
DIC(0	PSGDCC+4*
DIR	PSGDCC+6!
DIR("?"	PSGDCC+6*
DIR("A"	PSGDCC+6*
DIR(0	PSGDCC+6*
>> DIRUT	PSGDCC+7
DRG	PSGDCC+5*, CHG+2, CHG+3, CHG+4, DONE+1!, C1+2
DRGN	PSGDCC+5*, DONE+1!
DTIME	DT+1, ENDEL+2
DUZ	CHG+4
>> F	DELDC+1*
FD	CHG+2, CHG+4, DONE+1!
>> H	ENDEL+3, DELDC+1*
M	PSGDCC+9*, DONE+1!, DT+1, DT+2, DT+3, DTM+1
NC	PSGDCC+8*, CHG+4, DONE+1!, C1+2
OLD	CHG+2*, DONE+1!, C1+1, C1+2
OLDC	DONE+1!, C1+1*, C1+2
P	CHG+2*, DONE+1!, C1+2
>> PSGDT	CHG+1*, CHG+3, CHG+4, C1+2
PSGID	ENDEL+1*, ENDEL+2, DELOUT+1!
PSGOD	ENDEL+2*, DELOUT+1!, DELM+1
Q	DELOUT+1!, DELDC+2*
SD	CHG+2*, DONE+1!, C1+2
SD1	CHG+2, CHG+4, DONE+1!, DT+1
W	CHG+2*, DONE+1!, C1+2
X	CHG+2, DT+1, ENDEL+2, DELOUT+1!, DELDC+1, DELDC+2
>> X1	CHG+2*
>> X2	CHG+2*
XCNP	DONE+1!
XMZ	DONE+1!
>> XQUIT	PSGDCC+3
Y	PSGDCC+4, PSGDCC+5, PSGDCC+8, PSGDCC+9, DT+1, DT+2, DT+3, ENDEL+2, ENDEL+3, DELOUT+1! , DELDC+1, DELDC+2
Y(0	PSGDCC+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGDCC

Information

Source Information

Call Graph

Call Graph Total: 7

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:

Name	Line Occurrences
C1	CHG+2
DELDC	ENDEL+3
DELM	ENDEL+2
DELOUT	ENDEL+1
DONE	PSGDCC+4, PSGDCC+7, PSGDCC+9
DT	PSGDCC+9
DTM	DT+1