Routine: PSAPROC7

Information

PSAPROC7 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;9/6/97

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	6	^DIC FILE^DICN ^DIE (IX,IX1)^DIK $$GET1^DIQ ^DIR
Drug Accountability	1	ITEM^PSAUTL6
List Manager	1	$$SETSTR^VALM1
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Drug Accountability	3	PSAPROC1 PSAPROC6 PSAVER6

Entry Points

Name	Comments	DBIA/ICR reference
INVOICE	;PSA321 (3JAN01) - FILE INVOICE IMMEDIATELY
LINE	;Files line items.
ADJDRUG	;Records adjusted drug received
OU	;Records adjusted order unit
PRICE	;Records adjusted price per order unit
QTY	;Records adjusted quantity received.
RECORD	;Adds adjusted data to DA ORDERS file
SCANDIF	; inspect invoice for noted differences in OU,DUOU,PPDU,NDC
MM	;
CHECK	;Check line item for differences to drug file *42
SET	;set differences into ^TMP
MESSAGE	;differences found, notify user and send message to g.PSA NDC UPDATES.

External References

Name	Field # of Occurrence
^DIC	INVOICE+12, LINE+3, RECORD+4
FILE^DICN	INVOICE+9
^DIE	INVOICE+26
IX^DIK	INVOICE+22, LINE+34
IX1^DIK	RECORD+14
$$GET1^DIQ	CHECK+10, MESSAGE+2, MESSAGE+3
^DIR	MESSAGE+9
ITEM^PSAUTL6	CHECK+3, CHECK+4
$$SETSTR^VALM1	CHECK+19, CHECK+20, CHECK+21
^XMD	MESSAGE+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,XMSUB,! Line Location: MESSAGE+6
Function Call: WRITE	Prompt: !,"Noted differences between the invoice line items and the drug file have",!,"been found. A mail message is being sent to G.PSA NDC UPDATES." Line Location: MESSAGE+7
Function Call: WRITE	Prompt: !!," Please check the message for accuracy.",! Line Location: MESSAGE+8
Routine Call	DIC Line Location: INVOICE+12 LINE+3 RECORD+4
Routine Call	DIE Line Location: INVOICE+26
Routine Call	DIR Line Location: MESSAGE+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSD(58.811 - [#58.811]	Classic Fileman Calls, GET1^DIQ
58.8112	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.811	INVOICE+11
^DD(58.8112	LINE+1
^DD(58.81125	RECORD+2
^PSD(58.811 - [#58.811]	INVOICE+4, INVOICE+6, INVOICE+9, INVOICE+10, INVOICE+11, INVOICE+21, INVOICE+27, INVOICE+28, LINE+1, LINE+18* , LINE+19, LINE+20, LINE+21, LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+29 , LINE+30, LINE+31, LINE+32, LINE+43, RECORD+2, RECORD+9, RECORD+10, RECORD+11, RECORD+12, SCANDIF+3
^PSDRUG - [#50]	LINE+9, CHECK+9
^TMP($J	INVOICE+23!, SCANDIF+2!, MM+1, SET+2, MESSAGE+5, MESSAGE+13!
^XTMP("PSAPV"	INVOICE+2, INVOICE+24, INVOICE+27, INVOICE+29!, LINE+1, LINE+37, LINE+47!, ADJDRUG+3
^XTMP("PSAVSN"	LINE+45*

Label References

Name	Line Occurrences
ADJDRUG	LINE+37
CHECK	SCANDIF+3
LINE	INVOICE+24
MESSAGE	MM+1
MM	INVOICE+25
OU	LINE+39
PRICE	LINE+40
QTY	LINE+38
RECORD	ADJDRUG+2, ADJDRUG+3, OU+2, PRICE+3, QTY+3
SCANDIF	INVOICE+25
SET	CHECK+17, CHECK+22

Naked Globals

Name	Field # of Occurrence
^(0	INVOICE+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	INVOICE+12!, INVOICE+13, INVOICE+21, INVOICE+26!, LINE+3!, LINE+16, LINE+18, LINE+19, LINE+20, LINE+21 , LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32 , RECORD+1!, RECORD+8, RECORD+9, RECORD+10, RECORD+11, RECORD+12, RECORD+14!
DA(1	INVOICE+12, INVOICE+13, INVOICE+21, INVOICE+26, LINE+3, LINE+16, LINE+18, LINE+19, LINE+20, LINE+21 , LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32 , RECORD+1, RECORD+4, RECORD+9, RECORD+10, RECORD+11, RECORD+12
DA(2	LINE+3, LINE+16, LINE+18, LINE+19, LINE+20, LINE+21, LINE+22, LINE+23, LINE+24, LINE+25 , LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32, RECORD+1*, RECORD+4, RECORD+9, RECORD+10 , RECORD+11, RECORD+12
DA(3	RECORD+1*, RECORD+4, RECORD+9, RECORD+10, RECORD+11, RECORD+12
DIC	INVOICE+9!, INVOICE+12, INVOICE+13!, LINE+3!, RECORD+4, RECORD+8
DIC("P"	INVOICE+11, LINE+1, RECORD+2*
DIC(0	INVOICE+9, INVOICE+12, LINE+3, RECORD+4
DIE	INVOICE+13, INVOICE+22, INVOICE+26!, LINE+16, LINE+34, RECORD+8, RECORD+14!
DIF	CHECK+1~, CHECK+11!, CHECK+16
DIF(	CHECK+12*, CHECK+18
DIF("OU"	CHECK+14, CHECK+15
DIF("PPDU"	CHECK+13*
DIK	INVOICE+22, LINE+34, RECORD+14*!
>> DILOCKTM	INVOICE+6
DIR	MESSAGE+1!, MESSAGE+9!, MESSAGE+10!
DIR("A"	MESSAGE+9*
DIR(0	MESSAGE+9*
DLAYGO	INVOICE+12!, LINE+3!, RECORD+4*!
DO	INVOICE+9~
>> DR	INVOICE+26*
DRG	CHECK+1~
DRG(	CHECK+12, CHECK+20
DRG("DUOU"	CHECK+10*
DRG("NDC"	CHECK+10*
DRG("OU"	CHECK+10, CHECK+15
DRG("PPDU"	CHECK+10*, CHECK+13
DRIEN	CHECK+1~, CHECK+7, CHECK+8, CHECK+9, CHECK+10
DT	LINE+26, RECORD+11
DUZ	INVOICE+21, LINE+27, RECORD+12
IENS	CHECK+1~, MESSAGE+1~, MESSAGE+2*, MESSAGE+3
ITM	CHECK+1~, CHECK+3
ITM(	CHECK+12, CHECK+17, CHECK+21
ITM("DUOU"	CHECK+6*
ITM("NDC"	CHECK+6*
ITM("OU"	CHECK+6, CHECK+14
ITM("PPDU"	CHECK+6*, CHECK+13
ITM("PPOU"	CHECK+6*
ITM(1	CHECK+17
ITM(10	CHECK+6
ITM(13	CHECK+6
ITM(2	CHECK+5
ITM(3	CHECK+6
ITM(4	CHECK+6
ITMI	CHECK+1~, CHECK+4
ITMI(1	CHECK+7, CHECK+8
PCNT	CHECK+1~, CHECK+13*
PDIF	CHECK+1~, CHECK+13*
>> PSACRED	INVOICE+4, INVOICE+26, PRICE+2, QTY+2*
>> PSACS	LINE+14*, LINE+22
>> PSACSDR	INVOICE+16*, INVOICE+21
>> PSACTRL	INVOICE+2, INVOICE+24, INVOICE+27, INVOICE+29, LINE+1, LINE+37, LINE+47, ADJDRUG+3
>> PSADATA	LINE+1*, LINE+6, LINE+7, LINE+13, LINE+14, LINE+15, LINE+18, LINE+25, LINE+29, LINE+30 , LINE+31, LINE+32, LINE+37, LINE+38, LINE+39, LINE+40, LINE+42, LINE+43, LINE+45, ADJDRUG+2 , OU+1, PRICE+1, PRICE+2, QTY+1, QTY+2
>> PSADELDR	INVOICE+15*, INVOICE+21
PSADIFLC	INVOICE+23!, SCANDIF+2!, SET+1, SET+2, MESSAGE+13!
>> PSADJ	ADJDRUG+2, ADJDRUG+3, OU+1, PRICE+1, PRICE+2, QTY+1*, QTY+2, RECORD+9
>> PSADRG	LINE+6*, LINE+9, LINE+23
>> PSADT	ADJDRUG+2, ADJDRUG+3, OU+1, PRICE+1, QTY+1*
>> PSADUZ	ADJDRUG+2, ADJDRUG+3, OU+1, PRICE+1, QTY+1*
PSAFLD	ADJDRUG+1, OU+1, PRICE+1, QTY+1, RECORD+1, RECORD+14!
>> PSAIEN	INVOICE+4, INVOICE+5, INVOICE+9, INVOICE+10, INVOICE+11, INVOICE+12, INVOICE+13, INVOICE+26, INVOICE+27, INVOICE+28 , LINE+1, LINE+3, LINE+16, LINE+43, RECORD+1, RECORD+2, SCANDIF+3, CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN1	INVOICE+12*, INVOICE+13, INVOICE+26, LINE+1, LINE+3, LINE+16, LINE+43, RECORD+1, RECORD+2, SCANDIF+3 , CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN2	LINE+3*, LINE+16, LINE+43, RECORD+1, RECORD+2
>> PSAIEN3	RECORD+4*, RECORD+8, RECORD+14
>> PSAIN	INVOICE+2*, INVOICE+3, INVOICE+4, INVOICE+12, INVOICE+14, INVOICE+15, INVOICE+16, INVOICE+17, INVOICE+18, INVOICE+19 , INVOICE+21
>> PSAINV	MESSAGE+3*, MESSAGE+4
>> PSALINE	INVOICE+24, LINE+1, LINE+3, LINE+16, LINE+37, LINE+47, ADJDRUG+3, SCANDIF+3, CHECK+3, CHECK+4
>> PSALOCDR	INVOICE+14*, INVOICE+21
>> PSAMV	INVOICE+18*, INVOICE+21
>> PSANDC	LINE+14, LINE+15, LINE+19
>> PSAORD	INVOICE+4, INVOICE+9, MESSAGE+2, MESSAGE+4
>> PSAREA	ADJDRUG+2, ADJDRUG+3, OU+1, PRICE+1, QTY+1*, RECORD+10
>> PSARECD	INVOICE+17*, INVOICE+21
>> PSASNODE	ADJDRUG+3*
>> PSASUP	INVOICE+19*, INVOICE+21
>> PSASYN	LINE+7*, LINE+9
PSAUNIT	LINE+8!, LINE+9, LINE+13, LINE+24
>> PSAUPC	LINE+14*, LINE+21
>> PSAVSN	LINE+14*, LINE+20
T	CHECK+1~, CHECK+19, CHECK+20, CHECK+21*
>> X	INVOICE+9, INVOICE+12, LINE+3, RECORD+1
>> XMSUB	MESSAGE+4*, MESSAGE+5, MESSAGE+6
>> XMTEXT	MESSAGE+11*
>> XMY("G.PSA ND	C UPDATES" , MESSAGE+11*
XX	CHECK+1~, CHECK+12*
XXX	CHECK+1~, CHECK+18*, CHECK+19, CHECK+20, CHECK+21
>> Y	INVOICE+9, INVOICE+12, LINE+3, RECORD+4
ZZ	CHECK+1~, CHECK+17, CHECK+19, CHECK+20, CHECK+21, SET+2

Customize PDF page

Package: Drug Accountability