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

Package: Drug Accountability

Routine: PSAVERA3


Information

PSAVERA3 ;BHM/DB - RECORD TRANSACTION & UPDATE DRUG FILE;31JAN00

Source Information

Source file <PSAVERA3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Drug Accountability 2 PSANDC1^PSAHELP  RECORD^PSAVER2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSAVERA  

Entry Points

Name Comments DBIA/ICR reference
Q
OU
UPDATE ;update file
DRG

External References

Name Field # of Occurrence
^DIC OU+1, UPDATE+9
^DIE UPDATE+6, UPDATE+10, UPDATE+13
^DIR OU+6
PSANDC1^PSAHELP UPDATE+5
RECORD^PSAVER2 UPDATE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No change."
  • Line Location: OU+2
Function Call: WRITE
  • Prompt: !,"Old Dispense Units Per Order Unit: "_$P($G(^PSDRUG(PSADRG,660)),"^",5),?45,"Price Per Disp. Unit: "_$J($P($G(^PSDRUG(PSADRG,660)),"^",6),8,2)
  • Line Location: DRG+1
Function Call: WRITE
  • Prompt: !,"New Dispense Units Per Order Unit: "_PSANDUOU
  • Line Location: DRG+2
Function Call: WRITE
  • Prompt: ?45," unchanged "
  • Line Location: DRG+3
Function Call: WRITE
  • Prompt: ?64,$J((PSAPRICE/PSANDUOU),8,2)
  • Line Location: DRG+4
Function Call: WRITE
  • Prompt: !,"Updating Drug File's Synonym data"
  • Line Location: UPDATE+8
Function Call: WRITE
  • Prompt: !,"Updating Drug File's Dispense Units Per Order Unit & Price Per Dispense Unit"
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: !,"making adjustment in DRUG ACCOUNTABILITY ORDER file"
  • Line Location: UPDATE+15
Function Call: WRITE
  • Prompt: !,"TAKING A BREAK !?"
  • Line Location: UPDATE+16
Routine Call
  • DIE
  • Line Location:
    • UPDATE+6
    • UPDATE+10
    • UPDATE+13
Routine Call
  • DIC
  • Line Location:
    • OU+1
    • UPDATE+9
Routine Call
  • DIR
  • Line Location:
    • OU+6

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)
^PSD(58.811 - [#58.811] OU+8*
^PSDRUG - [#50] OU+3, DRG, DRG+1, DRG+3, UPDATE+6, UPDATE+9

Label References

Name Line Occurrences
Q OU+1, OU+2, OU+6
UPDATE DRG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA UPDATE+6*, UPDATE+10*
>> DA(1 UPDATE+9*, UPDATE+10*, UPDATE+13
>> DATA DRG*
>> DIC OU*, UPDATE+9*
>> DIC("A" OU*
>> DIC(0 OU*, UPDATE+9*
DIE UPDATE+6*, UPDATE+10*, UPDATE+12!, UPDATE+13*
DIR OU+6!
DIR("?" OU+5*
DIR("??" OU+5*
DIR("A" OU+4*
DIR("B" OU+3*
DIR(0 OU+4*
>> DLAYGO UPDATE+9*
DR UPDATE+6*, UPDATE+10*, UPDATE+12!, UPDATE+13*
>> DTOUT OU+6
>> DUOUT OU+6
NDC0 UPDATE+3*!, UPDATE+4
>> PSAAOU OU+2
>> PSADASH UPDATE+5*, UPDATE+6
>> PSADJ UPDATE+14*
>> PSADJFLD UPDATE+14*
>> PSADRG OU+3, DRG, DRG+1, DRG+3, UPDATE+6, UPDATE+9, UPDATE+10
>> PSAIEN OU+8
>> PSAIEN1 OU+8
>> PSALINE OU+8
>> PSANDC DRG, UPDATE+1, UPDATE+2*, UPDATE+3, UPDATE+4*, UPDATE+9
PSANDCX UPDATE+5!
>> PSANDUOU OU+7*, DRG+2, DRG+3, DRG+4, UPDATE+7
>> PSANPDU UPDATE+7*
>> PSAOU OU+1*, OU+2, UPDATE+14
>> PSAOUT OU+6*
>> PSAPRICE DRG+4, UPDATE+7
>> PSAREA UPDATE+14*
>> PSASET OU+8*
PSASUB DRG!*, UPDATE+9*, UPDATE+10
>> X UPDATE+2*, UPDATE+3*, UPDATE+9*
>> X1 DRG*, UPDATE+2*
>> Y OU+1, OU+7, OU+8, UPDATE+9
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