Routine: PSDCOR1

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 #
ASKD	;ask disp site
ASK
END
COM	;complete correction
FIND

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKD+1
Function Call: WRITE	Prompt: $C(7),!!,?15," NOTE " Line Location: GS+1
Function Call: WRITE	Prompt: !,"Your Green Sheet selection is limited to those Green Sheets added using the" Line Location: GS+2
Function Call: WRITE	Prompt: !,"Add Existing Green Sheets option. The Green Sheet status must still be",!,"DELIVERED - ACTIVELY ON NAOU for you to make this correction.",!! Line Location: GS+3
Function Call: WRITE	Prompt: ! Line Location: GS+4
Function Call: WRITE	Prompt: $C(7),!!,"This Green Sheet has been transferred between NAOUs.",!,"You may not delete this Green Sheet.",! Line Location: GS+7
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+11
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+12
Function Call: WRITE	Prompt: !!,"This action will delete Green Sheet #",PSDPN,"." Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"No action taken. The Green Sheet data still exists.",!! 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_" has been deleted. *",!,"If you wish to add this Green Sheet again,",!,"please use the 'Add Existing Green Sheets' option.",! Line Location: FIND+11
Routine Call	DIE Line Location: FIND+4 FIND+7 FIND+9 FIND+10
Routine Call	DIC Line Location: ASKD+3 FIND+1
Routine Call	DIR Line Location: ASK+3
Routine Call	DIC Line Location: GS+6

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Controlled Substances

Routine: PSDCOR1

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:

Name	Line Occurrences
END	ASKD+3, GS+6, GS+7, GS+11, ASK+3, FIND+8
FIND	FIND
GS	PSDCOR1+2, GS+12