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

Package: Drug Accountability

Routine: PSADJ


Information

PSADJ ;BIR/LTL,JMB-Balance Adjustments ;8/21/97

Source Information

Source file <PSADJ.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  NOW^%DTC  ^DIC  ^DIE  ^DIR  
Drug Accountability 3 ^PSADJR  SITES^PSAUTL1  ^PSAUTL3  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA BALANCE ADJUSTMENTS  

Entry Points

Name Comments DBIA/ICR reference
LOC ;Gets locations to have adjustments
OK
ADJDATE ;Extended help for "Adjustment date"
BGN
TR
DRUG ;Selects location's drug and processes adjustment
QTY ;Extended help for "Adjustment quantity"
REASON ;Extended help for "Adjustment reason"
EXIT ;Kills all variables
MON
PSA12 ;Patch PSA*3*12
DONE
POST
ADJ ;Extended help for "Review drug adjustment history" at PSADJ+2
FIND

External References

Name Field # of Occurrence
^%DT PSA12+4
DD^%DT DRUG+14
NOW^%DTC POST+8
^DIC DRUG+3, MON+3, FIND+2, FIND+7, BGN+4
^DIE MON+10, FIND+4, BGN+8
^DIR PSADJ+8, DRUG+10, DRUG+12, DRUG+16, POST+2
^PSADJR PSADJ+8
SITES^PSAUTL1 LOC+5
^PSAUTL3 LOC+1
SIG^XUSESIG PSADJ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: POST+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: POST+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: MON+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+4
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: FIND+7
Function Call: WRITE
  • Prompt: !,"Enter yes to print all adjustments for this drug on the screen",!,"or printer. You can enter an adjustment after the report prints."
  • Line Location: ADJ+1
Function Call: WRITE
  • Prompt: !!,"Enter no to bypass the report and make an adjustment."
  • Line Location: ADJ+2
Function Call: WRITE
  • Prompt: !,"If the adjustment pertains today, press the Return key.",!!,"If the adjustment is for a previous date, enter that date."
  • Line Location: ADJDATE+1
Function Call: WRITE
  • Prompt: !,"Today's date will be recorded as the date the adjustment was made."
  • Line Location: ADJDATE+2
Function Call: WRITE
  • Prompt: !,"Enter yes to record this adjustment. The adjustment quantity will be subtracted",!,"from or added to the drug's current balance. The transaction will be recorded"
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !,"in the activity log and the monthly balance will be adjusted.",!!,"Enter no to abort the adjustment process and return to the menu."
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !,"Enter the quantity to be added or subtracted from the current balance.",!,"If the quantity should be subtracted from the balance, enter a minus"
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !,"sign '-' before the quantity.",!!,"For example: -10 or -150 will be subtracted from the balance.",!?14,"10 or 150 will be added to the balance."
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !,"Enter the reason you are changing the current balance."
  • Line Location: REASON+1
Function Call: WRITE
  • Prompt: !,"Updating "
  • Line Location: BGN+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: BGN+3
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: DONE+2
Routine Call
  • DIE
  • Line Location:
    • MON+10
    • FIND+4
    • BGN+8
Routine Call
  • DIC
  • Line Location:
    • DRUG+3
    • MON+3
    • FIND+2
    • FIND+7
    • BGN+4
Routine Call
  • DIR
  • Line Location:
    • PSADJ+8
    • DRUG+10
    • DRUG+12
    • DRUG+16
    • POST+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BGN+3
^PSD(58.8 - [#58.8] DRUG+6, POST+5, POST+7, POST+9, POST+10*, POST+11, MON, MON+1, MON+9, FIND+5
, BGN+4, BGN+7, DONE*, DONE+1*
^PSD(58.81 - [#58.81] TR, FIND, FIND+1
^PSDRUG - [#50] DRUG+5

Label References

Name Line Occurrences
BGN BGN+9
DONE BGN+2
DRUG LOC+5
EXIT PSADJ+8, PSADJ+9, LOC+1, LOC+3
FIND FIND
PSA12 MON+7

Naked Globals

Name Field # of Occurrence
^(0 POST+5, POST+9, MON*, MON+9, FIND*, FIND+5*, BGN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, POST+8
%DT EXIT+1!
%ZIS EXIT+1!
D0 EXIT+1!
D1 EXIT+1!
DA EXIT+1!, MON+8*, MON+9, FIND+4*, FIND+7!, BGN+4*, BGN+5*, BGN+7, BGN+9!
DA(1 DRUG+2*, MON+3*, MON+8*, FIND+7*, BGN+4*, BGN+6*
DA(2 MON+3*, MON+8*, FIND+7*, BGN+4*, BGN+6*
DD EXIT+1!, MON+2!, MON+3!, FIND+1!, FIND+4!
DIC EXIT+1!, DRUG+1*, DRUG+3!, MON+2*, MON+3!, FIND+1!, FIND+2*!, FIND+6*, FIND+7!, BGN+4*
DIC("A" DRUG+1*
DIC("DR" MON+2*
DIC("S" DRUG+2*
DIC(0 DRUG+1*, MON+2*, FIND+2*, FIND+6*, BGN+4*
DIE EXIT+1!, MON+8*, FIND+4*!, BGN+6*
DINUM EXIT+1!, MON+2*, FIND+6*, BGN+4*
DIR PSADJ+8!, EXIT+1!, DRUG+10!, DRUG+12!, DRUG+16!, POST+2!
DIR("?" PSADJ+7*, DRUG+9*, DRUG+12*, DRUG+15*, POST+1*
DIR("??" PSADJ+8*, DRUG+9*, DRUG+12*, DRUG+15*, POST+2*
DIR("A" PSADJ+7*, DRUG+8*, DRUG+12*, DRUG+15*, POST+1*
DIR("B" PSADJ+7*, DRUG+15*, POST+1*
DIR(0 PSADJ+7*, DRUG+8*, DRUG+12*, DRUG+15*, POST+1*
DIRUT PSADJ+8, EXIT+1!, POST+3
DLAYGO MON+3*!, FIND+2*!, FIND+7*!, BGN+4*
DO EXIT+1!, MON+2!, MON+3!, FIND+1!, FIND+4!
DR EXIT+1!, MON+9*, FIND+3*, BGN+7*
DT DRUG+14, DRUG+15, PSA12+1
DTOUT PSADJ+8, EXIT+1!, DRUG+3, DRUG+10, DRUG+13, DRUG+16, POST+3
DUOUT PSADJ+8, EXIT+1!, DRUG+3, DRUG+10, DRUG+13, DRUG+16
PSA EXIT+1!
PSACHK LOC+2*, LOC+3, EXIT+1!
PSACNT LOC+1*, LOC+2*, EXIT+1!
PSACOMB EXIT+1!
>> PSADAV BGN+1*
>> PSADAV1 BGN+1*
>> PSADAV2 BGN+1*
PSADJDT EXIT+1!, DRUG+14*, DRUG+15, DRUG+17*, MON+1, MON+2, MON+8, FIND+3, PSA12+1, PSA12+5
>> PSADJDT1 PSA12+5*, BGN*, BGN+1*, BGN+2, BGN+3, BGN+4, BGN+5
PSADRUG EXIT+1!, DRUG+5*, DRUG+6, POST+4!, POST+5, POST+7, POST+9, POST+10, POST+11, MON
, MON+1, MON+2, MON+3, MON+8, MON+9, FIND+5, FIND+7!, BGN+4, BGN+6, BGN+7
, DONE, DONE+1
PSADRUGN EXIT+1!, DRUG+5*
PSADT EXIT+1!, POST+8*, FIND+3, DONE, DONE+1
>> PSAENDDT PSA12+4*, BGN+2
PSAIEN EXIT+1!
PSAISIT EXIT+1!
PSAISITN EXIT+1!
PSALOC LOC+3, LOC+4*, EXIT+2!, DRUG+2, DRUG+6, POST+5, POST+7, POST+9, POST+10, POST+11
, MON, MON+1, MON+2, MON+3, MON+8, MON+9, FIND+5, FIND+7, BGN+4, BGN+6
, BGN+7, DONE, DONE+1
PSALOC( LOC+4, LOC+6
PSALOC("" LOC+2
PSALOCA EXIT+2!
PSALOCN LOC+4*, LOC+6, EXIT+2!, DRUG+3
PSAOUT LOC+1*, LOC+4, LOC+6*, EXIT+2!, DRUG+1, DRUG+3*, DRUG+10*, DRUG+13*, DRUG+16*, POST+3*
PSAQ EXIT+2!, DRUG+6*, DRUG+7, POST+9*, POST+10
PSAR EXIT+2!, DRUG+14*
PSAREC EXIT+2!, DRUG+11*, POST+5, POST+10, MON+9, BGN+7, DONE
PSASEL EXIT+2!
PSAT EXIT+2!, FIND*, FIND+2, FIND+4, FIND+6
PSAX LOC+6*, LOC+7!
X EXIT+2!, DRUG+3, DRUG+4, MON+2*, FIND+2*, FIND+6*, PSA12+4*, BGN+4*
X1 PSADJ+9, EXIT+2!
X2 EXIT+2!
Y PSADJ+8, EXIT+2!, DRUG+3, DRUG+4, DRUG+5, DRUG+10, DRUG+11, DRUG+13, DRUG+14*, DRUG+17
, POST+3, POST+4, PSA12+4, BGN+3*, BGN+4
ZTDESC EXIT+2!
ZTDTH EXIT+2!
ZTIO EXIT+2!
ZTRTN EXIT+2!
ZTSAVE EXIT+2!
ZTSK EXIT+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