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 |  Local Variables  | All
Print Page as PDF
Routine: PSOERBT0

Package: Outpatient Pharmacy

Routine: PSOERBT0


Information

PSOERBT0 ;ALB/MFR - Dispense Drug Conversion Prompts ;Jan 16, 2025@12:43:34

Source Information

Source file <PSOERBT0.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 4 $$SWAPDRUG^PSODRGU0  (ENTRYSEL,REF)^PSOERBT  PAUSE^PSOERXUT  $$ASKFLD^PSOSPMA3  
VA FileMan 4 $$FIND1^DIC  $$GET1^DIQ  ^DIR  EN^DIWE  
Text Integration Utility 2 NEW^TIUPNAPI  UPDATE^TIUSRVP  
Kernel 1 $$NOW^XLFDT  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Kernel 1 ^ORD(101  
Outpatient Pharmacy 1 PSO ERX BATCH VISTA DRUG REPLACEMENT  

Entry Points

Name Comments DBIA/ICR reference
DRUGREP ; VistA Drug Replacement Entry Point

External References

Name Field # of Occurrence
$$FIND1^DIC DRUGREP+21, DRUGREP+41
$$GET1^DIQ DRUGREP+3, DRUGREP+17, DRUGREP+26, DRUGREP+27, DRUGREP+36, DRUGREP+44, DRUGREP+45
^DIR DRUGREP+18
EN^DIWE DRUGREP+12
$$SWAPDRUG^PSODRGU0 DRUGREP+29
ENTRYSEL^PSOERBT DRUGREP+5
REF^PSOERBT DRUGREP+53
PAUSE^PSOERXUT DRUGREP+52
$$ASKFLD^PSOSPMA3 DRUGREP+32, DRUGREP+40
NEW^TIUPNAPI DRUGREP+37
UPDATE^TIUSRVP DRUGREP+47
FULL^VALM1 DRUGREP+2
$$NOW^XLFDT DRUGREP+37, DRUGREP+42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGREP+8
Function Call: WRITE
  • Prompt: !,DIWESUB,":"
  • Line Location: DRUGREP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGREP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGREP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUGREP+20
Function Call: WRITE
  • Prompt: !!,IOINHI_$J(ENTRYNUM,4)_". "_$$GET1^DIQ(52,RXIEN,.01)_" - "_$$GET1^DIQ(52,RXIEN,6)_IOINORM
  • Line Location: DRUGREP+26
Function Call: WRITE
  • Prompt: !," Replacing Dispense Drug with "_IOINHI_$$GET1^DIQ(50,NEWDRUG,.01)_IOINORM_"..."
  • Line Location: DRUGREP+27
Function Call: WRITE
  • Prompt: !,"ERROR: ",$P(SWAP,"^",2)
  • Line Location: DRUGREP+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: DRUGREP+32
Function Call: WRITE
  • Prompt: !," Creating a new Progress Note..."
  • Line Location: DRUGREP+34
Function Call: WRITE
  • Prompt: !,$G(IOINHI),"A problem was encountered while creating the Progress Note.",$G(IOINORM),$C(7),!
  • Line Location: DRUGREP+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: DRUGREP+40
Function Call: WRITE
  • Prompt: IOINHI_"OK"_IOINORM
  • Line Location: DRUGREP+48
Function Call: WRITE
  • Prompt: !!,"Dispense Drug Replacement completed!",!
  • Line Location: DRUGREP+50
Routine Call
  • DIC
  • Line Location:
    • DRUGREP+21
    • DRUGREP+41
Routine Call
  • DIR
  • Line Location:
    • DRUGREP+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
^TIU(8925.1 - [#8925.1] FIND1^DIC
^TIU(8925.6 - [#8925.6] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSOERPN" DRUGREP+8!, DRUGREP+35, DRUGREP+52!
^TMP("PSOERSEL" DRUGREP+5, DRUGREP+14, DRUGREP+17, DRUGREP+23, DRUGREP+25
^TMP("TIUP" DRUGREP+35!*, DRUGREP+52!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT DRUGREP+1~, DRUGREP+14*, DRUGREP+17
DIC DRUGREP+1~, DRUGREP+9*
DIR DRUGREP+1~, DRUGREP+15!
DIR("A" DRUGREP+16*, DRUGREP+17*
DIR("B" DRUGREP+15*
DIR(0 DRUGREP+15*
DIROUT DRUGREP+1~, DRUGREP+18
DIRUT DRUGREP+1~, DRUGREP+18
DIWESUB DRUGREP+1~, DRUGREP+11*
DUOUT DRUGREP+1~, DRUGREP+12
DUZ DRUGREP+37, DRUGREP+43, DRUGREP+44, DRUGREP+45
DWLW DRUGREP+1~, DRUGREP+10*
DWPK DRUGREP+1~, DRUGREP+10*
>> ENTRYNUM DRUGREP+25*, DRUGREP+26
>> ERXRET DRUGREP+47
>> IOINHI DRUGREP+17, DRUGREP+26, DRUGREP+27, DRUGREP+29, DRUGREP+39, DRUGREP+48
>> IOINORM DRUGREP+17, DRUGREP+26, DRUGREP+27, DRUGREP+29, DRUGREP+39, DRUGREP+48
>> NEWDRUG DRUGREP+27, DRUGREP+29
PSODFN DRUGREP+1~, DRUGREP+36*, DRUGREP+37
PSOQUIT DRUGREP+1~, DRUGREP+22*, DRUGREP+23, DRUGREP+32*, DRUGREP+40*, DRUGREP+50
PSOTITL DRUGREP+1~, DRUGREP+21*, DRUGREP+37
PSOTIUDA DRUGREP+1~, DRUGREP+37, DRUGREP+38, DRUGREP+47
RX DRUGREP+1~, DRUGREP+14*, DRUGREP+17
>> RXIEN DRUGREP+22*, DRUGREP+23*, DRUGREP+25, DRUGREP+26, DRUGREP+29, DRUGREP+36
STOP DRUGREP+1~, DRUGREP+32*, DRUGREP+40*
>> SWAP DRUGREP+29*, DRUGREP+30, DRUGREP+31
TIUTITLE DRUGREP+1~, DRUGREP+20*, DRUGREP+21
TIUX DRUGREP+1~, DRUGREP+47
TIUX( DRUGREP+41*
TIUX(1501 DRUGREP+42*
TIUX(1502 DRUGREP+43*
TIUX(1503 DRUGREP+44*
TIUX(1504 DRUGREP+45*
TIUX(1505 DRUGREP+46*
>> VALMBCK DRUGREP+2*
>> VALMSG DRUGREP+4*
>> Y DRUGREP+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All