Routine: PSAPROC9

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Drug Accountability	7	(,ASKDRUG,CHECK)^PSANDF END^PSAPROC (DUOU,GETOU,PRICE,QTY,SETLINE)^PSAPROC3 (MANYNDCS,MANYVSNS)^PSAPROC4 (,NDCDIFF,SUPDIFF,VSNDIFF)^PSAPROC5 (DU,DUOU,REORDER,STOCK)^PSAPROC8 (EDITDISP,SITES)^PSAUTL1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	3	PSAPROC1 PSAPROC2 PSAPROC6

Package

Total

Caller Graph

Drug Accountability

PSAPROC1 PSAPROC2 PSAPROC6

Entry Points

Name	Comments	DBIA/ICR reference
NOTCS	;If drug is not a CS & no stock level/reorder level, store in XTMP.
NONE	;No DA pharmacy locations
CONTYN	;Extended help for 'Do you want to continue processing invoice# 99'
CONT	;Asks if user wants to continue processing invoice.
GETLOC	;Gets pharmacy locations
NEXT
PRICE
SELLOC	;Select the Pharmacy Location to be assigned to the order.
QTY
DISPMV	;Displays active master vaults
MASTER	;Assigns invoice to Master Vault
ONE	;Only one location
MANY	;If more than one pharmacy location, display invoices.
CS	;If drug is a CS & no stock level/reorder level, store in XTMP.
DISPLOC	;Displays the active pharmacy locations.
OU
DU
SELMV	;Select displayed master vaults
DUOU	;If drug has synonym & no conv factor set conv factor in 50.

External References

Name	Field # of Occurrence
^DIR	CONT+3, SELMV+2, SELLOC+2
^PSANDF	PSAPROC9+11
ASKDRUG^PSANDF	NEXT+2
CHECK^PSANDF	CS+7
END^PSAPROC	NOTCS+3, CS+3, MASTER+14
DUOU^PSAPROC3	DUOU+3
GETOU^PSAPROC3	OU+1, OU+2
PRICE^PSAPROC3	PRICE
QTY^PSAPROC3	QTY
SETLINE^PSAPROC3	CS+7
MANYNDCS^PSAPROC4	PSAPROC9+13
MANYVSNS^PSAPROC4	PSAPROC9+7, PSAPROC9+15
^PSAPROC5	PSAPROC9+9
NDCDIFF^PSAPROC5	PSAPROC9+17
SUPDIFF^PSAPROC5	PSAPROC9+10
VSNDIFF^PSAPROC5	PSAPROC9+14
DU^PSAPROC8	DU
DUOU^PSAPROC8	DUOU+1
REORDER^PSAPROC8	NOTCS+6, CS+6
STOCK^PSAPROC8	NOTCS+5, CS+5
EDITDISP^PSAUTL1	NOTCS+3, CS+3
SITES^PSAUTL1	GETLOC+6
$$FMTE^XLFDT	MASTER+12, MASTER+15, ONE+5, MANY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CS+7
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"No master vaults are set up. You must set up a master vault then",!,"select the Process Uploaded Prime Vendor Invoices Data option." Line Location: MASTER+6
Function Call: WRITE	Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: MASTER+15
Function Call: WRITE	Prompt: @IOF,!?22,"<<< ASSIGN A MASTER VAULT SCREEN >>>",!,PSASLN Line Location: DISPMV+1
Function Call: WRITE	Prompt: ! Line Location: DISPMV+6
Function Call: WRITE	Prompt: ! Line Location: SELMV+1
Function Call: WRITE	Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location menu" Line Location: NONE+1
Function Call: WRITE	Prompt: !,"to setup one or more pharmacy locations. Then select the Process Uploaded",!,"Prime Vendor Invoice Data option to process the invoices." Line Location: NONE+2
Function Call: WRITE	Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>" Line Location: ONE+2
Function Call: WRITE	Prompt: !!,"The non-controlled substance items on the invoice have",!,"been automatically assigned to the Pharmacy Location.",! Line Location: ONE+3
Function Call: WRITE	Prompt: !,$P(PSALOCN,"(IP)",1)_"(IP)",!?17,$P(PSALOCN,"(IP)",2) Condition for execution: $L(PSALOCN)>76 Line Location: ONE+4
Function Call: WRITE	Prompt: PSALOCN Condition for execution: $L(PSALOCN)<77 Line Location: ONE+4
Function Call: WRITE	Prompt: !,PSASLN Line Location: ONE+4
Function Call: WRITE	Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: ONE+5
Function Call: WRITE	Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN) Line Location: MANY+1
Function Call: WRITE	Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN,! Line Location: DISPLOC+1
Function Call: WRITE	Prompt: ! Line Location: DISPLOC+6
Function Call: WRITE	Prompt: ! Line Location: SELLOC+1
Function Call: WRITE	Prompt: !?5,"Enter YES to continue processing the current invoice and line item.",!?5,"Enter NO to discontinue processing the current invoice and exit the option." Line Location: CONTYN+1
Routine Call	DIR Line Location: CONT+3 SELMV+2 SELLOC+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	NOTCS+4, NOTCS+5, NOTCS+6, CS+4, CS+5, CS+6, MASTER+2, MASTER+3, MASTER+4, MASTER+5 , MASTER+11, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5, GETLOC+6
^PSDRUG - [#50]	NEXT+6, NEXT+7, OU+1, DU, DUOU+1
^PSDRUG("C"	NEXT+7
^XTMP("PSAPV"	NEXT+1, NEXT+2, NEXT+6, NEXT+8, NOTCS+1, CONT+1, MASTER+1, MASTER+13, SELMV+4, GETLOC+1 , ONE+6, SELLOC+4

Label References

Name	Line Occurrences
CONT	PSAPROC9+7, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15, PSAPROC9+17, NEXT+2, QTY , OU, DU, DUOU+1, DUOU+3, PRICE, NOTCS+3, NOTCS+5, NOTCS+6, CS+3, CS+5 , CS+6, CS+7
DISPLOC	MANY+1
DISPMV	MASTER+15
GETLOC	NOTCS+3
MANY	GETLOC+7
MASTER	CS+3
NEXT	PSAPROC9+6, PSAPROC9+8, PSAPROC9+12, PSAPROC9+15
NONE	GETLOC+7
ONE	GETLOC+7
SELLOC	MANY+1
SELMV	MASTER+15

Name	Field # of Occurrence
^("IN"	MASTER+13, SELMV+4, ONE+6, SELLOC+4
^(0	GETLOC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	CONT+3!, SELMV+2!, SELLOC+1!, SELLOC+2!
DIR("?"	CONT+2, SELMV+1, SELLOC+1*
DIR("??"	CONT+2, SELMV+2, SELLOC+2*
DIR("A"	CONT+2, SELMV+1, SELLOC+1*
DIR("B"	CONT+2*
DIR(0	CONT+2, SELMV+1, SELLOC+1*
>> DIRUT	CONT+3, SELMV+2, SELLOC+2
DT	MASTER+4, GETLOC+4
IOF	MASTER+9, DISPMV+1, ONE+2, DISPLOC+1
>> PSA	DISPMV+2, DISPMV+4, DISPMV+5, SELMV+1
>> PSACNT	ONE+1, DISPLOC+2, DISPLOC+4*, DISPLOC+5, SELLOC+1
>> PSACOMB	GETLOC+6
>> PSACONT	PSAPROC9+5, NEXT, CONT+3
>> PSACS	CS+2*
>> PSACTRL	NEXT+1, NEXT+2, NEXT+6, NEXT+8, NOTCS+1, CONT+1, MASTER+1, MASTER+13, SELMV+4, GETLOC+1 , ONE+6, SELLOC+4
>> PSADATA	PSAPROC9+6, PSAPROC9+7, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15, PSAPROC9+17, NEXT+1* , NEXT+2, NEXT+5, QTY, OU, DUOU+1, DUOU+3, PRICE, NOTCS+1, NOTCS+2, NOTCS+4 , NOTCS+5, NOTCS+6, CS+1, CS+5, CS+6
>> PSADU	PSAPROC9+5*
>> PSAIEN	NEXT+5*, NEXT+6, NEXT+7, OU+1, OU+2, DU, DUOU+1, DUOU+3, NOTCS+5, NOTCS+6 , CS+5, CS+6
>> PSAIN	NOTCS+3, NOTCS+4, NOTCS+5, NOTCS+6, CS+3, CS+4, CS+5, CS+6, MASTER+12, MASTER+13* , MASTER+15, SELMV+4, ONE+5, ONE+6, MANY+1, SELLOC+4*
>> PSAINV	CONT+1, CONT+2, MASTER+1, MASTER+12, MASTER+15, GETLOC+1*, ONE+5, MANY+1
>> PSAISIT	GETLOC+5*, GETLOC+6
>> PSALINE	NEXT+1, NEXT+2, NEXT+6, NEXT+8, NOTCS+1
>> PSALINES	NEXT+4*
>> PSALOC	NOTCS+5, NOTCS+6, CS+5, CS+6, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5, GETLOC+6, ONE+1 , ONE+6, DISPLOC+3, DISPLOC+4, SELLOC+4
>> PSALOCA(	GETLOC+6*, DISPLOC+2, DISPLOC+3
>> PSALOCA(""	ONE+1
>> PSALOCN	ONE+1, ONE+4, DISPLOC+2, DISPLOC+3, DISPLOC+4, DISPLOC+5, SELLOC+4*
>> PSAMENU(	DISPLOC+4*, SELLOC+4
>> PSAMV	CS+5, CS+6, MASTER+2, MASTER+3, MASTER+4, MASTER+5, MASTER+8, MASTER+11, MASTER+13, SELMV+4*
>> PSAMV(	MASTER+5*, DISPMV+2, DISPMV+3
>> PSAMVA	DISPMV+2, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+4
>> PSAMVIEN	DISPMV+3, DISPMV+4, SELMV+4
>> PSAMVN	MASTER+2, MASTER+5, MASTER+6, MASTER+7, MASTER+15
>> PSANDC	PSAPROC9+6, PSAPROC9+11, PSAPROC9+12, NEXT+7
>> PSANEXT	PSAPROC9+5*, PSAPROC9+6, PSAPROC9+8, PSAPROC9+12, PSAPROC9+15
>> PSANUM	GETLOC+2, GETLOC+5, GETLOC+7
>> PSAONE	GETLOC+5*, ONE+1
>> PSAONEMV	MASTER+5*, MASTER+8
>> PSAORD	MASTER+12, MASTER+15, ONE+5, MANY+1
>> PSAOSIT	GETLOC+5*, GETLOC+6
>> PSAOUT	PSAPROC9+6, PSAPROC9+7, PSAPROC9+8, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+12, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15 , PSAPROC9+17, NEXT+2, QTY, OU, DU, DUOU+1, DUOU+3, PRICE, NOTCS+2, NOTCS+3 , NOTCS+4, NOTCS+5, NOTCS+6, CS+1, CS+3, CS+4, CS+5, CS+6, CS+7, CONT+4* , MASTER+6, SELMV+2, SELLOC+2*
>> PSAPASS	NEXT+2, NEXT+3
>> PSASEL1	SELMV+3, SELMV+4, SELLOC+3, SELLOC+4
>> PSASLN	MASTER+11, DISPMV+1, ONE+4, DISPLOC+1
>> PSASUB	NEXT+7*, NEXT+8, OU+1, OU+2, DUOU+1, DUOU+3
>> PSASUPP	NEXT+4
>> PSAVAULT(	DISPMV+4*, SELMV+4
>> PSAVSN	PSAPROC9+8
>> Y	CONT+3, SELMV+2, SELMV+3, SELLOC+2, SELLOC+3

Customize PDF page

Package: Drug Accountability

Routine: PSAPROC9

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: