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

Package: Outpatient Pharmacy

Routine: PSODIR2


Information

PSODIR2 ;IHS/DSD/JCM - rx order entry contd ;Apr 08, 2020@14:45:14

Source Information

Source file <PSODIR2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 DD^%DT  (C,NOW)^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 4 JUMP^PSONEW1  JUMP^PSONEW3  JUMP^PSORENW3  GETPARK^PSORPC01  

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

Package Total Caller Graph
Outpatient Pharmacy 11 PSOBKDED  PSODIR1  PSONEW1  PSONEW3  PSONRXN  PSOORFI2  PSOORNW2  PSOREF1  
PSORENW  PSORENW3  PSORENW4  

Entry Points

Name Comments DBIA/ICR reference
EXP(PSODIR) ;
EXPX
CLINIC(PSODIR) ;
CLINICX
MW(PSODIR) ;
MW0
MW1
MWX
RMK(PSODIR) ;
RMKEN
RMKX
ISSDT(PSODIR) ;
ISSDTX
FILLDT(PSODIR) ;
FILLDTX
CLERK(PSODIR) ;
CLERKX
DIR ;
DIRX
JUMP ;
JUMPX
RFRSET ;
FILLDTPK ; If parked, don't prompt for fill date, but save it to be set to next possible fill date when filed 441 PAPI

External References

Name Field # of Occurrence
DD^%DT FILLDTPK+3
C^%DTC FILLDT+14
NOW^%DTC FILLDTPK+1
^DIC JUMP+2
$$GET1^DIQ MW+10, MW+12
^DIR CLINIC+3, DIR+3
JUMP^PSONEW1 JUMP+4
JUMP^PSONEW3 JUMP+5
JUMP^PSORENW3 JUMP+6
GETPARK^PSORPC01 MW+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Cannot jump to another field ..",!
  • Line Location: MW1+4
Function Call: WRITE
  • Prompt: !,"Cannot jump to another field ..",!
  • Line Location: RMKEN+4
Function Call: WRITE
  • Prompt: !,VALMSG,!
  • Line Location: RFRSET+7
Routine Call
  • DIC
  • Line Location:
    • JUMP+2
Routine Call
  • DIR
  • Line Location:
    • CLINIC+3
    • DIR+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EXP+2, ISSDT+3, ISSDT+7, FILLDT+14, FILLDT+17, FILLDT+23
^PS(53 - [#53] FILLDT+9
^PSRX - [#52] RFRSET+3
^VA(200 - [#200] CLERK+2, CLERK+4

Label References

Name Line Occurrences
CLERKX CLERK+1, CLERK+5
CLINICX CLINIC+3
DIR EXP+6, MW0, MW1+3, RMKEN+3, ISSDT+5, FILLDT+21, CLERK+5
DIRX DIR+2, DIR+3, DIR+4, DIR+5
EXPX EXP+6
FILLDTPK FILLDT+16
FILLDTX FILLDT+16, FILLDT+21
ISSDTX ISSDT+5
JUMP DIR+6
JUMPX JUMP+3, JUMP+4, JUMP+5, JUMP+6
MW0 MW+13, MW+14, MW+15
MW1 MW1+4
MWX MW0, MW0+1, MW1, MW1+3
RMKEN RMKEN+4
RMKX RMKEN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FILLDT+8~*, FILLDT+9*, FILLDTPK+2
>> CLOZFLG FILLDT+12
DA DIR+3!
DIC EXP+1!, CLINIC+1!, CLINICX!, MW+1!, RMKEN!, ISSDT+1!, FILLDT+1!, CLERK+3!, DIR+3!, JUMP+2*!
DIC(0 JUMP+2*
DIE DIR+3!
DIR EXP+1!, CLINIC+1!, MW+1!, RMKEN!, ISSDT+1!, FILLDT+1!, CLERK+3!, DIR+3!
DIR("?" EXP+5*, FILLDT+18*, FILLDT+19*, FILLDT+20*
DIR("A" EXP+3*, CLINIC+2*, MW+14*, MW+15*, MW+18*, MW+19*, ISSDT+2*, FILLDT+3*, CLERK+4*
DIR("B" EXP+3*, CLINIC+2*, MW+4*, MW+13*, MW1+2*, RMKEN+2*, ISSDT+2*, ISSDT+3*, FILLDT+3*, FILLDT+14*
, CLERK+4*
DIR(0 EXP+4*, CLINIC+2*, MW+3*, MW+14*, MW+15*, MW+18*, MW+19*, MW1+1*, RMKEN+1*, ISSDT+4*
, FILLDT+15*, CLERK+4*, DIR+2
DIROUT DIR+4, DIRX!
DIRUT DIRX!
DT FILLDT+5, FILLDT+14, FILLDT+15
DTOUT DIR+4, DIR+5, DIRX!
DUOUT DIR+4, DIR+5, DIRX!
DUZ CLERK+2, CLERK+4
DUZ("AG" FILLDT+15, CLERK+1
>> LST MW+7, MW+8
>> OR0 MW+3, CLERK+2, JUMP+1
>> POERR MW+3, ISSDT+2
PSOCLOZ MW+1!, MW+12*, MW+15
PSODEAHD MW+1!, MW+12*, MW+13, MW+14
PSODIR EXP~, CLINIC~, MW~, RMK~, ISSDT~, FILLDT~, CLERK~
PSODIR("# OF REFILLS" , RFRSET+5*
PSODIR("CLERK CODE" , CLERK+2*, CLERK+6*
PSODIR("CLINIC" CLINIC+4*, CLINIC+5*
PSODIR("CS" FILLDT+6
PSODIR("DFLG" EXP+6, CLINIC+3, MW0, MW0+1*, MW1+3, RMKEN+3, ISSDT+5, FILLDT+21, CLERK+5, DIR+3*
, DIR+4*, DIR+5*, JUMP+1*
PSODIR("EXPIR ATION DATE" , EXP+7*
PSODIR("FIELD" EXP+6, CLINIC+1*, CLINIC+3, MW0, ISSDT+5, FILLDT+21, CLERK+5, DIR+1*, JUMP+3*, RFRSET+4*
PSODIR("FILL DATE" , FILLDT+22*, FILLDTPK+4*
PSODIR("FLD" MW+18, MW+19, JUMP+3
PSODIR("IRXN" RFRSET+3
PSODIR("ISSUE DATE" , ISSDT+2, ISSDT+6*, ISSDT+7*, FILLDT+15
PSODIR("MAIL/WINDOW" MW+2, MW0+2*, MW0+3, MW1, FILLDT+16
PSODIR("METHO D OF PICK-UP" , MW0+3!, MW1+5*
PSODIR("QFLG" DIR+3*, DIR+4*
PSODIR("REMARKS" RMKEN+2, RMKEN+5*, RMKEN+6*
>> PSODRUG("DEA" MW+4, MW+13, MW+14
>> PSODRUG("EXPI RATION DATE" , EXP+2
>> PSODRUG("NAME" MW+4, MW+14
>> PSOEDIT JUMP+1
PSOFDMX FILLDT+14*, FILLDT+15, FILLDT+17, FILLDTX!
>> PSOFDR CLERK+2
>> PSOFROM MW+4, MW+14
>> PSOID ISSDT+6*, FILLDT+5, FILLDT+14, FILLDT+15
PSOIEN50 MW+1!, MW+10*, MW+11, MW+12
PSOIEN52 MW+1!, MW+8*, MW+9, MW+10
>> PSOLST MW+6
>> PSOLST( MW+8
>> PSONEW("# OF REFILLS" , FILLDT+2*, FILLDT+4, FILLDT+12
>> PSONEW("DAYS SUPPLY" , FILLDT+2*, FILLDT+4, FILLDT+6, FILLDT+12
>> PSONEW1 JUMP+4
>> PSONEW3 JUMP+5
>> PSOPAR MW1
PSOPARKX MW+16~
PSOPARKX(0 MW+18, MW+19
>> PSORENW3 JUMP+6
>> PSORX("CLERK CODE" , CLERK+2*, CLERK+4, CLERK+6*
>> PSORX("CLINIC" CLINIC+2, CLINIC+4*, CLINIC+5*
>> PSORX("EDIT" MW0+3
>> PSORX("EXPIRA TION DATE" , EXP+2*, EXP+3
>> PSORX("FILL D ATE" , FILLDT+3, FILLDT+23*, FILLDTPK+5*
>> PSORX("ISSUE DATE" , ISSDT+2, ISSDT+7*, FILLDT+14
>> PSORX("MAIL/WINDOW" MW+2*, MW+3*, MW+4, MW0+2*
>> PSORX("METHOD OF PICK-UP" , MW1+2, MW1+5*
>> PSORX("PATIEN T STATUS" , FILLDT+8
>> PSOTPBFG MW+4
PSOX CLINICX!, DIRX!
RESULTS MW+16~, MW+17*
RFN RFRSET+1~, RFRSET+2*, RFRSET+3*
RFNC RFRSET+1~, RFRSET+2*, RFRSET+3*, RFRSET+5
>> SPEED MW+6, DIR+4, DIR+5
U MW+8, MW1+4, RMKEN+4, DIR+6
>> VALMSG RFRSET+6*, RFRSET+7
X EXPX!, CLINICX!, MW1+4, MWX!, RMKEN+4, RMKEN+5, RMKEN+6, RMKX!, ISSDTX!, FILLDT+14
, FILLDTX!, DIR+3, DIR+4, DIR+6, JUMP+2*, JUMPX*, FILLDTPK+4
>> X1 FILLDT+5*
>> X2 FILLDT+4*, FILLDT+6*, FILLDT+7, FILLDT+8*, FILLDT+9*, FILLDT+12*
Y EXP+2*, EXP+7, EXPX!, CLINIC+4, CLINICX!, MW0+2, MW1+5, MWX!, RMKX!, ISSDT+3*
, ISSDT+6, ISSDT+7, ISSDTX!, FILLDT+14*, FILLDT+17*, FILLDT+20, FILLDT+22, FILLDT+23, FILLDTX!, CLERK+6
, DIR+4, JUMP+3, FILLDTPK+2*, FILLDTPK+5
Y(0 MW0+1, MW0+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 |  Local Variables  | All