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

Package: Drug Accountability

Routine: PSAVERA1


Information

PSAVERA1 ;BHM/DB - Edit previously verified invoices;16NOV99

Source Information

Source file <PSAVERA1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^%DT  NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Drug Accountability 3 VERDISP^PSAUTL4  OU^PSAVER2  ASKDRUG^PSAVERA2  

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

Package Total Caller Graph
Drug Accountability 1 PSAVERA  

Entry Points

Name Comments DBIA/ICR reference
DISPLN
DRUG
QTY ;Quantity
UPC
OU ;W !,"Order Unit : "
NDC
PRICE ;W !,"Unit Price : $"
VSN ;W ?38,"VSN: "_$S(PSAVSN'="":PSAVSN,1:"Blank"),!
VDU
STOCK
REORDER
ASK
PROCSS
VIEW
FIELDS
Q
UPDATE ; *63 RJS CODE REMOVED FROM PSAVERA AND CALLED BY PSAVERA
FILE581 ;Update transaction file ;;*63
FIND
NEW581
LOCCHK ; Update Line items with CS or Non-CS

External References

Name Field # of Occurrence
^%DT UPDATE+25
NOW^%DTC UPDATE+9
^DIC UPDATE+24, UPDATE+25, FIND+1, NEW581+1
FILE^DICN UPDATE+14
^DIE UPDATE+26, UPDATE+27, FIND+6, NEW581+6, LOCCHK+5, LOCCHK+9
^DIR VIEW+3
VERDISP^PSAUTL4 VIEW
OU^PSAVER2 FIELDS+2
ASKDRUG^PSAVERA2 FIELDS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S($G(PSAPRICE):PSAPRICE,1:"0.00")
  • Line Location: PRICE+10
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and ",CNT
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: PROCSS+0
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: "1. Drug",!,"2. Order Unit",!
  • Line Location: VIEW+1
Function Call: WRITE
  • Prompt: PSASLN
  • Line Location: VIEW+4
Function Call: WRITE
  • Prompt: !,"updating pharmacy location file."
  • Line Location: UPDATE+29
Function Call: WRITE
  • Prompt: !,"updating transaction file."
  • Line Location: NEW581+6
Routine Call
  • DIC
  • Line Location:
    • UPDATE+24
    • UPDATE+25
    • FIND+1
    • NEW581+1
Routine Call
  • DIE
  • Line Location:
    • UPDATE+26
    • UPDATE+27
    • FIND+6
    • NEW581+6
    • LOCCHK+5
    • LOCCHK+9
Routine Call
  • DIR
  • Line Location:
    • VIEW+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.81 - [#58.81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 UPDATE+11
^DD(58.8001 UPDATE+22
^DIC(51.5 - [#51.5] OU+1
^PSD(58.8 - [#58.8] VDU+3, STOCKREORDERUPDATE+5, UPDATE+6*, UPDATE+7, UPDATE+10, UPDATE+11, UPDATE+13, UPDATE+14
UPDATE+15, UPDATE+16, UPDATE+17*, UPDATE+18*, UPDATE+19, UPDATE+20*, UPDATE+21*, UPDATE+22, UPDATE+23, UPDATE+28
^PSD(58.81 - [#58.81] FIND*, FIND+1, FIND+5, FIND+6, NEW581*, NEW581+1, NEW581+5, NEW581+6
^PSD(58.811 - [#58.811] DISPLNDISPLN+1, DISPLN+2, DRUGDRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5
PRICE+1, PRICE+2, PROCSSPROCSS+1, LOCCHK+2
^PSDRUG - [#50] DRUG+6, DRUG+7, DRUG+10, DRUG+12, OU+3, UPDATE+4, LOCCHK+3, LOCCHK+7

Label References

Name Line Occurrences
ASK ASK+2, PROCSS
DISPLN VDU+3, REORDER+2, ASK
FIND FIND
LOCCHK UPDATE+4, UPDATE+8
NEW581 FILE581+2, FIND+7, NEW581
Q DISPLNASK+1

Naked Globals

Name Field # of Occurrence
^(0 UPDATE+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDATE+9
>> AN ASK*, ASK+1, ASK+2, ASK+3
>> CNT DISPLN*, ASK+2
DA UPDATE+12*, UPDATE+14!, UPDATE+25*, UPDATE+27*, FIND+2*, FIND+5, FIND+6, NEW581+3*, NEW581+5, NEW581+6
LOCCHK+5*!, LOCCHK+9*!
DA(1 UPDATE+12*, UPDATE+24*, UPDATE+26*, UPDATE+27*, LOCCHK+5*, LOCCHK+9*
DA(2 UPDATE+24*, UPDATE+26*, UPDATE+27*, LOCCHK+5*, LOCCHK+9*
DIC UPDATE+12*, UPDATE+14!, UPDATE+24*!, UPDATE+25*!, FIND+1*!, NEW581+1*!
DIC("DR" UPDATE+24*
DIC("P" UPDATE+11*, UPDATE+22*
DIC(0 UPDATE+12*, UPDATE+24*, UPDATE+25*, FIND+1*, NEW581+1*
DIE UPDATE+26*!, UPDATE+27*!, FIND+2*, FIND+6!, NEW581+3*, NEW581+6!, LOCCHK+5*!, LOCCHK+9*!
DILOCKTM UPDATE+5, UPDATE+13, UPDATE+15, FIND+5, NEW581+5
DINUM UPDATE+12*, UPDATE+24*, UPDATE+25*, FIND+1*!, NEW581+1*!
DIR VIEW+3!
DIR("?" VIEW+2*
DIR("??" VIEW+2*
DIR("A" VIEW+2*
DIR(0 VIEW+2*
DLAYGO UPDATE+12*, UPDATE+14!, UPDATE+24*, UPDATE+25!, FIND+1*!, NEW581+1*!
DR UPDATE+26*, UPDATE+27*, FIND+4*, NEW581+3*, NEW581+4*, LOCCHK+5*!, LOCCHK+9*!
DT UPDATE+23, UPDATE+24, UPDATE+27
DTIME ASK
>> DTOUT VIEW+3
>> DUOUT VIEW+3
DUZ FILE581+1
>> INVARRAY( VDU+1*, REORDER+1*
>> PSA50IEN DRUG+6*, DRUG+8*, DRUG+10*
>> PSAABAL UPDATE+8*
>> PSAAFTER UPDATE+8, FIND+3, FIND+7, LOCCHK+3, LOCCHK+7
>> PSAAQTY FILE581+3*, FILE581+5*
>> PSABAL UPDATE+4*, UPDATE+6*, UPDATE+8, UPDATE+16*, UPDATE+18
>> PSABFR UPDATE+4, FILE581+3, FILE581+4, FIND+3, FIND+7
>> PSABFR("Q" UPDATE+6, FILE581+3, FILE581+5
>> PSABFR(581 FILE581+2, LOCCHK+1
>> PSACHO VIEW+1*, VIEW+2
PSACLOC UPDATE+3~
>> PSACS NEW581+4, LOCCHK+2*
>> PSACSLOC LOCCHK+6
>> PSADATA DISPLN+1*, DISPLN+3, DRUG+5, DRUG+10, QTY+6, UPCOU+1, NDCPRICE+9, PROCSS+1*
PROCSS+2, LOCCHK+4, LOCCHK+8
>> PSADJ DRUG*, DRUG+1, DRUG+2, DRUG+5, DRUG+7*, DRUG+9, QTY+2*, QTY+3, OU+4*, OU+5
PRICE+1*, PRICE+2
>> PSADJD DRUG+3*, DRUG+4, DRUG+5, DRUG+6, DRUG+7, DRUG+8
>> PSADJO OU+4*, OU+5*, OU+7, OU+8
>> PSADJP PRICE+1*, PRICE+2*, PRICE+4, PRICE+5*, PRICE+7, PRICE+8
>> PSADJQ QTY+2*, QTY+3*, QTY+5, QTY+6
>> PSADJSUP DRUG+8*
>> PSADRG DRUG+5*, DRUG+6*, DRUG+7*, DRUG+8*, DRUG+10*, DRUG+11, DRUG+12, OU+3, VDU+1, STOCK
REORDERUPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8*, UPDATE+10, UPDATE+12, UPDATE+15, UPDATE+16
UPDATE+17, UPDATE+18, UPDATE+20, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27
UPDATE+28, FILE581+3, FILE581+4, FIND+3*, FIND+7*
>> PSADRUGN DISPLN+3*, DRUG+11*, DRUG+12*, VDU+1
>> PSADT UPDATE+9*
>> PSADUOU VDU*, UPDATE+8, NEW581+2
>> PSADUREC UPDATE+6*, UPDATE+8*, UPDATE+18, UPDATE+27, FILE581+4, FILE581+5, NEW581+2*
>> PSAFLD FIELDS*, FIELDS+1, FIELDS+2
>> PSAFLDS VIEW+4*, FIELDS
>> PSAIEN DISPLNDISPLN+1, DISPLN+2, DRUGDRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5
PRICE+1, PRICE+2, PROCSSPROCSS+1, LOCCHK+2, LOCCHK+5, LOCCHK+9
>> PSAIEN1 DISPLNDISPLN+1, DISPLN+2, DRUGDRUG+2, QTY+2, QTY+3, OU+2, OU+4, OU+5
PRICE+1, PRICE+2, PROCSSPROCSS+1, LOCCHK+2, LOCCHK+5, LOCCHK+9
>> PSAIN PROCSS+2
>> PSAINV VDU+1, REORDER+1
PSALINE PSAVERA1+5!, DISPLN*, DISPLN+1, DISPLN+2, DRUGDRUG+2, QTY+2, QTY+3, OU+2, OU+4
OU+5, PRICE+1, PRICE+2, VDU+1, REORDER+1, ASK+3*, PROCSSPROCSS+1, LOCCHK+5, LOCCHK+9
>> PSALINEN ASK+3*, VIEW*
>> PSALOC VDU+1, VDU+3, STOCKREORDERPROCSS+2*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8*, UPDATE+10
UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+15, UPDATE+16, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+20
UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+27, UPDATE+28, FILE581+3*, FIND+7*
PSALOCA UPDATE+3~, UPDATE+8, FIND+7, LOCCHK+6*, LOCCHK+10*
PSALOCB UPDATE+3~, FILE581+3, LOCCHK+1*
>> PSANCSLO LOCCHK+10
>> PSANDC NDC*, VDU+1, PROCSS+2*
>> PSANODE DRUG+2*, DRUG+3, QTY+3*, OU+5*, PRICE+2*
>> PSANQTY FILE581+3*, FILE581+4*
>> PSAODUOU UPDATE+6
>> PSAORD VDU+1, REORDER+1
>> PSAOU OU+1*, OU+3*, OU+7*, VDU+1
>> PSAOUT DISPLN+3*, VIEW+3*, FIELDS
>> PSAPCF FIELDS*
>> PSAPRICE PRICE+7*, PRICE+9*, VDU+1
>> PSAQTY QTY+5*, QTY+6*, VDU+1, UPDATE+6, UPDATE+8, NEW581+2
>> PSAREA FILE581+1*
>> PSAREORD VDU*, REORDER*, REORDER+1, UPDATE+21
>> PSASET VIEW+4*
>> PSASLN PSAVERA1+5*, VIEW
>> PSASTOCK VDU*, STOCK*, REORDER+1, UPDATE+20
>> PSASUB VDU*
>> PSASUP DRUG+4*, DRUG+5, DRUG+11, VDU+1*, PROCSS+1*
>> PSAT FIND*, FIND+1, FIND+2, NEW581*, NEW581+1, NEW581+3
>> PSATEMP DISPLN+2*, OU+2*, OU+3, VDU
>> PSAUPC UPC*, VDU+1
>> PSAVDUZ FILE581+1*
>> PSAVSN DISPLN+3*, VDU+1, PROCSS+2*
>> X UPDATE+12*, UPDATE+24*, UPDATE+25*, FIND+1*, NEW581+1*
>> Y VIEW+4, UPDATE+25
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