Routine: PSAVER

Package	Total	Call Graph
Drug Accountability	5	^PSAORDP1 SITES^PSAUTL1 (EDIT,NEWDRUG)^PSAVER1 (PRINT,SETLINE,STATUS)^PSAVER3 ^PSAVER4
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT SIG^XUSESIG
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA VERIFY INVOICES

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;Loads invoices to be edited into an array
ENTIRE	;Displays a list of all invoices the user can select to be verified.
PRINTYN	;Extended help for 'Print invoices?'
OKAY	;Verifies correct invoices were selected.
HDR	;Header with screen hold
EDIT
PRTINV	;Sends invoices to printer
VERIFY	;Extended help for 'Are you sure...'
ESIG
BKGJOB
PRINT	;Asks & prints all invoices the user can verify.
EXIT
SEL	;Extended help to 'Select invoices'
SELHELP	;Extended help for 'Select invoices to verify'

External References

Name	Field # of Occurrence
^%ZIS	PRINT+4
^%ZISC	PRTINV+3
^%ZTLOAD	PRINT+7, BKGJOB+24
^DIR	PRINT+3, ENTIRE+12, OKAY+15, HDR+2
^PSAORDP1	PRTINV+2
SITES^PSAUTL1	OKAY+9
EDIT^PSAVER1	EDIT
NEWDRUG^PSAVER1	BKGJOB+13
PRINT^PSAVER3	BKGJOB+18
SETLINE^PSAVER3	BKGJOB+9
STATUS^PSAVER3	BKGJOB+12
^PSAVER4	EXIT
$$FMTE^XLFDT	ENTIRE+9, OKAY+7
SIG^XUSESIG	ESIG

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSAVER+7
Function Call: WRITE	Prompt: !!,"There are no invoices that need to be verified." Line Location: PSAVER+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>" Line Location: ENTIRE+2
Function Call: WRITE	Prompt: !!?2,"If there are no corrections, you can change the invoices' status",!?2,"to ""Verified"" by selecting them from the list. If you do have" Line Location: ENTIRE+3
Function Call: WRITE	Prompt: !?2,"corrections, press the return key then a second list will be",!?2,"displayed. You will be able to choose the invoices from that list",!?2,"and enter corrections.",!!?2,"Choose the invoices from the list you want to verify.",!,PSADLN Line Location: ENTIRE+4
Function Call: WRITE	Prompt: !,PSADLN Line Location: ENTIRE+10
Function Call: WRITE	Prompt: ! Line Location: ENTIRE+12
Function Call: WRITE	Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!,PSADLN,! Line Location: OKAY+1
Function Call: WRITE	Prompt: !?6,"MASTER VAULT: "_$P(^PSD(58.8,+$P(PSAIN,"^",12),0),"^") Line Location: OKAY+11
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!!,PSADLN Line Location: HDR+3
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoice data that you want to verify.",!?5,"The invoices' statuses will be changed to Verified." Line Location: SEL+1
Function Call: WRITE	Prompt: !?5,"Enter the number to the left of the invoice data you want to verify.",!?5,"The line items will be displayed for you to select the ones you want" Line Location: SELHELP+1
Function Call: WRITE	Prompt: !?5,"to correct." Line Location: SELHELP+2
Function Call: WRITE	Prompt: !?5,"Enter YES to print all of the processed invoices you can verify.",!?5,"Enter NO to bypass printing the invoices and continue with verification." Line Location: PRINTYN+1
Function Call: WRITE	Prompt: !!?5,"Enter YES if the list contains invoices to be verified.",!!?5,"Enter NO if the list contains at least one invoice that should not be" Line Location: VERIFY+1
Function Call: WRITE	Prompt: !?5,"verified. You will be returned to the original list so you can choose",!?5,"the invoices to be verified again." Line Location: VERIFY+2
Routine Call	DIR Line Location: PRINT+3 ENTIRE+12 OKAY+15 HDR+2
Routine Call	%ZIS Line Location: PRINT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	OKAY+9, OKAY+11, BKGJOB+13
^PSD(58.811 - [#58.811]	PSAVER+8, PSAVER+14, PSAVER+15, PSAVER+16, PSAVER+17, PSAVER+18, ENTIRE+8, OKAY+4, OKAY+5, OKAY+6 , BKGJOB+2, BKGJOB+4, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+13
^XUSEC("PSA ORDERS"	PSAVER+7
^XUSEC("PSJ RPHARM"	PSAVER+18

Label References

Name	Line Occurrences
EDIT	ENTIRE+13
ENTIRE	PRINT+3, PRINT+4, PRINT+5, OKAY+15
EXIT	PSAVER+19, ESIG, PRINT+3, ENTIRE+12, OKAY+15, BKGJOB+25
HDR	ENTIRE+7
LOAD	ENTIRE+13, BKGJOB+22
PRTINV	PRINT+8

Naked Globals

Name	Field # of Occurrence
^(0	PSAVER+18, ENTIRE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+4*, EXIT+1!
DA	EXIT+1!
DD	EXIT+1!
DIC	EXIT+1!
DIE	EXIT+1!
DIK	EXIT+1!
DIR	PRINT+3!, ENTIRE+12!, OKAY+15!, EXIT+1!, HDR+2!
DIR("?"	PRINT+1, ENTIRE+11, OKAY+14*
DIR("??"	PRINT+2, ENTIRE+11, OKAY+14*
DIR("A"	PRINT+1, ENTIRE+11, OKAY+13*
DIR("B"	PRINT+1, OKAY+13
DIR(0	PRINT+1, ENTIRE+11, OKAY+13, HDR+2
DIRUT	PRINT+3, OKAY+15, EXIT+1!, HDR+2
DO	EXIT+1!
DR	EXIT+1!
DTOUT	ENTIRE+12, EXIT+1!
DUOUT	ENTIRE+12, EXIT+1!
DUZ	PSAVER+7, PSAVER+18
IO("Q"	PRINT+5
IOF	ENTIRE+2, OKAY+1, HDR+3
IOSL	ENTIRE+7
>> POP	PRINT+4, BKGJOB+24
PSA	ENTIRE+5, ENTIRE+6, ENTIRE+8, ENTIRE+9, OKAY+2, OKAY+3, BKGJOB, BKGJOB+1, BKGJOB+12, BKGJOB+17 , EXIT+1!, PRTINV+1*, PRTINV+2
PSA10	EXIT+1!
PSA50IEN	EXIT+1!
PSAA	EXIT+1!
PSABEFOR	EXIT+1!
PSACHG	EXIT+1!
PSACHO	EXIT+1!
PSACNT	PSAVER+13, PSAVER+18, PSAVER+19, ENTIRE+5, ENTIRE+8, ENTIRE+11, OKAY+2, OKAY+6, OKAY+7, OKAY+13 , EXIT+1!, LOAD+1, LOAD+2
PSACOMB	OKAY+9, EXIT+1!
PSACS	BKGJOB+3*, EXIT+1!
PSACSLN	EXIT+1!
PSACTRL	EXIT+1!
PSADATA	BKGJOB+7*, BKGJOB+8, EXIT+2!
PSADD	EXIT+2!
PSADJ	EXIT+2!
PSADJD	EXIT+2!
PSADJFLD	EXIT+2!
PSADJN	EXIT+2!
PSADJO	EXIT+2!
PSADJOP	EXIT+2!
PSADJOV	EXIT+2!
PSADJP	EXIT+2!
PSADJPP	EXIT+2!
PSADJPV	EXIT+2!
PSADJQ	EXIT+2!
PSADJQP	EXIT+2!
PSADJQV	EXIT+2!
PSADJSUP	EXIT+2!
PSADLN	ENTIRE+1*, ENTIRE+4, ENTIRE+10, OKAY+1, EXIT+2!, HDR+3
PSADRG	EXIT+2!
PSADRGN	EXIT+3!
PSADUOU	EXIT+3!
PSAEDIT	EXIT+3!, LOAD+1!
PSAEDIT(	LOAD+2*
PSAEDIT(0	BKGJOB+25
PSAERR	BKGJOB+3, BKGJOB+17, EXIT+3!
PSAFLD	EXIT+3!
PSAFLDS	EXIT+3!
PSAGAIN	EXIT+1!
PSAHOLD	EXIT+3!
PSAIEN	PSAVER+13, PSAVER+14, PSAVER+15, PSAVER+16, PSAVER+17, PSAVER+18, ENTIRE+8, OKAY+3, OKAY+4, OKAY+5 , OKAY+6, BKGJOB+1*, BKGJOB+2, BKGJOB+4, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+11, BKGJOB+12, BKGJOB+13 , BKGJOB+15, BKGJOB+17, EXIT+3!
PSAIEN1	PSAVER+16, PSAVER+17, PSAVER+18, ENTIRE+8, OKAY+3, OKAY+4, OKAY+5, BKGJOB+1, BKGJOB+2, BKGJOB+4 , BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+11, BKGJOB+12, BKGJOB+13, BKGJOB+15, BKGJOB+17, EXIT+3!
PSAIN	OKAY+5, OKAY+6, OKAY+8, OKAY+9, OKAY+11, BKGJOB+4, BKGJOB+8, BKGJOB+13, EXIT+3!
PSAINV	ENTIRE+8, ENTIRE+9, OKAY+6, OKAY+7, BKGJOB+4, BKGJOB+14, BKGJOB+16, EXIT+3!, PRTINV+2
PSAINVDT	ENTIRE+8, ENTIRE+9, OKAY+6, OKAY+7, EXIT+3!
PSAISIT	EXIT+3!
PSAISITN	EXIT+3!
PSAKK	EXIT+3!, HDR+1*
PSAL	EXIT+3!
PSALEN	EXIT+3!
PSALINE	BKGJOB+3, BKGJOB+5, BKGJOB+6, BKGJOB+7, EXIT+3!
PSALINEN	EXIT+3!
PSALINES	EXIT+4!
PSALN	EXIT+4!
PSALN0	EXIT+4!
PSALNCNT	BKGJOB+3, BKGJOB+7, EXIT+4!
PSALND	EXIT+4!
PSALNERR	BKGJOB+3*, EXIT+4!
PSALNP	EXIT+4!
PSALNSU	BKGJOB+3*, EXIT+4!
PSALNV	EXIT+4!
PSALOAD	EXIT+4!, LOAD+1, LOAD+2
PSALOC	OKAY+9, BKGJOB+8, EXIT+4!
PSALOCA	EXIT+4!
PSALOCN	OKAY+9*, OKAY+10, EXIT+4!
PSAMENU	EXIT+4!
PSAMV	EXIT+4!
PSAMVA	EXIT+4!
PSAMVIEN	EXIT+4!
PSAMVN	EXIT+4!
PSAN10	EXIT+4!
PSANAME	EXIT+4!
PSANDC	EXIT+4!
PSANEW	EXIT+4!
PSANEWD	EXIT+4!
PSANEWD(0	EXIT
PSANO	EXIT+5!
PSANODE	EXIT+5!
PSANOVER	EXIT+5!
PSANOVER(	BKGJOB+11, BKGJOB+15
PSANUM	EXIT+5!
PSAONE	EXIT+5!
PSAONEMV	EXIT+5!
PSAORD	ENTIRE+8, ENTIRE+9, OKAY+6, OKAY+7, BKGJOB+4, BKGJOB+14, BKGJOB+16, EXIT+5!, PRTINV+2
PSAORDU	EXIT+5!
PSAOSIT	EXIT+5!
PSAOSITN	EXIT+5!
PSAOU	EXIT+5!, EXIT+6!
PSAOUT	ESIG, BKGJOB, BKGJOB+5, BKGJOB+10, EXIT+5!, PRTINV+1
PSAPC	OKAY+2, BKGJOB, EXIT+5!
PSAPCF	EXIT+5!
PSAPCL	EXIT+5!
PSAPG	EXIT+5!
PSAPHARM	EXIT+5!
PSAPRICE	EXIT+5!
PSAPRINT	EXIT+5!
PSAQTY	EXIT+5!
PSAREA	EXIT+6!
PSAREC	EXIT+6!
PSARECD	EXIT+6!
PSAREORD	EXIT+6!
PSASAVE	EXIT+6!
PSASEL	ENTIRE+14*, OKAY+2, BKGJOB, EXIT+6!
PSASET	EXIT+6!
PSASLN	ENTIRE+1*, EXIT+6!
PSASS	EXIT+7!, HDR+1*
PSASTOCK	EXIT+6!
PSASTOP	ENTIRE+5, ENTIRE+6, ENTIRE+7, ENTIRE+10!, HDR+2
PSASUB	EXIT+6!
PSASUP	PSAVER+13, BKGJOB+1, EXIT+6!
PSASUPP	EXIT+6!
PSATAB	EXIT+6!
PSATEMP	EXIT+6!
PSAUPC	EXIT+6!
PSAVAULT	EXIT+6!
PSAVBKG	BKGJOB!, BKGJOB+25!, EXIT+6!
PSAVBKG(	BKGJOB+12*
PSAVBKG(0	BKGJOB+23
PSAVER	EXIT+6!, LOAD+3!
PSAVER(	PSAVER+18, ENTIRE+6, ENTIRE+8, OKAY+3, BKGJOB+1, BKGJOB+12!, BKGJOB+17, LOAD+2, PRTINV+1, PRTINV+2
PSAVSN	EXIT+6!
X	EXIT+7!
X1	ESIG, EXIT+7!
Y	PRINT+3, ENTIRE+13, ENTIRE+14, OKAY+15, EXIT+7!
ZTDESC	PRINT+7, BKGJOB+24, EXIT+7!
ZTDTH	PRINT+7, BKGJOB+24, EXIT+7!
ZTIO	BKGJOB+24*, EXIT+7!
ZTRTN	PRINT+7, BKGJOB+24, EXIT+7!
ZTSAVE	PRINT+6!, BKGJOB+24!, EXIT+7!
ZTSAVE("PSASEL"	BKGJOB+24*
ZTSAVE("PSAVBKG("	BKGJOB+24*
ZTSAVE("PSAVER("	PRINT+7*

Customize PDF page

Package: Drug Accountability

Routine: PSAVER

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: