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

Package: Outpatient Pharmacy

Routine: PSORXI


Information

PSORXI ;IHS/DSD/JCM - logs pharmacy interventions ;03/19/93 11:56

Source Information

Source file <PSORXI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 6 $$FIND1^DIC  FILE^DICN  (,FILE)^DIE  ^DIK  ($$GET1,EN,GETS)^DIQ  ^DIR  

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

Package Total Caller Graph
Outpatient Pharmacy 9 PSOCROC  PSODDPR2  PSODGAL1  PSODGDG1  PSODGDGI  PSODGDGP  PSODOSUT  PSODRG  
PSOOCPGX  

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INIT ;
DIC ;
DICX
DIE ;
EDIT ;
EDITX
DUPINV ;Duplicate and file intervention
EOJ ;
EN1(PSOX) ; Entry Point if have internal rx #
EN1X ;
EN2(PSOIVDST,PSOX) ; Entry Point for dose interventions with a prescription
EN2X
EN3(PSOIVDST) ; Entry Point for dose interventions without a prescription
EN3X
ENPGX(PSOIVDST,PSORXIEN) ; entry point for PGx interventions ; pso*7*737
; PSOIVDST = APSP intervention type (external representation)
; PSORXIEN = Prescription IEN from file 52 (populated for VERIFY and REINSTATE actions only)
LOOK ;Find Internal Number of 32.3 file

External References

Name Field # of Occurrence
$$FIND1^DIC LOOK+1
FILE^DICN DIC+5, DUPINV+8
^DIE DIE+3
FILE^DIE DUPINV+16
^DIK DUPINV+18
$$GET1^DIQ DIC+4
EN^DIQ DUPINV+19
GETS^DIQ DUPINV+3
^DIR EDIT+1

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(PSODRUG("IEN"),0)),"^"),!
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",!
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITX+0
Function Call: WRITE
  • Prompt: !,"Error Retrieving Last Duplicate..."
  • Line Location: DUPINV+4
Function Call: WRITE
  • Prompt: !,"Error Encountered Filing Duplicate..."
  • Line Location: DUPINV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPINV+19
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN2+6
Routine Call
  • DIC
  • Line Location:
    • LOOK+1
Routine Call
  • DIE
  • Line Location:
    • DIE+3
Routine Call
  • DIE
  • Line Location:
    • DUPINV+16
Routine Call
  • DIR
  • Line Location:
    • EDIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^APSPQA(32.3 - [#9009032.3] FIND1^DIC
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPQA(32.4 - [#9009032.4] START+3, DIE+3, DUPINV+5, DUPINV+9
^DD("DILOCKTM" DIE+3, DUPINV+5
^PSDRUG - [#50] INIT+2
^PSRX - [#52] EN1+2, EN1+3, EN2+6, EN2+7
^TMP($J DUPINV+2, DUPINV+11*

Label References

Name Line Occurrences
DIC START+1
DICX DIC+7
DIE DIC+8, EDIT+2
EDIT START+2, EDIT+2, DUPINV+19
EDITX EDIT+1
EN1X EN1+2
EN2X EN2+6
END START+1
EOJ END
INIT START+1
LOOK EN2+4, EN3+3, ENPGX+3
START DUPINV+4, DUPINV+16, EN1+5, EN2+9, EN3+4, ENPGX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DIC+1!, DIC+5!, DIE+1!, DIE+2*, DIE+3!, DUPINV+1~, DUPINV+6!, DUPINV+11*, DUPINV+13, DUPINV+14
, DUPINV+15, DUPINV+18*
DD DIC+1!, DUPINV+6!
DIC DIC+1!*, DIC+5!, DIE+1!, DIE+3!, DUPINV+1~, DUPINV+2*, DUPINV+6!, DUPINV+7*
DIC("DR" DIC+2*, DIC+3*, DIC+4*
DIC(0 DIC+1*, DUPINV+2*, DUPINV+7*
DIE DIE+1!, DIE+2*, DIE+3!
DIK DUPINV+18~*
DIR EDIT+1!
DIR("A" EDIT+1*
DIR("B" EDIT+1*
DIR(0 EDIT+1*
>> DIRUT EDIT+1
DLAYGO DIC+1*, DUPINV+1~, DUPINV+7*
DO DIC+1!, DUPINV+6!
DR DIC+1!, DIC+5!, DIE+1!, DIE+2*, DIE+3!, DUPINV+6!
DT DIC+1, DUPINV+7
DUP DUPINV+1~, DUPINV+2*, DUPINV+3, DUPINV+12, DUPINV+13
DUZ DIC+2
PSOARY DUPINV+1~
PSOARY( DUPINV+12, DUPINV+13
PSOARYC DUPINV+1~
PSOARYC( DUPINV+13*, DUPINV+14*, DUPINV+15*
PSODA DUPINV+1~
>> PSODAL DIC+6
>> PSODAL("DA" DIC+6*
PSODFN DIC+2, DUPINV+2, DUPINV+11, EN1+1~, EN1+4*, EN2+5~, EN2+8*
PSODRUG EN1+1~, EN2+5~
PSODRUG("IEN" INIT+2, DIC+2, DUPINV+14, EN1+4*, EN2+8*
PSOIVDSN DIC+3, EN2+3~*, EN2+4, EN2+9!, EN3+2~*, EN3+3, EN3+4!, LOOK+1*
PSOIVDST EN2~, EN3~, ENPGX~, LOOK+1
PSOMSG DUPINV+1~, DUPINV+4, DUPINV+16
PSONEW EN1+1~, EN2+5~
PSONEW("PROVIDER" START+3*, EN1+4*, EN2+8*
>> PSORX("INTERVENE" DIC+3
PSORXI INIT+3!, EOJ+1!
PSORXI("DA" START+3, DIC+6*, DIE+2, DIE+3, DUPINV+11*, DUPINV+18
PSORXI("EDIT" DIE+2, EDIT+2*
PSORXI("IRXN" EN1+3*, EN2+7*
PSORXI("QFLG" START+1, INIT+3*, DIC+7*
PSORXIEN DIC+4, ENPGX~
>> PSOSITE DIC+3
PSOX EN1~, EN1+2, EN1+3, EN2~, EN2+6, EN2+7
PSOY EN1+1~, EN1+3!*, EN1+4, EN2+5~, EN2+7!*, EN2+8
X DIC+1!*, DICX!, DIE+3!, EDITX!, DUPINV+1~, DUPINV+6!, DUPINV+7*, DUPINV+11*, DUPINV+12*, DUPINV+13
Y DIC+1!, DIC+6, DICX!, DIE+3!, EDIT+1, EDITX!, DUPINV+1~, DUPINV+6!, DUPINV+10, DUPINV+11
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