Routine: PSDNTT1

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	PSDNTT

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
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+5
Function Call: WRITE	Prompt: "transaction..." Line Location: DIE+11
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+10 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+3, DIE+4, DIE+8, EDIT+5, EDIT+12, BAL+1, BAL+3*, BAL+4, DRUG+1
^PSD(58.81 - [#58.81]	ADD+1, FIND, FIND+2, EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+13, 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+3, COMP+3, DRUG+1
^(7	EDIT+13*

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