Routine: PSAUP

Package	Total	Call Graph
Drug Accountability	5	(,END,EXIT)^PSAPROC XTMP^PSAUP1 ^PSAUP2 ^PSAUP4 ^PSAUP5
Toolkit	2	RFILE^XTKERM4 RECEIVE^XTKERMIT
Kernel	1	HASH^XUSHSHP
VA Fileman	1	^DIR

Package	Total	Caller Graph
Drug Accountability	2	PSA UPLOAD PRIME VENDOR DATA PSAPROC

Entry Points

Name	Comments	DBIA/ICR reference
PRINT2
LOADXTMP	;Loads data into ^XTMP("PSAPV").
UNWRAP	;Changes the data element and segment delimiters to ^ & ~, places each
SPACES	;remove all leading spaces in all data elements
KILL	;Kills uploading variables
PRINT	;Ask if user wants to print invoices.
LINE	;Places each segment on a node to itself.
PROC	;Ask if user wants to process the invoice data now.
CHECK	;Looks for X12 errors. If no errors, loads data into ^TMP("PSAPV SET",$J)
STORE	;Get the line item data and store in ^XTMP("PSAPV")
PHARM	;Assign a pharmacy location or master vault to each Order.

External References

Name	Field # of Occurrence
^DIR	PSAUP+10, PRINT+3, PROC+2, PRINT2+3
^PSAPROC	PHARM+3
END^PSAPROC	UNWRAP+22, LOADXTMP+6
EXIT^PSAPROC	PHARM+3, PRINT2+4
XTMP^PSAUP1	LOADXTMP+2
^PSAUP2	CHECK+2
^PSAUP4	PRINT+3, PRINT2+3
^PSAUP5	STORE+4
RFILE^XTKERM4	PSAUP+13
RECEIVE^XTKERMIT	PSAUP+17
HASH^XUSHSHP	PSAUP+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not hold the key to enter the option." Line Location: PSAUP+6
Function Call: WRITE	Prompt: @IOF,!,"**************************** I M P O R T A N T ****************************" Line Location: PSAUP+7
Function Call: WRITE	Prompt: !!,"This option uploads the invoice data received from your prime vendor.",!,"In order to upload the data, you must be running ProComm Plus software",!,"on Pharmacy's prime vendor PC.",!! Line Location: PSAUP+8
Function Call: WRITE	Prompt: PSASTLN,! Line Location: PSAUP+9
Function Call: WRITE	Prompt: !!,"Press <ALT> 1 if your Prime Vendor script is installed as a Meta Key,",!,"otherwise press <ALT> F5 and enter ""PV""",! Line Location: PSAUP+15
Function Call: READ	Timeout: DTIME Variable: X Line Location: PSAUP+16
Function Call: WRITE	Prompt: !!,"ERROR - "_XTKERR Line Location: PSAUP+19
Function Call: WRITE	Prompt: !,"ERROR - NO LINES RECEIVED." Line Location: PSAUP+20
Function Call: WRITE	Prompt: @IOF,!,"Done",!,"The data uploaded to a temporary file. "_DWLC," lines received.",!! Line Location: PSAUP+21
Function Call: WRITE	Prompt: !,"Unwrapping the invoice." Line Location: UNWRAP+3
Function Call: WRITE	Prompt: "." Line Location: UNWRAP+8
Function Call: WRITE	Prompt: "." Line Location: UNWRAP+15
Function Call: WRITE	Prompt: "." Line Location: UNWRAP+31
Function Call: WRITE	Prompt: "." Line Location: LINE+8
Function Call: WRITE	Prompt: "." Line Location: SPACES+4
Function Call: WRITE	Prompt: !,"Finished unwrapping the invoice." Line Location: SPACES+12
Function Call: WRITE	Prompt: !!,"Checking the invoice data." Line Location: CHECK+1
Function Call: WRITE	Prompt: !,"Finished checking the invoice data." Line Location: CHECK+5
Function Call: WRITE	Prompt: !!,"Loading data into VISTA." Line Location: LOADXTMP+1
Function Call: WRITE	Prompt: !,"Finished loading data into VISTA." Line Location: LOADXTMP+4
Function Call: WRITE	Prompt: !!," The upload was successful. " Line Location: LOADXTMP+5
Function Call: WRITE	Prompt: @IOF Line Location: STORE+1
Function Call: WRITE	Prompt: !,"There are no valid invoices to process." Line Location: STORE+2
Function Call: WRITE	Prompt: !,"Searching for and storing the drug data for each line item." Line Location: STORE+3
Function Call: WRITE	Prompt: !,"Finished storing the drug data." Line Location: STORE+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PROC+1
Function Call: WRITE	Prompt: !! Line Location: PRINT2+0
Routine Call	DIR Line Location: PSAUP+10 PRINT+3 PROC+2 PRINT2+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	PSAUP+16
^%ZOSF("EON"	PSAUP+16
^DIZ(8980 - [#8980]	PSAUP+12, PSAUP+13
^TMP("PSAPV SET"	CHECK+4!, LOADXTMP+3!, KILL+1!
^TMP("PSAPV"	PSAUP+18!, LINE+1!, LINE+7*, SPACES+2, SPACES+3, SPACES+4, SPACES+11!, KILL+1!
^TMP("PSAPVS"	SPACES+4, SPACES+10, CHECK+3!, KILL+1!
^TMP("PSAX12"	PSAUP+14!, PSAUP+22, UNWRAP+7, UNWRAP+8, UNWRAP+9, UNWRAP+12, UNWRAP+13, UNWRAP+15, UNWRAP+16, UNWRAP+26 , UNWRAP+27, UNWRAP+30, UNWRAP+31, LINE+3, LINE+4, SPACES+1!, KILL+1!
^XTMP("PSAPV"	STORE+1
^XUSEC("PSA ORDERS"	PSAUP+6

Label References

Name	Line Occurrences
KILL	PSAUP+11, PSAUP+22, UNWRAP+19, CHECK+4, LOADXTMP+3, STORE+2, PRINT+3, PROC+2, PROC+3
LINE	UNWRAP+17, UNWRAP+23

Naked Globals

Name	Field # of Occurrence
^(0	UNWRAP+8, UNWRAP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL+2!
>> DAVE	UNWRAP+8*
DIR	PSAUP+10!, PRINT+3!, PROC+2!, PRINT2+3!, KILL+2!
DIR("?"	PRINT+2, PROC+1, PRINT2+1*
DIR("??"	PSAUP+10, PRINT+2, PROC+1, PRINT2+2
DIR("A"	PSAUP+10, PRINT+2, PROC+1, PRINT2
DIR("B"	PSAUP+10, PRINT+2, PROC+1, PRINT2
DIR(0	PSAUP+10, PRINT+2, PROC+1, PRINT2
DIRUT	PRINT+3, PROC+2, KILL+2!
DTIME	PSAUP+16
DUZ	PSAUP+6, PSAUP+12, PSAUP+13
DWLC	PSAUP+12, PSAUP+17, PSAUP+20, PSAUP+21, KILL+2!
IOF	PSAUP+7, PSAUP+21, STORE+1
PSABBC	UNWRAP+6, UNWRAP+7, UNWRAP+9, UNWRAP+12, UNWRAP+17, KILL+2!
PSACNT	UNWRAP+12, UNWRAP+26, LINE+2, LINE+7, SPACES+2, SPACES+5, SPACES+6*, SPACES+7, KILL+2!
PSACOMB	KILL+2!
PSACS	KILL+2!
PSACTN1	KILL+2!
PSACTRL	KILL+2!
PSACTRL2	KILL+2!
PSADATA	UNWRAP+13, UNWRAP+14, UNWRAP+16, UNWRAP+27, UNWRAP+28, UNWRAP+29, UNWRAP+30, LINE+4, LINE+5, LINE+6 , LINE+9*, KILL+2!
PSADE	SPACES+7, SPACES+8, SPACES+9, KILL+2!
PSADT	KILL+2!
PSADUP	KILL+2!
PSAENTRY	PRINT2+3*, KILL+2!
PSAERR	KILL+2!
PSAEX	SPACES+6*, KILL+2!
PSAEXPEC	KILL+2!
PSAFND1	KILL+2!
PSAGS	KILL+2!
PSAHOLD	LINE+2, LINE+4, LINE+5, LINE+9, LINE+10, KILL+2!
PSAIEN	KILL+2!
PSAIN	KILL+2!
PSAINV	KILL+2!
PSAINVDT	KILL+2!
PSAINVN	KILL+2!
PSAISA	UNWRAP+6, UNWRAP+7, UNWRAP+8, KILL+2!
PSAISIT	KILL+2!
PSAISITN	KILL+2!
PSAITCNT	KILL+2!
PSAITEM	KILL+2!
PSALAST	KILL+3!
PSALINE	UNWRAP+6, UNWRAP+7, UNWRAP+8, UNWRAP+9, UNWRAP+12, UNWRAP+13, UNWRAP+15, UNWRAP+16, UNWRAP+26, UNWRAP+27 , UNWRAP+30, UNWRAP+31, LINE+2, LINE+3, LINE+4, SPACES+2*, SPACES+3, SPACES+4, SPACES+10, KILL+3!
PSALLCS	KILL+3!
PSALLOK	KILL+3!
PSALND	UNWRAP+6, UNWRAP+8, UNWRAP+19, UNWRAP+23, UNWRAP+28, KILL+3!
PSALOC	KILL+3!
PSANDC	KILL+3!
PSANEW	KILL+3!
PSANEXT	STORE+1*, STORE+2, KILL+3!
PSANTYPE	KILL+3!
PSAOK	KILL+3!
PSAORD	KILL+3!
PSAORDDT	KILL+3!
PSAORDN	KILL+3!
PSAOSIT	KILL+3!
PSAOSITN	KILL+3!
PSAOUT	PSAUP+11, PSAUP+14, PSAUP+16, PSAUP+17, PSAUP+18, PSAUP+19, PSAUP+20, UNWRAP+26, CHECK+4, LOADXTMP+3 , PHARM+2, PHARM+3, KILL+3!
PSAPC	SPACES+7*, SPACES+9, KILL+3!
PSAS	KILL+4!
PSASEG	LINE+6, LINE+7, LINE+8, SPACES+3, SPACES+4, SPACES+5, SPACES+6, SPACES+7, SPACES+9*, SPACES+10 , KILL+4!
PSASEGD	UNWRAP+6, UNWRAP+8, UNWRAP+9, UNWRAP+14, UNWRAP+19, UNWRAP+23, UNWRAP+29, KILL+4!
PSASEGL	SPACES+5*, SPACES+6, KILL+4!
PSASS	KILL+4!
PSAST	KILL+4!
PSASTA	PRINT+1*, KILL+4!
PSASTAR	UNWRAP+20*, UNWRAP+21, UNWRAP+22, KILL+4!
PSASTCNT	KILL+4!
PSASTLN	PSAUP+9*!
>> PSASTOP	LINE+6, LINE+9
PSASUB	KILL+4!
PSASYN	KILL+4!
PSAUOM	KILL+4!
PSAUOM1	KILL+4!
PSAUOMH	KILL+4!
PSAUOMH1	KILL+4!
PSAVSN	KILL+4!
PSAX	SPACES+6*, KILL+4!
X	PSAUP+16*, KILL+4!
X1	KILL+4!
X2	KILL+4!
XTKDIC	PSAUP+12, PSAUP+17, KILL+4!
XTKERR	PSAUP+18*, PSAUP+19, KILL+4!
XTKMODE	PSAUP+12, PSAUP+17, KILL+4!
Y	PSAUP+11, PRINT+3, PROC+2, PRINT2+3, KILL+4!

Customize PDF page

Package: Drug Accountability

Routine: PSAUP

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: