Routine: PSAPROC4

Information

PSAPROC4 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Drug Accountability	3	ASKDRUG^PSANDF HDR^PSAPROC6 EDIT1^PSAUTL1
VA FileMan	2	$$GET1^DIQ ^DIR

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	PSANDF PSAPROC5 PSAPROC9

Entry Points

Name	Comments	DBIA/ICR reference
MANYNDCS	;List drug synonym data & ask user which on to use
SAME	;If more than one drug with same VSN, assign to correct drug.
DIFF	;If more than one drug with different VSN, assign to correct drug.
KILL
LIST
CHOOSE
MANYVSNS	;List drug synonym data & ask user which on to use
SAMEV	;If more than one drug with same NDC, assign to correct drug.
DIFFV	;If more than one drug with different VSN, assign to correct drug.
NDCHELP	;Extended help for selecting invoiced drug

External References

Name	Field # of Occurrence
$$GET1^DIQ	LIST+6
^DIR	CHOOSE+3
ASKDRUG^PSANDF	SAME+7, DIFF+7, SAMEV+7, DIFFV+7
HDR^PSAPROC6	SAME+13, DIFF+13, SAMEV+13, DIFFV+14
EDIT1^PSAUTL1	SAME+13, DIFF+13, SAMEV+13, DIFFV+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",! Line Location: SAME+1
Function Call: WRITE	Prompt: !,"There is more than one item in the DRUG file with the same NDC.",! Line Location: DIFF+1
Function Call: WRITE	Prompt: !?1,PSAMENU_".",?4,$P($G(^PSDRUG(PSAIEN50,0)),"^") Line Location: LIST+8
Function Call: WRITE	Prompt: ?60,"(INACTIVE)" Line Location: LIST+8
Function Call: WRITE	Prompt: !,?19,"SYN #",PSASYN,": ",PSASYNM,! Line Location: LIST+9
Function Call: WRITE	Prompt: !,?4,"NDC: ",PSANDC,?25,"Order Unit: ",PSAOU,?46,"Price Per Order Unit: $",$FN(PSAPPOU,",",2) Line Location: LIST+10
Function Call: WRITE	Prompt: !,?4,"VSN: ",PSAVSN,?19,"SYN #",PSASYN,": ",PSASYNM,?42,"Dose Unit Per Order Unit: ",PSADUOU Line Location: LIST+11
Function Call: WRITE	Prompt: !,?4,"Vendor: ",PSAVEND,?47,"Price Per Dose Unit: ",$FN(PSACPPDU,","),! Line Location: LIST+12
Function Call: WRITE	Prompt: !?1,PSAMENU,".",?4,"Select another drug." Line Location: CHOOSE+1
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+2
Function Call: WRITE	Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",! Line Location: SAMEV+1
Function Call: WRITE	Prompt: !,"There is more than one item in the DRUG file with the same VSN.",! Line Location: DIFFV+1
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you" Line Location: NDCHELP+1
Function Call: WRITE	Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item." Line Location: NDCHELP+2
Routine Call	DIR Line Location: CHOOSE+3

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	LIST+6
^PSDRUG - [#50]	MANYNDCS+4, MANYNDCS+6, MANYNDCS+7, MANYNDCS+8, SAME+3, SAME+4, DIFF+3, DIFF+4, LIST, LIST+8 , MANYVSNS+4, MANYVSNS+6, MANYVSNS+7, MANYVSNS+8, SAMEV+3, SAMEV+4, DIFFV+3, DIFFV+4, DIFFV+12
^PSDRUG("AVSN"	MANYVSNS+2, MANYVSNS+3
^PSDRUG("C"	MANYNDCS+2, MANYNDCS+3
^XTMP("PSAPV"	MANYNDCS+1, SAME+9, SAME+10, SAME+11, SAME+12, DIFF+9, DIFF+10, DIFF+11, DIFF+12, MANYVSNS+1 , SAMEV+9, SAMEV+10, SAMEV+11, SAMEV+12, DIFFV+9, DIFFV+10, DIFFV+11, DIFFV+12*, DIFFV+13

Label References

Name	Line Occurrences
CHOOSE	SAME+6, DIFF+6, SAMEV+6, DIFFV+6
DIFF	MANYNDCS+9
DIFFV	MANYVSNS+9
KILL	SAME+7, SAME+14, DIFF+7, SAMEV+7, SAMEV+14, DIFFV+7, DIFFV+15
LIST	SAME+5, DIFF+5, SAMEV+5, DIFFV+5
SAME	MANYNDCS+9
SAMEV	MANYVSNS+9

Naked Globals

Name	Field # of Occurrence
^(	SAME+9, SAME+11, DIFF+9, DIFF+11, SAMEV+9, SAMEV+11, DIFFV+9, DIFFV+11
^("IN"	SAME+12, DIFF+12, SAMEV+12, DIFFV+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	CHOOSE+3!
DIR("?"	CHOOSE+2*
DIR("??"	CHOOSE+2*
DIR("A"	CHOOSE+2*
DIR(0	CHOOSE+2*
DT	SAME+11, DIFF+11, SAMEV+11, DIFFV+11
>> DTOUT	CHOOSE+3
>> DUOUT	CHOOSE+3
DUZ	SAME+11, DIFF+11, SAMEV+11, DIFFV+11
>> PSACNT	MANYNDCS+1, MANYNDCS+8, MANYNDCS+9, SAME+2, SAME+3, DIFF+2, DIFF+3, MANYVSNS+1, MANYVSNS+8, MANYVSNS+9 , SAMEV+2, SAMEV+3, DIFFV+2, DIFFV+3
PSACPPDU	LIST+2~, LIST+7*, LIST+12
>> PSACTRL	MANYNDCS+1, SAME+9, SAME+10, SAME+11, SAME+12, DIFF+9, DIFF+10, DIFF+11, DIFF+12, MANYVSNS+1 , SAMEV+9, SAMEV+10, SAMEV+11, SAMEV+12, DIFFV+9, DIFFV+10, DIFFV+11, DIFFV+12, DIFFV+13
>> PSADATA	SAME+9, SAME+11, DIFF+9, DIFF+11, SAMEV+9, SAMEV+11, DIFFV+11*
PSADIFF	MANYNDCS+1!, MANYVSNS+1!
PSADIFF(	MANYNDCS+8, DIFF+2, DIFF+3, DIFF+9, DIFF+10, DIFF+11, MANYVSNS+8, DIFFV+2, DIFFV+3, DIFFV+9 , DIFFV+10, DIFFV+11, DIFFV+12
PSADU	LIST+2~, LIST+6*
PSADUOU	LIST+2~, LIST+5*, LIST+7, LIST+11
PSAFND	MANYNDCS+1, MANYNDCS+7, MANYNDCS+9, KILL!, MANYVSNS+1, MANYVSNS+7, MANYVSNS+9
>> PSAIEN50	MANYNDCS+1, MANYNDCS+2, MANYNDCS+3, MANYNDCS+4, MANYNDCS+6, MANYNDCS+7, MANYNDCS+8, SAME+3, SAME+4, DIFF+3 , DIFF+4, LIST, LIST+6, LIST+8, MANYVSNS+1, MANYVSNS+2, MANYVSNS+3, MANYVSNS+4, MANYVSNS+6, MANYVSNS+7 , MANYVSNS+8, SAMEV+3, SAMEV+4, DIFFV+3, DIFFV+4
>> PSAIN	SAME+12, DIFF+12, SAMEV+12, DIFFV+13
>> PSALINE	MANYNDCS+1, SAME+9, SAME+10, SAME+11, DIFF+9, DIFF+10, DIFF+11, MANYVSNS+1, SAMEV+9, SAMEV+10 , SAMEV+11, DIFFV+9, DIFFV+10, DIFFV+11, DIFFV+12
>> PSAMENU	SAME+2, SAME+3, SAME+7, SAME+8, DIFF+2, DIFF+3, DIFF+7, DIFF+8, LIST+8, CHOOSE* , CHOOSE+1, CHOOSE+2, SAMEV+2, SAMEV+3, SAMEV+7, SAMEV+8, DIFFV+2, DIFFV+3, DIFFV+7, DIFFV+8
PSANDC	MANYNDCS+1, MANYNDCS+2, MANYNDCS+3, SAME+9, DIFF+9, LIST+2~, LIST+4, LIST+9, LIST+10, MANYVSNS+7 , MANYVSNS+8, DIFFV+12*
>> PSANEXT	SAME+9, SAME+11, DIFF+9, DIFF+11, SAMEV+9, SAMEV+11, DIFFV+9*
>> PSANODE	SAME+3, DIFF+3, LIST, LIST+3, SAMEV+3, DIFFV+3
PSAOU	LIST+2~, LIST+4, LIST+6, LIST+10
>> PSAOUT	SAME+5, SAME+6, DIFF+5, DIFF+6, CHOOSE+3*, SAMEV+5, SAMEV+6, DIFFV+5, DIFFV+6
>> PSAPICK	SAME+7, SAME+8, SAME+9, SAME+10, SAME+11, DIFF+7, DIFF+8, DIFF+9, DIFF+10, DIFF+11 , CHOOSE+4*, SAMEV+7, SAMEV+8, SAMEV+9, SAMEV+10, SAMEV+11, DIFFV+7, DIFFV+8, DIFFV+9, DIFFV+10 , DIFFV+11, DIFFV+12
PSAPPDU	LIST+2~, LIST+5*
PSAPPOU	LIST+2~, LIST+4*, LIST+7, LIST+10
PSASAME	MANYNDCS+1!, KILL!, MANYVSNS+1!
PSASAME(	MANYNDCS+7, SAME+2, SAME+3, SAME+9, SAME+10, SAME+11, MANYVSNS+7, SAMEV+2, SAMEV+3, SAMEV+9 , SAMEV+10, SAMEV+11
>> PSASYN	MANYNDCS+2, MANYNDCS+3, MANYNDCS+4, MANYNDCS+7, MANYNDCS+8, SAME+3, SAME+4, DIFF+3, DIFF+4, LIST+9 , LIST+11, MANYVSNS+2, MANYVSNS+3, MANYVSNS+4, MANYVSNS+7, MANYVSNS+8, SAMEV+3, SAMEV+4, DIFFV+3, DIFFV+4
PSASYNM	LIST+2~, LIST+4*, LIST+9, LIST+11
PSAVEND	LIST+2~, LIST+5*, LIST+12
PSAVSN	MANYNDCS+7, MANYNDCS+8, LIST+2~, LIST+4, LIST+9, LIST+11, MANYVSNS+1, MANYVSNS+2, MANYVSNS+3, SAMEV+9 , DIFFV+9
U	LIST+4, LIST+5
X	LIST+2~, LIST+3*, LIST+4, LIST+5
>> Y	SAME+6, DIFF+6, CHOOSE+4, SAMEV+6, DIFFV+6

Customize PDF page

Package: Drug Accountability