Routine: PSAAOP

Information

PSAAOP ;BIR/DB - Price Conversion Routine;4/3/00

Name	Comments	DBIA/ICR reference
QQ
EXITQ
PRICE
Q
DONESUB
PSADRG
PSANDC	;Entry point for price correction
PSASUB
NOQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PSA321 corrects errors in the way pricing was done in the past. The new",!,"process correctly calculates the price per dispense unit by dividing" Line Location: Q+1
Function Call: WRITE	Prompt: !,"the Price per Order Unit by the Dispense Units per Order Unit.",!!,"It loops through each entry in the DRUG file (#50) and corrects any problems" Line Location: Q+2
Function Call: WRITE	Prompt: !,"found in the synonym data." Line Location: Q+3
Function Call: WRITE	Prompt: !!,"Please note - Because this process checks each NDC in the DRUG file (#50)," Line Location: Q+4
Function Call: WRITE	Prompt: !,"it is suggested that you queue the option to run during low usage times." Line Location: Q+5
Function Call: READ	Prompt: "Fix synonym entries? YES // " Formatting: !! Timeout: DTIME Variable: AN Line Location: PRICE+0
Function Call: WRITE	Prompt: !!,"Answer 'Y' for YES, or 'N' for NO." Line Location: PRICE+1
Function Call: WRITE	Prompt: !,"Nothing corrected." Line Location: NOQ+0
Routine Call	%ZIS Line Location: PRICE+5
Routine Call	DIE Line Location: DONESUB+7 DONESUB+8

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PSADRG, PSADRG+1, PSASUB, DONESUB+3, DONESUB+6, DONESUB+9
^PSDRUG("B"	PSADRG
^TMP("PSAAOP"	DONESUB+3, DONESUB+4, QQ, QQ+1, QQ+5!

Name	Line Occurrences
DONESUB	PSASUB
EXITQ	PRICE+5
NOQ	PRICE, PRICE+2
PRICE	PRICE+1
PSADRG	PSADRG, PSADRG+1, PSASUB, DONESUB, DONESUB+11
PSASUB	PSASUB+1
QQ	PSADRG, QQ+4

Name	Field # of Occurrence
AN	PRICE, PRICE+1!, PRICE+2
DA	Q!, DONESUB+5, DONESUB+7!, DONESUB+8
DA(1	DONESUB+8*
DATA	QQ!
DIE	Q!, DONESUB+5, DONESUB+7!, DONESUB+8
DIR	Q!
DR	Q!, DONESUB+5, DONESUB+7!, DONESUB+8
DRGCNT	PSANDC+2!, PSADRG*, QQ
DTIME	PRICE
DUZ	PRICE+3
FIXCNT	PSANDC+2!, DONESUB+10*, QQ
NEWPRICE	DONESUB+2*, DONESUB+4, QQ!
PSACNT	PSANDC+2!, DONESUB+3, DONESUB+4
PSADATA	PSANDC+2!, PSASUB*, DONESUB, QQ!
PSADRG	PSANDC+2!, PSADRG*, PSADRG+1, PSASUB, DONESUB+3, DONESUB+5, DONESUB+6, DONESUB+8, DONESUB+9, QQ!
PSADRG1	PSANDC+2!, PSADRG*
PSADUOU	DONESUB*, DONESUB+2, QQ!
>> PSADUZ	PRICE+3*, QQ+3
PSALOC	Q!
PSALOCN	Q!
>> PSANDC	PSADRG+1*, PSASUB, DONESUB+3
PSAOP	Q!
PSAOSITN	Q!
PSAOU	DONESUB*, DONESUB+2, QQ!
PSAPDUOU	DONESUB*, DONESUB+2, DONESUB+4, QQ!
PSASUB	PSANDC+2!, PSADRG!, PSASUB*, DONESUB+8
>> XMDUZ	QQ+2*
>> XMSUB	QQ+2*
>> XMTEXT	QQ+2*
>> XMY	QQ+4
>> XMY(	QQ+3*
>> XX	DONESUB+2*
>> ZTDESC	PRICE+5*
>> ZTIO	PRICE+4*
>> ZTRTN	PRICE+5*
>> ZTSAVE("PSADUZ"	PRICE+3*