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

Package: Outpatient Pharmacy

Routine: PSOERRX1


Information

PSOERRX1 ;BIRM/MFR - All Rxs eRx Queue - Supporting APIs ;08/28/22

Source Information

Source file <PSOERRX1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 8 ($$ELIGSTS,$$FILTERED,LOADSTS)^PSOERPC1  $$MATCHLBL^PSOERPC2  $$DNDRCODE^PSOERRX2  ($$EPATFLST,$$EPRVFLST,$$LASTREDT,$$PATNAME,$$STATEABB)^PSOERUT  CHKEXP^PSOERX  $$CHKPRV2^PSOERX1A  ($$GETDRUG,$$GETPAT,$$GETPROV)^PSOERXU5  $$CSFILTER^PSOERXUT  
VA FileMan 3 (,FIND)^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
List Manager 1 INSTR^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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOERRX0  

Entry Points

Name Comments DBIA/ICR reference
HDR ; - Builds the Header section
SETHDR() ; - Displays the Header Line
SETSORT(FIELD) ; Sets the data sorted by the FIELD specified
RELMSG(ERXIEN,ERXCNT) ; Includes any related Message
SETITEM(FIELD,ERXIEN,COUNTER) ; Adds an eRx Record to the Sorted List
; Input: FIELD - Sort By field
; ERXIEN - eRx IEN - Pointer to #52.49
; COUNTER - eRx Counter - Number of Items on the List (Passed in by Reference)
VPRVFLTR ; - VistA Provider Filter
REP1 ; - Repeat VistA Provider Prompt
PRVLHDR ; - Prints the Provider List Header
VDRGFLTR ;VistA Drug Filter
REPDRG ;Repeat VistA Drug Prompt
CHKSTSLST(ERXIEN,STSFLTR) ;Check erx order status

External References

Name Field # of Occurrence
^DIC REPDRG+6
FIND^DIC REP1+4
$$GET1^DIQ HDR+24, HDR+28, SETITEM+28, SETITEM+29, SETITEM+49, SETITEM+83, REPDRG+1
^DIR REP1+2, REP1+16, REP1+20
$$ELIGSTS^PSOERPC1 SETSORT+72, SETITEM+46
$$FILTERED^PSOERPC1 SETITEM+70, SETITEM+72
LOADSTS^PSOERPC1 SETSORT+35
$$MATCHLBL^PSOERPC2 HDR+21
$$DNDRCODE^PSOERRX2 SETITEM+77
$$EPATFLST^PSOERUT HDR+27
$$EPRVFLST^PSOERUT HDR+26
$$LASTREDT^PSOERUT REP1+13
$$PATNAME^PSOERUT SETITEM+80
$$STATEABB^PSOERUT REP1+12
CHKEXP^PSOERX SETITEM+63, SETITEM+66
$$CHKPRV2^PSOERX1A REP1+3
$$GETDRUG^PSOERXU5 SETITEM+33
$$GETPAT^PSOERXU5 SETITEM+12, SETITEM+67
$$GETPROV^PSOERXU5 SETITEM+15, SETITEM+83
$$CSFILTER^PSOERXUT SETITEM+59
INSTR^VALM1 HDR+7, SETHDR+4, SETHDR+7
$$FMADD^XLFDT SETSORT+7
$$FMTE^XLFDT HDR+20, HDR+23, SETITEM+90, SETITEM+91, REP1+13
$$UP^XLFSTR SETITEM+55, SETITEM+95

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REP1+2
Function Call: WRITE
  • Prompt: !,"No VistA Provider found",$C(7)
  • Line Location: REP1+5
Function Call: WRITE
  • Prompt: !,PRV,".",?4,$E(PRVLST("DILIST","ID",PRV,.01),1,30),?35,PRVLST("DILIST","ID",PRV,53.2)
  • Line Location: REP1+10
Function Call: WRITE
  • Prompt: ?47,$E(PRVLST("DILIST","ID",PRV,.114),1,20),"-",$$STATEABB^PSOERUT(200,PRVLST("DILIST",2,PRV))
  • Line Location: REP1+12
Function Call: WRITE
  • Prompt: ?71,$$FMTE^XLFDT($$LASTREDT^PSOERUT("AVPRV",PRVLST("DILIST",2,PRV)),"2Z")
  • Line Location: REP1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: REP1+20
Function Call: WRITE
  • Prompt: !!,"There are no eRx Providers associated with the VistA Provider(s) selected.",$C(7)
  • Line Location: REP1+32
Function Call: WRITE
  • Prompt: !?73,"LAST",!,"#",?4,"VISTA PROVIDER NAME",?35,"DEA",?47,"CITY",?71,"REC.DATE"
  • Line Location: PRVLHDR+1
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: PRVLHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REPDRG+2
Function Call: WRITE
  • Prompt: !!,IOINHI,"There are no eRx Drug(s) matched to this VistA Drug.",IOINORM,$C(7)
  • Line Location: REPDRG+12
Routine Call
  • DIC
  • Line Location:
    • REPDRG+6
Routine Call
  • DIC
  • Line Location:
    • REP1+4
Routine Call
  • DIR
  • Line Location:
    • REP1+2
    • REP1+16
    • REP1+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND^DIC
^PSDRUG - [#50] GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.45 - [#52.45] SETSORT+72, SETITEM+19
^PS(52.46 - [#52.46] SETSORT+15, SETSORT+24, SETITEM+79
^PS(52.48 - [#52.48] SETITEM+82
^PS(52.49 - [#52.49] SETSORT+17, SETSORT+18, SETSORT+27, SETSORT+28, SETSORT+39, SETSORT+40, SETSORT+45, SETSORT+47, SETSORT+53, SETSORT+55
, SETSORT+56, SETSORT+63, SETSORT+64, SETSORT+70, SETSORT+71, SETSORT+73, RELMSG+4, RELMSG+6, SETITEM+8, SETITEM+9
, SETITEM+10, SETITEM+19, SETITEM+24, SETITEM+25, SETITEM+26, SETITEM+27, SETITEM+82, REP1+29, REPDRG+10, CHKSTSLST+7
, CHKSTSLST+8, CHKSTSLST+9, CHKSTSLST+11
^TMP("PSOERINC" SETSORT+4!, SETSORT+77!, RELMSG+5, RELMSG+8*, SETITEM+101*
^TMP("PSOERRXS" SETSORT+4!, SETITEM+99*, SETITEM+100*

Label References

Name Line Occurrences
$$CHKSTSLST SETITEM+52, SETITEM+53
PRVLHDR REP1+7, REP1+17
RELMSG SETSORT+20, SETSORT+30, SETSORT+42, SETSORT+49, SETSORT+58, SETSORT+66, SETSORT+75
REP1 REP1+5, REP1+20, REP1+32
REPDRG REPDRG+12
SETHDR HDR+32
SETITEM SETSORT+19, SETSORT+29, SETSORT+41, SETSORT+48, SETSORT+57, SETSORT+65, SETSORT+74, RELMSG+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR HDR+1~
BEGDATE SETSORT+3~, SETSORT+7*, SETSORT+10*, SETSORT+16, SETSORT+26, SETSORT+38, SETSORT+44, SETSORT+55, SETSORT+62, SETSORT+69
, RELMSG+6
CHGMESRI SETITEM+4~, SETITEM+29*, SETITEM+88, SETITEM+89
CHGMESRQ SETITEM+6~, SETITEM+28*, SETITEM+29
>> CNT REP1+8*, REP1+14*, REP1+15
CNTR CHKSTSLST+5~, CHKSTSLST+6*, CHKSTSLST+8, CHKSTSLST+9, CHKSTSLST+10*
COMSEG VPRVFLTR+1~, REP1+25*, REP1+26
COUNTER SETITEM~, SETITEM+102*
CSERX SETITEM+5~, SETITEM+25*, SETITEM+57, SETITEM+58, SETITEM+84
CSGROUP SETSORT+2~, SETITEM+84*, SETITEM+99, SETITEM+100
CSPREFIX SETITEM+5~
DIC VDRGFLTR+2~, REPDRG+3*, REPDRG+6!
DIC("?PARAM" REPDRG+4*
DIC("A" REPDRG+3*
DIC("B" REPDRG+1*
DIC(0 REPDRG+3*
DIR VPRVFLTR+1~, REP1+16!, REP1+19!
DIR("A" REP1+1*, REP1+19*
DIR(0 REP1+1*, REP1+16*, REP1+20*
DIROUT VPRVFLTR+1~, REP1+2, REP1+16, REP1+20
DIRUT VPRVFLTR+1~, REP1+2, REP1+8!, REP1+16, REP1+20
>> DNDARY SETITEM+74, SETITEM+75
>> DNDARY( SETITEM+78
DOB SETSORT+2~, SETITEM+5~, SETITEM+81*, SETITEM+90, SETITEM+94
>> DOBFLTR HDR+18, HDR+23, SETSORT+15, SETSORT+23, SETSORT+24, SETITEM+49
DRGFLTR HDR+18, HDR+22, SETITEM+55, VDRGFLTR+2~
DRSNCODE SETITEM+6~, SETITEM+77*, SETITEM+78
DRUMTCH SETSORT+2~
DT SETSORT+7
DTOUT REP1+8!, VDRGFLTR+2~
DUOUT VDRGFLTR+2~
EDRUG SETITEM+4~, SETITEM+32*, SETITEM+33*, SETITEM+55, SETITEM+90, SETITEM+95
ENDDATE SETSORT+3~, SETSORT+7*, SETSORT+10*, SETSORT+17, SETSORT+27, SETSORT+39, SETSORT+45, SETSORT+55, SETSORT+63, SETSORT+70
, RELMSG+6
EPATIEN SETITEM+5~, SETITEM+12*, SETITEM+14, SETITEM+49, SETITEM+67*, SETITEM+79, SETITEM+100
EPROVIEN SETITEM+5~, SETITEM+15*, SETITEM+17
EPRV VPRVFLTR+1~, REP1+29*, REP1+30
EPTNODE0 SETITEM+6~, SETITEM+79*, SETITEM+80
EPTNODE1 SETITEM+6~, SETITEM+79*, SETITEM+81
EPTNODE2 SETITEM+6~, SETITEM+79*
ERXCNT SETSORT+2~, SETSORT+6*, SETSORT+14, SETSORT+17, SETSORT+18, SETSORT+19, SETSORT+20, SETSORT+24, SETSORT+27, SETSORT+28
, SETSORT+29, SETSORT+30, SETSORT+37, SETSORT+39, SETSORT+40, SETSORT+41, SETSORT+42, SETSORT+45, SETSORT+46, SETSORT+47
, SETSORT+48, SETSORT+49, SETSORT+53, SETSORT+55, SETSORT+56, SETSORT+57, SETSORT+58, SETSORT+63, SETSORT+65, SETSORT+66
, SETSORT+70, SETSORT+71, SETSORT+73, SETSORT+74, SETSORT+75, RELMSG~, RELMSG+7
ERXDT SETITEM+5~
ERXEDT SETITEM+5~
ERXIEN SETSORT+2~, SETSORT+18*, SETSORT+19, SETSORT+20, SETSORT+28*, SETSORT+29, SETSORT+30, SETSORT+40*, SETSORT+41, SETSORT+42
, SETSORT+47*, SETSORT+48, SETSORT+49, SETSORT+56*, SETSORT+57, SETSORT+58, SETSORT+64*, SETSORT+65, SETSORT+66, SETSORT+73*
, SETSORT+74, SETSORT+75, RELMSG~, RELMSG+4, SETITEM~, SETITEM+8, SETITEM+9, SETITEM+10, SETITEM+12, SETITEM+15
, SETITEM+19, SETITEM+24, SETITEM+25, SETITEM+26, SETITEM+27, SETITEM+28, SETITEM+33, SETITEM+52, SETITEM+53, SETITEM+59
, SETITEM+63, SETITEM+66, SETITEM+67, SETITEM+77, SETITEM+80, SETITEM+82, SETITEM+83, SETITEM+92, SETITEM+93, SETITEM+94
, SETITEM+95, SETITEM+96, SETITEM+97, SETITEM+98, SETITEM+100, SETITEM+101, CHKSTSLST~, CHKSTSLST+4, CHKSTSLST+7, CHKSTSLST+8
, CHKSTSLST+9, CHKSTSLST+11
ERXNODE0 SETITEM+6~, SETITEM+9*, SETITEM+11, SETITEM+12, SETITEM+18
ERXNODE1 SETITEM+6~, SETITEM+9*, SETITEM+51, CHKSTSLST+5~, CHKSTSLST+7*, CHKSTSLST+12
ERXNODE2 SETITEM+6~, SETITEM+10*, SETITEM+15
ERXNODE3 SETITEM+6~, SETITEM+10*, SETITEM+32
ERXPAT SETSORT+3~, SETSORT+14*, SETSORT+15, SETSORT+17, SETSORT+18, SETSORT+24*, SETSORT+25, SETSORT+27, SETSORT+28
ERXPRV SETSORT+3~
ERXSTAT SETITEM+4~, SETITEM+19*, SETITEM+23, SETITEM+46, SETITEM+47, SETITEM+63, SETITEM+66, SETITEM+72, SETITEM+85, SETITEM+91
, SETITEM+98
ERXSTS SETSORT+2~, SETSORT+37*, SETSORT+39, SETSORT+40, SETSORT+46*, SETSORT+47, SETSORT+71*, SETSORT+72, SETSORT+73
EXDS SETITEM+5~
EXPRIEN SETITEM+5~
EXPRNM SETITEM+5~
EXSTSAR SETSORT+2~
FIELD SETSORT~, SETSORT+19, SETSORT+29, SETSORT+41, SETSORT+48, SETSORT+57, SETSORT+65, SETSORT+74, RELMSG+7, SETITEM~
, SETITEM+93, SETITEM+94, SETITEM+95, SETITEM+96, SETITEM+97, SETITEM+98
FILTER HDR+19~*, HDR+20*, HDR+21*, HDR+22*, HDR+23*, HDR+24*, HDR+25*, HDR+26*, HDR+27*, HDR+28*
, HDR+29*, HDR+30
FOUND CHKSTSLST+5~, CHKSTSLST+6*, CHKSTSLST+8, CHKSTSLST+9, CHKSTSLST+12*, CHKSTSLST+13
HDR SETHDR+1~, SETHDR+2*, SETHDR+3*, SETHDR+4
I VPRVFLTR+1~, REP1+24*, REP1+25
INST SETSORT+3~, SETSORT+53*, SETSORT+54, SETSORT+55, SETSORT+56
IOF REP1+17
>> IOINHI HDR+3, HDR+4, HDR+7, HDR+9, HDR+30, SETHDR+7, REPDRG+12
>> IOINORM HDR+3, HDR+6, HDR+7, HDR+16, HDR+30, SETHDR+4, SETHDR+7, REPDRG+12
>> IORVON SETHDR+4, SETHDR+7
IOSL REP1+15
J VPRVFLTR+1~, REP1+26*, REP1+27
LINE1 HDR+1~, HDR+3*, HDR+4*, HDR+5*, HDR+6*, HDR+31
LINE2 HDR+1~, HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13*, HDR+14*, HDR+15*, HDR+16*, HDR+30*
, HDR+31
LINE3 HDR+1~, HDR+17*
>> LOCKPATS( SETITEM+100
>> MATFLTR HDR+18, HDR+21, SETITEM+41, SETITEM+42, SETITEM+43, SETITEM+44
>> MBMSITE SETSORT+36, SETSORT+54, SETITEM+8, SETITEM+21
MSGDT SETSORT+2~, SETSORT+16*, SETSORT+17*, SETSORT+18, SETSORT+26*, SETSORT+27*, SETSORT+28, SETSORT+38*, SETSORT+39*, SETSORT+40
, SETSORT+44*, SETSORT+45*, SETSORT+47, SETSORT+55*, SETSORT+56, SETSORT+62*, SETSORT+63*, SETSORT+64, SETSORT+69*, SETSORT+70*
, SETSORT+71, SETSORT+73, SETITEM+4~, SETITEM+11*, SETITEM+91, SETITEM+92, SETITEM+97
MSGTYPE SETSORT+2~
>> MSTPFLTR HDR+18, HDR+25, SETSORT+52, SETSORT+56, SETITEM+36, SETITEM+37, SETITEM+47, SETITEM+74, SETITEM+87
>> MSTPFLTR1 HDR+25, SETITEM+76
>> MTARR( HDR+25
MTYPE SETITEM+4~, SETITEM+18*, SETITEM+33, SETITEM+36, SETITEM+46, SETITEM+47, SETITEM+63, SETITEM+66, SETITEM+70, SETITEM+72
, SETITEM+74, SETITEM+85, SETITEM+87
NEWRX SETITEM+4~
>> PATFLTR HDR+18, HDR+27, SETSORT+13, SETSORT+25, SETITEM+14
>> PATFLTR( SETSORT+14, SETSORT+25, SETITEM+14
PATIEN SETITEM+4~
PATMTCH SETSORT+2~
PATNAME SETSORT+2~, SETITEM+80*, SETITEM+90, SETITEM+93
PATNM SETITEM+4~
PROMTCH SETSORT+2~
PROVIDER SETITEM+5~, SETITEM+82*, SETITEM+83*, SETITEM+90, SETITEM+96
PRV VPRVFLTR+1~, REP1+9*, REP1+10, REP1+11, REP1+12, REP1+13, REP1+15
PRVFLTR HDR+18, HDR+26, SETITEM+17, REP1+23!, REP1+32
PRVFLTR( SETITEM+17, REP1+30*
PRVLST REP1+5!
PRVLST("DILIST" REP1+5, REP1+9, REP1+10, REP1+11, REP1+12, REP1+13, REP1+15, REP1+19, REP1+20, REP1+27
>> PSNPINST SETSORT+39, SETSORT+40, SETSORT+54, SETITEM+8
>> PSOALLST SETSORT+72, SETITEM+21*, SETITEM+23, SETITEM+46
>> PSOCCRST HDR+15
>> PSOCSERX HDR+4, HDR+5, SETITEM+57, SETITEM+58
>> PSOCSGRP SETITEM+84
>> PSOCSSCH HDR+5
>> PSODETDP SETHDR+2
>> PSOHDSTS HDR+14
>> PSOLKBKD HDR+3, SETSORT+7
>> PSOMAXQS HDR+7, SETSORT+14, SETSORT+17, SETSORT+18, SETSORT+24, SETSORT+27, SETSORT+28, SETSORT+37, SETSORT+39, SETSORT+40
, SETSORT+45, SETSORT+46, SETSORT+47, SETSORT+53, SETSORT+55, SETSORT+56, SETSORT+63, SETSORT+70, SETSORT+71, SETSORT+73
>> PSORDER SETHDR+5
>> PSOSRTBY SETHDR+6
>> PSOSTFLT HDR+10, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15, SETSORT+33, SETSORT+72, SETITEM+46
QUIT VPRVFLTR+1~, REP1+8*, REP1+9, REP1+16*
RANGE VPRVFLTR+1~, REP1+21*, REP1+24, REP1+25
>> REDTFLTR HDR+3, HDR+18, HDR+20, SETSORT+9, SETSORT+10
RELMRD SETSORT+3~, RELMSG+3~, RELMSG+6*
RELMSGID SETSORT+3~, RELMSG+3~, RELMSG+4*, RELMSG+5, RELMSG+6, RELMSG+7, RELMSG+8
REQIEN SETITEM+4~
>> RESARY SETITEM+37
>> RESARY( SETITEM+39
RESTYPE SETITEM+4~, SETITEM+24*, SETITEM+38, SETITEM+39, SETITEM+70, SETITEM+74
RSNIEN CHKSTSLST+5~, CHKSTSLST+11*, CHKSTSLST+12
>> RXREQARY SETITEM+87
>> RXREQARY( SETITEM+89
SKIP SETITEM+6~, SETITEM+30*, SETITEM+37, SETITEM+38*, SETITEM+39*, SETITEM+73*, SETITEM+74, SETITEM+77*, SETITEM+78*, SETITEM+86*
, SETITEM+87, SETITEM+88*, SETITEM+89*
>> SORT SETITEM+92*, SETITEM+93*, SETITEM+94*, SETITEM+95*, SETITEM+96*, SETITEM+97*, SETITEM+98*, SETITEM+99, SETITEM+100
SRTORD SETHDR+1~, SETHDR+5*, SETHDR+7
SRTPOS SETHDR+1~, SETHDR+6*, SETHDR+7
STATIEN SETITEM+4~, SETITEM+19*
STS SETSORT+2~
STSDTME CHKSTSLST+5~, CHKSTSLST+8*, CHKSTSLST+9
STSFLTR HDR+18, HDR+24, SETSORT+33, SETSORT+34, SETITEM+21*, SETITEM+23, SETITEM+47, SETITEM+51, SETITEM+52, SETITEM+53
, CHKSTSLST~, CHKSTSLST+12
>> STSFLTR1 HDR+24, SETITEM+52, SETITEM+53
STSIEN SETSORT+2~, CHKSTSLST+5~, CHKSTSLST+9*, CHKSTSLST+11
STSLST SETSORT+3~, SETSORT+35
STSLST( SETSORT+34*, SETSORT+37, SETSORT+46
>> STSRMARY( CHKSTSLST+12
VALMHDR HDR+31!
VALMHDR(1 HDR+31*
VALMHDR(2 HDR+31*
VDRGFLTR HDR+18, HDR+28, SETSORT+61, SETSORT+63, SETSORT+64, SETITEM+60, REPDRG+1, REPDRG+11*, REPDRG+12!
VDRGIEN SETITEM+4~, SETITEM+27*, SETITEM+43, SETITEM+44, SETITEM+60
VPATIEN SETITEM+5~, SETITEM+18*, SETITEM+41, SETITEM+42, SETITEM+43, SETITEM+44
VPRV VPRVFLTR+1~, REP1+27*, REP1+28, REP1+29
VPRVFLTR REP1+23!, REP1+32!
VPRVFLTR( REP1+28*
>> VPRVIEN SETITEM+26*, SETITEM+42, SETITEM+43, SETITEM+44
X SETSORT+2~, REP1+4, REP1+21, VDRGFLTR+2~
XX VPRVFLTR+1~, PRVLHDR+1~, PRVLHDR+2*
Y SETITEM+21, REP1+3, VDRGFLTR+2~, REPDRG+8, REPDRG+10, REPDRG+11
Z SETSORT+2~, SETITEM+90*, SETITEM+91*, SETITEM+99
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