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

Package: Outpatient Pharmacy

Routine: PSOERUT6


Information

PSOERUT6 ;ALB/MFR - eRx & Pending Order Side-by-Side LM Display - Cont'd; 06/25/2023 5:14pm

Source Information

Source file <PSOERUT6.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 15 $$LSTRFL^PSOBPSU1  ($$RXFLDT,$$RXRLDT)^PSOBPSUT  MATCHSUG^PSOERPT1  MATCHSUG^PSOERPV1  ($$CMOPSTS,$$DRUGHASH,$$VARXPI,WRAP)^PSOERUT  ($$COMPARE,ADDLINE,BLANKLN)^PSOERUT0  SETDRUG^PSOERUT2  ($$SUGSIG,$$VAPATINS,SETDIAGS)^PSOERUT3  
($$ACCDTBY,CSPRV)^PSOERUT4  $$CS^PSOERXA0  TXT2ARY^PSOERXD1  $$RESOLV^PSOERXU2  $$ERXIEN^PSOERXUT  $$DEAD^PSONVARP  VIEW^PSOSPML4  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^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: 11

Package Total Caller Graph
Outpatient Pharmacy 10 PSO ERX VIEW DRUG SUGGESTIONS  PSO ERX VIEW PATIENT SUGGESTIONS  PSO ERX VIEW PROVIDER SUGGESTIONS  PSODRGU0  PSOERALL  PSOERUT0  PSOERUT5  PSOERX1A  
PSOOREDT  PSOORNEW  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Continuation of PSOERUT5 due to routine size limit
VISTAPAT(ERXIEN) ; Returns the VistA Patient For Responses that pass through the eRx Holding Queue w/out matching/validation
; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE (#52.49)
CSERX(ORD) ; Check whether a Pending Order is for a CS eRx
; Input: ORD - Pointer to OUTPATIENT PENDING ORDER file (#52.41)
CSDRG(DRGIEN) ; Controlled Substance drug?
; Input: DRGIEN - Pointer to DRUG file (#50)
VS(ERXIEN,TYPE) ; View Suggestion(s)
LASTRXST(RXIEN) ; Returns the Rx Last Fill status (For Future Fill Suggestion only)
; Input: RXIEN - pointer to PRESCRIPTION file (#52)
NARRATIV(DFN,NMSPC,MODE) ;Display the Pharmacy Narrative
MATCHSUG(ERXIEN,VIEW) ; Match Suggestion Prompt
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; (o)VIEW - View Only Mode (1:YES,0/null: NO)
CMPMEDS(ERXIEN,VISTARX,COUNTER) ; Display the Comparison Between eRx and VistA Providers
PROMPTPI(ERXIEN,MATCHSUG) ;Once the user accept the suggested rx, prompt if user want to copy the patient instruction for that suggested rx into the eRx.
VIEWNOTE ; View Suggested Rx Notice

External References

Name Field # of Occurrence
$$GET1^DIQ EN+7, EN+9, EN+10, EN+11, EN+37, EN+49, VISTAPAT+4, VISTAPAT+5, VISTAPAT+8, VISTAPAT+11
, VISTAPAT+13, CSERX+2, CSDRG+5, VS+6, VS+14, LASTRXST+6, LASTRXST+9, NARRATIV+6, MATCHSUG+17, MATCHSUG+19
, MATCHSUG+22, MATCHSUG+23, MATCHSUG+24, CMPMEDS+7, CMPMEDS+9, PROMPTPI+9, PROMPTPI+12, PROMPTPI+15, PROMPTPI+16, PROMPTPI+17
, PROMPTPI+22, VIEWNOTE+2
^DIR MATCHSUG+44, MATCHSUG+58, PROMPTPI+34, VIEWNOTE+7
$$LSTRFL^PSOBPSU1 LASTRXST+4
$$RXFLDT^PSOBPSUT LASTRXST+7
$$RXRLDT^PSOBPSUT LASTRXST+5
MATCHSUG^PSOERPT1 VS+28
MATCHSUG^PSOERPV1 VS+29
$$CMOPSTS^PSOERUT LASTRXST+13
$$DRUGHASH^PSOERUT VS+22, MATCHSUG+12
$$VARXPI^PSOERUT PROMPTPI+24
WRAP^PSOERUT EN+27
$$COMPARE^PSOERUT0 EN+3, EN+4, EN+11, EN+18, EN+30, EN+40, EN+42, EN+44, EN+52, NARRATIV+9
, NARRATIV+13
ADDLINE^PSOERUT0 EN+6, EN+12, EN+20, EN+26, EN+30, EN+40, EN+42, EN+44, EN+52, NARRATIV+10
, NARRATIV+14
BLANKLN^PSOERUT0 EN+13, EN+21, EN+31, EN+34, EN+38, EN+45
SETDRUG^PSOERUT2 CMPMEDS+11
$$SUGSIG^PSOERUT3 MATCHSUG+21
$$VAPATINS^PSOERUT3 PROMPTPI+19
SETDIAGS^PSOERUT3 EN+33
$$ACCDTBY^PSOERUT4 EN+48
CSPRV^PSOERUT4 EN+9
$$CS^PSOERXA0 EN+37
TXT2ARY^PSOERXD1 NARRATIV+11, PROMPTPI+29
$$RESOLV^PSOERXU2 VISTAPAT+7, VISTAPAT+10, VISTAPAT+12
$$ERXIEN^PSOERXUT CSERX+2
$$DEAD^PSONVARP VS+16
VIEW^PSOSPML4 MATCHSUG+45
FULL^VALM1 VS+27, MATCHSUG+45
$$FMADD^XLFDT LASTRXST+9
$$FMTE^XLFDT EN+49, CMPMEDS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CSERX+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+12
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+21
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+24
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VS+26
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+50
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+58
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCHSUG+58
Function Call: WRITE
  • Prompt: !?64,"Forgetting..."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: "Ok."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: "Ok."
  • Line Location: MATCHSUG+59
Function Call: WRITE
  • Prompt: !?55,"|Sugg. "
  • Line Location: CMPMEDS+6
Function Call: WRITE
  • Prompt: $G(IOINHI)_+$G(COUNTER)_$G(IOINORM)_" of "_$G(IOINHI)_$P($G(COUNTER),"^",2)_$G(IOINORM)
  • Line Location: CMPMEDS+6
Function Call: WRITE
  • Prompt: " - ",$G(IOINHI)_$$FMTE^XLFDT($$GET1^DIQ(52,VISTARX,21,"I")\1,"2Z")_$G(IOINORM),?79,"|"
  • Line Location: CMPMEDS+7
Function Call: WRITE
  • Prompt: !,$G(IORVON)_"ERX MED"_$G(IORVOFF),?41,$G(IORVON)_"VISTA MED"_$G(IORVOFF)
  • Line Location: CMPMEDS+8
Function Call: WRITE
  • Prompt: ?55,"|From Rx#: "_$G(IOINHI)_$$GET1^DIQ(52,VISTARX,.01)_$G(IOINORM),?79,"|"
  • Line Location: CMPMEDS+9
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: CMPMEDS+10
Function Call: WRITE
  • Prompt: !!,"Rx #"_$G(IOINHI)_VARXNUM_$G(IOINORM)," PATIENT INSTRUCTIONS:"
  • Line Location: PROMPTPI+28
Function Call: WRITE
  • Prompt: !,$G(IOINHI)_PATINSARY(I)_$G(IOINORM)
  • Line Location: PROMPTPI+30
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPTPI+31
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VIEWNOTE+1
Function Call: WRITE
  • Prompt: !,"You will be taken to the VistA Rx#",$$GET1^DIQ(52,VISTARX,.01)," that was entered in the past for the"
  • Line Location: VIEWNOTE+2
Function Call: WRITE
  • Prompt: !,"same Product (NDC/SIG/Qty/Days Supply/# of Refills/Substitution) for a different"
  • Line Location: VIEWNOTE+3
Function Call: WRITE
  • Prompt: !,"eRx. This VistA Rx may or may not be for the same patient in this erx being"
  • Line Location: VIEWNOTE+4
Function Call: WRITE
  • Prompt: !,"processed."
  • Line Location: VIEWNOTE+5
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VIEWNOTE+6
Routine Call
  • DIR
  • Line Location:
    • MATCHSUG+44
    • MATCHSUG+58
    • PROMPTPI+34
    • VIEWNOTE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.49 - [#52.49] VS+7, VS+8, VS+9, VS+15, VS+17, VS+18, VS+25, MATCHSUG+8, MATCHSUG+10, MATCHSUG+16
, MATCHSUG+20!, MATCHSUG+59!, CMPMEDS+4
^PSRX - [#52] CMPMEDS+4

Label References

Name Line Occurrences
$$CSDRG CSERX+2
$$PROMPTPI MATCHSUG+49
CMPMEDS MATCHSUG+30
MATCHSUG VS+30
VIEWNOTE MATCHSUG+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACCDTBY EN+48*, EN+50
CNT MATCHSUG+6~, MATCHSUG+28*, MATCHSUG+29, MATCHSUG+30, MATCHSUG+31, MATCHSUG+32, MATCHSUG+33, MATCHSUG+39, MATCHSUG+45*, MATCHSUG+58*
COPIES EN+16~, EN+17*, EN+18
COUNTER CMPMEDS~, CMPMEDS+6
DEA CSDRG+3~, CSDRG+5*, CSDRG+6
DFN NARRATIV~, NARRATIV+4, NARRATIV+6
DIR MATCHSUG+6~, MATCHSUG+31!, MATCHSUG+52!, PROMPTPI+7~, PROMPTPI+34!, VIEWNOTE+7!
DIR("?" MATCHSUG+35*, MATCHSUG+37*, MATCHSUG+38*, MATCHSUG+40*, MATCHSUG+41*, MATCHSUG+42*, MATCHSUG+43*, MATCHSUG+54*, MATCHSUG+55*, MATCHSUG+56*
, MATCHSUG+57*
DIR("A" MATCHSUG+32*, MATCHSUG+53*, PROMPTPI+32*
DIR("B" MATCHSUG+33*, MATCHSUG+52*, PROMPTPI+33*
DIR(0 MATCHSUG+31*, MATCHSUG+52*, PROMPTPI+33*, VIEWNOTE+7*
>> DIROUT MATCHSUG+44, MATCHSUG+58, PROMPTPI+34, VIEWNOTE+7
DIRUT MATCHSUG+44, MATCHSUG+58, PROMPTPI+7~, PROMPTPI+34, VIEWNOTE+7
DRGIEN CSDRG~, CSDRG+4, CSDRG+5
>> DRUGDATA("DEA" EN+8
DRUGHASH VS+3~, VS+22*, VS+23, VS+25, MATCHSUG+6~, MATCHSUG+12*, MATCHSUG+16, MATCHSUG+20, MATCHSUG+27, MATCHSUG+29*
, MATCHSUG+59
DT LASTRXST+9, LASTRXST+11
DTOUT PROMPTPI+7~
DUOUT PROMPTPI+7~
ERX VS+3~, VS+9*, VS+10, VS+18*, VS+19
ERXIEN EN+33, EN+37, EN+48, EN+49, VISTAPAT~, VISTAPAT+4, VISTAPAT+5, VISTAPAT+7, VISTAPAT+10, VS~
, VS+6, VS+10, VS+14, VS+19, VS+22, VS+28, VS+29, VS+30, MATCHSUG~, MATCHSUG+8
, MATCHSUG+10, MATCHSUG+12, MATCHSUG+21, MATCHSUG+30, MATCHSUG+49, CMPMEDS~, CMPMEDS+4, CMPMEDS+11, PROMPTPI~, PROMPTPI+10
, PROMPTPI+12, PROMPTPI+17
ERXPAT VS+3~, VS+14*, VS+15, VS+17, VS+18
ERXPRV VS+3~, VS+6*, VS+7, VS+8, VS+9
>> ERXPRVNM EN+3, EN+4
FILLDATE LASTRXST+3~, LASTRXST+7*, LASTRXST+11
I EN+28*, EN+29, EN+30, NARRATIV+5~, NARRATIV+12*, NARRATIV+13, PROMPTPI+7~, PROMPTPI+30*
II MATCHSUG+6~, MATCHSUG+34*, MATCHSUG+35*, MATCHSUG+37*, MATCHSUG+38*, MATCHSUG+40*, MATCHSUG+41*, MATCHSUG+42*
>> IOINHI CMPMEDS+6, CMPMEDS+7, CMPMEDS+9, PROMPTPI+28, PROMPTPI+30, PROMPTPI+32
>> IOINORM CMPMEDS+6, CMPMEDS+7, CMPMEDS+9, PROMPTPI+28, PROMPTPI+30, PROMPTPI+32
>> IORVOFF CMPMEDS+8
>> IORVON CMPMEDS+8
>> IOUOFF VIEWNOTE+1, VIEWNOTE+6
>> IOUON VIEWNOTE+1, VIEWNOTE+6
LASTFILL LASTRXST+3~, LASTRXST+4*, LASTRXST+5, LASTRXST+7, LASTRXST+13
LINE EN+5, EN+19, EN+25, CMPMEDS+5~, CMPMEDS+11*
LINETXT NARRATIV+5~, NARRATIV+8*, NARRATIV+9*, NARRATIV+10, NARRATIV+13*, NARRATIV+14
MATCHCNT MATCHSUG+6~, MATCHSUG+14*, MATCHSUG+16, MATCHSUG+26*, MATCHSUG+27, MATCHSUG+28, MATCHSUG+30, MATCHSUG+31, MATCHSUG+32, MATCHSUG+33
, MATCHSUG+39
MATCHSUG MATCHSUG+6~, MATCHSUG+14*, MATCHSUG+28, MATCHSUG+46*, MATCHSUG+49*, MATCHSUG+60, PROMPTPI~, PROMPTPI+11, PROMPTPI+15, PROMPTPI+22
, PROMPTPI+24
MODE NARRATIV~, NARRATIV+9, NARRATIV+10, NARRATIV+13, NARRATIV+14
MTYPE VISTAPAT+3~, VISTAPAT+5*, VISTAPAT+6, VISTAPAT+9
NARRTIVE NARRATIV+5~, NARRATIV+11!
NARRTIVE( NARRATIV+12, NARRATIV+13
NEWRXIEN VISTAPAT+3~, VISTAPAT+7*, VISTAPAT+8, VISTAPAT+12*, VISTAPAT+13
NMSPC EN+6, EN+12, EN+20, EN+26, EN+30, EN+33, EN+40, EN+42, EN+44, EN+52
, NARRATIV~, NARRATIV+10, NARRATIV+14
ORD CSERX~, CSERX+2
>> ORDIEN EN+7, EN+9
PATINSARY PROMPTPI+7~, PROMPTPI+29!
PATINSARY( PROMPTPI+30
PATINST PROMPTPI+7~
>> PENDATA("COPIES" EN+17
>> PENDATA("PROV IDER NAME" , EN+3, EN+4
>> PENDATA("PROVIDER" EN+7
>> PKI EN+8
>> PRVIEN EN+7*, EN+9, EN+10, EN+11
>> PSONEW("REMARKS" EN+27
QUIT MATCHSUG+6~, MATCHSUG+14*, MATCHSUG+28, MATCHSUG+44*
RDAT VS+3~, VS+8*, VS+9, VS+17*, VS+18
RELDATE LASTRXST+3~, LASTRXST+5*, LASTRXST+9, LASTRXST+11, LASTRXST+13
>> RENEWORD EN+4, EN+5, EN+18, EN+19, EN+24, EN+25
REQIEN VISTAPAT+3~, VISTAPAT+10*, VISTAPAT+11, VISTAPAT+12
RXIEN LASTRXST~, LASTRXST+4, LASTRXST+5, LASTRXST+6, LASTRXST+7, LASTRXST+9, LASTRXST+13, MATCHSUG+7~, MATCHSUG+45*
RXSTS LASTRXST+3~, LASTRXST+6*, LASTRXST+11
SUGGARR MATCHSUG+6~
SUGGARR( MATCHSUG+27*, MATCHSUG+29
TEMPARR MATCHSUG+6~
TEMPARR( MATCHSUG+25, MATCHSUG+27*
TYPE VS~, VS+5, VS+11, VS+13, VS+20, VS+22, VS+23, VS+25, VS+28, VS+29
, VS+30
>> UNDERLN( EN+5*, EN+19*, EN+25*
VADAYS MATCHSUG+7~, MATCHSUG+23*, MATCHSUG+25, MATCHSUG+27
VADRGIEN EN+9, EN+37, PROMPTPI+7~, PROMPTPI+15*, PROMPTPI+16
VADRUG MATCHSUG+6~, MATCHSUG+17*, MATCHSUG+19, MATCHSUG+25, MATCHSUG+27
>> VALMBCK CSERX+3*, VS+4*
>> VALMSG CSERX+3*, VS+12*, VS+21*, VS+24*, VS+26*
VAOI PROMPTPI+7~
VAOIIEN PROMPTPI+7~, PROMPTPI+16*, PROMPTPI+19
VAPATIEN PROMPTPI+7~, PROMPTPI+17*, PROMPTPI+19
VAQTY MATCHSUG+7~, MATCHSUG+22*, MATCHSUG+25, MATCHSUG+27
VAREFS MATCHSUG+7~, MATCHSUG+24*, MATCHSUG+25, MATCHSUG+27
VARR EN+27!
VARR( EN+28, EN+29, EN+30
VARXNUM PROMPTPI+7~, PROMPTPI+22*, PROMPTPI+28, PROMPTPI+32
VASIG MATCHSUG+6~, MATCHSUG+21*, MATCHSUG+25, MATCHSUG+27
VDRG PROMPTPI+7~
VIEW MATCHSUG~, MATCHSUG+10, MATCHSUG+31, MATCHSUG+32, MATCHSUG+36, MATCHSUG+49
VISTAPAT VISTAPAT+3~, VISTAPAT+4*, VISTAPAT+6, VISTAPAT+8*, VISTAPAT+9, VISTAPAT+11*, VISTAPAT+13*, VISTAPAT+14
VISTARX MATCHSUG+6~, MATCHSUG+15*, MATCHSUG+16*, MATCHSUG+17, MATCHSUG+20, MATCHSUG+21, MATCHSUG+22, MATCHSUG+23, MATCHSUG+24, MATCHSUG+27
, MATCHSUG+29*, MATCHSUG+30, MATCHSUG+45, MATCHSUG+46, MATCHSUG+49, MATCHSUG+59, CMPMEDS~, CMPMEDS+4, CMPMEDS+7, CMPMEDS+9
, CMPMEDS+11, VIEWNOTE+2
VPAT VS+3~, VS+15*, VS+16, VS+17, VS+18
VPATOK VS+3~, VS+4*, VS+15, VS+17, VS+18, VS+19*, VS+20
VPRV VS+3~, VS+7*, VS+8, VS+9
VPRVOK VS+3~, VS+4*, VS+7, VS+8, VS+9, VS+10*, VS+11
VSPATINS PROMPTPI+7~, PROMPTPI+24*, PROMPTPI+26, PROMPTPI+29
VSRXPTINS MATCHSUG+7~, MATCHSUG+49*, PROMPTPI+21*
X MATCHSUG+6~, CMPMEDS+5~
>> XE EN+3*, EN+6, EN+39*, EN+40, EN+41*, EN+42, EN+43*, EN+44, EN+51*, EN+52
XQORNOD MATCHSUG+7~
XQORNOD(0 MATCHSUG+45*
>> XV EN+4*, EN+6, EN+11*, EN+12, EN+18*, EN+20, EN+24*, EN+26
XX EN+49*, EN+50*, EN+51*, NARRATIV+5~, NARRATIV+6!*, NARRATIV+7, NARRATIV+8, NARRATIV+11, CMPMEDS+5~, CMPMEDS+10*
, PROMPTPI+7~, VIEWNOTE+1*, VIEWNOTE+6*
Y MATCHSUG+6~, MATCHSUG+44, MATCHSUG+45, MATCHSUG+46, MATCHSUG+50, MATCHSUG+51, MATCHSUG+58, PROMPTPI+7~, PROMPTPI+35
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