Routine: PSAVER1

Information

PSAVER1 ;BIR/JMB-Verify Invoices - CONT'D ;7/23/97

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Drug Accountability	6	END^PSAPROC SITES^PSAUTL1 VERDISP^PSAUTL4 (ASKDRUG,DUOU,OU,PHARM,QTY,RECD,REORDER,STOCK)^PSAVER2 (PRINT,SETLINE,STATUS)^PSAVER3 (GETLOC,MASTER)^PSAVER5
Kernel	2	^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	^DIC ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Drug Accountability	2	PSAVER PSAVER2

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;Header for screen that displays invoice data to be edited.
CHG	;Determines if the invoice's status should be changed to verified. If
EDIT
FIELDS
LINES
HEADER	;Header with screen hold
NEWDRUG	;If this invoice will add new drugs to location/vault, store in an
CHGYN	;Extended help for 'Do you want to change the invoice's status to Verified'
CORR
PROCESS
SEL	;Select line items to be edit
CHECK
VIEW

External References

Name	Field # of Occurrence
^%ZTLOAD	SEL+4
^DIC	LINES
^DIR	EDIT+8, HEADER+2, VIEW+4, CHG+3
END^PSAPROC	CHECK, CHECK+10, CHG+8
SITES^PSAUTL1	CORR+4
VERDISP^PSAUTL4	VIEW, VIEW+5
ASKDRUG^PSAVER2	FIELDS+1
DUOU^PSAVER2	FIELDS+4
OU^PSAVER2	FIELDS+3
PHARM^PSAVER2	CORR+6, CORR+7
QTY^PSAVER2	FIELDS+2
RECD^PSAVER2	CORR+2
REORDER^PSAVER2	FIELDS+6
STOCK^PSAVER2	FIELDS+5
PRINT^PSAVER3	CHECK, CHECK+10
SETLINE^PSAVER3	PROCESS+4
STATUS^PSAVER3	CHG+6
GETLOC^PSAVER5	CHECK+4, CHECK+5
MASTER^PSAVER5	CHECK+3
$$FMTE^XLFDT	EDIT+5, HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!?2,"Choose the invoices from the list you want to edit.",!,PSASLN Line Location: EDIT+0
Function Call: WRITE	Prompt: !,PSASLN Line Location: EDIT+6
Function Call: WRITE	Prompt: ! Line Location: EDIT+8
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!,PSASLN Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,$P($G(^PSD(58.8,PSAMV,0)),"^") Line Location: CORR+7
Function Call: WRITE	Prompt: ! Line Location: LINES+0
Function Call: WRITE	Prompt: !,"Invalid line number." Line Location: LINES+3
Function Call: WRITE	Prompt: PSASLN,! Line Location: VIEW+0
Function Call: WRITE	Prompt: "5. Stock Level",!,"6. Reorder Level",! Line Location: VIEW+2
Function Call: WRITE	Prompt: PSASLN Line Location: VIEW+5
Function Call: WRITE	Prompt: !!,"** The invoice has not been placed in a Verified status!" Line Location: CHECK+0
Function Call: WRITE	Prompt: !,"All drugs on the invoice are marked as a controlled substance." Line Location: CHECK+2
Function Call: WRITE	Prompt: ! Line Location: CHG+2
Function Call: WRITE	Prompt: !!,"** The invoice's status has not been changed to Verified!" Line Location: CHG+4
Function Call: WRITE	Prompt: !!,"The invoice status has been changed to Verified!" Line Location: CHG+7
Function Call: WRITE	Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>" Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(PSAINVDT),!,PSASLN,! Line Location: HDR+2
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 Verify Orders option." Line Location: CHGYN+2
Routine Call	DIC Line Location: LINES
Routine Call	DIR Line Location: EDIT+8 HEADER+2 VIEW+4 CHG+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	CORR+4, CORR+7, VIEW+2, NEWDRUG+12
^PSD(58.811 - [#58.811]	EDIT+3, EDIT+4, CORR+1, LINES+3, LINES+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+5, CHECK+2* , CHECK+3, CHECK+4, CHECK+5, CHECK+8, CHECK+9, NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7, NEWDRUG+8 , NEWDRUG+9
^PSDRUG - [#50]	NEWDRUG+12

Label References

Name	Line Occurrences
CHG	CHECK+7
CORR	SEL+2
HDR	CORR+2, VIEW, VIEW+5
HEADER	EDIT+2
NEWDRUG	CHG+6

Naked Globals

Name	Field # of Occurrence
^(0	EDIT+4, CORR+1, NEWDRUG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA(1	LINES*
>> DA(2	LINES*
DIC	LINES*!
DIC("A"	LINES*
DIC(0	LINES*
DIR	EDIT+8!, HEADER+2!, VIEW+4!, CHG+3!
DIR("?"	EDIT+7, VIEW+3, CHG+2*
DIR("??"	EDIT+7, VIEW+3, CHG+3*
DIR("A"	EDIT+7, VIEW+3, CHG+2*
DIR(0	EDIT+7, HEADER+2, VIEW+3, CHG+2
>> DIRUT	EDIT+8, HEADER+2, CHG+4
>> DR	CORR+6, CORR+7
>> DTOUT	LINES+1, VIEW+4
>> DUOUT	LINES+1, VIEW+4
IOF	EDIT, HEADER+3, HDR+1
IOSL	EDIT+2
>> PSA	EDIT+1, EDIT+3, EDIT+5, SEL+2, CORR
>> PSA50IEN	FIELDS+4*
>> PSACHG	CHG+4, CHG+5
>> PSACHO	VIEW+1, VIEW+2, VIEW+3
>> PSACNT	EDIT+1, EDIT+4, EDIT+7
>> PSACOMB	CORR+4
>> PSACS	PROCESS, PROCESS+6, CHECK+1, CHECK+4, CHECK+5
>> PSADATA	LINES+4, LINES+5, PROCESS+3, PROCESS+5*, PROCESS+6
>> PSADD	NEWDRUG+11*, NEWDRUG+12
>> PSADJ	NEWDRUG+8*, NEWDRUG+9, NEWDRUG+10
>> PSADRG	FIELDS+4
>> PSAEDIT(	EDIT+1, EDIT+3, CORR
>> PSAERR	PROCESS*, CHECK, CHECK+10
>> PSAFLD	FIELDS*, FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6
>> PSAFLDS	VIEW+5*, FIELDS
>> PSAHOLD(	CHECK!, CHG+4!
>> PSAIEN	EDIT+3, EDIT+4, CORR, CORR+1, LINES, LINES+3, LINES+4, PROCESS+1, PROCESS+2, PROCESS+3 , PROCESS+5, CHECK, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+8, CHECK+9, CHG+4, CHG+5 , NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSAIEN1	EDIT+3, EDIT+4, CORR, CORR+1, LINES, LINES+3, LINES+4, PROCESS+1, PROCESS+2, PROCESS+3 , PROCESS+5, CHECK, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+8, CHECK+9, CHG+4, CHG+5 , NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSAIN	CORR+1, CORR+2, CORR+3, CORR+7, LINES+5, PROCESS+1
>> PSAINV	EDIT+4, EDIT+5, CORR+1, HDR+2
>> PSAINVDT	EDIT+4, EDIT+5, CORR+1, HDR+2
>> PSAKK	HEADER+1*
>> PSALINE	LINES+2, LINES+3, LINES+4, PROCESS, PROCESS+2, PROCESS+3, PROCESS+5, NEWDRUG+3, NEWDRUG+5*, NEWDRUG+6 , NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSALINEN	LINES+2*
>> PSALINES	PROCESS, PROCESS+5, CHECK, CHECK+6
PSALN0	NEWDRUG+2!, NEWDRUG+6*, NEWDRUG+11
>> PSALNCNT	PROCESS, PROCESS+3, CHECK, CHECK+1, CHECK+4, CHECK+6, CHECK+8
PSALND	NEWDRUG+2!
>> PSALNERR	PROCESS+3*, PROCESS+5
PSALNP	NEWDRUG+2!, NEWDRUG+10*, NEWDRUG+11
>> PSALNSU	PROCESS*
PSALNV	NEWDRUG+2!, NEWDRUG+10*, NEWDRUG+11
>> PSALOC	CORR+2, CORR+3, CORR+4, LINES+5, VIEW+2, CHECK, CHG+4, NEWDRUG+4, NEWDRUG+6*, NEWDRUG+12
>> PSALOCN	CORR+4*, CORR+5
>> PSAMV	CORR+2, CORR+7, NEWDRUG+3, NEWDRUG+6
>> PSANDC	LINES+5*
>> PSANEWD(	NEWDRUG+12*
>> PSAORD	EDIT+3, EDIT+5, CORR+1, PROCESS+1*, HDR+2
>> PSAOUT	SEL+2, CORR+2, CORR+3, CORR+7, LINES, LINES+1, VIEW+4, FIELDS, PROCESS*, PROCESS+2 , PROCESS+4
>> PSAPC	SEL+2*
>> PSAPCF	FIELDS*
>> PSAPHARM	NEWDRUG+3*, NEWDRUG+6
>> PSASEL	EDIT+9*, SEL+2
>> PSASET	VIEW+5*, FIELDS+4
>> PSASLN	EDIT, EDIT+6, HEADER+3, VIEW, VIEW+5, HDR+2
>> PSASS	HEADER+1*
PSASTOP	EDIT+1, EDIT+2, EDIT+6!, HEADER+2
>> PSASUP	LINES+4, PROCESS, CHECK+8
PSAVBKG	SEL+1!
PSAVBKG(	CHG+5*
PSAVBKG(0	SEL+3
>> PSAVSN	LINES+5*
>> Y	EDIT+9, LINES+1, LINES+2, VIEW+5, CHG+4, CHG+5
>> ZTDESC	SEL+4*
>> ZTDTH	SEL+4*
>> ZTIO	SEL+4*
>> ZTRTN	SEL+4*
ZTSAVE	SEL+4!
ZTSAVE("PSAVBKG("	SEL+4*

Customize PDF page

Package: Drug Accountability

Routine: PSAVER1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: