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

Package: Outpatient Pharmacy

Routine: PSOREJP3


Information

PSOREJP3 ;ALB/SS - Third Party Reject Display Screen - Comments ;10/27/06

Source Information

Source file <PSOREJP3.m>

Entry Points

Name Comments DBIA/ICR reference
COM ; Builds the Comments section in the Reject Information Screen.
; The following variables are assumed to exist:
; RX - Pointer to file# 52, Prescription.
; FILL - Pointer to the Refill sub-file of the Prescription.
; REJ - Pointer to the Reject Info sub-file of the Prescription.
PTC ; Patient Comments
ADDCOM ; - Add comment worklist action
COMMENT(PSOTR,PSMLEN) ;*/
YESNO(PSQSTR,PSDFL) ; Default - YES
SAVECOM(PSRXIEN,PSREJIEN,PSCOMNT,DATETIME,USER) ;
INSITEM(PSSFILE,PSIEN0,PSIEN1,PSVAL01) ;*/
PRINT(RX,RFL) ; Print Label for specific Rx/Fill
RXINFO(RX,FILL,LINE,REJ) ; Returns header displayable Rx Information
FILL ;Fill payable TRICARE or CHAMPVA Rx
PSOCOB(RX,FILL,REJ) ; Returns RXCOB indicator for Worklist
DC ;Discontinue TRICARE Rx
FILLTR ;TRICARE/CHAMPVA specific logic ;cnf, PSO*7*358
FILLTR2 ;Use for looping if user enters ^ in required comment field ;cnf, PSO*7*358
TCOM(RX,RFL) ; - Ask for TRICARE or CHAMPVA Justification
PSOET(RX,FILL) ; Returns flag for TRICARE or CHAMPVA non-billable and no claim submitted
; Return 1 if rejection code is eT or eC (pseudo-reject code)
; 0 otherwise
TRIREJCD ;TRICARE or CHAMPVA Reject Code, non-billable Rx ;cnf, PSO*7*358
SEND(OVRCOD,CLA,PA,PSOET) ; - Sends Claim to ECME and closes Reject
; Input: OVRCOD - Up to three ~-pieces, and each populated would be
; Reason for Service Code ^ Prof Srvc Cd ^ Result of Srvc Cd
; CLA - Submission Clarification Code #1 ~ SCC #2 ~ SCC #3
; PA - Prior Auth Type ^ Prior Auth Number
; PSOET - 1 if eT/eC pseudo-reject on claim

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient Billing Comments require Pharmacy Key (PSO EPHARMACY SITE MANAGER)"
  • Line Location: ADDCOM+13
Function Call: WRITE
  • Prompt: !
  • Line Location: COMMENT+9
Function Call: WRITE
  • Prompt: !!,"Enter a free text comment up to 150 characters long.",!
  • Line Location: COMMENT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: YESNO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: $C(7),!!,"No printer defined"
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !!,"Label ",$S('$D(ZTSK):"NOT ",1:""),"queued to print",! I '$D(ZTSK)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: $C(7),!!,"Printer is busy - NO label printed"
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !?20,"[Closing all rejections for prescription "_$$GET1^DIQ(52,RX,".01")_":"
  • Line Location: FILL+25
Function Call: WRITE
  • Prompt: !?25,OPNREJ3_" - "_$$GET1^DIQ(9002313.93,OPNREJ3,".02")_"..."
  • Line Location: FILL+28
Function Call: WRITE
  • Prompt: "OK]",!,$C(7)
  • Line Location: FILL+29
Function Call: WRITE
  • Prompt: !
  • Line Location: TCOM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEND+13
Function Call: WRITE
  • Prompt: !!?10,"Claim could not be submitted. Please try again later!"
  • Line Location: SEND+33
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SEND+41
Function Call: WRITE
  • Prompt: !,"This prescription can be pulled early from suspense or the label will print"
  • Line Location: SEND+57
Function Call: WRITE
  • Prompt: !,"when PRINT FROM SUSPENSE occurs.",!
  • Line Location: SEND+58

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.032 GET1^DIQ
52.1 GET1^DIQ
52.25 GET1^DIQ
52.2551 GET1^DIQ
^PS(52.86 - [#52.86] GET1^DIQ
55.17 GETS^DIQ
^BPSF(9002313.93 - [#9002313.93] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call