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 |  Local Variables |  All
Print Page as PDF
Routine: PSAVER2

Package: Drug Accountability

Routine: PSAVER2


Information

PSAVER2 ;BIR/JMB-Verify Invoices - CONT'D ;10/7/97

Source Information

Source file <PSAVER2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  IX1^DIK  ^DIR  
Drug Accountability 3 (GETNDC,GETUPC,SUPPLY)^PSANDF  VERDISP^PSAUTL4  HDR^PSAVER1  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Drug Accountability 7 PSAVER1  PSAVER3  PSAVER5  PSAVERA  PSAVERA1  PSAVERA2  PSAVERA3  

Entry Points

Name Comments DBIA/ICR reference
INDEX
ADDDATA ;Adds the missing NDC and/or UPC
QTY ;Adjust the quantity received
RECORD ;Adds adjusted data to DA ORDERS file
PHARM ;Pharmacy Location/Master Vault -- DR is set prior to the call.
RECD ;Date Received
ASKDRUG
NEW
OU ;Get order unit
ADJ
DUOU ;Gets Dispense Units Per Order Unit
REORDER ;Enter reorder level for drug if the field is blank.
STOCK ;Enter stock level for drug if the field is blank.

External References

Name Field # of Occurrence
^DIC ASKDRUG+1, NEW+3, OU+1
^DIE ADDDATA+3, ADJ+5, PHARM+1, RECD+11
IX1^DIK INDEX
^DIR ASKDRUG+19, DUOU+7, DUOU+14, QTY+3, QTY+6, RECD+3, REORDER+3, STOCK+3
GETNDC^PSANDF ASKDRUG+20
GETUPC^PSANDF ASKDRUG+21
SUPPLY^PSANDF ASKDRUG+5
VERDISP^PSAUTL4 ASKDRUG+9, ADDDATA+5
HDR^PSAVER1 ASKDRUG+9
$$FMTE^XLFDT RECD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"If the item will never be in the DRUG, press the Return key then",!,"answer YES to the ""Is this a supply item?"" prompt. To bypass this",!,"line item, enter ""^"" then press the Return key.",!
  • Line Location: ASKDRUG+0
Function Call: WRITE
  • Prompt: !,"Item appears to be marked for supply, no need to enter Dispense Units Per Order Unit."
  • Line Location: DUOU+3
Function Call: WRITE
  • Prompt: !!,"The dispense units per order unit must be entered",!,"to change the status of the invoice to Verified."
  • Line Location: DUOU+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DUOU+15
Routine Call
  • DIE
  • Line Location:
    • ADDDATA+3
    • ADJ+5
    • PHARM+1
    • RECD+11
Routine Call
  • DIC
  • Line Location:
    • ASKDRUG+1
    • NEW+3
    • OU+1
Routine Call
  • DIR
  • Line Location:
    • ASKDRUG+19
    • DUOU+7
    • DUOU+14
    • QTY+3
    • QTY+6
    • RECD+3
    • REORDER+3
    • STOCK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^DIC(51.5 - [#51.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.81125 NEW
^DIC(51.5 - [#51.5] OU+1
^PSD(58.811 - [#58.811] ASKDRUG+6!, ASKDRUG+11*, ADDDATA+2, ADDDATA+3, RECORD+2*, RECORD+3, RECORD+4, RECORD+5, NEW, NEW+2
, NEW+3, ADJ+4, INDEX, DUOU+5, DUOU+8*, RECD+10, RECD+11, REORDER+4*, STOCK+4*
^PSDRUG - [#50] ASKDRUG+12, ASKDRUG+13, DUOU+4
^PSDRUG("C" ASKDRUG+10, ASKDRUG+11, ASKDRUG+15

Label References

Name Line Occurrences
ADDDATA ASKDRUG+20, ASKDRUG+21
ADJ RECORD+6
ASKDRUG ASKDRUG+8
DUOU ASKDRUG+12, ASKDRUG+13, ASKDRUG+15, DUOU+15
NEW RECORD+5
OU OU+5
RECORD ASKDRUG+7, ASKDRUG+9, OU+5, QTY+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADDDATA+1!*, RECORD+4*, RECORD+5, NEW!, NEW+3*, PHARM+1!*, RECD+8!, RECD+9*
DA(1 ADDDATA+1*, NEW+1*, ADJ*, PHARM+1*, RECD+9*
DA(2 ADDDATA+1*, NEW+1*, ADJ*
DA(3 NEW+1*, ADJ*
DIC ASKDRUG+1*!, NEW+1*, NEW+3!, OU+1*!
DIC("A" OU+1*
DIC("B" OU+1*
DIC("P" NEW*
DIC(0 ASKDRUG+1*, NEW+1*, OU+1*
DIE ADDDATA+1*, ADDDATA+4!, ADJ*, INDEX!, PHARM+1*!, RECD+9*, RECD+12!
DIK INDEX*!
DIR ASKDRUG+19!, DUOU+7!, DUOU+14!, QTY+3!, QTY+6!, RECD+3!, REORDER+3!, STOCK+3!
DIR("?" DUOU+6*, DUOU+13*, QTY+2*, QTY+5*, RECD+2*, REORDER+2*, STOCK+2*
DIR("??" ASKDRUG+19*, DUOU+6*, DUOU+14*, QTY+2*, QTY+5*, RECD+2*, REORDER+1*, STOCK+1*
DIR("A" ASKDRUG+19*, DUOU+5*, DUOU+12*, QTY+1*, QTY+5*, RECD+2*, REORDER+1*, STOCK+1*
DIR("B" ASKDRUG+19*, DUOU+5*, DUOU+12*, QTY+1*, RECD+2*, REORDER+1*, STOCK+1*
DIR(0 ASKDRUG+19*, DUOU+5*, DUOU+12*, QTY+1*, QTY+5*, RECD+2*, REORDER+1*, STOCK+1*
>> DIRUT ASKDRUG+19, DUOU+14, QTY+3, QTY+6, RECD+3
DLAYGO NEW+1*, NEW+3!
>> DR ADDDATA+1*, ADJ+3*, OU+1*, RECD+9*
DT ADJ+3
>> DTOUT ASKDRUG+2, ADDDATA+4, DUOU+7, OU+2, PHARM+2, RECD+13, REORDER+3, STOCK+3
>> DUOUT ASKDRUG+2, ADDDATA+4, DUOU+7, OU+2, PHARM+2, RECD+13, REORDER+3, STOCK+3
DUZ ADJ+3
>> PSA50IEN ASKDRUG+6*, ASKDRUG+9*, ASKDRUG+10, ASKDRUG+11, ASKDRUG+12, ASKDRUG+13, ASKDRUG+15, DUOU+4
>> PSABEFOR ASKDRUG+1*, ASKDRUG+13, ASKDRUG+15
>> PSADATA REORDER+2
>> PSADJ ASKDRUG+6*, ASKDRUG+9*, ADJ+3, OU+5*, QTY+4*
>> PSADJFLD ASKDRUG+3*, RECORD+3, RECORD+4, NEW+1, OU+5*, QTY+7*
>> PSADRG ASKDRUG+1, ASKDRUG+9*
>> PSAGAIN ASKDRUG+1*, ASKDRUG+5*, ASKDRUG+8
>> PSAIEN ASKDRUG+6, ASKDRUG+11, ADDDATA+1, ADDDATA+2, ADDDATA+3, RECORD+2, RECORD+3, RECORD+4, RECORD+5, NEW
, NEW+1, NEW+2, NEW+3, ADJ, ADJ+4, INDEX, DUOU+5, DUOU+8, PHARM+1, RECD+9
, RECD+10, RECD+11, REORDER+4, STOCK+4
>> PSAIEN1 ASKDRUG+6, ASKDRUG+11, ADDDATA+1, ADDDATA+2, ADDDATA+3, RECORD+2, RECORD+3, RECORD+4, RECORD+5, NEW
, NEW+1, NEW+2, NEW+3, ADJ, ADJ+4, INDEX, DUOU+5, DUOU+8, PHARM+1, RECD+9
, RECD+10, RECD+11, REORDER+4, STOCK+4
>> PSAIN RECD+1, RECD+4, RECD+5, RECD+6, RECD+7
>> PSALINE ASKDRUG+6, ADDDATA+1, RECORD+2, RECORD+3, RECORD+4, RECORD+5, NEW, NEW+1, ADJ, DUOU+5
, DUOU+8, REORDER+4, STOCK+4
>> PSANDC ASKDRUG+10, ASKDRUG+11, ASKDRUG+15, ASKDRUG+17, ASKDRUG+20*, ASKDRUG+21*, ADDDATA+1
>> PSANEW RECORD+1*
>> PSAOU OU+1
>> PSAOUT ASKDRUG+2*, ASKDRUG+4, ASKDRUG+5, ASKDRUG+19*, ASKDRUG+20, ASKDRUG+21, ADDDATA+4*, DUOU+7*, DUOU+14*, OU+2*
, PHARM+2*, QTY+3*, QTY+6*, RECD+3*, RECD+13*, REORDER+3*, STOCK+3*
>> PSAQTY QTY+1, QTY+4
>> PSAREA ASKDRUG+3*, ASKDRUG+6*, ADJ+3, OU+5*, QTY+7*
>> PSAREC RECD+1*, RECD+2
PSARECD RECD+1!, RECD+6*, RECD+7*, RECD+8, RECD+9
>> PSAREORD REORDER+1
>> PSASET DUOU+8*
>> PSASTOCK STOCK+1
>> PSASUB ASKDRUG+11*, ASKDRUG+12, ASKDRUG+13
>> PSASUPP ASKDRUG+3*, ASKDRUG+4, ASKDRUG+5, DUOU+3
>> PSAUPC ASKDRUG+17, ASKDRUG+21*, ADDDATA+1
>> PSAVER ASKDRUG+5*
>> X NEW+1*
>> Y ASKDRUG+4, ASKDRUG+9, ASKDRUG+20, ASKDRUG+21, NEW+3, DUOU+8, DUOU+9, DUOU+15, OU+5, QTY+4
, QTY+7, RECD+4, RECD+5, RECD+6, RECD+7, REORDER+4, STOCK+4
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 |  Local Variables |  All