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

Package: Outpatient Pharmacy

Routine: PSOERX1E


Information

PSOERX1E ;ALB/JSG - eRx Utilities ; 11/27/2019 11:02am

Source Information

Source file <PSOERX1E.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 8 $$STATEABB^PSOERUT  SET^PSOERX1D  TXT2ARY^PSOERXD1  UPDSTAT^PSOERXU1  ($$GETRESP,$$RESOLV)^PSOERXU2  $$GETDRUG^PSOERXU5  $$OPACCESS^PSOERXU7  $$DEAD^PSONVARP  
List Manager 2 PAUSE^VALM1  (CNTRL,SET)^VALM10  
VA FileMan 2 FILE^DIE  ($$GET1,GETS)^DIQ  

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 3 PSOERX1A  PSOERX1B  PSOERX1D  

Entry Points

Name Comments DBIA/ICR reference
PHCHREQ(PSOIEN,RULE,LINE,PRTVIEW) ; Pharmacy Change Request Note
AUTOHOLD(TYPE,ERXIEN,VPATIEN,EPATIEN) ; Checks whether the VistA Patient has an Allergy Assessment or is Eligibile for
; ChampVA Rx Benefit, if not, put all eRx's on Hold (HAL or HEL) - Used by MbM only
DUPVPAT(DFN,LIST) ; Checks whether a VistA Patient has potential duplicate records
; Input: DFN - Pointer to the PATIENT file (#2)
CXRES ;

External References

Name Field # of Occurrence
FILE^DIE AUTOHOLD+27
$$GET1^DIQ PHCHREQ+4, PHCHREQ+6, PHCHREQ+7, AUTOHOLD+8, AUTOHOLD+13, AUTOHOLD+16, AUTOHOLD+25, AUTOHOLD+32, AUTOHOLD+39, AUTOHOLD+40
, AUTOHOLD+41, DUPVPAT+5, DUPVPAT+7, DUPVPAT+15, DUPVPAT+16, DUPVPAT+17, CXRES+9, CXRES+35, CXRES+36, CXRES+71
, CXRES+79, CXRES+80, CXRES+85, CXRES+86, CXRES+87
GETS^DIQ CXRES+19, CXRES+30
$$STATEABB^PSOERUT DUPVPAT+17
SET^PSOERX1D CXRES+48, CXRES+57, CXRES+58, CXRES+68, CXRES+69, CXRES+98
TXT2ARY^PSOERXD1 PHCHREQ+14, CXRES+51, CXRES+59, CXRES+72
UPDSTAT^PSOERXU1 AUTOHOLD+20, AUTOHOLD+21
$$GETRESP^PSOERXU2 CXRES+11
$$RESOLV^PSOERXU2 PHCHREQ+3, CXRES+6
$$GETDRUG^PSOERXU5 AUTOHOLD+39
$$OPACCESS^PSOERXU7 AUTOHOLD+19
$$DEAD^PSONVARP DUPVPAT+13
PAUSE^VALM1 AUTOHOLD+42, AUTOHOLD+44
CNTRL^VALM10 PHCHREQ+16, CXRES+43, CXRES+47, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69
, CXRES+76, CXRES+81, CXRES+82, CXRES+97, CXRES+98
SET^VALM10 PHCHREQ+10, PHCHREQ+11, PHCHREQ+16, PHCHREQ+18, CXRES+43, CXRES+45, CXRES+46, CXRES+47, CXRES+53, CXRES+54
, CXRES+63, CXRES+64, CXRES+65, CXRES+70, CXRES+76, CXRES+78, CXRES+81, CXRES+82, CXRES+83, CXRES+97
, CXRES+99

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following eRx record(s) have been put on Hold ("_$S(TYPE="A":"HAL",1:"HEL")_") because the VistA"
  • Line Location: AUTOHOLD+31
Function Call: WRITE
  • Prompt: !,"Patient ("_$$GET1^DIQ(2,VPATIEN,.01)_") "
  • Line Location: AUTOHOLD+32
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: AUTOHOLD+37
Function Call: WRITE
  • Prompt: ?47,$E($$GET1^DIQ(52.49,OERXIEN,2.1),1,23)
  • Line Location: AUTOHOLD+40
Function Call: WRITE
  • Prompt: ?76,$$GET1^DIQ(52.49,OERXIEN,1)
  • Line Location: AUTOHOLD+41
Function Call: WRITE
  • Prompt: !,HDR,!,XX
  • Line Location: AUTOHOLD+42
Routine Call
  • DIE
  • Line Location:
    • AUTOHOLD+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ,  GETS^DIQ
52.49311 GETS^DIQ
52.493117 GET1^DIQ
52.4955 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("B" DUPVPAT+10, DUPVPAT+11
^PS(52.45 - [#52.45] AUTOHOLD+9
^PS(52.49 - [#52.49] PHCHREQ+5, AUTOHOLD+10, AUTOHOLD+11, CXRES+26, CXRES+27, CXRES+33, CXRES+39, CXRES+84

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT AUTOHOLD+7~, AUTOHOLD+38*, AUTOHOLD+42*
CODEIEN CXRES+1~, CXRES+86*, CXRES+87
COMM CXRES+1~, CXRES+71*, CXRES+72
COMMARY CXRES+1~, CXRES+72!, CXRES+73, CXRES+77
COMMARY( CXRES+74, CXRES+75, CXRES+76
COMMBY CXRES+1~, CXRES+79*, CXRES+81
COMMDTTM CXRES+1~, CXRES+80*, CXRES+82
DATE CXRES+1~, CXRES+25*, CXRES+69
DELTA CXRES+1~
DFN DUPVPAT~, DUPVPAT+5, DUPVPAT+7, DUPVPAT+12
DIR AUTOHOLD+7~, AUTOHOLD+42!, AUTOHOLD+44!
DOB DUPVPAT+4~, DUPVPAT+7*, DUPVPAT+15
DRCVGST CXRES+1~, CXRES+35*, CXRES+36*, CXRES+37*, CXRES+40*, CXRES+59
DUPPAT DUPVPAT+4~, DUPVPAT+11*, DUPVPAT+12, DUPVPAT+13, DUPVPAT+15, DUPVPAT+16, DUPVPAT+17
DUZ AUTOHOLD+19
EPATIEN AUTOHOLD~, AUTOHOLD+8*, AUTOHOLD+10, AUTOHOLD+11
ERESCODE CXRES+1~, CXRES+85*, CXRES+96
ERXDAT CXRES+1~
ERXDAT( CXRES+20, CXRES+21, CXRES+22, CXRES+23, CXRES+24, CXRES+25, CXRES+31, CXRES+32
ERXIEN AUTOHOLD~, AUTOHOLD+8, AUTOHOLD+12, CXRES+6, CXRES+9, CXRES+11, CXRES+13, CXRES+26, CXRES+27, CXRES+39
ERXLST AUTOHOLD+7~, AUTOHOLD+29
ERXLST( AUTOHOLD+22*, AUTOHOLD+38, AUTOHOLD+42
>> ERXSTS AUTOHOLD+13*, AUTOHOLD+14
FDA AUTOHOLD+24!, AUTOHOLD+27!
FDA( AUTOHOLD+25*, AUTOHOLD+26*
FLFN DUPVPAT+4~, DUPVPAT+5*, DUPVPAT+15
FLG CXRES+1~, CXRES+7*, CXRES+14*, CXRES+15*, CXRES+16*, CXRES+17, CXRES+89*, CXRES+90*, CXRES+91*, CXRES+92*
, CXRES+93*, CXRES+94*, CXRES+95
FN CXRES+1~
FULLNAME DUPVPAT+4~, DUPVPAT+5*, DUPVPAT+6, DUPVPAT+15
HAHLDCOD AUTOHOLD+7~, AUTOHOLD+9*
HDR AUTOHOLD+7~, AUTOHOLD+36*, AUTOHOLD+37, AUTOHOLD+42
I PHCHREQ+2~, PHCHREQ+15*, PHCHREQ+16, CXRES+1~, CXRES+33*, CXRES+34, CXRES+35, CXRES+37, CXRES+38*, CXRES+52*
, CXRES+53, CXRES+61*, CXRES+62, CXRES+63, CXRES+74*, CXRES+75, CXRES+76, CXRES+84*, CXRES+85, CXRES+86
ID CXRES+2~, CXRES+24*, CXRES+68
IENS CXRES+2~, CXRES+18*, CXRES+20, CXRES+21, CXRES+22, CXRES+23, CXRES+24, CXRES+25, CXRES+29, CXRES+85
, CXRES+86
IENS2 CXRES+2~, CXRES+29*, CXRES+30, CXRES+31, CXRES+32, CXRES+35
>> IOINHI PHCHREQ+16, CXRES+43, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69, CXRES+76
, CXRES+81, CXRES+82
>> IOINORM PHCHREQ+16, CXRES+43, CXRES+48, CXRES+53, CXRES+57, CXRES+58, CXRES+63, CXRES+68, CXRES+69, CXRES+76
, CXRES+81, CXRES+82
>> IORVOFF CXRES+47, CXRES+97, CXRES+98
>> IORVON CXRES+47, CXRES+97, CXRES+98
>> IOUOFF CXRES+43
>> IOUON CXRES+43
J CXRES+2~
LASTNAME DUPVPAT+4~, DUPVPAT+6*, DUPVPAT+9, DUPVPAT+10
LINE PHCHREQ~, PHCHREQ+10*, PHCHREQ+11*, PHCHREQ+16*, PHCHREQ+18*, CXRES+41*, CXRES+43, CXRES+45, CXRES+46*, CXRES+47*
, CXRES+48, CXRES+53*, CXRES+54*, CXRES+56, CXRES+57, CXRES+58, CXRES+63*, CXRES+64*, CXRES+65*, CXRES+67
, CXRES+68, CXRES+69, CXRES+70*, CXRES+76*, CXRES+78*, CXRES+81*, CXRES+82*, CXRES+83*, CXRES+97*, CXRES+98
, CXRES+99*
LIST DUPVPAT~, DUPVPAT+5!
LIST( DUPVPAT+16*, DUPVPAT+17*
MIEN CXRES+2~
MTYPE CXRES+2~, CXRES+9*, CXRES+10
NEWRXNOT PHCHREQ+2~, PHCHREQ+7*, PHCHREQ+8
NOTE CXRES+2~, CXRES+23*, CXRES+49, CXRES+51
NOTEARY PHCHREQ+2~, PHCHREQ+13!, PHCHREQ+14, CXRES+2~, CXRES+50!, CXRES+51, CXRES+59!, CXRES+60, CXRES+64
NOTEARY( PHCHREQ+15, PHCHREQ+16, CXRES+52, CXRES+53, CXRES+61, CXRES+62, CXRES+63
OERXIEN AUTOHOLD+7~, AUTOHOLD+11*, AUTOHOLD+12, AUTOHOLD+13, AUTOHOLD+16, AUTOHOLD+18, AUTOHOLD+19, AUTOHOLD+20, AUTOHOLD+21, AUTOHOLD+22
, AUTOHOLD+25, AUTOHOLD+26, AUTOHOLD+38*, AUTOHOLD+39, AUTOHOLD+40, AUTOHOLD+41, AUTOHOLD+42
OPATNAME DUPVPAT+4~, DUPVPAT+9*, DUPVPAT+10*, DUPVPAT+11, DUPVPAT+15, DUPVPAT+16
PHCHRQNT PHCHREQ+2~, PHCHREQ+6*, PHCHREQ+8*, PHCHREQ+12, PHCHREQ+14, PHCHREQ+17, PHCHREQ+18, PHCHREQ+21
PRAUTHST CXRES+2~, CXRES+32*, CXRES+40*, CXRES+58
PRIAUTH CXRES+2~, CXRES+31*, CXRES+40*, CXRES+57
PRTVIEW PHCHREQ~, PHCHREQ+1*, PHCHREQ+9, PHCHREQ+19
PSOIEN PHCHREQ~, PHCHREQ+3, AUTOHOLD+7~, AUTOHOLD+18*
RECDATE AUTOHOLD+7~, AUTOHOLD+10*, AUTOHOLD+11
RECODE CXRES+2~
RELERX PHCHREQ+2~, PHCHREQ+5*, PHCHREQ+7
RELHUB PHCHREQ+2~, PHCHREQ+4*, PHCHREQ+5
REQIEN PHCHREQ+2~, PHCHREQ+3*, PHCHREQ+4, PHCHREQ+6, CXRES+2~, CXRES+6*, CXRES+13*
RESCODE CXRES+2~, CXRES+22*
RESDESC CXRES+3~, CXRES+87*, CXRES+98
RESDTTM CXRES+3~, CXRES+20*, CXRES+48
RESIEN CXRES+3~, CXRES+6*, CXRES+11*, CXRES+12, CXRES+18, CXRES+19, CXRES+33, CXRES+71, CXRES+79, CXRES+80
, CXRES+84
>> RESPVAL CXRES+55, CXRES+66, CXRES+91
RESTEXT CXRES+3~, CXRES+96*, CXRES+97
RESVAL CXRES+3~, CXRES+21*, CXRES+47, CXRES+96
RULE PHCHREQ~, PHCHREQ+3, CXRES+5, CXRES+8, CXRES+55, CXRES+66, CXRES+90, CXRES+91, CXRES+92, CXRES+93
, CXRES+94
>> RULES CXRES+5, CXRES+8
>> SDERXFLG CXRES+42, CXRES+54
SFIEN CXRES+3~, CXRES+27*, CXRES+28, CXRES+29, CXRES+33
STATUS CXRES+3~
STR1 CXRES+3~
STR1ARY CXRES+3~
STR2 CXRES+3~
STR2ARY CXRES+3~
TXT CXRES+4~, CXRES+62*, CXRES+63, CXRES+75*, CXRES+76
TYPE AUTOHOLD~, AUTOHOLD+9, AUTOHOLD+20, AUTOHOLD+21, AUTOHOLD+31, AUTOHOLD+33, AUTOHOLD+34
VPATIEN AUTOHOLD~, AUTOHOLD+25, AUTOHOLD+32
XLINE CXRES+4~, CXRES+56*, CXRES+65, CXRES+67*, CXRES+70, CXRES+83*, CXRES+99
XX AUTOHOLD+7~, AUTOHOLD+37*, AUTOHOLD+42
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