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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAPROC7

Package: Drug Accountability

Routine: PSAPROC7


Information

PSAPROC7 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;9/6/97

Source Information

Source file <PSAPROC7.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  (IX,IX1)^DIK  $$GET1^DIQ  ^DIR  
Drug Accountability 1 ITEM^PSAUTL6  
List Manager 1 $$SETSTR^VALM1  
MailMan 1 ^XMD  

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: 3

Package Total Caller Graph
Drug Accountability 3 PSAPROC1  PSAPROC6  PSAVER6  

Entry Points

Name Comments DBIA/ICR reference
INVOICE ;PSA*3*21 (3JAN01) - FILE INVOICE IMMEDIATELY
LINE ;Files line items.
ADJDRUG ;Records adjusted drug received
OU ;Records adjusted order unit
PRICE ;Records adjusted price per order unit
QTY ;Records adjusted quantity received.
RECORD ;Adds adjusted data to DA ORDERS file
SCANDIF ; inspect invoice for noted differences in OU,DUOU,PPDU,NDC
MM ;
CHECK ;Check line item for differences to drug file *42
SET ;set differences into ^TMP
MESSAGE ;differences found, notify user and send message to g.PSA NDC UPDATES.

External References

Name Field # of Occurrence
^DIC INVOICE+12, LINE+3, RECORD+4
FILE^DICN INVOICE+9
^DIE INVOICE+26
IX^DIK INVOICE+22, LINE+34
IX1^DIK RECORD+14
$$GET1^DIQ CHECK+10, MESSAGE+2, MESSAGE+3
^DIR MESSAGE+9
ITEM^PSAUTL6 CHECK+3, CHECK+4
$$SETSTR^VALM1 CHECK+19, CHECK+20, CHECK+21
^XMD MESSAGE+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XMSUB,!
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: !,"Noted differences between the invoice line items and the drug file have",!,"been found. A mail message is being sent to G.PSA NDC UPDATES."
  • Line Location: MESSAGE+7
Function Call: WRITE
  • Prompt: !!," Please check the message for accuracy.",!
  • Line Location: MESSAGE+8
Routine Call
  • DIC
  • Line Location:
    • INVOICE+12
    • LINE+3
    • RECORD+4
Routine Call
  • DIE
  • Line Location:
    • INVOICE+26
Routine Call
  • DIR
  • Line Location:
    • MESSAGE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSD(58.811 - [#58.811] Classic Fileman Calls,  GET1^DIQ
58.8112 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.811 INVOICE+11
^DD(58.8112 LINE+1
^DD(58.81125 RECORD+2
^PSD(58.811 - [#58.811] INVOICE+4, INVOICE+6, INVOICE+9, INVOICE+10, INVOICE+11, INVOICE+21*, INVOICE+27*, INVOICE+28, LINE+1, LINE+18*
LINE+19*, LINE+20*, LINE+21*, LINE+22*, LINE+23*, LINE+24*, LINE+25*, LINE+26*, LINE+27*, LINE+29*
LINE+30*, LINE+31*, LINE+32*, LINE+43*, RECORD+2, RECORD+9*, RECORD+10*, RECORD+11*, RECORD+12*, SCANDIF+3
^PSDRUG - [#50] LINE+9, CHECK+9
^TMP($J INVOICE+23!, SCANDIF+2!, MM+1, SET+2*, MESSAGE+5*, MESSAGE+13!
^XTMP("PSAPV" INVOICE+2, INVOICE+24, INVOICE+27, INVOICE+29!, LINE+1, LINE+37, LINE+47!, ADJDRUG+3
^XTMP("PSAVSN" LINE+45*

Label References

Name Line Occurrences
ADJDRUG LINE+37
CHECK SCANDIF+3
LINE INVOICE+24
MESSAGE MM+1
MM INVOICE+25
OU LINE+39
PRICE LINE+40
QTY LINE+38
RECORD ADJDRUG+2, ADJDRUG+3, OU+2, PRICE+3, QTY+3
SCANDIF INVOICE+25
SET CHECK+17, CHECK+22

Naked Globals

Name Field # of Occurrence
^(0 INVOICE+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA INVOICE+12!, INVOICE+13*, INVOICE+21, INVOICE+26!*, LINE+3*!, LINE+16*, LINE+18, LINE+19, LINE+20, LINE+21
LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32
RECORD+1!, RECORD+8*, RECORD+9, RECORD+10, RECORD+11, RECORD+12, RECORD+14*!
DA(1 INVOICE+12*, INVOICE+13*, INVOICE+21, INVOICE+26*, LINE+3*, LINE+16*, LINE+18, LINE+19, LINE+20, LINE+21
LINE+22, LINE+23, LINE+24, LINE+25, LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32
RECORD+1*, RECORD+4, RECORD+9, RECORD+10, RECORD+11, RECORD+12
DA(2 LINE+3*, LINE+16*, LINE+18, LINE+19, LINE+20, LINE+21, LINE+22, LINE+23, LINE+24, LINE+25
LINE+26, LINE+27, LINE+29, LINE+30, LINE+31, LINE+32, RECORD+1*, RECORD+4, RECORD+9, RECORD+10
RECORD+11, RECORD+12
DA(3 RECORD+1*, RECORD+4, RECORD+9, RECORD+10, RECORD+11, RECORD+12
DIC INVOICE+9*!, INVOICE+12*, INVOICE+13!, LINE+3*!, RECORD+4*, RECORD+8
DIC("P" INVOICE+11*, LINE+1*, RECORD+2*
DIC(0 INVOICE+9*, INVOICE+12*, LINE+3*, RECORD+4*
DIE INVOICE+13*, INVOICE+22, INVOICE+26*!, LINE+16*, LINE+34, RECORD+8*, RECORD+14!
DIF CHECK+1~, CHECK+11!, CHECK+16
DIF( CHECK+12*, CHECK+18
DIF("OU" CHECK+14*, CHECK+15*
DIF("PPDU" CHECK+13*
DIK INVOICE+22*, LINE+34*, RECORD+14*!
DILOCKTM INVOICE+6
DIR MESSAGE+1!, MESSAGE+9!, MESSAGE+10!
DIR("A" MESSAGE+9*
DIR(0 MESSAGE+9*
DLAYGO INVOICE+12*!, LINE+3*!, RECORD+4*!
DO INVOICE+9~
>> DR INVOICE+26*
DRG CHECK+1~
DRG( CHECK+12, CHECK+20
DRG("DUOU" CHECK+10*
DRG("NDC" CHECK+10*
DRG("OU" CHECK+10*, CHECK+15*
DRG("PPDU" CHECK+10*, CHECK+13
DRIEN CHECK+1~, CHECK+7*, CHECK+8*, CHECK+9, CHECK+10
DT LINE+26, RECORD+11
DUZ INVOICE+21, LINE+27, RECORD+12
IENS CHECK+1~, MESSAGE+1~, MESSAGE+2*, MESSAGE+3
ITM CHECK+1~, CHECK+3
ITM( CHECK+12, CHECK+17, CHECK+21
ITM("DUOU" CHECK+6*
ITM("NDC" CHECK+6*
ITM("OU" CHECK+6*, CHECK+14*
ITM("PPDU" CHECK+6*, CHECK+13
ITM("PPOU" CHECK+6*
ITM(1 CHECK+17
ITM(10 CHECK+6
ITM(13 CHECK+6
ITM(2 CHECK+5
ITM(3 CHECK+6
ITM(4 CHECK+6
ITMI CHECK+1~, CHECK+4
ITMI(1 CHECK+7, CHECK+8
PCNT CHECK+1~, CHECK+13*
PDIF CHECK+1~, CHECK+13*
>> PSACRED INVOICE+4*, INVOICE+26, PRICE+2*, QTY+2*
>> PSACS LINE+14*, LINE+22
>> PSACSDR INVOICE+16*, INVOICE+21
>> PSACTRL INVOICE+2, INVOICE+24, INVOICE+27, INVOICE+29, LINE+1, LINE+37, LINE+47, ADJDRUG+3
>> PSADATA LINE+1*, LINE+6, LINE+7, LINE+13, LINE+14, LINE+15, LINE+18, LINE+25, LINE+29, LINE+30
LINE+31, LINE+32, LINE+37, LINE+38, LINE+39, LINE+40, LINE+42, LINE+43, LINE+45, ADJDRUG+2
OU+1, PRICE+1, PRICE+2, QTY+1, QTY+2
>> PSADELDR INVOICE+15*, INVOICE+21
PSADIFLC INVOICE+23!, SCANDIF+2!, SET+1*, SET+2*, MESSAGE+13!
>> PSADJ ADJDRUG+2*, ADJDRUG+3*, OU+1*, PRICE+1*, PRICE+2, QTY+1*, QTY+2, RECORD+9
>> PSADRG LINE+6*, LINE+9, LINE+23
>> PSADT ADJDRUG+2*, ADJDRUG+3*, OU+1*, PRICE+1*, QTY+1*
>> PSADUZ ADJDRUG+2*, ADJDRUG+3*, OU+1*, PRICE+1*, QTY+1*
PSAFLD ADJDRUG+1*, OU+1*, PRICE+1*, QTY+1*, RECORD+1, RECORD+14!
>> PSAIEN INVOICE+4*, INVOICE+5, INVOICE+9*, INVOICE+10, INVOICE+11, INVOICE+12, INVOICE+13, INVOICE+26, INVOICE+27, INVOICE+28
LINE+1, LINE+3, LINE+16, LINE+43, RECORD+1, RECORD+2, SCANDIF+3, CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN1 INVOICE+12*, INVOICE+13, INVOICE+26, LINE+1, LINE+3, LINE+16, LINE+43, RECORD+1, RECORD+2, SCANDIF+3
CHECK+3, CHECK+4, MESSAGE+2
>> PSAIEN2 LINE+3*, LINE+16, LINE+43, RECORD+1, RECORD+2
>> PSAIEN3 RECORD+4*, RECORD+8, RECORD+14
>> PSAIN INVOICE+2*, INVOICE+3, INVOICE+4, INVOICE+12, INVOICE+14, INVOICE+15, INVOICE+16, INVOICE+17, INVOICE+18, INVOICE+19
INVOICE+21
>> PSAINV MESSAGE+3*, MESSAGE+4
>> PSALINE INVOICE+24*, LINE+1, LINE+3, LINE+16, LINE+37, LINE+47, ADJDRUG+3, SCANDIF+3*, CHECK+3, CHECK+4
>> PSALOCDR INVOICE+14*, INVOICE+21
>> PSAMV INVOICE+18*, INVOICE+21
>> PSANDC LINE+14*, LINE+15*, LINE+19
>> PSAORD INVOICE+4*, INVOICE+9, MESSAGE+2*, MESSAGE+4
>> PSAREA ADJDRUG+2*, ADJDRUG+3*, OU+1*, PRICE+1*, QTY+1*, RECORD+10
>> PSARECD INVOICE+17*, INVOICE+21
>> PSASNODE ADJDRUG+3*
>> PSASUP INVOICE+19*, INVOICE+21
>> PSASYN LINE+7*, LINE+9
PSAUNIT LINE+8!, LINE+9*, LINE+13*, LINE+24
>> PSAUPC LINE+14*, LINE+21
>> PSAVSN LINE+14*, LINE+20
T CHECK+1~, CHECK+19*, CHECK+20*, CHECK+21*
>> X INVOICE+9*, INVOICE+12*, LINE+3*, RECORD+1*
>> XMSUB MESSAGE+4*, MESSAGE+5, MESSAGE+6
>> XMTEXT MESSAGE+11*
>> XMY("G.PSA ND C UPDATES" , MESSAGE+11*
XX CHECK+1~, CHECK+12*
XXX CHECK+1~, CHECK+18*, CHECK+19, CHECK+20, CHECK+21
>> Y INVOICE+9, INVOICE+12, LINE+3, RECORD+4
ZZ CHECK+1~, CHECK+17*, CHECK+19*, CHECK+20*, CHECK+21*, SET+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All