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

Package: Inpatient Medications

Routine: PSJRXI


Information

PSJRXI ; IHS/DSD,JCM,RLW - LOGS PHARMACY INTERVENTIONS ;15 May 98 9:28 AM

Source Information

Source file <PSJRXI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 (,$$FIND1,FIND)^DIC  FILE^DICN  ^DIE  ^DIR  
Inpatient Medications 2 PAUSE^PSJLMUT1  ($$DATE,$$DATE2)^PSJUTL2  

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

Package Total Caller Graph
Inpatient Medications 4 PSGSICHK  PSJCROC  PSJDPT  PSJGMRA  
Outpatient Pharmacy 1 PSODGAL1  

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INIT ;
DIC ;
DICX ;
DIE ;
EDIT ;
EDITX
EOJ ;
EN1(PSJORDER) ; Entry Point if have internal rx #
EN1X
EN3(PSJIVDST,CDRG2) ; Entry Point for Clinical Reminders
EN3X
LOOK ;Find Internal Number of 32.3 file

External References

Name Field # of Occurrence
^DIC DIE+6, DIE+16
$$FIND1^DIC LOOK+1
FIND^DIC DIC+3
FILE^DICN DIC+9
^DIE DIE+4, DIE+9, DIE+18
^DIR DIE+8, EDIT+1
PAUSE^PSJLMUT1 DICX+3, DIE+20
$$DATE^PSJUTL2 DIE+14
$$DATE2^PSJUTL2 DIE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now creating Pharmacy Intervention",!
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: "For ",$P($G(^PSDRUG(PSJDD,0)),"^"),!
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !!,"Unable to log an intervention for ",$G(PSJRXREQ)
  • Line Location: DICX+2
Function Call: WRITE
  • Prompt: !,"Sorry, someone else is editing this intervention!"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",!
  • Line Location: DIE+20
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+4
Routine Call
  • DIC
  • Line Location:
    • DIE+6
    • DIE+16
Routine Call
  • DIC
  • Line Location:
    • LOOK+1
Routine Call
  • DIC
  • Line Location:
    • DIC+3
Routine Call
  • DIE
  • Line Location:
    • DIE+4
    • DIE+9
    • DIE+18
Routine Call
  • DIR
  • Line Location:
    • DIE+8
    • EDIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSPQA(32.3 - [#9009032.3] FIND1^DIC,  FIND^DIC
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls
^APSPQA(32.5 - [#9009032.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPQA(32.4 - [#9009032.4] START+5, DIE+3, DIE+15, DIE+19
^DD("DILOCKTM" DIE+3
^PS(53.1 - [#53.1] EN1+4, EN1+8
^PSDRUG - [#50] INIT+2, DIE+12
^TMP("PSJINTER" DIE+13, DIE+14*

Label References

Name Line Occurrences
DIC START+3
DICX DIC+5, DIC+12
DIE DIC+13, EDIT+2
EDIT START+4, EDIT+3
EDITX EDIT+1
EN1X EN1+4
END START+3
EOJ END
INIT START+2
START EN1+9, EN3+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CDRG2 EN3~, EN3+5, EN3+6!
DA DIC+1~, DIC+9!, DIE+1!, DIE+2*, DIE+4!, DIE+9*, DIE+11!, DIE+18*!
DD DIC+1~
>> DFN EN1+2
DIC DIC+1~, DIC+6*, DIC+9!, DIE+1!, DIE+4!, DIE+6!*, DIE+11!, DIE+16*, DIE+18!
DIC("DR" DIC+7*, DIC+8*
DIC(0 DIC+6*, DIE+6*, DIE+16*
DIE DIE+1!, DIE+2*, DIE+4!, DIE+9*, DIE+11!, DIE+18*!
DIR DIE+7~, EDIT+1!
DIR("?" DIE+7*
DIR("A" DIE+7*, EDIT+1*
DIR("B" EDIT+1*
DIR(0 DIE+7*, EDIT+1*
>> DIRUT EDIT+1
>> DLAYGO DIC+6*
DO DIC+1~
DR DIC+1~, DIC+9!, DIE+1!, DIE+2*, DIE+4!, DIE+9*, DIE+11!, DIE+18*!
DT DIC+6
DUZ DIC+7
>> PSGDT DIE+14
>> PSGP DIC+7
>> PSJAADPT DIE+2, DIE+5
>> PSJDAL EOJ+1
>> PSJDAL("DA" EOJ+1*
>> PSJDD INIT+2, DIC+7, DIE+12, EN3+5*
PSJDFN EN1+3~, EN1+7*
PSJDRUG EN1+3~, EN1+8*
PSJDRUG("IEN" EN1+8*
PSJINTOI DIE+1~, DIE+12*, DIE+14
PSJIVDSN EN3+2~*, EN3+6!
PSJIVDST EN3~, EN3+4, LOOK+1
PSJNEW EN1+3~
PSJNEW("PROVIDER" START+5*, EN1+7*
PSJORDER EN1~, EN1+2*, EN1+5, EN1+6, EN1+8
PSJOVRS DIE+1~, DIE+16*
PSJQREC DIE+5~*, DIE+6*, DIE+8*, DIE+9, DIE+10*
PSJRECOM DIE+1~, DIE+15*, DIE+16, DIE+17
PSJRXI INIT+3!, EOJ+2!
PSJRXI("DA" START+5, DIC+11*, DIE+2, DIE+3, DIE+9, DIE+13, DIE+14, DIE+15, DIE+18, DIE+19
EOJ+1
PSJRXI("EDIT" DIE+2, EDIT+2*
PSJRXI("IRXN" EN1+5*, EN1+8
PSJRXI("QFLG" START+3, INIT+4*, DIC+12*
PSJRXIEN DIC+1~, DIC+4*, DIC+5, DIC+8, LOOK+1*
PSJRXIEN("DILIST" DIC+4
>> PSJRXREQ DIC+2*, DIC+3, DICX+2, DIE+14, EN3+4*
>> PSJSITE DIC+8
PSJTMPDT DIE+1~, DIE+13*, DIE+14
>> PSJX EN1+1, EN1+4
PSJY DIC+1~, DIC+5*, DIC+10*, DICX+1, EN1+3~, EN1+6!*, EN1+7
SAVEX START+1~*, EOJ+2
SAVEY START+1~*, EOJ+2
X START+1, DIC+1~, DIC+6*, DICX+4!, DIE+4!, DIE+6*, DIE+11!, DIE+16*, DIE+18!, EDITX!
EOJ+2*
Y START+1, DIC+1~, DIC+10, DIC+11, DICX+4!, DIE+4!, DIE+6, DIE+10, DIE+11!, DIE+16*
DIE+18!, EDIT+1, EDITX!, EOJ+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