Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAUP

Package: Drug Accountability

Routine: PSAUP


Information

PSAUP ;BIR/JMB-Upload and Process Prime Vendor Invoice Data ;7/23/97

Source Information

Source file <PSAUP.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All