Routine: PSSPRICE

Package	Total	Call Graph
VA FileMan	4	(C,NOW)^%DTC UPDATE^DIE ^DIK $$GET1^DIQ
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
MailMan	1	^XMD
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
ST(PSSIEN,PSSDUZ,PSSFLD)	; ; PSSIEN=DRUG IEN ; PSSNEW=NEW PRICE ; PSSDUZ=USER CHANGING PRICE ; PSSFLD=13-PRICE PER ORDER UNIT, 15-DISPENSE UNITS PER ORDER UNIT ;p236 ; CLASS 3 CROSS REFER ON FILE 50 FIELD #16
QUE	;ENTER THE DATA IN FILE 50 MULTIPLE FIELD 950
HIS	;LOGS CHANGES IN FILE 50 HISTORY PRICE DISPENSE #950 ; first delete any price updates prior to the retention limit set up in the paramater PSS DRUG AUDIT RETENTION MOS
BULL	;Generate the bulletin.

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	ST+10, HIS+7, HIS+8, HIS+11, HIS+12, BULL+5
^UTILITY($J	BULL+3, BULL+4, BULL+5, BULL+6, BULL+7*, BULL+9!

Name	Field # of Occurrence
^(	HIS+8

Name	Field # of Occurrence
%	ST+9, QUE+9, BULL+9!
DA	ST+6~, HIS+9~, HIS+10*
DA(1	HIS+10*
DEFDT	HIS+2~*, HIS+3
>> DEFMOS	HIS+3*, HIS+4, HIS+6
DIC	ST+6~
DIE	ST+6~
DIK	HIS+9~, HIS+10*
DT	HIS+6
>> ENDDT	HIS+4, HIS+6, HIS+8
FDA	HIS+13~
FDA(	HIS+14, HIS+15, HIS+16*
PSIEN2	HIS+2~, HIS+8*, HIS+10
PSSDUZ	ST~, HIS+15, HIS+18, BULL+9!
PSSFLD	ST~, BULL+3, BULL+9!
PSSIEN	ST~, ST+10, HIS+7, HIS+8, HIS+10, HIS+11, HIS+12, HIS+14, HIS+15, HIS+16 , BULL+5, BULL+9!
PSSNAME	HIS+18*, BULL+3, BULL+9!
PSSNEW	ST+7~, ST+10*, HIS+12, HIS+16, BULL+5, BULL+9!
PSSOLD	BULL+9!
PSSPDU	HIS+11~*, HIS+12
PSSTIME	ST+9*, HIS+14, BULL+7, BULL+9!
X	ST+6~, HIS+4
>> X1	HIS+4, HIS+5
>> X2	HIS+4*
XMDUZ	BULL+2*, BULL+9!
XMSUB	BULL+2*, BULL+9!
XMTEXT	BULL+8*, BULL+9!
>> XMY("G.PSS DE	E AUDIT" , BULL+1*
Y	ST+6~
>> ZTDESC	QUE+2*
>> ZTDTH	QUE+9*
>> ZTIO	QUE+8*
>> ZTRTN	QUE+1*
>> ZTSAVE("PSSDUZ"	QUE+5*
>> ZTSAVE("PSSFLD"	QUE+7*
>> ZTSAVE("PSSIEN"	QUE+3*
>> ZTSAVE("PSSNEW"	QUE+4*
>> ZTSAVE("PSSTIME"	QUE+6*