Routine: PSOCST9

Information

PSOCST9 ;BHAM ISC/SAB - DIVISION BY PROVIDER COST ; 08/19/92 11:20

Source file <PSOCST9.m>

Package	Total	Call Graph
Kernel	1	^%ZTLOAD
Outpatient Pharmacy	1	(CDT,CTP,DVC,DVS,EX,FTT,FTU,HD,HDC,HDN,PAS,PRT,SUB,TOT,ZER)^PSOCSTX

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO COST DIVISION BY PROVIDER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Division: ",DIVX Line Location: HD+1
Function Call: WRITE	Prompt: !,"Total for "_DIVX Line Location: SUB+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	STORE
^PSCST - [#50.9]	START, DIV, PHY
^TMP($J	START!, START+1, START+2, START+3, PRT3, STORE+2, STORE+3, STR, STR+1
^VA(200 - [#200]	STORE+1

Name	Field # of Occurrence
^(	PHY
^(0	PHY, STORE, STORE+1

Name	Field # of Occurrence
>> BEGDATE	START
>> CTR	BEG, DEV, START+3, START+4, PRT3, HD
>> DIV	DIV*, PHY, STORE
>> DIVX	START+1, START+2, START+3, PRT3, STORE, STORE+2, STORE+3, STR, STR+1, HD+1 , SUB+1
>> ENDDATE	START
>> IFN	START, START+4
IO	START
IO("Q"	DEV+1, DEV+2!
IOSL	START+4, PRT3, SUB+1
>> PHY	PHY*, STORE+1
>> PHYX	START+2, START+3, PRT3, STORE+1*, STORE+2, STORE+3, STR, STR+1
>> PSDT	START*, DIV, PHY
PSOION	DEV+1!
>> RP	BEG*
>> TTX	PRT3*
>> UTL	STORE+3*
>> X	PHY*, STORE+3
>> Y	PRT3*
>> ZTDESC	DEV+1*
>> ZTRTN	DEV+1*
>> ZTSK	DEV+2