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

Package: Outpatient Pharmacy

Routine: PSOERSE1


Information

PSOERSE1 ;ALB/RM - Single eRx View/Display ;Jan 30, 2024@12:43:34

Source Information

Source file <PSOERSE1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 10 INIT^PSOERSE2  ($$COMPARE,ADDLINE,RESET,SETPAT,VIDEO)^PSOERUT0  SETPROV^PSOERUT1  SETDRUG^PSOERUT2  (ALLERGY,SETDIAGS)^PSOERUT3  $$ACCDTBY^PSOERUT4  $$CHGMTYPE^PSOERX1D  ($$GETRESP,$$RESOLV)^PSOERXU2  
($$EFFDATE,$$GETPROV)^PSOERXU5  ERXDATA^PSOERXU9  
List Manager 3 EN^VALM  (CLEAR,FULL,INSTR)^VALM1  (CLEAN,CNTRL,RESTORE,SET)^VALM10  
VA FileMan 3 ^%DT  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Outpatient Pharmacy 15 PSO ERX DISPLAY MENU  PSO ERX SINGLE ERX DISPLAY  PSO ERX VIEW ORIGINAL ERX  PSO ERX VIEW REQUEST ERX  PSO ERX VIEW RESPONSE ERX  PSOERCR0  PSOERSE3  PSOERX1  
PSOERX1A  PSOERX1C  PSOERX1H  PSOERXH1  PSOERXU2  PSOERXU4  PSOERXU5  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(PSOIEN) ; -- main entry point for PSO ERX SINGLE ERX DISPLAY
HDR ; -- header code
GETMTYPE(ERXIEN) ;Retrieve the eRx Message Type
; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; Output: MTYPEE - eRx Message Type
INIT ;
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
ERXMTYPE(ERXIEN) ;Retrieve the message type in File 52.49
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
ERXRCVDT(ERXIEN) ;
S2017(MODE,NAMESPACE,ERXIEN,S2017) ;Retrieve erx written and effective/issue date
GETHLDSTA(ERXHLDARY,ERXIEN) ;Retrieve the Erx Hold Status, Reason, and Hold By
; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; Output: ERXHLDARY - An array which must be passed in by reference; returned with the following:
; ERXHLDARY(#)=value or if no hold status ERXHLDARY(0)=""
; Where:
; # - is a sequential number greater than zero
; value - is a line of text
; 1-Hold Status
; 2-Hold Reason
; 3-Hold Entered By
GETERXRDT(ERXIEN) ;Retrieve the eRx Received Date time stamp
; Input : ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49)
; Output: ERXRADT - eRx Recieved Date time stamp^accepted by^date accepted
; Example: 1/19/24@14:05^LASTNAME,FIRSTNAME^9/26/24@10:30
REF ;Screen Refresh
VO ; View Original eRx Action
VRR ; View Request
VRE ; View Request Response
RELERX(ERXIEN,MSGTYPE) ; Returns the Selected Related eRx IEN
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49)
; MSGTYPE - Relation types ("N":NewRx;"RR,CR,CA":Request;"RE,CN,CX":Response)
DEANOTE(LINE) ;DEA Note for CS Digitally Signed eRx records

External References

Name Field # of Occurrence
^%DT S2017+10
$$GET1^DIQ EN+6, HDR+2, HDR+3, HDR+5, HDR+7, HDR+9, HDR+10, HDR+11, HDR+12, GETMTYPE+4
, GETMTYPE+5, GETMTYPE+6, GETMTYPE+7, GETMTYPE+8, GETMTYPE+9, INIT+30, INIT+39, INIT+41, INIT+46, ERXMTYPE+6
, ERXMTYPE+7, ERXMTYPE+8, ERXMTYPE+9, S2017+3, S2017+4, S2017+11, GETHLDSTA+13, GETHLDSTA+17, GETHLDSTA+19, GETHLDSTA+20
, GETHLDSTA+21, GETHLDSTA+22, GETERXRDT+7, RELERX+7, RELERX+10, RELERX+14, RELERX+23, RELERX+34
^DIR RELERX+36
INIT^PSOERSE2 INIT+20
$$COMPARE^PSOERUT0 ERXRCVDT+7, S2017+5, S2017+6, S2017+12, S2017+13
ADDLINE^PSOERUT0 INIT+16, ERXRCVDT+7, S2017+7, S2017+14
RESET^PSOERUT0 INIT+7
SETPAT^PSOERUT0 INIT+29
VIDEO^PSOERUT0 INIT+48
SETPROV^PSOERUT1 INIT+32
SETDRUG^PSOERUT2 INIT+37
ALLERGY^PSOERUT3 INIT+41
SETDIAGS^PSOERUT3 INIT+42
$$ACCDTBY^PSOERUT4 GETERXRDT+6
$$CHGMTYPE^PSOERX1D GETMTYPE+9
$$GETRESP^PSOERXU2 RELERX+17
$$RESOLV^PSOERXU2 RELERX+19, RELERX+21
$$EFFDATE^PSOERXU5 S2017+10
$$GETPROV^PSOERXU5 INIT+31
ERXDATA^PSOERXU9 INIT+34
EN^VALM EN+7
CLEAR^VALM1 EXIT+3
FULL^VALM1 RELERX+30
INSTR^VALM1 HDR+3, HDR+6, HDR+8, HDR+9, HDR+14
CLEAN^VALM10 EXIT+2
CNTRL^VALM10 INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
RESTORE^VALM10 REF+1
SET^VALM10 INIT+23, DEANOTE+2, DEANOTE+4, DEANOTE+6, DEANOTE+8
$$FMTE^XLFDT HDR+9, S2017+5, S2017+6, S2017+12, S2017+13, GETERXRDT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VO+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VRR+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VRE+4
Function Call: WRITE
  • Prompt: !!,"# ERX ID",?22,"ERX TYPE",?42,"STATUS",?50,"DATE/TIME"
  • Line Location: RELERX+31
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: RELERX+32
Function Call: WRITE
  • Prompt: !,SEQ,?3,$$GET1^DIQ(52.49,ERX,.01),?22,$$GET1^DIQ(52.49,ERX,.08),?42,$$GET1^DIQ(52.49,ERX,1),?50,$$GET1^DIQ(52.49,ERX,.03)
  • Line Location: RELERX+34
Function Call: WRITE
  • Prompt: !
  • Line Location: RELERX+35
Routine Call
  • DIR
  • Line Location:
    • RELERX+36
Routine Call
  • VALM
  • Line Location:
    • EN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
52.4919 GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.49 - [#52.49] S2017+9, GETHLDSTA+18, RELERX+6, RELERX+9, RELERX+23
^TMP("PSOERSE1" INIT+5!, INIT+8*

Label References

Name Line Occurrences
$$ERXMTYPE INIT+3
$$GETERXRDT ERXRCVDT+2
$$GETHLDSTA INIT+12
$$GETMTYPE HDR+4
$$RELERX VO+2, VRR+2, VRE+2
DEANOTE INIT+46
ERXRCVDT INIT+24, INIT+44
HDR REF+2
INIT REF+2
REF VO+5, VRR+5, VRE+5
S2017 INIT+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCDTBY GETERXRDT+4~, GETERXRDT+6*, GETERXRDT+8
CHGMESRI GETMTYPE+3~, GETMTYPE+8*, GETMTYPE+9
CHGMESRQ GETMTYPE+3~, GETMTYPE+7*, GETMTYPE+8
CNTR GETHLDSTA+10~, GETHLDSTA+15*, GETHLDSTA+20*, GETHLDSTA+21*, GETHLDSTA+22*, GETHLDSTA+23, GETHLDSTA+24
CURSTATE GETHLDSTA+10~, GETHLDSTA+13*, GETHLDSTA+16
CURSTATI GETHLDSTA+10~, GETHLDSTA+17*, GETHLDSTA+19
DDASH INIT+1~, INIT+23*
DIR RELERX+4~
DIR("A" RELERX+35*
DIR(0 RELERX+35*
DIROUT RELERX+4~, RELERX+36
>> DIRUT RELERX+36
DTOUT RELERX+4~
EPRVIEN INIT+1~, INIT+30*, INIT+31*
ERTYPEX ERXMTYPE+4~, ERXMTYPE+7*, ERXMTYPE+10
ERX VO+1~, VRR+1~, VRE+1~, RELERX+4~, RELERX+5*, RELERX+6*, RELERX+7, RELERX+8, RELERX+9, RELERX+34*
ERXARR RELERX+4~, RELERX+13, RELERX+28
ERXARR( RELERX+8*, RELERX+11*, RELERX+24*, RELERX+25*, RELERX+26*, RELERX+33, RELERX+34, RELERX+37
ERXARR(1 RELERX+29
ERXARR(2 RELERX+29
ERXARR(999 RELERX+35
ERXDATA INIT+1~, INIT+34, INIT+36
ERXDATA(1 INIT+36
ERXDRGID INIT+1~, INIT+35*, INIT+36*
ERXDT S2017+1~, S2017+4*, S2017+6
ERXEFFDT S2017+1~, S2017+10*, S2017+13
ERXHLD INIT+1~, INIT+12*, INIT+13
ERXHLDARY INIT+1~, INIT+12, GETHLDSTA~, GETHLDSTA+11!
ERXHLDARY( INIT+13, INIT+14, INIT+15, GETHLDSTA+20*, GETHLDSTA+21*, GETHLDSTA+22*, GETHLDSTA+23*
ERXHLDRSN INIT+1~, INIT+14*, INIT+15*, INIT+16, INIT+17
ERXIEN EN+1~, EN+3*, HDR+2, HDR+3, HDR+4, HDR+5, HDR+7, HDR+9, HDR+10, HDR+11
, HDR+12, GETMTYPE~, GETMTYPE+4, GETMTYPE+5, GETMTYPE+6, GETMTYPE+7, GETMTYPE+9, INIT+3, INIT+12, INIT+20
, INIT+24, INIT+29, INIT+30, INIT+31, INIT+32, INIT+34, INIT+37, INIT+40, INIT+41, INIT+42
, INIT+44, ERXMTYPE~, ERXMTYPE+3, ERXMTYPE+6, ERXMTYPE+7, ERXMTYPE+8, ERXRCVDT~, ERXRCVDT+2, S2017~, S2017+3
, S2017+4, S2017+9, S2017+10, S2017+11, GETHLDSTA~, GETHLDSTA+13, GETHLDSTA+17, GETHLDSTA+18, GETHLDSTA+19, GETHLDSTA+21
, GETHLDSTA+22, GETERXRDT~, GETERXRDT+5, GETERXRDT+6, GETERXRDT+7, VO+2, VO+3*, VRR+2, VRR+3*, VRE+2
, VRE+3*, RELERX~, RELERX+6, RELERX+14, RELERX+17, RELERX+19, RELERX+21, RELERX+24
ERXMTYPE EN+1~, INIT+3*, INIT+19, ERXMTYPE+4~, ERXMTYPE+5*, ERXMTYPE+6*, ERXMTYPE+10
ERXRADT GETERXRDT+4~, GETERXRDT+7*, GETERXRDT+8*, GETERXRDT+9
ERXRDT INIT+1~, ERXRCVDT+1~, ERXRCVDT+2*, ERXRCVDT+3, ERXRCVDT+4, ERXRCVDT+5
ERXSTAT ERXMTYPE+4~, ERXMTYPE+9*
ERXSTATSD EN+1~, EN+4*, EXIT+1!
ERXWDATE S2017+1~, S2017+11*, S2017+12
HARY GETHLDSTA+10~
HDR HDR+1~, HDR+13*, HDR+14*
HGHLIGHT EN+1~
HL GETHLDSTA+10~
>> I REF+1*
>> IOINHI HDR+2, HDR+3, HDR+4, HDR+9, HDR+10, INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
>> IOINORM HDR+2, HDR+3, HDR+4, HDR+11, HDR+14, INIT+17, INIT+25, DEANOTE+4, DEANOTE+6, DEANOTE+8
>> IORVOFF HDR+6, HDR+8, HDR+10, HDR+14
>> IORVON HDR+6, HDR+8, HDR+14
>> IOUON HDR+14
LHFOUND GETHLDSTA+10~, GETHLDSTA+18*, GETHLDSTA+19*
LHMATCH GETHLDSTA+10~, GETHLDSTA+18*, GETHLDSTA+19, GETHLDSTA+21, GETHLDSTA+22
LHSTATI GETHLDSTA+10~, GETHLDSTA+19*, GETHLDSTA+20
LINE INIT+6*, INIT+16*, INIT+17, INIT+22*, INIT+23, INIT+24*, INIT+25*, INIT+26, INIT+46*, INIT+47
, DEANOTE~, DEANOTE+2*, DEANOTE+3*, DEANOTE+4, DEANOTE+5*, DEANOTE+6, DEANOTE+7*, DEANOTE+8, DEANOTE+9*
LINETXT DEANOTE+1~, DEANOTE+3*, DEANOTE+4, DEANOTE+5*, DEANOTE+6, DEANOTE+7*, DEANOTE+8
MBMSITE EN+1~, EN+6*
MIEN S2017+1~, S2017+9*, S2017+10
MODE INIT+1~, INIT+4*, INIT+16, INIT+29, INIT+32, INIT+37, INIT+40, INIT+41, INIT+42, ERXRCVDT+7
, S2017~, S2017+5, S2017+6, S2017+7, S2017+12, S2017+13, S2017+14
MSGTYPE RELERX~, RELERX+7, RELERX+10, RELERX+24, RELERX+25, RELERX+26
MTYPE GETMTYPE+3~, GETMTYPE+4*, GETMTYPE+9, RELERX+4~, RELERX+14*, RELERX+16, RELERX+18, RELERX+20
MTYPEE GETMTYPE+3~, GETMTYPE+5*, GETMTYPE+9*, GETMTYPE+11
NAMESPACE S2017~
NMSPC INIT+1~, INIT+4*, INIT+16, INIT+29, INIT+32, INIT+37, INIT+40, INIT+41, INIT+42, ERXRCVDT+7
, S2017+7, S2017+14
ORERXIEN VO+1~, VO+2*, VO+3, VO+4
ORIGIEN RELERX+4~, RELERX+15*, RELERX+23*, RELERX+24
PSOIEN EN~, EN+2, EN+3, INIT+39, INIT+46, VO+3*, VRR+3*, VRE+3*
>> PSOREFSH EXIT+4*
REERXIEN VRE+1~, VRE+2*, VRE+3, VRE+4
REQIEN RELERX+4~, RELERX+15*, RELERX+17*, RELERX+19*, RELERX+21*, RELERX+22, RELERX+23, RELERX+25
RERX RELERX+4~, RELERX+9*, RELERX+10, RELERX+11
RESIEN RELERX+4~, RELERX+15*, RELERX+17*, RELERX+19*, RELERX+21*, RELERX+26
RESPVAL GETMTYPE+3~, GETMTYPE+6*, GETMTYPE+9
RRERXIEN VRR+1~, VRR+2*, VRR+3, VRR+4
S2017 INIT+1~, INIT+39*, INIT+40, S2017~, S2017+2, S2017+8
SDERXFLG EN+1~, EN+5*, INIT+20*
SEQ RELERX+4~, RELERX+5*, RELERX+8*, RELERX+11*, RELERX+24*, RELERX+25*, RELERX+26*, RELERX+33*, RELERX+34
STATIEN ERXMTYPE+4~, ERXMTYPE+8*, ERXMTYPE+9
TMPARR RELERX+4~
TMPARR( RELERX+7, RELERX+8*, RELERX+10, RELERX+11*
>> VAHPER GETHLDSTA+14*, GETHLDSTA+21*
>> VAHREA GETHLDSTA+14*, GETHLDSTA+22*
>> VAHSTA GETHLDSTA+14*, GETHLDSTA+20*
>> VALMAR INIT+21, INIT+22, INIT+25
>> VALMBCK EXIT+4*, REF+2*, VO+4*, VRR+4*, VRE+4*
>> VALMBG INIT+9*
>> VALMCNT INIT+26*, INIT+47*
>> VALMEVL REF+1
VALMHDR HDR+1!
VALMHDR(1 HDR+2*
VALMHDR(2 HDR+4*
VALMHDR(3 HDR+10*, HDR+11*
>> VALMSG VO+4*, VRR+4*, VRE+4*
WDATE S2017+1~, S2017+3*, S2017+5
X S2017+1~, S2017+10*, RELERX+4~
XE INIT+1~, ERXRCVDT+4*, ERXRCVDT+5*, ERXRCVDT+6*, ERXRCVDT+7, S2017+1~, S2017+5*, S2017+6*, S2017+7, S2017+12*
, S2017+13*, S2017+14
XV S2017+1~
XX RELERX+4~, RELERX+32*
Y S2017+10, RELERX+4~, RELERX+37
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