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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOHELP3

Package: Outpatient Pharmacy

Routine: PSOHELP3


Information

PSOHELP3 ;BHAM ISC/SAB - outpatient utility routine #4 ;2/17/93 18:00:36

Source Information

Source file <PSOHELP3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^%DT  C^%DTC  ^DIC  EN^DIQ1  ^DIR  
Kernel 2 ^%ZTLOAD  BMES^XPDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Outpatient Pharmacy 7 PSO RXCOST UPDATE  PSODIR  PSOHELP  PSONEW1  PSOORED1  PSOORNE1  PSOORNW2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
XREF ;code to create 'APD' xref on Drug Interaction file (#56)
PARTIAL ;
DELINS
DRUG ;selects drug and updates Rx file with cost (pso*7*20)
EN1
EN
SEC
EX
INSCHK(PSOINS) ;CHECK PATIENT INSTRUCTIONS/OTHER PATIENT INSTRUCTIONS ;*422
POST ;post install entry point. builds new "ADL" xref for file 52 pso*7*20
REFILL ;
OUT

External References

Name Field # of Occurrence
^%DT DRUG+12, DRUG+13
C^%DTC DRUG+10, EN1
^%ZTLOAD DRUG+24, POST+2
^DIC DRUG+4
EN^DIQ1 DRUG+7
^DIR DRUG+8, DRUG+20, DELINS+5
BMES^XPDUTL POST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Building 'APD' X-Ref."
  • Line Location: XREF+1
Function Call: WRITE
  • Prompt: !!,"This option will update the drug cost on all fills in the PRESCRIPTION"
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !,"file (#52) based on the selected date range and the current cost in the"
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !,"DRUG file (#50).",!
  • Line Location: DRUG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !!,"You can only go back One Year plus 120 days."
  • Line Location: DRUG+11
Function Call: WRITE
  • Prompt: !!,"Rxs Cost Update Queued",!
  • Line Location: DRUG+24
Function Call: WRITE
  • Prompt: !,"DEF: "_DEF
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: $C(7),!!?5,"OTHER PATIENT INSTRUCTIONS REQUIRED",!
  • Line Location: INSCHK+3
Function Call: WRITE
  • Prompt: $C(7),!!?5,"PATIENT INSTRUCTIONS REQUIRED",!
  • Line Location: INSCHK+4
Function Call: WRITE
  • Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=1:"OTHER PATIENT INSTRUCTIONS",1:"PATIENT INSTRUCTIONS")
  • Line Location: DELINS+3
Function Call: WRITE
  • Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",!
  • Line Location: DELINS+4
Routine Call
  • DIC
  • Line Location:
    • DRUG+4
Routine Call
  • DIR
  • Line Location:
    • DRUG+8
    • DRUG+20
    • DELINS+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DRUG+10
^PS(50.416 - [#50.416] XREF+4, XREF+5, XREF+6, XREF+7
^PS(55 - [#55] INSCHK+1, DELINS+1
^PS(56 - [#56] XREF+3, XREF+8*, SEC!, SEC+1*
^PSRX - [#52] EN+4*, EN1+2, REFILL+5, REFILL+6, PARTIAL+5, PARTIAL+6
^PSRX("AD" EN1+1, REFILL+2, REFILL+4, REFILL+6
^PSRX("ADL" EN+1, EN+3, EN1!, EN1+2*
^PSRX("ADP" PARTIAL+2, PARTIAL+4, PARTIAL+6

Label References

Name Line Occurrences
OUT DRUG+5, DRUG+20, DRUG+21, EN+5
PARTIAL EN+6
REFILL EN+6
SEC XREF+4, XREF+5, XREF+6, XREF+7

Naked Globals

Name Field # of Occurrence
^( XREF+4, XREF+5, XREF+6, XREF+7
^(0 XREF+3, EN1+2, REFILL+6*, PARTIAL+6*
^(2 EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DRUG+12*, DRUG+14!
%DT("A" DRUG+12*, DRUG+13*
%DT("B" DRUG+12*!
%DT(0 DRUG+12*, DRUG+13*
COST DRUG+7*, DRUG+8!, DRUG+12!, DRUG+14!, EN+4, OUT!, REFILL+6, PARTIAL+6
D2 XREF+4*, XREF+5*, XREF+6*, XREF+7*, EX!, SEC, SEC+1
DA XREF+3, XREF+8, SEC, SEC+1, DRUG+4!, DRUG+6*, DRUG+7!
DEF DRUG+10*, DRUG+12!, EN1*, EN1+1*, EN1+3!
>> DEL SEC
DIC DRUG+4!*, DRUG+6!*, DRUG+7!
DIC(0 DRUG+4*
DIQ DRUG+6!*, DRUG+7!
DIQ(0 DRUG+6*
DIR DRUG+7!, DRUG+8!, DRUG+20!, DELINS+2~, DELINS+8!
DIR("A" DRUG+8*, DRUG+20*, DELINS+5*
DIR("B" DRUG+8*, DRUG+20*, DELINS+5*
DIR(0 DRUG+8*, DRUG+20*, DELINS+5*
>> DIROUT DELINS+6
DIRUT DRUG+8, DRUG+20, OUT!, DELINS+2~, DELINS+8!
DR DRUG+6!*, DRUG+7!
DRG DRUG+6*, DRUG+8!, DRUG+12!, DRUG+14!, EN+3, EN+4, OUT!, REFILL+5, PARTIAL+5
DT DRUG+10, DRUG+16, EN1
>> DTOUT DRUG+12, DRUG+14, DELINS+6
>> DUOUT DRUG+4, DELINS+6
FAHD DRUG+15*, DRUG+16, EN+1, EN+2, OUT!, REFILL+2, REFILL+3, PARTIAL+2, PARTIAL+3
FBCK DRUG+13*, DRUG+14!, EN+1, OUT!, REFILL+2, PARTIAL+2
FDT EN+1*, EN+2, EN+3, EN+4, OUT!, REFILL+1~, REFILL+2*, REFILL+3, REFILL+4, REFILL+6
, PARTIAL+1~, PARTIAL+2*, PARTIAL+3, PARTIAL+4, PARTIAL+6
FILL REFILL+1~, REFILL+6*, PARTIAL+1~, PARTIAL+6*
FTY EN1+1*, EN1+3!
G DRUG+23*, OUT!
I OUT!
I1 XREF+4*, XREF+5*, XREF+6*, XREF+7*, EX!
I2 XREF+4*, XREF+7*, EX!
I3 XREF+5*, XREF+7*, EX!
I4 EX!
I5 XREF+5*, XREF+6*, EX!
I6 XREF+5*, XREF+6*, EX!
ID1 XREF+3*, XREF+4, XREF+5, XREF+6, XREF+7, EX!
ID2 XREF+3*, XREF+4, XREF+5, XREF+6, XREF+7, EX!
IFN EN1+1*, EN1+2, EN1+3!
PRI EX!
PS1 EX!
PS2 EX!
>> PSMSG XREF+4
>> PSODELINS DELINS+3, DELINS+7*
>> PSODFN INSCHK+1, DELINS+1
>> PSODONE DELINS+7*
PSODRG DRUG+7!
PSODRG(50 DRUG+7
PSOFUTR DRUG+16*, EN+2, OUT!, REFILL+3, PARTIAL+3
PSOINS INSCHK~
PSOINS("DFLG" INSCHK+2
PSOINS("INS" INSCHK+3, INSCHK+4
PSOINS("SINS" INSCHK+3, INSCHK+4
PSOQ DRUG+21*, EN, EN+3, OUT!
R2 XREF+4*, XREF+5*, XREF+6*, XREF+7*, EX!, SEC, SEC+1
REF DRUG+9*, DRUG+12!, DRUG+14!, EN+5, OUT!
RXN EN+3*, EN+4, OUT!, REFILL+1~, REFILL+4*, REFILL+5, REFILL+6, PARTIAL+1~, PARTIAL+4*, PARTIAL+5
, PARTIAL+6
TOT XREF+3*, XREF+8, EX!, SEC+1*
X DRUG+4!, DRUG+8!, DRUG+10, DRUG+12!, DRUG+14!, DRUG+20!, OUT!, EN1, EN1+3!, DELINS+2~
, DELINS+6*
>> X1 DRUG+10*, EN1*
>> X2 DRUG+10*, EN1*
Y DRUG+4!, DRUG+5, DRUG+6, DRUG+8!, DRUG+9, DRUG+10*, DRUG+12!, DRUG+13, DRUG+14!, DRUG+15
, DRUG+20!, DRUG+21, OUT!, EN1+3!, DELINS+2~, DELINS+6*, DELINS+7
>> ZTDESC DRUG+22*, POST+1*
ZTDTH DRUG+21!, POST+2*
>> ZTIO DRUG+22*, POST+1*
>> ZTQUEUED OUT
>> ZTREQ OUT*, EN1+3*
>> ZTRTN DRUG+22*, POST+1*
>> ZTSAVE( DRUG+23*
ZTSK DRUG+24!, POST+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All