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

Package: Outpatient Pharmacy

Routine: PSOERBT1


Information

PSOERBT1 ;ALB/RM - PSO ERX UTILITIES ;Jan 16, 2025@12:43:34

Source Information

Source file <PSOERBT1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 (ENTRYSEL,REF)^PSOERBT  (EN,SENDCHRQ)^PSOERCR0  WRAP^PSOERUT  VARXDOSE^PSOERUT4  ($$ERXIEN,PAUSE)^PSOERXUT  DIRE^PSOERXX1  EN^PSOFSIG  
Kernel 2 ($$NAME,$$WHAT)^XUAF4  $$NPI^XUSNPI  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 $$GETNDC^PSSNDCUT  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSO ERX BATCH CHANGE REQUEST SUBMISSION  PSOERBT  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ERXBATCH(CHRQTYPE,FROMDRUG,NEWDRUG) ;entry point for PSO ERX BATCH CHANGE REQUEST SUBMISSION protocol action
RXSIG(RXIEN) ; Return the Rx SIG w/out PI
; Input: RXIEN - Pointer to the Rx being worked on (Pointer to #52)

External References

Name Field # of Occurrence
$$GET1^DIQ ERXBATCH+18, ERXBATCH+42, ERXBATCH+43, ERXBATCH+44, ERXBATCH+45, RXSIG+6
^DIR ERXBATCH+29
ENTRYSEL^PSOERBT ERXBATCH+15
REF^PSOERBT ERXBATCH+65
EN^PSOERCR0 ERXBATCH+24
SENDCHRQ^PSOERCR0 ERXBATCH+61
WRAP^PSOERUT ERXBATCH+50
VARXDOSE^PSOERUT4 RXSIG+7
$$ERXIEN^PSOERXUT ERXBATCH+38
PAUSE^PSOERXUT ERXBATCH+63
DIRE^PSOERXX1 ERXBATCH+12, ERXBATCH+21
EN^PSOFSIG RXSIG+8
$$GETNDC^PSSNDCUT ERXBATCH+42
FULL^VALM1 ERXBATCH+11
$$NAME^XUAF4 ERXBATCH+18
$$WHAT^XUAF4 ERXBATCH+18, ERXBATCH+20
$$NPI^XUSNPI ERXBATCH+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"New VistA Drug is missing, please enter a new VistA Drug."
  • Line Location: ERXBATCH+12
Function Call: WRITE
  • Prompt: !!,"Institution NPI Number could not be found. Cannot create Change Request."
  • Line Location: ERXBATCH+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ERXBATCH+27
Function Call: WRITE
  • Prompt: !!,IOINHI_CNTR_". "_TEXT_IOINORM
  • Line Location: ERXBATCH+58
Function Call: WRITE
  • Prompt: !," Sending Request to Provider..."
  • Line Location: ERXBATCH+59
Function Call: WRITE
  • Prompt: !
  • Line Location: ERXBATCH+63
Routine Call
  • DIR
  • Line Location:
    • ERXBATCH+29

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PSOERSEL" ERXBATCH+15, ERXBATCH+16, ERXBATCH+37, ERXBATCH+56, ERXBATCH+64!

Label References

Name Line Occurrences
$$RXSIG ERXBATCH+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHRQTYPE ERXBATCH~, ERXBATCH+12, ERXBATCH+34, ERXBATCH+40
CNT ERXBATCH+9~, ERXBATCH+60*
CNTR ERXBATCH+10~, ERXBATCH+36*, ERXBATCH+56*, ERXBATCH+58
CRMEDS ERXBATCH+10~, ERXBATCH+34!*, ERXBATCH+46!, ERXBATCH+61
CRMEDS(1 ERXBATCH+47*, ERXBATCH+48*, ERXBATCH+51*, ERXBATCH+52*
DAYSUP ERXBATCH+10~, ERXBATCH+41!, ERXBATCH+44*, ERXBATCH+47
DIR ERXBATCH+10~, ERXBATCH+27!
DIR("A" ERXBATCH+28*
DIR("B" ERXBATCH+27*, ERXBATCH+28*
DIR(0 ERXBATCH+27*
DIROUT ERXBATCH+10~, ERXBATCH+29
DIRUT ERXBATCH+10~, ERXBATCH+29
DOSE RXSIG+5~, RXSIG+7!, RXSIG+8
DRUGCODE ERXBATCH+9~, ERXBATCH+41!, ERXBATCH+42*, ERXBATCH+47
DRUGCODQ ERXBATCH+9~, ERXBATCH+41!, ERXBATCH+42*, ERXBATCH+47
DRUGNAME ERXBATCH+9~, ERXBATCH+41!, ERXBATCH+42*, ERXBATCH+47
DT ERXBATCH+51
ENTRYNUM ERXBATCH+10~, ERXBATCH+56*, ERXBATCH+57
ERXBTCHFLG ERXBATCH+9~, ERXBATCH+11*, ERXBATCH+36*
ERXHUBID ERXBATCH+10~
ERXIEN ERXBATCH+9~, ERXBATCH+38*, ERXBATCH+61
EXTRCODE ERXBATCH+10~, ERXBATCH+30*
EXTSCODE ERXBATCH+10~, ERXBATCH+31*
FROMDRUG ERXBATCH~, ERXBATCH+8
GBL ERXBATCH+10~
>> I RXSIG+9*
INSTNAME ERXBATCH+9~, ERXBATCH+18*
INSTNPI ERXBATCH+9~, ERXBATCH+19*, ERXBATCH+20*, ERXBATCH+21
>> IOINHI ERXBATCH+28, ERXBATCH+58
>> IOINORM ERXBATCH+28, ERXBATCH+58
NEWDRUG ERXBATCH~, ERXBATCH+12, ERXBATCH+42
NPIINST ERXBATCH+9~, ERXBATCH+18*, ERXBATCH+19, ERXBATCH+20
NUMREFS ERXBATCH+10~, ERXBATCH+41!, ERXBATCH+45*, ERXBATCH+47
PNCOMM ERXBATCH+10~, ERXBATCH+32*
PSOBTDAT ERXBATCH+9~, ERXBATCH+25
PSOBTDAT("CRMEDS" ERXBATCH+34
PSOBTDAT("EXTRCODE" ERXBATCH+30
PSOBTDAT("EXTSCODE" ERXBATCH+31
PSOBTDAT("NOTE2PRV" ERXBATCH+48
PSOBTDAT("PNCOMM" ERXBATCH+32
PSOBTDAT("REATXT" ERXBATCH+33
>> PSOSITE ERXBATCH+18, ERXBATCH+42
QTY ERXBATCH+9~, ERXBATCH+41!, ERXBATCH+43*, ERXBATCH+47
REASONTXT ERXBATCH+10~
>> REATXT ERXBATCH+33*
>> RX ERXBATCH+16*
RXIEN RXSIG~, RXSIG+4, RXSIG+6, RXSIG+7
RXSIG RXSIG+5~, RXSIG+9*, RXSIG+10*, RXSIG+11
SEL ERXBATCH+9~
SELCNT ERXBATCH+10~, ERXBATCH+16*, ERXBATCH+28
SIG RXSIG+5~, RXSIG+8!
SIG( RXSIG+9
STATION ERXBATCH+9~, ERXBATCH+18*
TDDAT ERXBATCH+62!
TEXT ERXBATCH+10~, ERXBATCH+57*, ERXBATCH+58
U ERXBATCH+19
>> VALMAR ERXBATCH+57
>> VALMBCK ERXBATCH+11*
VASIG ERXBATCH+10~, ERXBATCH+41!, ERXBATCH+50!, ERXBATCH+52
VISTASIG ERXBATCH+10~, ERXBATCH+41!, ERXBATCH+49*, ERXBATCH+50
VRXIEN ERXBATCH+9~, ERXBATCH+37*, ERXBATCH+38, ERXBATCH+43, ERXBATCH+44, ERXBATCH+45, ERXBATCH+49, ERXBATCH+56
>> Y ERXBATCH+29
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