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
VSR ; View Suggested eRx

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HDR+18
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+33
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: RELERX+34
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+36
Function Call: WRITE
  • Prompt: !
  • Line Location: RELERX+37
Function Call: WRITE
  • Prompt: !
  • Line Location: VSR+5
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VSR+6
Function Call: WRITE
  • Prompt: !,"You will be taken to the VistA prescription that was used to pre-populate the"
  • Line Location: VSR+7
Function Call: WRITE
  • Prompt: !,"Drug fields (Product/SIG/Qty/Days Supply/# of Refills/Substitution) for this"
  • Line Location: VSR+8
Function Call: WRITE
  • Prompt: !,"eRx (aka,'Suggested VistA Rx'). This VistA Rx may or may not be for the same"
  • Line Location: VSR+9
Function Call: WRITE
  • Prompt: !,"patient in this eRx being processed."
  • Line Location: VSR+10
Function Call: WRITE
  • Prompt: !,$G(IOUON),XX,$G(IOUOFF)
  • Line Location: VSR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] RECALL^DILFD
^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