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

Package: E Claims Management Engine

Routine: BPSUSCR1


Information

BPSUSCR1 ;BHAM ISC/FLS - STRANDED SUBMISSIONS SCREEN (cont) ;10-MAR-2005

Source Information

Source file <BPSUSCR1.m>

Entry Points

Name Comments DBIA/ICR reference
MESSAGE() ;
GETDTS(BPARR) ; Transaction dates to view.
ENDDT ;
EDATE(DATE) ;
ALL ; Unstrand all submissions currently selected.
SELECT ; Select entries from the list and run each through the unstrand function
PRINT ;
; Full Screen Mode
REPORT ;
HDR ;
; Display Header.
; LCNT is returned
CHKP(BPSCR) ;
; Check for End of Page
; LCNT is returned
PAUSE() ;
PAUSE2 ;
UNSTRAND(IEN59,DATA) ;
; Unstrand a specific submission
UNQUEUE(IEN59,IEN77) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Please be aware that if there are submissions appearing on the ECME User Screen"
  • Line Location: MESSAGE+1
Function Call: WRITE
  • Prompt: !,"with a status of 'In progress - Transmitting', then there may be a problem"
  • Line Location: MESSAGE+2
Function Call: WRITE
  • Prompt: !,"with HL7 or with system connectivity with the Austin Automation Center (AAC)."
  • Line Location: MESSAGE+3
Function Call: WRITE
  • Prompt: !,"Please contact your IRM to verify that connectivity to the AAC is working"
  • Line Location: MESSAGE+4
Function Call: WRITE
  • Prompt: !,"and the HL7 link BPS NCPDP is processing messages before using this option"
  • Line Location: MESSAGE+5
Function Call: WRITE
  • Prompt: !,"to unstrand submissions with a status of 'In progress - Transmitting'.",!
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: MESSAGE+13
Function Call: WRITE
  • Prompt: !,"There are no stranded submissions in this date range to unstrand"
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: !,"Please be aware there are multiple types of requests currently stranded."
  • Line Location: ALL+12
Function Call: WRITE
  • Prompt: !,"Are you sure you want to unstrand ALL submissions? If not, exit this"
  • Line Location: ALL+13
Function Call: WRITE
  • Prompt: !,"action and select which submissions you want to unstrand."
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !!,"Answer NO to following prompt if you wish to SELECT the submissions to unstrand.",!
  • Line Location: ALL+15
Function Call: WRITE
  • Prompt: !,"Please wait..."
  • Line Location: ALL+17
Function Call: WRITE
  • Prompt: !,"Done"
  • Line Location: ALL+26
Function Call: WRITE
  • Prompt: !,"There are no stranded submissions to select"
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !,$E(LINE,1,79)
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: !?4,"No data to display"
  • Line Location: REPORT+20
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: REPORT+24
Function Call: WRITE
  • Prompt: !!,?TAB,HDR
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!?4,"TRANS DT",?15,"PATIENT NAME",?36,"ID",?41,"RX/FILL",?57,"DOS",?68,"INS CO"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?4,"--------",?15,"------------",?36,"--",?41,"-------",?57,"---",?68,"------"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,MES,!,"The transaction(s) should process normally/no further action required"
  • Line Location: UNSTRAND+31
Function Call: WRITE
  • Prompt: !,"Warning! The stranded request for the prescription #"_$$GET1^DIQ(9002313.77,IEN77,1.13,"E")_" and fill "_$$GET1^DIQ(9002313.77,IEN77,1.14,"E")
  • Line Location: UNQUEUE+7
Function Call: WRITE
  • Prompt: !,"is being deleted. It might need to be submitted manually in the IB Claims"
  • Line Location: UNQUEUE+8
Function Call: WRITE
  • Prompt: !,"Tracking Edit option."
  • Line Location: UNQUEUE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^BPST - [#9002313.59] GET1^DIQ
^BPS(9002313.77 - [#9002313.77] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call