Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call