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

Package: Outpatient Pharmacy

Routine: PSOERX1H


Information

PSOERX1H ;ALB/MFR - eRx Utilities ;Aug 14, 2020@12:43:34

Source Information

Source file <PSOERX1H.m>

Entry Points

Name Comments DBIA/ICR reference
DEANOTE ; DEA Note for CS Digitally Signed eRx records
BATCHREM(ERXIEN,REMVIEN,REMCOMM,TYPE) ; Batch Remove/Un-Remove for Additional eRx (Received Same Day, Patient and Provider)
CHKSTA(REMOVERX) ; check if status is RM or type is "REM"
CREATEPN(PSOIEN,CRERXIEN,PNCOMM,CRMEDS,TIUTITLE,ERXBTCHFLG) ;CREATE A PROGRESS NOTE FOR PATIENT
UPDATESUB(PSOTIUDA,PSOIEN,CRMEDS) ;Update Subject of the existing patient progress notes
MARKSIGN(TIUDA,TIUESBY) ; Mark note as electronically signed and send alert to the co-signature recipient
UPDATEPN(PSOTIUDA,PSOIEN) ;Update existing patient progress notes
DRUGHDR ; - Drug Matching Header Line
ADDPNOTE(LINE,PNCOMM) ;
CHECKREC(RECARY) ;check if there are any change requests made for this original eRx.
SELCTREC() ;prompt user to select REC
; N - New
; R - Resend existing REC
ANSWER(PSODIRA,PSODIRB,PSODIR0,PSODIRH) ;
; Input:
; PSODIR0 - DIR(0) string
; PSODIRA - DIR("A") string
; PSODIRB - DIR("B") string
; PSODIRH - DIR("?") string
; Output:
; Function Value - Internal value returned from ^DIR or -1 if user
; up-arrows, double up-arrows or the read times out.
HELP ;REC help
BUILDSUM(ERXIEN) ;Build the existing record of the erx that the user selected
MEDREQ(ERXIEN) ;Existing Medication Requested
UNACC ; Un-Accept eRx from Pending Queue back into the Holding Queue
UNACCBEF(ERXIEN) ; Determines if the eRx has been Un-Accepted Before
; Input: (r)ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49)
ASKCONT ; display "Press <Enter> or '^' to exit" prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The following prescriptions are from the same provider and received on the"
  • Line Location: BATCHREM+27
Function Call: WRITE
  • Prompt: !,"same day:",!
  • Line Location: BATCHREM+28
Function Call: WRITE
  • Prompt: !,"PROVIDER: "_$$GET1^DIQ(52.49,ERXIEN,2.1),?40,"eRx RECEIVED DATE: "_$$GET1^DIQ(52.49,ERXIEN,.03)
  • Line Location: BATCHREM+29
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCHREM+31
Function Call: WRITE
  • Prompt: !,"Updating..."
  • Line Location: BATCHREM+38
Function Call: WRITE
  • Prompt: "done.",$C(7)
  • Line Location: BATCHREM+44
Function Call: WRITE
  • Prompt: !,$S($G(ERXBTCHFLG):" ",1:"")_"Creating a new Progress Note..."
  • Line Location: CREATEPN+15
Function Call: WRITE
  • Prompt: !,$G(IOINHI),"A problem was encountered while creating the Progress Note.",$G(IOINORM),$C(7),!
  • Line Location: CREATEPN+24
Function Call: WRITE
  • Prompt: "Done."
  • Line Location: CREATEPN+30
Function Call: WRITE
  • Prompt: !,"#",?5,"ERX ID",?21,"ERX TYPE",?40,"STATUS",?50,"DATE/TIME"
  • Line Location: CHECKREC+6
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: CHECKREC+7
Function Call: WRITE
  • Prompt: !,CNTR,?5,ERXHUBID,?21,ERXTYPE,?40,ERXSTAT,?50,ERXDTM
  • Line Location: CHECKREC+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECKREC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCTREC+4
Function Call: WRITE
  • Prompt: !!,"NEW - Adds a new Drug/SIG/Qty/Refills/Days Supply suggestion be sent to"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: " the prescriber as an alternative for this Change Request.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"RESEND - Allow users to edit and resend an eRx Change Request."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNACC+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNACC+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNACC+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNACC+6
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNACC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: UNACC+10
Function Call: WRITE
  • Prompt: !,"HOLD Reason is required",!,$C(7)
  • Line Location: UNACC+16
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed"
  • Line Location: UNACC+19
Function Call: WRITE
  • Prompt: !,"in 'WAIT' status.",$G(IOINORM)
  • Line Location: UNACC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: UNACC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: UNACC+31
Function Call: WRITE
  • Prompt: ?40,"Please wait..."
  • Line Location: UNACC+34
Function Call: WRITE
  • Prompt: !!,"eRx successfully un-accepted and placed back on the eRx Holding Queue."
  • Line Location: UNACC+49
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Press <Enter> or '^' to exit.",1)
  • Line Location: ASKCONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^PS(52.45 - [#52.45] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
52.4919 GET1^DIQ
52.49316 GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
^TIU(8925.1 - [#8925.1] FIND1^DIC
^TIU(8925.6 - [#8925.6] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call