Routine: PSDNTTP1

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC FILE^DICN ^DIE IX^DIK
MailMan	1	^XMD

Package	Total	Caller Graph
Controlled Substances	1	PSDNTTPC

Entry Points

Name	Comments	DBIA/ICR reference
END
EDIT	;edit new transaction in 58.81
DIE	;create the order request in 58.8
DRUG	;add drug and inactivate it
ADD	;find entry number in 58.81
COMP	;completed msg
MSG	;send mail message
BAL	;update naou to balance ; *64 - balance will not change
COM	;complete order and transaction
FIND

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Accessing ",PSDRGN," information...",!! Line Location: COM+2
Function Call: WRITE	Prompt: !!,"Updating your records now..." Line Location: COM+4
Function Call: WRITE	Prompt: "order..." Line Location: DIE+3
Function Call: WRITE	Prompt: "transaction..." Line Location: DIE+9
Function Call: WRITE	Prompt: "done.",!! Line Location: COMP+1
Function Call: WRITE	Prompt: ?2,!,"* The status of your Green Sheet #"_PSDPN_" is now",!,?2,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" *",! Line Location: COMP+3
Routine Call	DIE Line Location: DIE+8 DRUG+3
Routine Call	DIC Line Location: FIND+1

FileNo	Call Tags
^PSD(58.81 - [#58.81]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	COM+1
^PSD(58.8 - [#58.8]	COM+3, DIE+1, DIE+2, DIE+6, EDIT+2, EDIT+9, DRUG+1
^PSD(58.81 - [#58.81]	ADD+1, FIND, FIND+2, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+10, COMP+2
^PSD(58.82 - [#58.82]	COMP+3
^TMP("PSDNTMSG"	MSG+1!, MSG+2, MSG+3, MSG+4, MSG+5*, MSG+8!
^XUSEC("PSDMGR"	MSG+7

Name	Field # of Occurrence
^(0	DIE+1, COMP+3, DRUG+1
^(7	EDIT+10*

Name	Field # of Occurrence
>> %	COM+1
>> AOU	COM+3, DIE+1, DIE+2, DIE+4, DIE+5, DIE+6, EDIT+2, EDIT+3, EDIT+9, EDIT+10 , DRUG+1, DRUG+2, DRUG+3
>> AOUN	MSG+4
DA	DIE+4!, DIE+5, EDIT+7!, DRUG+2!, DRUG+3!*
DA(1	DIE+4, DIE+5, DRUG+2, DRUG+3
DA(2	DIE+4, DIE+5
DD	DIE+4!, DRUG+2!
DIC	DIE+4!, FIND+1!, DRUG+2!*
DIC(0	DIE+4, FIND+1, DRUG+2*
DIE	DIE+4!, DIE+8!, DRUG+2!, DRUG+3!
DIK	EDIT+7!*
>> DILOCKTM	ADD+1
>> DINUM	DIE+4, FIND+1, DRUG+2*
DLAYGO	FIND+1!*
DO	DIE+4!, DRUG+2!
DR	DIE+4!, DIE+7, DIE+8!, DRUG+3!
>> EXP	DIE+7, EDIT+3
>> FLAG	COM+1, COMP+4, DRUG+4
>> JJ	MSG+7*
>> LOT	DIE+7, EDIT+3
>> MFG	DIE+7, EDIT+3
>> PAT	EDIT+5
>> PSDA	EDIT+5, EDIT+10
>> PSDOUT	DRUG+2*
>> PSDPN	DIE+7, EDIT+3, COMP+3, MSG+3
>> PSDREC	FIND*, FIND+1, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7, EDIT+9, COMP+2
>> PSDRG	COM+3, DIE+1, DIE+2, DIE+4, DIE+5, EDIT+3, EDIT+9, DRUG+2, DRUG+3
>> PSDRGN	COM+2, MSG+3
>> PSDRN	DIE+2*, DIE+4, DIE+5, EDIT+3, EDIT+9
>> PSDS	DIE+7, EDIT+3
>> PSDSP	DIE+7
>> PSDT	COM+1*, DRUG+3
>> PSDUZ	DIE+7, EDIT+4, EDIT+10
>> QTY	DIE+7
>> RECD	COM+1*, DIE+7, EDIT+3, EDIT+4, EDIT+10
>> RECDT	COM+1*, MSG+1
>> RQTY	DIE+7, EDIT+3, EDIT+4
>> STAT	DIE+6, DIE+7, EDIT+2, EDIT+3, COMP+2*, COMP+3
U	DIE+6, EDIT+2
>> X	COM+1, DIE+4, FIND+1, DRUG+2*
>> XMDUZ	MSG+6*
>> XMSUB	MSG+6*
>> XMTEXT	MSG+6*
XMY	MSG+1!, MSG+8!
XMY(	MSG+7, MSG+8
>> Y	COM+1*, DRUG+2