Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
E Claims Management Engine 9 LOG^BPSOSL  ($$LOCKRF,UNLCKRF)^BPSOSRX  COMPLETD^BPSOSRX4  DELACTRQ^BPSOSRX6  DELALLRQ^BPSOSRX7  (SETRESU,SETSTAT)^BPSOSU  PRESSANY^BPSOSU5  $$DATTIM^BPSRPT1  
COLLECT^BPSUSCR4  
Kernel 3 ^%ZIS  ^%ZISC  $$TRIM^XLFSTR  
VA FileMan 3 (NOW,YX)^%DTC  $$GET1^DIQ  ^DIR  
List Manager 2 FULL^VALM1  CLEAN^VALM10  
Health Level Seven 1 ($$MSGACT,$$MSGSTAT)^HLUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
E Claims Management Engine 4 BPS PRTCL UNSTRAND ALL  BPS PRTCL UNSTRAND PRINT  BPS PRTCL UNSTRAND SELECT  BPSUSCR  

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) ;

External References

Name Field # of Occurrence
NOW^%DTC EDATE+3
YX^%DTC EDATE+4
^%ZIS PRINT+5
^%ZISC REPORT+28
LOG^BPSOSL UNSTRAND+23, UNSTRAND+26, UNSTRAND+31, UNSTRAND+51, UNQUEUE+13, UNQUEUE+15, UNQUEUE+25
$$LOCKRF^BPSOSRX UNQUEUE+14
UNLCKRF^BPSOSRX UNQUEUE+20
COMPLETD^BPSOSRX4 UNQUEUE+19
DELACTRQ^BPSOSRX6 UNQUEUE+19
DELALLRQ^BPSOSRX7 UNQUEUE+19
SETRESU^BPSOSU UNSTRAND+42
SETSTAT^BPSOSU UNSTRAND+46
PRESSANY^BPSOSU5 UNQUEUE+10
$$DATTIM^BPSRPT1 UNSTRAND+27
COLLECT^BPSUSCR4 ALL+29, SELECT+24
$$GET1^DIQ UNSTRAND+50, UNQUEUE+3, UNQUEUE+4, UNQUEUE+5, UNQUEUE+7, UNQUEUE+24
^DIR MESSAGE+11, GETDTS+5, ENDDT+4, ALL+7, ALL+16, ALL+27, SELECT+7, SELECT+14, SELECT+22
$$MSGACT^HLUTIL UNSTRAND+30
$$MSGSTAT^HLUTIL UNSTRAND+25
FULL^VALM1 ALL+1, SELECT+1, PRINT+2
CLEAN^VALM10 ALL+28, SELECT+23
$$TRIM^XLFSTR UNSTRAND+27

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+23
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
Routine Call
  • DIR
  • Line Location:
    • MESSAGE+11
    • GETDTS+5
    • ENDDT+4
    • ALL+7
    • ALL+16
    • ALL+27
    • SELECT+7
    • SELECT+14
    • SELECT+22
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^BPS(9002313.77 - [#9002313.77] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPST - [#9002313.59] UNSTRAND+22, UNSTRAND+38
^TMP("BPSUSCR" REPORT+11, REPORT+12
^TMP("BPSUSCR-1" ALL+9, ALL+10
^TMP("BPSUSCR-2" ALL+4, ALL+19, ALL+21, ALL+22, SELECT+4, SELECT+19, SELECT+20

Label References

Name Line Occurrences
$$CHKP REPORT+14
$$EDATE ENDDT+6
$$PAUSE CHKP+8
$$UNSTRAND ALL+22, SELECT+19, SELECT+20
HDR REPORT+7, CHKP+9
PAUSE2 REPORT+25
REPORT PRINT+10
UNQUEUE UNSTRAND+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDATE+1~, EDATE+4
%H EDATE+1~, EDATE+4*
%ZIS PRINT+4~, PRINT+5*
%ZIS("A" PRINT+5*
%ZIS("B" PRINT+5*
BPARR GETDTS~, ALL+29, SELECT+24
BPARR("BDT" GETDTS+7*, ENDDT+2
BPARR("EDT" ENDDT+6*
>> BPBDT HDR+4
>> BPEDT HDR+4
BPLINES CHKP+3~, CHKP+4*, CHKP+5*, CHKP+7
BPQ MESSAGE+7~, MESSAGE+8*, MESSAGE+12*, MESSAGE+14, REPORT+1~, REPORT+10*, REPORT+11, REPORT+14*, REPORT+25, CHKP+8*
BPRETV UNQUEUE+1~, UNQUEUE+14*, UNQUEUE+15
BPSCR REPORT+1~, REPORT+4*, REPORT+14, REPORT+24, CHKP~, CHKP+4, CHKP+8
BPTMPGL SELECT+2~, SELECT+9*
BPTYPE UNSTRAND+13~, UNSTRAND+38*, UNSTRAND+40, UNSTRAND+41, UNQUEUE+1~, UNQUEUE+5*, UNQUEUE+6
D0 ALL+2~, ALL+20*, ALL+21*, ALL+22, SELECT+2~, SELECT+19*, SELECT+20*
DATA REPORT+1~, REPORT+10*, REPORT+17*, REPORT+20, UNSTRAND~, UNSTRAND+16, UNSTRAND+27
DATE EDATE~, EDATE+2, EDATE+4, UNSTRAND+24~, UNSTRAND+27*, UNSTRAND+33, UNSTRAND+35
DIR MESSAGE+7~, GETDTS+1~, ALL+3~, ALL+7!, ALL+27!, SELECT+3~, SELECT+7!, SELECT+11!, SELECT+22!
DIR("A" MESSAGE+9*, GETDTS+3*, ENDDT+2*, ALL+7*, ALL+16*, ALL+27*, SELECT+7*, SELECT+13*, SELECT+22*
DIR("B" MESSAGE+10*, GETDTS+4*, ENDDT+3*, ALL+16*, SELECT+13*
DIR(0 MESSAGE+9*, GETDTS+3*, ENDDT+2*, ALL+7*, ALL+16*, ALL+27*, SELECT+7*, SELECT+12*, SELECT+22*
DIROUT GETDTS+2!, ENDDT+1!, ALL+3~, SELECT+3~
DIRUT GETDTS+2!, ENDDT+1!, ALL+3~, SELECT+3~
DTIME PAUSE+3, PAUSE2+3
DTOUT GETDTS+2!, GETDTS+6, ENDDT+1!, ENDDT+5, ALL+3~, SELECT+3~, SELECT+8!, SELECT+15
DUOUT GETDTS+2!, GETDTS+6, ENDDT+1!, ENDDT+5, ALL+3~, SELECT+3~, SELECT+8!, SELECT+15
DUZ UNSTRAND+50, UNQUEUE+24
HDR HDR+3~, HDR+4*, HDR+5, HDR+6
HL7 UNSTRAND+13~, UNSTRAND+22*, UNSTRAND+23, UNSTRAND+25, UNSTRAND+26, UNSTRAND+30
I SELECT+2~, SELECT+17*
IEN59 UNSTRAND~, UNSTRAND+16, UNSTRAND+22, UNSTRAND+23, UNSTRAND+26, UNSTRAND+31, UNSTRAND+38, UNSTRAND+42, UNSTRAND+46, UNSTRAND+51
, UNQUEUE~, UNQUEUE+13, UNQUEUE+14, UNQUEUE+15, UNQUEUE+19, UNQUEUE+20, UNQUEUE+25
IEN77 UNQUEUE~, UNQUEUE+2, UNQUEUE+3, UNQUEUE+4, UNQUEUE+5, UNQUEUE+7, UNQUEUE+19
IO PRINT+8, PAUSE+5, PAUSE2+4
IO(0 PAUSE+2, PAUSE2+2
IOF REPORT+24
IOSL CHKP+6, CHKP+7
IOST REPORT+4
J SELECT+2~, SELECT+20*
KEY1 UNQUEUE+1~, UNQUEUE+3*, UNQUEUE+13, UNQUEUE+14, UNQUEUE+19, UNQUEUE+20
KEY2 UNQUEUE+1~, UNQUEUE+4*, UNQUEUE+13, UNQUEUE+14, UNQUEUE+19, UNQUEUE+20
LAST ALL+2~, ALL+4*, ALL+5, SELECT+2~, SELECT+4*, SELECT+5, SELECT+12
LCNT REPORT+1~, REPORT+16*, HDR+9*, CHKP+7
LINE REPORT+1~, REPORT+12*, REPORT+15
MES UNSTRAND+13~, UNSTRAND+22*, UNSTRAND+23, UNSTRAND+33*, UNSTRAND+35*, UNSTRAND+39*, UNSTRAND+40*, UNSTRAND+41*, UNSTRAND+42, UNSTRAND+49*
, UNSTRAND+50*, UNSTRAND+51, UNQUEUE+1~, UNQUEUE+23*, UNQUEUE+24*, UNQUEUE+25
NAME UNSTRAND+24~, UNSTRAND+27*, UNSTRAND+33, UNSTRAND+35
POP SELECT+2~, PRINT+4~, PRINT+6
PT SELECT+2~, SELECT+17*, SELECT+18, SELECT+19, SELECT+20
RESLT UNSTRAND+24~, UNSTRAND+30*, UNSTRAND+31, UNSTRAND+33
RET ALL+2~, ALL+18*, ALL+23*, ALL+26, SELECT+2~, SELECT+16*, SELECT+19*, SELECT+20*, SELECT+22
RTN EDATE+1~, EDATE+2*, EDATE+4*, EDATE+5
SEQ ALL+2~, ALL+18*, ALL+19*, ALL+21, ALL+22, REPORT+1~, REPORT+10*, REPORT+11*, REPORT+12
STAT UNSTRAND+24~, UNSTRAND+25*, UNSTRAND+26, UNSTRAND+29, UNSTRAND+35
TAB HDR+3~, HDR+5*, HDR+6
TMP ALL+2~, ALL+9*, ALL+10
TMP2 ALL+2~, ALL+10*, ALL+11
U UNSTRAND+22, UNSTRAND+27, UNSTRAND+38
VAR SELECT+2~, SELECT+10*, SELECT+16*, SELECT+17
X MESSAGE+7~, ALL+3~, ALL+22*, ALL+23, SELECT+3~, SELECT+19*, SELECT+20*, PAUSE+1~, PAUSE+3*, PAUSE+4
PAUSE2+1~, PAUSE2+3*, UNSTRAND+13~
Y MESSAGE+7~, MESSAGE+12, GETDTS+2!, GETDTS+7, ENDDT+1!, ENDDT+6, ALL+3~, ALL+16, SELECT+3~, SELECT+16

Marked Items

Name Field # of Occurrence
$T( UNSTRAND+23, UNSTRAND+26, UNSTRAND+31, UNSTRAND+49, UNQUEUE+13, UNQUEUE+14, UNQUEUE+15, UNQUEUE+20, UNQUEUE+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All