Routine: PSDCOR2

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,IX)^DIC ^DIE ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDCOR

Entry Points

Name	Comments	DBIA/ICR reference
GS	;select green sheet #
ASKS	;ask new stat
ASKD	;ask disp site
ASK
END
COM	;complete correction
FIND

External References

Name	Field # of Occurrence
NOW^%DTC	COM+1
^DIC	ASKD+2, ASKS+2, FIND+1
IX^DIC	GS+4
^DIE	FIND+4, FIND+7, FIND+9
^DIR	ASKS+5, ASK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKD+1
Function Call: WRITE	Prompt: $C(7),!!,?15," NOTE ",!,"Your Green Sheet selection is limited to those Green Sheets marked as",!,"COMPLETED - REVIEWED NO DISCREPANCY.",! Line Location: GS+1
Function Call: WRITE	Prompt: ! Line Location: GS+2
Function Call: WRITE	Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",! Line Location: GS+9
Function Call: WRITE	Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",! Line Location: GS+10
Function Call: WRITE	Prompt: !!,"This action will update Green Sheet #",PSDPN," as ",!,?5," COMPLETED - PENDING PROBLEM RESOLUTION",!,?8,NCOMPN," ",! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"No action taken.",!! Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Accessing Green Sheet #",PSDPN," information...",!! Line Location: COM+2
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: FIND+5
Function Call: WRITE	Prompt: $C(7),!!," THIS GREEN SHEET HAS NOT BEEN CORRECTED ",!!,"The status remains "_STATN,! Line Location: FIND+8
Function Call: WRITE	Prompt: ?2,!,"*** Your Green Sheet #"_PSDPN_" is now ",! Line Location: FIND+10
Function Call: WRITE	Prompt: ?2,$S($P($G(^PSD(58.83,COMP,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",! Line Location: FIND+11
Routine Call	DIE Line Location: FIND+4 FIND+7 FIND+9
Routine Call	DIC Line Location: ASKD+2 ASKS+2 FIND+1
Routine Call	DIR Line Location: ASKS+5 ASK+3
Routine Call	DIC Line Location: GS+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	GS+7, GS+9
^PSD(58.81 - [#58.81]	GS+8, FIND+10, FIND+11
^PSD(58.82 - [#58.82]	GS+5
^PSD(58.83 - [#58.83]	GS+6, ASKS+3, FIND+11
^PSD(58.87 - [#58.87]	COM+3, FIND*, FIND+2

Label References

Name	Line Occurrences
ASKS	ASKS+5
END	ASKD+2, GS+4, GS+9, ASKS+2, ASKS+5, ASK+3, FIND+8
FIND	FIND
GS	PSDCOR2+2, GS+10

Naked Globals

Name	Field # of Occurrence
^(0	FIND+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	COM+1, END!
%DT	END!
%H	END!
%I	END!
COMP	GS+6, FIND+3, FIND+11, END!
COMPN	GS+6*, END!
CPBY	GS+8*, FIND+3, END!
CPBYD	GS+8*, FIND+3, END!
D	GS+2*, END!
DA	ASKD+1!, GS+2!, ASKS+1!, ASKS+4!, ASK+1!, FIND+1!, FIND+3!, FIND+4!, FIND+7!, FIND+9!* , END!
DA(1	FIND+9*
DA(2	FIND+9*
DIC	ASKD+1!, ASKD+2!, GS+2!, GS+4!, ASKS+1!, ASKS+2!, FIND+1!, END!
DIC("A"	ASKD+1, GS+2, ASKS+1*
DIC("B"	ASKD+1*
DIC("S"	ASKD+1, GS+3, ASKS+1*
DIC(0	ASKD+1, GS+2, ASKS+1, FIND+1
DIE	FIND+3!, FIND+4!, FIND+7!, FIND+9!*, END!
>> DILOCKTM	COM+3
DIR	ASKS+4!, ASKS+5!, ASK+1!, ASK+3!, END!
DIR("?"	ASKS+4, ASK+2
DIR("A"	ASKS+4, ASK+1
DIR("B"	ASKS+5, ASK+1
DIR(0	ASKS+4, ASK+1
DIROUT	END!
DIRUT	ASKS+4!, ASKS+5, ASK+1!, END!
DLAYGO	FIND+1!*
DR	FIND+3!, FIND+4!, FIND+7!, FIND+9!*, END!
DTOUT	FIND+8, END!
DUOUT	END!
NAOU	GS+7*, GS+9, FIND+3, FIND+9, END+1!
NAOUN	GS+7*, GS+9, END+1!
NCOMP	ASKS+3*, FIND+3, FIND+7, FIND+9, END+1!
NCOMPN	ASKS+3*, ASK, ASK+2, END+1!
OK	END+1!
ORD	GS+7*, GS+9, FIND+3, FIND+9, END+1!
PSDA	GS+4*, GS+8, FIND+7, FIND+10, FIND+11, END+1!
PSDCOR	FIND*, FIND+1, FIND+3, END+1!
PSDPN	GS+5*, GS+9, ASK, COM+2, FIND+3, FIND+10, END+1!
PSDR	GS+7*, GS+9, FIND+3, FIND+9, END+1!
PSDS	PSDCOR2+2, ASKD+2, FIND+3, END+1!
>> PSDSITE	PSDCOR2+2, ASKD+3*
PSDSN	PSDCOR2+2, ASKD+1, ASKD+2, ASKD+3, END+1!
PSDUZ	FIND+3, END+1!
RECDT	COM+1*, FIND+3, END+1!
STAT	GS+5, GS+10, FIND+10, END+1!
STATN	GS+5*, GS+10, FIND+8, END+1!
TYPE	FIND+3, END+1!
U	PSDCOR2+2, ASKD+3
X	FIND+1*, END+1!
Y	ASKD+2, ASKD+3, GS+4, ASKS+2, ASKS+3, ASKS+5, ASK+3, FIND+8, END+1!
Y(0	GS+5, GS+6, GS+7, GS+8

Customize PDF page

Package: Controlled Substances

Routine: PSDCOR2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: