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

Package: Outpatient Pharmacy

Routine: PSOERX1F


Information

PSOERX1F ;ALB/MR - Accept/Un-Accept eRx function ; 8/18/2020 5:14pm

Source Information

Source file <PSOERX1F.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP ;
ADD(QUIET) ;Add CHCS message to Outpatient Pending Orders file
UNACC ; Un-Accept eRx from Pending Queue back into the Holding Queue
JUMP2ERX ; Jump to the eRx Holding Queue for the specific order after Un-Accepting eRx
ORDNUM() ; Returns the correct IEN for the ORDER file (#100) for the Rx
UNACCBEF(ERXIEN) ; Determines if the eRx has been Un-Accepted Before
; Input: (r)ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Cannot accept a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",!
  • Line Location: SETUP+11
Function Call: WRITE
  • Prompt: !!,"Current Clinic assigned to the eRx: ",$$GET1^DIQ(52.49,PSOIEN,20.6),!
  • Line Location: SETUP+74
Function Call: WRITE
  • Prompt: !,PSOEXMS
  • Line Location: SETUP+104
Function Call: WRITE
  • Prompt: !!,"External order, unable to successfully transmit to CPRS."
  • Line Location: ADD+55
Function Call: WRITE
  • Prompt: !!,"eRx #"_PSOHY("CHNUM")_" sent to PENDING ORDERS Queue."
  • Line Location: ADD+80
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: ADD+87
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: ADD+88
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: !
  • Line Location: UNACC+24
Function Call: WRITE
  • Prompt: ?40,"Please wait..."
  • Line Location: UNACC+27
Function Call: WRITE
  • Prompt: !!,"eRx successfully un-accepted and placed back on the eRx Holding Queue."
  • Line Location: UNACC+42
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: JUMP2ERX+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: JUMP2ERX+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: JUMP2ERX+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORPA(101.52 - [#101.52] FIND1^DIC
^SC - [#44] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] Classic Fileman Calls,  GET1^DIQ,  WP^DIE
^PS(52.45 - [#52.45] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] Classic Fileman Calls,  GET1^DIQ
52.4919 GET1^DIQ
^PS(59 - [#59] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call