Routine: PSAPROC4

Information

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

Source Information

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Drug Accountability	3	ASKDRUG^PSANDF HDR^PSAPROC6 EDIT1^PSAUTL1
VA Fileman	1	^DIR

Caller Graph

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
DIFFV	;If more than one drug with different VSN, assign to correct drug.
LIST
SAMEV	;If more than one drug with same NDC, assign to correct drug.
SAME	;If more than one drug with same VSN, assign to correct drug.
MANYVSNS	;List drug synonym data & ask user which on to use
KILL
CHOOSE
DIFF	;If more than one drug with different VSN, assign to correct drug.
NDCHELP	;Extended help for selecting invoiced drug

Name	Field # of Occurrence
^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+1
Function Call: WRITE	Prompt: ?60,"(INACTIVE)" Line Location: LIST+1
Function Call: WRITE	Prompt: !,?4,"NDC : "_$P(PSANODE,"^",2) Line Location: LIST+3
Function Call: WRITE	Prompt: !?4,"Order Unit: "_$P(^DIC(51.5,+$P(PSANODE,"^",5),0),"^"),?45,"Price Per Order Unit : $"_$S(+$P(PSANODE,"^",6):$P(PSANODE,"^",6),1:"(Blank)") Line Location: LIST+4
Function Call: WRITE	Prompt: !?4,"Price Per Order Unit: $"_$P(PSANODE,"^",6) Line Location: LIST+5
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	LIST+4
^PSDRUG - [#50]	MANYNDCS+4, MANYNDCS+6, MANYNDCS+7, MANYNDCS+8, SAME+3, SAME+4, DIFF+3, DIFF+4, LIST, LIST+1 , 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

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

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
>> 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
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+1, 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+1, 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, 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, LIST+4, LIST+5, LIST+6, LIST+7, SAMEV+3, DIFFV+3
>> 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
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, MANYVSNS+2* , MANYVSNS+3, MANYVSNS+4, MANYVSNS+7, MANYVSNS+8, SAMEV+3, SAMEV+4, DIFFV+3*, DIFFV+4
>> PSAVSN	MANYNDCS+7, MANYNDCS+8, MANYVSNS+1*, MANYVSNS+2, MANYVSNS+3, SAMEV+9, DIFFV+9
>> Y	SAME+6, DIFF+6, CHOOSE+4, SAMEV+6, DIFFV+6

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: