Routine: PSABRKU6

Information

PSABRKU6 ;BIR/DB-Upload and Process Prime Vendor Invoice Data - CONT'D ;10/9/97

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Drug Accountability	2	^PSAUP6 OUAUTO^PSAUP8

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: 1

Package	Total	Caller Graph
Drug Accountability	1	PSABRKU1

Entry Points

Name	Comments	DBIA/ICR reference
GETDRUG	;Looks for NDC then VSNs in DRUG file.
GETVSN	;Looks for Vendor Stock Number then NDC.
FOUND	;Store line item data if ordered item was found in DRUG file.
NDC	;If >1 NDC in DRUG file, store how many.
VSN	;If there >1 VSN with same VSN, store how many.
UOM	;Locates X12 Unit of Measure Code in ORDER UNIT file.
QTY	;If qty is 0 or blank, set flag
DUOU	;If no dispense units per order unit, set flag.
NDCCHK

External References

Name	Field # of Occurrence
^PSAUP6	GETVSN+9
OUAUTO^PSAUP8	PSABRKU6+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	UOM+4, UOM+5, UOM+8, UOM+15
^PSD(58.812 - [#58.812]	UOM+4, UOM+5
^PSDRUG - [#50]	FOUND+1, NDC+6, NDC+7, NDC+8, NDC+9, NDC+20, NDC+22, VSN+7, VSN+8, VSN+9 , VSN+10, VSN+16, VSN+17, VSN+30, UOM+17, UOM+18, DUOU+3, NDCCHK+2, NDCCHK+3, NDCCHK+4
^PSDRUG("AVSN"	GETVSN+1, VSN+3, VSN+7
^PSDRUG("C"	GETDRUG+4, NDC+3, NDC+6
^XTMP("PSA SUPPLY"	GETVSN+3
^XTMP("PSAPV"	PSABRKU6+11, PSABRKU6+12, PSABRKU6+13, PSABRKU6+14, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18, PSABRKU6+21, PSABRKU6+22, PSABRKU6+24 , PSABRKU6+25, PSABRKU6+26, PSABRKU6+27, PSABRKU6+28, PSABRKU6+29, GETVSN+5, GETVSN+11, FOUND+1, FOUND+2, NDC+12* , NDC+15, NDC+18, NDC+20, NDC+22, NDC+25, VSN+14, VSN+15, VSN+16, VSN+17, VSN+18* , VSN+21, VSN+25, VSN+28, VSN+30, VSN+33, UOM+9, UOM+10, UOM+11, UOM+12, UOM+18 , UOM+19, UOM+21, DUOU+1, NDCCHK+10*

Label References

Name	Line Occurrences
FOUND	GETDRUG+4, GETVSN+1
GETDRUG	PSABRKU6+17
GETVSN	GETDRUG+3
NDCCHK	VSN+28
QTY	UOM+2, UOM+13
UOM	GETVSN+12
VSN	GETVSN+7

Naked Globals

Name	Field # of Occurrence
^(	FOUND+2, NDC+12, NDC+18, NDC+20, VSN+15, VSN+25, DUOU+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DATA	GETVSN+3*, GETVSN+5
DT	GETVSN+5, UOM+12
>> PSACNT	PSABRKU6+20, PSABRKU6+23, PSABRKU6+27, PSABRKU6+28, PSABRKU6+29, NDC+4, NDC+9, NDC+18, NDC+25, VSN+4* , VSN+10*, VSN+24, VSN+33
>> PSACNT1	NDC+4, NDC+9, NDC+18, NDC+20, VSN+4, VSN+10, VSN+25
>> PSACS	PSABRKU6+13, PSABRKU6+21, FOUND+1, VSN+16, VSN+17
>> PSACTRL	PSABRKU6+11*, PSABRKU6+12, PSABRKU6+13, PSABRKU6+14, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18, PSABRKU6+21, PSABRKU6+22, PSABRKU6+24 , PSABRKU6+25, PSABRKU6+26, PSABRKU6+27, PSABRKU6+28, PSABRKU6+29, GETVSN+5, GETVSN+11, FOUND+1, FOUND+2, NDC+12 , NDC+15, NDC+18, NDC+20, NDC+22, NDC+25, VSN+14, VSN+15, VSN+16, VSN+17, VSN+18 , VSN+21, VSN+25, VSN+28, VSN+30, VSN+33, UOM+9, UOM+10, UOM+11, UOM+12, UOM+18 , UOM+19, UOM+21, DUOU+1, NDCCHK+10
>> PSADATA	PSABRKU6+16*, GETVSN+9, UOM+2, UOM+4, UOM+15, UOM+17, UOM+18, QTY+1
>> PSADRG	DUOU+1*, DUOU+3
>> PSAFND	NDC+4, NDC+8, NDC+12, NDC+15, VSN+4, VSN+9, VSN+13, VSN+21
>> PSAFND1	NDC+4, NDC+8, NDC+12, VSN+4, VSN+9, VSN+15
PSAGUI	UOM+2!, UOM+5, UOM+6, UOM+8, UOM+13!
>> PSAGUI1	PSABRKU6+7, UOM+5
>> PSAGUI5	PSABRKU6+8*
>> PSAGUI6	PSABRKU6+9*
>> PSAGUI7	PSABRKU6+10, GETVSN+6
>> PSAIEN	GETDRUG+4, GETVSN+1, FOUND+1, FOUND+2, NDC+12, NDC+18, NDC+20, NDC+22, VSN+15, VSN+16 , VSN+17, VSN+25*, VSN+30, UOM+17, UOM+18, NDCCHK+2, NDCCHK+3, NDCCHK+4
>> PSAIEN50	NDC+4, NDC+6, NDC+7, NDC+8, NDC+9, VSN+4, VSN+7, VSN+8, VSN+9, VSN+10
>> PSAIN	PSABRKU6+13*
>> PSAINV	PSABRKU6+13*
>> PSALINE	PSABRKU6+14, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18, PSABRKU6+22, PSABRKU6+24, PSABRKU6+25, PSABRKU6+26, GETVSN+5, GETVSN+11 , FOUND+1, FOUND+2, NDC+12, NDC+15, NDC+18, NDC+20, NDC+22, NDC+25, VSN+14, VSN+15 , VSN+16, VSN+17, VSN+18, VSN+21, VSN+25, VSN+28, VSN+30, VSN+33, UOM+4, UOM+5 , UOM+9, UOM+10, UOM+11, UOM+12, UOM+18, UOM+19, UOM+21, DUOU+1, NDCCHK+10
>> PSALLCS	PSABRKU6+20, PSABRKU6+24, PSABRKU6+28
>> PSALLOK	PSABRKU6+20, PSABRKU6+25, PSABRKU6+29
>> PSAMTCH	GETVSN+2, GETVSN+3
>> PSANDC	PSABRKU6+16, GETDRUG+1, GETDRUG+3, GETDRUG+4, GETVSN+9, NDC+3, NDC+6, NDC+12, NDC+20, VSN+9 , VSN+10, NDCCHK+1, NDCCHK+5, NDCCHK+6, NDCCHK+7, NDCCHK+8, NDCCHK+9*, NDCCHK+10
>> PSAOK	PSABRKU6+16, PSABRKU6+18, PSABRKU6+19, GETVSN+11, NDC+15, NDC+22, NDC+25, VSN+21, VSN+30, VSN+33 , UOM+2, UOM+16, UOM+20, QTY+1, DUOU+2, DUOU+3, NDCCHK+8, NDCCHK+9*
>> PSAORD	PSABRKU6+13*
>> PSASUB	GETDRUG+4, GETVSN+1, FOUND+2, NDC+12, NDC+18, NDC+20, NDC+22, VSN+15, VSN+25*, VSN+30 , NDCCHK+2, NDCCHK+3
>> PSASUP	PSABRKU6+20, PSABRKU6+26, PSABRKU6+27
>> PSASUPPL	GETVSN+2, GETVSN+6, GETVSN+7
>> PSASYN	NDC+6, NDC+7, NDC+8, NDC+9, VSN+7, VSN+8, VSN+9, VSN+10, DUOU+1*, DUOU+2 , DUOU+3
PSAUOM	UOM+2!, UOM+4, UOM+5, UOM+8, UOM+9, UOM+10, UOM+15, UOM+16, UOM+18, UOM+19 , UOM+20, UOM+21
PSAUOMN	UOM+5, UOM+8, UOM+9, UOM+18, UOM+19!, UOM+21!
>> PSAVSN	PSABRKU6+16, GETDRUG+2, GETVSN+1, GETVSN+2, GETVSN+3, GETVSN+9, NDC+8, NDC+9, VSN+3, VSN+7 , VSN+18, VSN+28
TMPDGNDC	NDCCHK~, NDCCHK+4*, NDCCHK+5, NDCCHK+6, NDCCHK+7, NDCCHK+8, NDCCHK+9
TMPSYN01	NDCCHK~, NDCCHK+2*, NDCCHK+5, NDCCHK+8, NDCCHK+9
TMPSYNDC	NDCCHK~, NDCCHK+3*, NDCCHK+5, NDCCHK+6, NDCCHK+7, NDCCHK+8, NDCCHK+9
>> XIEN	UOM+5*

Customize PDF page

Package: Drug Accountability