Routine: PSAPROC6

Information

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

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Drug Accountability	8	(ASKDRUG,CHECK)^PSANDF END^PSAPROC (DUOU,GETOU,PRICE,QTY,RECD,SETLINE)^PSAPROC3 ^PSAPROC7 (DU,DUOU,REORDER,STOCK)^PSAPROC8 MASTER^PSAPROC9 (EDITDISP,SITES)^PSAUTL1 ^PSAUTL5
VA Fileman	2	^DIC ^DIR
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Drug Accountability	3	PSAPROC1 PSAPROC2 PSAPROC4

Entry Points

Name	Comments	DBIA/ICR reference
LOC
HDR	;Screen header
CHG	;Asks if invoice's status should be changed to verified. If so, status
PROCESS	;Checks for & prompts for missing data.
FIELDS
SUPPLY	;Asks if all items are supply items. If so, invoice is deleted from
LINES
LNHELP	;Extended help - 'Line Number"
NO
MV	;Assigns master vault
CHGYN	;Extended help - 'Do you want to change the invoice's status to Processed'
CORR
ALLSUP	;Extended help - "Are all the items on the invoice supply items" &
SEL	;Loops thru selected invoices
CHECK	;Looks to see if all line items are processed
DQOR	;Extended help - 'Edit field'
PHARM	;Assigns pharmacy location

External References

Name	Field # of Occurrence
^DIC	MV+3
^DIR	CHG+3, LINES+6, LINES+18, SUPPLY+4, SUPPLY+7
ASKDRUG^PSANDF	FIELDS+1
CHECK^PSANDF	PROCESS+21
END^PSAPROC	CHECK+11, CHECK+13
DUOU^PSAPROC3	FIELDS+4, PROCESS+11
GETOU^PSAPROC3	FIELDS+3, PROCESS+6, PROCESS+7
PRICE^PSAPROC3	PROCESS+12
QTY^PSAPROC3	FIELDS+2
RECD^PSAPROC3	CORR+2
SETLINE^PSAPROC3	PROCESS+21
^PSAPROC7	CHG+9
DU^PSAPROC8	FIELDS+4
DUOU^PSAPROC8	PROCESS+9
REORDER^PSAPROC8	FIELDS+6, PROCESS+16, PROCESS+20
STOCK^PSAPROC8	FIELDS+5, PROCESS+15, PROCESS+19
MASTER^PSAPROC9	CHECK+8
EDITDISP^PSAUTL1	LINES+14, LINES+19
SITES^PSAUTL1	LOC+3
^PSAUTL5	PHARM+6
$$FMTE^XLFDT	HDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All drugs on the invoice are marked as a controlled substance." Line Location: CHECK+7
Function Call: WRITE	Prompt: !!,"** The invoice has not been placed in a Processed status!" Line Location: CHECK+12
Function Call: WRITE	Prompt: ! Line Location: CHG+2
Function Call: WRITE	Prompt: !!,"** The invoice's status has not been changed to Processed." Line Location: CHG+4
Function Call: WRITE	Prompt: !!,"The invoice status has been changed to Processed!" Line Location: CHG+6
Function Call: WRITE	Prompt: !!,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^") Line Location: LOC+0
Function Call: WRITE	Prompt: !!,"Line Item Numbers: " Line Location: LINES+0
Function Call: WRITE	Prompt: ?19,PSALINE Line Location: LINES+1
Function Call: WRITE	Prompt: !,?19,PSALINE Line Location: LINES+3
Function Call: WRITE	Prompt: !,"Invalid line number." Line Location: LINES+9
Function Call: WRITE	Prompt: !,PSASLN,! Line Location: LINES+14
Function Call: WRITE	Prompt: !,"5. Stock Level",!,"6. Reorder Level" Line Location: LINES+16
Function Call: WRITE	Prompt: !,PSASLN Line Location: LINES+19
Function Call: WRITE	Prompt: ! Line Location: SUPPLY+2
Function Call: WRITE	Prompt: ! Line Location: SUPPLY+6
Function Call: WRITE	Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN Line Location: HDR+1
Function Call: WRITE	Prompt: !?5,"Enter YES if the invoice is completely correct. You will not be able",!?5,"to edit it again." Line Location: CHGYN+1
Function Call: WRITE	Prompt: !!?5,"Enter NO if you need to edit the invoice again. You can edit it again",!?5,"by selecting the Process Orders option." Line Location: CHGYN+2
Function Call: WRITE	Prompt: !?5,"Enter the number or range of numbers of the field you want to edit." Line Location: DQOR+1
Function Call: WRITE	Prompt: !?5,"Enter the number of the item on the invoice you want to edit. You can",!?5,"enter a line item number then edit that line item. The ""Line Number""",!?5,"prompt will be displayed again. You can keep entering and editing line" Line Location: LNHELP+1
Function Call: WRITE	Prompt: !?5,"items until you press the Return key at the ""Line Number"" prompt." Line Location: LNHELP+2
Function Call: WRITE	Prompt: !!?5,"Enter YES if none of the line items on the invoice are",!?5,"in the DRUG file and will never be in the DRUG file.",!!?5,"Enter NO if there is at least one line item on the",!?5,"invoice that is in the DRUG file." Line Location: ALLSUP+2
Routine Call	DIC Line Location: MV+3
Routine Call	DIR Line Location: CHG+3 LINES+6 LINES+18 SUPPLY+4 SUPPLY+7

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	CHECK+8, LOC, LOC+3, LINES+16, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20 , MV+1
^PSDRUG - [#50]	FIELDS+4, PROCESS+6, PROCESS+9
^XTMP("PSAPV"	CHECK+2, CHECK+3, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHG+4, CHG+5, CORR+1, LINES+1 , LINES+2, LINES+9, LINES+10, PROCESS+1, PROCESS+2, MV+4, PHARM+6, NO+1, NO+2, NO+3*

Name	Line Occurrences
CHECK	SEL+1
CHG	CHECK+11
CORR	SEL+1
HDR	CORR+2
MV	LOC
NO	SUPPLY+5
PHARM	LOC+5
PROCESS	FIELDS+7

Name	Field # of Occurrence
^("IN"	CHECK+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	MV+1*, MV+3!
DIC("A"	MV+1*
DIC("B"	MV+1*
DIC("S"	MV+2*
DIC(0	MV+1*
DIR	CHG+3!, LINES+6!, LINES+18!, SUPPLY+4!, SUPPLY+7!
DIR("?"	CHG+2, LINES+5, LINES+17, SUPPLY+3, SUPPLY+6*
DIR("??"	CHG+3, LINES+5, LINES+17, SUPPLY+4, SUPPLY+7*
DIR("A"	CHG+2, LINES+5, LINES+17, SUPPLY+2, SUPPLY+6*
DIR("B"	SUPPLY+2, SUPPLY+6
DIR(0	CHG+2, LINES+5, LINES+17, SUPPLY+2, SUPPLY+6*
>> DIRUT	CHG+4, SUPPLY+4, SUPPLY+7
DT	NO+3
>> DTOUT	LINES+6, LINES+18, MV+3
>> DUOUT	LINES+6, LINES+18, MV+3
DUZ	NO+3
IOF	HDR+1
>> PSA	NO, NO+1
>> PSACHG	CHG+4, CHG+5
>> PSACHO	LINES+15, LINES+16, LINES+17
>> PSACNTER	NO*
>> PSACOMB	LOC+3
>> PSACS	CHECK+1, CHECK+5, CHECK+6, CHECK+10, CORR*
>> PSACTRL	CHECK+2, CHECK+3, CHECK+7, CHECK+8, CHECK+9, CHECK+10, CHG+4, CHG+5, CORR*, CORR+1 , LINES+1, LINES+2, LINES+9, LINES+10, PROCESS+1, PROCESS+2, MV+4, PHARM+6, NO+1, NO+2 , NO+3
>> PSADATA	CHECK+3, CHECK+4, CHECK+5, LINES+10, LINES+11, LINES+12, LINES+13, PROCESS+2*, PROCESS+3, PROCESS+5 , PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20
>> PSADONE	LINES, LINES+7
>> PSADU	LINES+19, PROCESS+9
>> PSAERR	CHECK+1*
>> PSAERR(	CORR, NO*
>> PSAFLD	FIELDS*, FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6
>> PSAFLDS	LINES+19*, FIELDS
>> PSAIEN	LINES+11, FIELDS+4, PROCESS+3, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+11, PROCESS+15, PROCESS+16, PROCESS+19 , PROCESS+20
>> PSAIN	CORR+1, LOC, LOC+1, LINES+13, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20 , MV+4, PHARM+6*, HDR+1
>> PSALINE	CHECK+1, CHECK+2, CHECK+3, LINES+1, LINES+2, LINES+3, LINES+4, LINES+8, LINES+9, LINES+10 , PROCESS+1, PROCESS+2, NO+1, NO+2*, NO+3
>> PSALINES	CHECK+1, CHECK+4, CHECK+11, CORR*
>> PSALNCNT	CHECK+1, CHECK+3, CHECK+6, CHECK+11, CORR*
>> PSALNSU	CHECK+1*
>> PSALOC	CORR+1, LOC+3, LINES+13, LINES+16, PROCESS+15, PROCESS+16, PROCESS+19, PROCESS+20, PHARM+6
>> PSALOCN	LOC+3*, LOC+5
>> PSAMENU	SEL+1*, CORR
>> PSAMV	CORR+1, LOC, MV+1, MV+4
>> PSANDC	LINES+12*
>> PSAOK(	NO!, NO+1!
>> PSAOUT	SEL+1, CHECK+1, CORR+2, LOC, LOC+1, LINES, LINES+6, LINES+18, FIELDS, FIELDS+7 , PROCESS+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+15, PROCESS+16, PROCESS+19, PROCESS+20, PROCESS+21, MV+3 , SUPPLY+4, SUPPLY+7
>> PSAPC	SEL+1*
>> PSAPCF	FIELDS*
>> PSARECD	CORR+1*
>> PSASEL	SEL+1
>> PSASLN	LINES+14, LINES+19, HDR+1
>> PSASUB	LINES+12, PROCESS+3, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+11
>> PSASUP	CHECK+1, LINES+12, NO+1*
>> PSAVSN	LINES+12*
>> X	LINES+7, LINES+8
>> Y	CHG+4, CHG+5, LINES+19, MV+3, MV+4, SUPPLY+5, NO

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC6

Information

Source Information

Call Graph

Call Graph Total: 11

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: