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  ($$EPATFLST,$$EPRVFLST,$$LASTREDT,$$PATNAME,$$STATEABB)^PSOERUT  CHKEXP^PSOERX  $$CHKPRV2^PSOERX1A  ($$GETREQ,RRDELTA)^PSOERXU2  ($$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

External References

Name Field # of Occurrence
FIND^DIC REP1+4
$$GET1^DIQ HDR+24, SETITEM+39, SETITEM+73
^DIR REP1+2, REP1+16, REP1+20
$$ELIGSTS^PSOERPC1 SETSORT+64, SETITEM+34
$$FILTERED^PSOERPC1 SETITEM+59, SETITEM+61
LOADSTS^PSOERPC1 SETSORT+35
$$MATCHLBL^PSOERPC2 HDR+21
$$EPATFLST^PSOERUT HDR+27
$$EPRVFLST^PSOERUT HDR+26
$$LASTREDT^PSOERUT REP1+13
$$PATNAME^PSOERUT SETITEM+69
$$STATEABB^PSOERUT REP1+12
CHKEXP^PSOERX SETITEM+52, SETITEM+55
$$CHKPRV2^PSOERX1A REP1+3
$$GETREQ^PSOERXU2 SETITEM+64
RRDELTA^PSOERXU2 SETITEM+65
$$GETDRUG^PSOERXU5 SETITEM+24
$$GETPAT^PSOERXU5 SETITEM+12, SETITEM+56
$$GETPROV^PSOERXU5 SETITEM+13, SETITEM+73
$$CSFILTER^PSOERXUT SETITEM+49
INSTR^VALM1 HDR+7, SETHDR+4, SETHDR+7
$$FMADD^XLFDT SETSORT+7
$$FMTE^XLFDT HDR+20, HDR+23, SETITEM+76, SETITEM+77, REP1+13
$$UP^XLFSTR SETITEM+45, SETITEM+81

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
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
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.45 - [#52.45] SETSORT+64, SETITEM+17
^PS(52.46 - [#52.46] SETSORT+15, SETSORT+24, SETITEM+68
^PS(52.48 - [#52.48] SETITEM+72
^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+62, SETSORT+63, SETSORT+65, RELMSG+4, RELMSG+6, SETITEM+8, SETITEM+9, SETITEM+10, SETITEM+17
, SETITEM+18, SETITEM+19, SETITEM+20, SETITEM+21, SETITEM+72, REP1+29
^TMP("PSOERINC" SETSORT+4!, SETSORT+69!, RELMSG+5, RELMSG+8*, SETITEM+87*
^TMP("PSOERRXS" SETSORT+4!, SETITEM+85*, SETITEM+86*

Label References

Name Line Occurrences
PRVLHDR REP1+7, REP1+17
RELMSG SETSORT+20, SETSORT+30, SETSORT+42, SETSORT+49, SETSORT+58, SETSORT+67
REP1 REP1+5, REP1+20, REP1+32
SETHDR HDR+31
SETITEM SETSORT+19, SETSORT+29, SETSORT+41, SETSORT+48, SETSORT+57, SETSORT+66, 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+61, RELMSG+6
>> CNT REP1+8*, REP1+14*, REP1+15
COMSEG VPRVFLTR+1~, REP1+25*, REP1+26
COUNTER SETITEM~, SETITEM+88*
CSERX SETITEM+5~, SETITEM+19*, SETITEM+47, SETITEM+48, SETITEM+74
CSGROUP SETSORT+2~, SETITEM+74*, SETITEM+85, SETITEM+86
CSPREFIX SETITEM+5~
DELTA SETITEM+4~, SETITEM+65
DELTA( SETITEM+66
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
DOB SETSORT+2~, SETITEM+5~, SETITEM+70*, SETITEM+76, SETITEM+80
>> DOBFLTR HDR+18, HDR+23, SETSORT+15, SETSORT+23, SETSORT+24, SETITEM+39
>> DRGFLTR HDR+18, HDR+22, SETITEM+45
DRUMTCH SETSORT+2~
DT SETSORT+7
DTOUT REP1+8!
EDRUG SETITEM+4~, SETITEM+23*, SETITEM+24*, SETITEM+45, SETITEM+76, SETITEM+81
ENDDATE SETSORT+3~, SETSORT+7*, SETSORT+10*, SETSORT+17, SETSORT+27, SETSORT+39, SETSORT+45, SETSORT+55, SETSORT+62, RELMSG+6
EPATIEN SETITEM+5~, SETITEM+12*, SETITEM+37, SETITEM+39, SETITEM+56*, SETITEM+68, SETITEM+86
EPROVIEN SETITEM+5~, SETITEM+13*, SETITEM+15, SETITEM+41
EPRV VPRVFLTR+1~, REP1+29*, REP1+30
EPTNODE0 SETITEM+6~, SETITEM+68*, SETITEM+69
EPTNODE1 SETITEM+6~, SETITEM+68*, SETITEM+70
EPTNODE2 SETITEM+6~, SETITEM+68*
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+62, SETSORT+63, SETSORT+65
, SETSORT+66, SETSORT+67, 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+65*, SETSORT+66, SETSORT+67, RELMSG~
, RELMSG+4, SETITEM~, SETITEM+8, SETITEM+9, SETITEM+10, SETITEM+12, SETITEM+13, SETITEM+17, SETITEM+18, SETITEM+19
, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+49, SETITEM+52, SETITEM+55, SETITEM+56, SETITEM+64, SETITEM+65, SETITEM+69
, SETITEM+72, SETITEM+73, SETITEM+78, SETITEM+79, SETITEM+80, SETITEM+81, SETITEM+82, SETITEM+83, SETITEM+84, SETITEM+86
, SETITEM+87
ERXNODE0 SETITEM+6~, SETITEM+9*, SETITEM+11, SETITEM+12, SETITEM+16
ERXNODE1 SETITEM+6~, SETITEM+9*, SETITEM+43
ERXNODE2 SETITEM+6~, SETITEM+10*, SETITEM+13
ERXNODE3 SETITEM+6~, SETITEM+10*, SETITEM+23
ERXPAT SETSORT+3~, SETSORT+14*, SETSORT+15, SETSORT+17, SETSORT+18, SETSORT+24*, SETSORT+25, SETSORT+27, SETSORT+28
ERXPRV SETSORT+3~
ERXQFLG SETITEM+4~, SETITEM+62*, SETITEM+63, SETITEM+67*
ERXSTAT SETITEM+4~, SETITEM+17*, SETITEM+34, SETITEM+35, SETITEM+52, SETITEM+55, SETITEM+61, SETITEM+75, SETITEM+77, SETITEM+84
ERXSTS SETSORT+2~, SETSORT+37*, SETSORT+39, SETSORT+40, SETSORT+46*, SETSORT+47, SETSORT+63*, SETSORT+64, SETSORT+65
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+66, RELMSG+7, SETITEM~, SETITEM+79
, SETITEM+80, SETITEM+81, SETITEM+82, SETITEM+83, SETITEM+84
FILTER HDR+19~*, HDR+20*, HDR+21*, HDR+22*, HDR+23*, HDR+24*, HDR+25*, HDR+26*, HDR+27*, HDR+28*
, HDR+29
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+29, SETHDR+7
>> IOINORM HDR+3, HDR+6, HDR+7, HDR+16, HDR+29, SETHDR+4, SETHDR+7
>> 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+30
LINE2 HDR+1~, HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13*, HDR+14*, HDR+15*, HDR+16*, HDR+29*
, HDR+30
LINE3 HDR+1~, HDR+17*
>> LOCKPATS( SETITEM+86
>> MATFLTR HDR+18, HDR+21, SETITEM+29, SETITEM+30, SETITEM+31, SETITEM+32
>> MBMSITE SETSORT+36, SETSORT+54, SETITEM+8
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+61*, SETSORT+62*, SETSORT+63, SETSORT+65, SETITEM+4~
, SETITEM+11*, SETITEM+77, SETITEM+78, SETITEM+83
MSGTYPE SETSORT+2~
>> MSTPFLTR HDR+18, HDR+25, SETSORT+52, SETSORT+56, SETITEM+27, SETITEM+35
>> MTARR( HDR+25
MTYPE SETITEM+4~, SETITEM+16*, SETITEM+24, SETITEM+27, SETITEM+34, SETITEM+35, SETITEM+52, SETITEM+55, SETITEM+59, SETITEM+61
, SETITEM+63, SETITEM+75
NEWRX SETITEM+4~
>> PATFLTR HDR+18, HDR+27, SETSORT+13, SETSORT+25, SETITEM+37
>> PATFLTR( SETSORT+14, SETSORT+25, SETITEM+37
PATIEN SETITEM+4~
PATMTCH SETSORT+2~
PATNAME SETSORT+2~, SETITEM+69*, SETITEM+76, SETITEM+79
PATNM SETITEM+4~
PROMTCH SETSORT+2~
PROVIDER SETITEM+5~, SETITEM+72*, SETITEM+73*, SETITEM+76, SETITEM+82
PRV VPRVFLTR+1~, REP1+9*, REP1+10, REP1+11, REP1+12, REP1+13, REP1+15
PRVFLTR HDR+18, HDR+26, SETITEM+15, SETITEM+41, REP1+23!, REP1+32
PRVFLTR( SETITEM+15, SETITEM+41, 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
>> PSOCCRST HDR+15
>> PSOCSERX HDR+4, HDR+5, SETITEM+47, SETITEM+48
>> PSOCSGRP SETITEM+74
>> PSOCSSCH HDR+5
>> 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+62, SETSORT+63, SETSORT+65
>> PSORDER SETHDR+5
>> PSOSRTBY SETHDR+6
>> PSOSTFLT HDR+10, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15, SETSORT+33
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~, SETITEM+64*, SETITEM+65
RESTYPE SETITEM+4~, SETITEM+18*, SETITEM+59, SETITEM+63
>> SORT SETITEM+78*, SETITEM+79*, SETITEM+80*, SETITEM+81*, SETITEM+82*, SETITEM+83*, SETITEM+84*, SETITEM+85, SETITEM+86
SRTORD SETHDR+1~, SETHDR+5*, SETHDR+7
SRTPOS SETHDR+1~, SETHDR+6*, SETHDR+7
STATIEN SETITEM+4~, SETITEM+17*
STS SETSORT+2~
>> STSFLTR HDR+18, HDR+24, SETSORT+33, SETSORT+34, SETITEM+35, SETITEM+43
STSIEN SETSORT+2~
STSLST SETSORT+3~, SETSORT+35
STSLST( SETSORT+34*, SETSORT+37, SETSORT+46
VALMHDR HDR+30!
VALMHDR(1 HDR+30*
VALMHDR(2 HDR+30*
VDRGIEN SETITEM+4~, SETITEM+21*, SETITEM+31, SETITEM+32
VPATIEN SETITEM+5~, SETITEM+16*, SETITEM+29, SETITEM+30, SETITEM+31, SETITEM+32
VPRV VPRVFLTR+1~, REP1+27*, REP1+28, REP1+29
VPRVFLTR REP1+23!, REP1+32!
VPRVFLTR( REP1+28*
>> VPRVIEN SETITEM+20*, SETITEM+30, SETITEM+31, SETITEM+32
X SETSORT+2~, REP1+4, REP1+21
XX VPRVFLTR+1~, PRVLHDR+1~, PRVLHDR+2*
>> Y REP1+3
Z SETSORT+2~, SETITEM+76*, SETITEM+77*, SETITEM+85
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