Routine: PSALOG0

Information

PSALOG0 ;BIR/LTL,JMB-Unposted Procurement History - CONT'D ;7/23/97

Source file <PSALOG0.m>

Package	Total	Caller Graph
Drug Accountability	3	PSALOG PSALOG1 PSALOG1H

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No items were found for the selected month." Line Location: RTD+0
Function Call: WRITE	Prompt: ?10,Y Line Location: RTD+6
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: ?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"PAGE ",$J(PSAPG,2) Line Location: HDR+6
Function Call: WRITE	Prompt: !?19,"UNPOSTED PHARMACY PROCUREMENTS FOR ",PSAMOYR Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"PO #",?10,"PO DATE",?22,"CP",?27,"VENDOR",?69,"TOTAL COST",!,PSADLN Line Location: HDR+8
Routine Call	DIR Line Location: END+3 HDR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	RTD+6
^PRC(442	RT, RT+1, RT+2, RTD+3, RTD+5, RTD+10, RTD+11, RTD+12
^TMP("PSA"	RTD+12*
^TMP("PSAB"	RT+2*, RTD, RTD+2, RTD+13

Name	Line Occurrences
END	POS+3, RTD, RTD+2
HDR	POS+3, RTD+2, RTD+14

Name	Field # of Occurrence
^(7	RT+1

Name	Field # of Occurrence
DIR	END+3!, HDR+2!
DIR("A"	END+3*
DIR(0	END+3, HDR+2
IOF	END, HDR+4
IOSL	RTD+2, RTD+14
IOST	END, END+1, HDR, HDR+5
>> PSACOST	RTD+13*, RTD+15
>> PSACP	RTD+1, RTD+2, RTD+12, RTD+13
>> PSADLN	POS*, RTD+15, HDR+8
>> PSADT	POS+1, POS+2, RTD+5, RTD+6
>> PSAIEN	RT, RT+1, RT+2, RTD+2*, RTD+3, RTD+5, RTD+10, RTD+11, RTD+12, RTD+13
>> PSAITEM	RTD+10, RTD+11, RTD+12
>> PSAKK	END+2, HDR+1
>> PSAMO	RT
>> PSAMOYR	HDR+7
>> PSAN0	RTD+3*, RTD+4, RTD+7, RTD+8
>> PSAN1	RTD+5*, RTD+7
>> PSAOUT	POS, POS+3, RTD+2, RTD+13, RTD+14, END+1, END+3, HDR, HDR+2, HDR+3
>> PSAPG	POS, HDR, HDR+4, HDR+6
>> PSARPDT	POS+1, POS+2, HDR+5
>> PSASLN	POS*
>> PSASS	END+2, HDR+1
PSATOT	RTD+8*, RTD+13, RTD+15!
>> PSAYRMO	RT*, RT+1
>> X	RTD+8, RTD+9, RTD+13
>> X2	RTD+8, RTD+13
>> X3	RTD+8, RTD+13
>> Y	RTD+6*, END+3, HDR+2