Routine: PSXEDUTL

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FILE^DICN ^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
OREL	; Called from PSODISP to check for CMOP during manual Release	ICR #2344 Status: Withdrawn Usage: Private
LAST	; Find last event, Find last fill
HELP	; QTY HELP
EQTY2	;
QTY	;Check quantity
RREL1
RREL	; This for Release Refills PSODISP	ICR #2344 Status: Withdrawn Usage: Private
SUS	; From SUP^PSORXED1 If suspense date edited to future date resuspend	ICR #2344 Status: Withdrawn Usage: Private
EQTY	;W !,"Y=",Y
CS
D1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"RX# "_$P(RX0,"^")_" HAS BEEN SUSPENDED FOR CMOP UNTIL "_$E(SD,4,5)_"-"_$E(SD,6,7)_"-"_$E(SD,2,3)_".",! Line Location: SUS+10
Function Call: WRITE	Prompt: " Sorry no ^ jumping allowed" Line Location: EQTY+4
Function Call: WRITE	Prompt: " Sorry no ^ jumping allowed" Line Location: EQTY2+5
Function Call: WRITE	Prompt: !!,"This is a CMOP drug. The quantity may not contain alpha characters (i.e.; ML) or more than two decimal places (i.e.; .01)." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Enter a whole number between 0 and 99999999 inclusive. The total entry cannot exceed 11 characters." Line Location: HELP+2
Routine Call	DIR Line Location: EQTY+3 EQTY2+4

FileNo	Call Tags
^PS(52.5 - [#52.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	SUS+6!
^PSDRUG - [#50]	EQTY+1, EQTY2+2
^PSDRUG("AQ"	EQTY+1, EQTY2+2
^PSRX - [#52]	LAST+1, SUS+1, SUS+3, SUS+6, SUS+7, SUS+8, SUS+9, EQTY+1, EQTY+2, EQTY2+1 , EQTY2+3, EQTY2+9*

Name	Field # of Occurrence
^(0	EQTY+2

Name	Field # of Occurrence
>> %	SUS+9
B	LAST+1*, D1+3!
B(	RREL1, LAST+1*
B(0	OREL+4
C	D1+3!
CNT	D1+2!
>> DA	SUS+1*, SUS+3, SUS+7, SUS+8, SUS+9
DD	SUS+4!
>> DIC	SUS+2*
>> DIC("DR"	SUS+3*
>> DIC(0	SUS+2*
>> DIK	SUS+1*
DIR	EQTY+3!, EQTY+6!
DIR("A"	EQTY+1, EQTY2+2
DIR("B"	EQTY+2, EQTY2+3
DIR(0	EQTY+1, EQTY2+1
DO	SUS+4!
>> DRG	EQTY+1, EQTY2+1, EQTY2+2
>> DTOUT	EQTY+5, EQTY2+6
DUZ	SUS+9
>> FDA	SUS+7*
FLAG	D1+3!
I	D1+3!
>> IR	SUS+7, SUS+8, SUS+9
ISUF	OREL+4, RREL1, CS~, CS+1!, CS+2!
NEWDT	D1+3!
P1	D1+2!
P2	D1+2!
PPLSAVE	D1+2!
PSOCMOP	SUS+11!
>> PSOSITE	SUS+3
PSX1	D1+3!
PSX2	D1+3!
PSXACT	D1+1!, D1+2!
PSXCK	D1+2!
PSXDA	D1+1!
PSXDRUG	D1+2!
PSXER	D1+3!
>> PSXEXIT	EQTY+5, EQTY2+6
PSXFDA	D1+1!
PSXFDT	D1+3!
>> PSXFLAG	CS+1, CS+2
PSXIEN	D1+2!
PSXIR	D1+1!
PSXJOB	D1+3!
PSXLF	D1+2!
PSXLFD	D1+1!
PSXPPL	D1+2!
PSXPPL1	D1+2!
>> PSXRFL	EQTY2+3, EQTY2+9
PSXRX	D1+3!
PSXRX0	D1+1!
PSXRXF	D1+1!
PSXRXN	D1+1!
PSXRXP	D1+1!
PSXRXS	D1+1!
PSXSD	D1+3!
>> RFD	SUS+9
>> RX0	SUS+1*, SUS+10
>> RXN	SUS+1*, SUS+2, SUS+6
>> RXP	LAST+1
>> RXS	SUS+1
>> SD	SUS+3, SUS+6, SUS+9, SUS+10
SUSPT	D1+3!
X	SUS+2*, EQTY2+8, EQTY2+9, QTY+1!
>> XTYPE	CS+1, CS+2
Y	SUS+6, EQTY+4!, EQTY+5, EQTY+6!, EQTY2+5!, EQTY2+6, EQTY2+9!
YY	RREL1, CS~, CS+1*
Z0	HELP+2!
>> ZRX	EQTY+1, EQTY+2, EQTY2+1, EQTY2+3, EQTY2+9