Routine: PSAPROC7

Information

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

Source Information

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
MailMan	1	^XMD
Registration	1	$$SETSTR^VALM1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Drug Accountability	3	PSAPROC1 PSAPROC6 PSAVER6

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	INVOICE+11, LINE+3, RECORD+4
FILE^DICN	INVOICE+8
^DIE	INVOICE+25
IX^DIK	INVOICE+21, LINE+28
IX1^DIK	RECORD+15
$$GET1^DIQ	CHECK+8, MESSAGE+2, MESSAGE+3
^DIR	MESSAGE+9
ITEM^PSAUTL6	CHECK+3, CHECK+4
$$SETSTR^VALM1	CHECK+15, CHECK+16, CHECK+17
^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	DIE Line Location: INVOICE+25
Routine Call	DIC Line Location: INVOICE+11 LINE+3 RECORD+4
Routine Call	DIR Line Location: MESSAGE+9

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+10
^DD(58.8112	LINE+1
^DD(58.81125	RECORD+2
^PSD(58.811 - [#58.811]	INVOICE+4, INVOICE+6, INVOICE+8, INVOICE+9, INVOICE+10, INVOICE+20, INVOICE+26, INVOICE+27, LINE+1, LINE+18* , LINE+19, LINE+20, LINE+21, LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+37 , RECORD+2, RECORD+9, RECORD+10, RECORD+11, RECORD+12, SCANDIF+3
^PSDRUG - [#50]	LINE+9
^TMP($J	INVOICE+22!, SCANDIF+2!, MM+1, SET+2, MESSAGE+5, MESSAGE+13!
^XTMP("PSAPV"	INVOICE+2, INVOICE+23, INVOICE+26, INVOICE+28!, LINE+1, LINE+31, LINE+38!, ADJDRUG+3

Name	Line Occurrences
ADJDRUG	LINE+31
CHECK	SCANDIF+3
LINE	INVOICE+23
MESSAGE	MM+1
MM	INVOICE+24
OU	LINE+33
PRICE	LINE+34
QTY	LINE+32
RECORD	ADJDRUG+2, ADJDRUG+3, OU+2, PRICE+3, QTY+3
SCANDIF	INVOICE+24
SET	CHECK+13, CHECK+18

Name	Field # of Occurrence
^(0	INVOICE+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	INVOICE+11!, INVOICE+12, INVOICE+20, INVOICE+25!, LINE+3!, LINE+16, LINE+18, LINE+19, LINE+20, LINE+21 , LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, RECORD+1!, RECORD+8, RECORD+9, RECORD+10 , RECORD+11, RECORD+12, RECORD+15!
DA(1	INVOICE+11, INVOICE+12, INVOICE+20, INVOICE+25, LINE+3, LINE+16, LINE+18, LINE+19, LINE+20, LINE+21 , LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, 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, 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+8!, INVOICE+11, INVOICE+12!, LINE+3!, RECORD+4, RECORD+8
DIC("P"	INVOICE+10, LINE+1, RECORD+2*
DIC(0	INVOICE+8, INVOICE+11, LINE+3, RECORD+4
DIE	INVOICE+12, INVOICE+21, INVOICE+25!, LINE+16, LINE+28, RECORD+8, RECORD+15!
DIF	CHECK+1~, CHECK+9!, CHECK+12
DIF(	CHECK+10*, CHECK+14
DIF("PPDU"	CHECK+11*
DIK	INVOICE+21, LINE+28, RECORD+15*!
DIR	MESSAGE+1!, MESSAGE+9!, MESSAGE+10!
DIR("A"	MESSAGE+9*
DIR(0	MESSAGE+9*
DLAYGO	INVOICE+11!, LINE+3!, RECORD+4*!
>> DR	INVOICE+25*
DRG	CHECK+1~
DRG(	CHECK+10, CHECK+16
DRG("DUOU"	CHECK+8*
DRG("NDC"	CHECK+8*
DRG("OU"	CHECK+8*
DRG("PPDU"	CHECK+8*, CHECK+11
DRIEN	CHECK+1~, CHECK+7*, CHECK+8
DT	LINE+26, RECORD+11
DUZ	INVOICE+20, LINE+27, RECORD+12
IENS	CHECK+1~, MESSAGE+1~, MESSAGE+2*, MESSAGE+3
ITM	CHECK+1~, CHECK+3
ITM(	CHECK+10, CHECK+13, CHECK+17
ITM("DUOU"	CHECK+6*
ITM("NDC"	CHECK+6*
ITM("OU"	CHECK+6*
ITM("PPDU"	CHECK+6*, CHECK+11
ITM("PPOU"	CHECK+6*
ITM(1	CHECK+13
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
PCNT	CHECK+1~, CHECK+11*
PDIF	CHECK+1~, CHECK+11*
>> PSACRED	INVOICE+4, INVOICE+25, PRICE+2, QTY+2*
>> PSACS	LINE+14*, LINE+22
>> PSACSDR	INVOICE+15*, INVOICE+20
>> PSACTRL	INVOICE+2, INVOICE+23, INVOICE+26, INVOICE+28, LINE+1, LINE+31, LINE+38, ADJDRUG+3
>> PSADATA	LINE+1*, LINE+6, LINE+7, LINE+13, LINE+14, LINE+15, LINE+18, LINE+25, LINE+31, LINE+32 , LINE+33, LINE+34, LINE+36, LINE+37, ADJDRUG+2, OU+1, PRICE+1, PRICE+2, QTY+1, QTY+2
>> PSADELDR	INVOICE+14*, INVOICE+20
PSADIFLC	INVOICE+22!, 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+15!
>> PSAIEN	INVOICE+4, INVOICE+5, INVOICE+8, INVOICE+9, INVOICE+10, INVOICE+11, INVOICE+12, INVOICE+25, INVOICE+26, INVOICE+27 , LINE+1, LINE+3, LINE+16, LINE+37, RECORD+1, RECORD+2, SCANDIF+3, CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN1	INVOICE+11*, INVOICE+12, INVOICE+25, LINE+1, LINE+3, LINE+16, LINE+37, RECORD+1, RECORD+2, SCANDIF+3 , CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN2	LINE+3*, LINE+16, LINE+37, RECORD+1, RECORD+2
>> PSAIEN3	RECORD+4*, RECORD+8, RECORD+15
>> PSAIN	INVOICE+2*, INVOICE+3, INVOICE+4, INVOICE+11, INVOICE+13, INVOICE+14, INVOICE+15, INVOICE+16, INVOICE+17, INVOICE+18 , INVOICE+20
>> PSAINV	MESSAGE+3*, MESSAGE+4
>> PSALINE	INVOICE+23, LINE+1, LINE+3, LINE+16, LINE+31, LINE+38, ADJDRUG+3, SCANDIF+3, CHECK+3, CHECK+4
>> PSALOCDR	INVOICE+13*, INVOICE+20
>> PSAMV	INVOICE+17*, INVOICE+20
>> PSANDC	LINE+14, LINE+15, LINE+19
>> PSAORD	INVOICE+4, INVOICE+8, MESSAGE+2, MESSAGE+4
>> PSAREA	ADJDRUG+2, ADJDRUG+3, OU+1, PRICE+1, QTY+1*, RECORD+10
>> PSARECD	INVOICE+16*, INVOICE+20
>> PSASNODE	ADJDRUG+3*
>> PSASUP	INVOICE+18*, INVOICE+20
>> 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+15, CHECK+16, CHECK+17*
>> X	INVOICE+8, INVOICE+11, 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+10*
XXX	CHECK+1~, CHECK+14*, CHECK+15, CHECK+16, CHECK+17
>> Y	INVOICE+8, INVOICE+11, LINE+3, RECORD+4
ZZ	CHECK+1~, CHECK+13, CHECK+15, CHECK+16, CHECK+17, SET+2

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC7

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: