Routine: PSAVER3

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Drug Accountability	3	END^PSAPROC ADJ^PSAVER2 CS^PSAVER5
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Drug Accountability	2	PSAVER PSAVER1

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	;Sets invoice's status to Verified
GOOD	;If no errors found, verify invoice.
HDR	;Prints header
SUPPLY	;If it is a supply, automatically verify it.
VERIFY	;Set line item to verified
PRN	;Entry point to print verification errors
NOTSUP	;If it is not a supply, look for drug, qty, dispense units, dispense
PRINTYN	;Extended help for 'Print verification report'
NEWDRUG	;Store in array if drug is new to location/vault
LNHELP	;Extended help for 'Line Number"
DDQOR	;Extended help for 'Edit field'
PRINT	;Prints verification error list
SETLINE	;Set line as verified if all data is present.
VERIFY1	;Set adjs if entire invioce was verified
NOVER	;Prints errors

External References

Name	Field # of Occurrence
^%ZIS	PRINT+5
^%ZISC	PRN+11
^%ZTLOAD	PRINT+10
^DIE	STATUS+5, VERIFY+5
^DIR	PRINT+3
END^PSAPROC	PRN+10, NOVER+3
ADJ^PSAVER2	VERIFY1+4
CS^PSAVER5	NOTSUP+9, NOTSUP+14
$$FMTE^XLFDT	HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"** The invoice has not been placed in a Verified status!",! Line Location: PRN+9
Function Call: WRITE	Prompt: "Line# "_PSALINEN_": " Line Location: NOVER+5
Function Call: WRITE	Prompt: ?PSATAB,"Master Vault",! Line Location: NOVER+9
Function Call: WRITE	Prompt: ?PSATAB,"Pharmacy location",! Line Location: NOVER+11
Function Call: WRITE	Prompt: ! Line Location: NOVER+13
Function Call: WRITE	Prompt: @IOF,!?23,"<<< VERIFICATION ERROR REPORT >>>" Line Location: HDR+1
Function Call: WRITE	Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",!?27,"VERIFICATION ERROR REPORT",?72,"Page "_PSAPG,! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"The following line numbers' status cannot be changed to Verified.",!,"The fields that contain an error or need data are listed with the line item.",!,PSASLN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !?5,"Enter the number or range of numbers of the field you want to edit.",!?5,"For example, 1-3 or 1,3" Line Location: DDQOR+1
Function Call: WRITE	Prompt: !?5,"Enter the number of the item on the invoice you want to edit.",!?5,"You may enter several line item numbers separated by comas.",!!?5,"Do NOT enter a range of numbers separated by a dash." Line Location: LNHELP+1
Function Call: WRITE	Prompt: !?5,"Enter YES to print the Verification Error Report on a printer.",!?5,"Enter NO if you do not want to print the report." Line Location: PRINTYN+1
Routine Call	DIE Line Location: STATUS+5 VERIFY+5
Routine Call	DIR Line Location: PRINT+3
Routine Call	%ZIS Line Location: PRINT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	SETLINE+22
^PSD(58.8 - [#58.8]	SETLINE+29, SETLINE+30, NEWDRUG+2, NEWDRUG+4
^PSD(58.811 - [#58.811]	SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3, NEWDRUG+5 , NOTSUP+10, NOTSUP+15, PRN+3, PRN+5, NOVER+2, STATUS+4, STATUS+5, VERIFY+4, VERIFY+5, VERIFY1+1 , VERIFY1+2, VERIFY1+3, VERIFY1+4
^PSDRUG - [#50]	SETLINE+23, SETLINE+28, NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+4, NOTSUP+5, NOTSUP+8, NOTSUP+13 , VERIFY+1
^PSDRUG("C"	SETLINE+19

Label References

Name	Line Occurrences
GOOD	NOTSUP+19
HDR	NOVER+3, NOVER+4
NOVER	PRN+7
SUPPLY	SETLINE+15
VERIFY	SUPPLY+1, GOOD+1
VERIFY1	SUPPLY+1, GOOD+1

Naked Globals

Name	Field # of Occurrence
^(0	NOTSUP+10, NOTSUP+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRINT+5*
DA	STATUS+3, VERIFY+3!, VERIFY1+1*, VERIFY1+2, VERIFY1+3, VERIFY1+4
DA(1	STATUS+3, VERIFY+3
DA(2	VERIFY+3*
DIE	STATUS+3, STATUS+6!, VERIFY+3, VERIFY+6!
DIR	PRINT+3!
DIR("?"	PRINT+2*
DIR("??"	PRINT+2*
DIR("A"	PRINT+1*
DIR("B"	PRINT+1*
DIR(0	PRINT+1*
>> DR	STATUS+3, VERIFY+3
DT	VERIFY+3
>> DTOUT	PRINT+3
>> DUOUT	PRINT+3
DUZ	STATUS+3, VERIFY+3, VERIFY1+3
IO("Q"	PRINT+6
IOF	PRN+10, HDR+1, HDR+2
IOSL	NOVER+3, NOVER+4
IOST	PRN+10, NOVER+3, NOVER+4, HDR+1, HDR+2
>> POP	PRINT+5
>> PSAA	SETLINE+4*
>> PSACSLN	VERIFY+1, VERIFY+2
>> PSADATA	SETLINE+2, SETLINE+13, SETLINE+16, SETLINE+22, NOTSUP+2, NOTSUP+3, NOTSUP+6, NOTSUP+10, NOTSUP+15*
>> PSADJ	SETLINE+1, SETLINE+5, SETLINE+6, SETLINE+7, VERIFY1+4*
>> PSADJN	SETLINE+1, SETLINE+7, SETLINE+8, SETLINE+9, SETLINE+10, SETLINE+11, SETLINE+12
PSADRG	SETLINE+1!, SETLINE+9, SETLINE+10, SETLINE+13*, SETLINE+15, SETLINE+19, SETLINE+23, SETLINE+28, SETLINE+29, SETLINE+30 , NEWDRUG+1, NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+2, NOTSUP+4, NOTSUP+5, NOTSUP+8, NOTSUP+13 , VERIFY+1
>> PSADUOU	SETLINE+20, SETLINE+28, NOTSUP+5
>> PSAERR	SUPPLY+1, NOTSUP+18, NOTSUP+19, PRN+1, HDR+4, HDR+5
PSAHOLD	GOOD+5!
PSAHOLD(	NEWDRUG+3, NEWDRUG+5, GOOD+2, GOOD+3, GOOD+4
>> PSAIEN	SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3, NEWDRUG+5 , NOTSUP+2, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15 , NOTSUP+16, NOTSUP+18, GOOD+3, GOOD+4, PRN+2*, PRN+3, PRN+4, PRN+5, PRN+6, PRN+8 , NOVER+1, NOVER+2, STATUS+3, STATUS+4, STATUS+5, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY1+1, VERIFY1+2 , VERIFY1+3, VERIFY1+4
>> PSAIEN1	SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3, NEWDRUG+5 , NOTSUP+2, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15 , NOTSUP+16, NOTSUP+18, GOOD+3, GOOD+4, PRN+4*, PRN+5, PRN+6, NOVER+1, NOVER+2, STATUS+3 , STATUS+4, STATUS+5, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY1+1, VERIFY1+2, VERIFY1+3, VERIFY1+4
>> PSAIN	NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+9, NOTSUP+11, NOTSUP+14, NOTSUP+16, PRN+5*, HDR+4
>> PSAINV	PRN+5*
>> PSAL	GOOD+2*, GOOD+3, GOOD+4
>> PSALEN	NOVER+1*, NOVER+3, NOVER+4
>> PSALINE	SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, NEWDRUG+3, NEWDRUG+5, NOTSUP+2 , NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15, NOTSUP+16 , NOTSUP+18, PRN+1, PRN+6, NOVER+1, NOVER+2, VERIFY+3, VERIFY1+1, VERIFY1+2, VERIFY1+3, VERIFY1+4
>> PSALINEN	NOVER+2*, NOVER+5
>> PSALNERR	NOTSUP+18*
>> PSALNSU	SETLINE+9*, SETLINE+15, SUPPLY+1
>> PSALOC	SETLINE+27*, SETLINE+29, SETLINE+30
>> PSANAME	GOOD+3*, GOOD+4
>> PSANDC	SETLINE+16*, SETLINE+19
>> PSANEWD(	GOOD+4*
>> PSANO	NOVER+1*, NOVER+6, NOVER+7, NOVER+8, NOVER+9, NOVER+10, NOVER+11, NOVER+12
>> PSANOVER(	NOTSUP+2, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+11, NOTSUP+14, NOTSUP+16*, NOTSUP+18 , PRN+2, PRN+4, PRN+6, PRN+8!, NOVER+1
>> PSANOVER(0	PRINT+8
>> PSAORD	PRN+3*, HDR+4
PSAOU	SETLINE+1!, SETLINE+11, SETLINE+21, SETLINE+22, SETLINE+23, SETLINE+24, NOTSUP+6
>> PSAOUT	PRINT+3, PRN+1, PRN+2, PRN+4, PRN+6, NOVER+3
>> PSAPG	PRN+1, NOVER+3, NOVER+4, HDR+2, HDR+3
>> PSAPRINT	SUPPLY+1, PRN+1*
PSAQTY	SETLINE+1!, SETLINE+12, SETLINE+13, NOTSUP+3
>> PSAREA	VERIFY1+4*
>> PSAREORD	SETLINE+20, SETLINE+30
>> PSASAVE	PRINT+9*
>> PSASLN	HDR+4, HDR+5
>> PSASTOCK	SETLINE+20, SETLINE+29
>> PSASUB	SETLINE+18, SETLINE+19, SETLINE+23, SETLINE+25, SETLINE+28, NOTSUP+5
>> PSASUP	SETLINE+9*, SETLINE+15
>> PSATAB	NOVER+2*, NOVER+6, NOVER+7, NOVER+8, NOVER+9, NOVER+10, NOVER+11, NOVER+12
>> PSATEMP	SETLINE+16*, SETLINE+18, SETLINE+20, SETLINE+24
>> Y	PRINT+4
>> ZTDESC	PRINT+7*
>> ZTRTN	PRINT+7*
>> ZTSAVE(	PRINT+9*
>> ZTSAVE("PSANOVER("	PRINT+8*

Customize PDF page

Package: Drug Accountability

Routine: PSAVER3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: