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 |  All
Print Page as PDF
Routine: PSOBPSU3

Package: Outpatient Pharmacy

Routine: PSOBPSU3


Information

PSOBPSU3 ;ALB/CFS - BPS (ECME) Utilities 3 ;08/27/15

Source Information

Source file <PSOBPSU3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 6 ECMESND^PSOBPSU1  ($$RXFLDT,$$RXRLDT)^PSOBPSUT  $$ELIGDISP^PSOREJP1  $$PTLBL^PSOREJP2  ($$YESNO,PRINT)^PSOREJP3  $$FIND^PSOREJUT  
E Claims Management Engine 4 $$CLAIM^BPSBUTL  $$VAL^BPSPSOU1  ($$ADDLFLDS,$$SAVE)^BPSRES1  (,RFL)^BPSVRX  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMTE,$$HL7TFM)^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSO EDIT CLAIM SUBMITTED 1  PSO EDIT CLAIM SUBMITTED 2  PSO LM BACKDOOR PRTCL USRSCR RESUBMIT  PSO LM BACKDOOR PRTCL USRSCR REVERSE  PSO LM BACKDOOR PRTCL USRSCR VERIFY  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
RES(RXIEN,DFN) ; Resubmit a claim action from PSO HIDDEN ACTIONS
FILL(RXIEN,DFN,PSOFL) ;
VER(RXIEN,DFN) ; -- VER hidden action under protocol PSO HIDDEN ACTIONS
REV(RXIEN,DFN) ; Reverse a claim action from PSO HIDDEN ACTIONS
RXDEL(RXIEN,PSOFILL) ; EP - $$ is RX deleted?
; For refills: if the refill multiple is gone, it's been "deleted"
END ;
ECS(PSORX,PSOFILL,PSOSCREEN) ; Edit Claim to be Submitted.
ECSQUIT ;
EDITDT(PSORX,PSOFILL,PSOCOB,PSOCLAIM,PSOIEN59,PSOALTXT,PSODATESELECTED) ; Allow user to select Date of Service.

External References

Name Field # of Occurrence
$$CLAIM^BPSBUTL ECS+38
$$VAL^BPSPSOU1 RES+7, REV+7, ECS+58
$$ADDLFLDS^BPSRES1 ECS+87
$$SAVE^BPSRES1 ECS+112
^BPSVRX VER+5
RFL^BPSVRX FILL+17
$$GET1^DIQ EDITDT+40, EDITDT+41
^DIR FILL+42, ECS+99, EDITDT+77
ECMESND^PSOBPSU1 RES+12, REV+12, ECS+119
$$RXFLDT^PSOBPSUT EDITDT+30
$$RXRLDT^PSOBPSUT EDITDT+23
$$ELIGDISP^PSOREJP1 RES+5, REV+5, ECS+57
$$PTLBL^PSOREJP2 RES+13, ECS+135
$$YESNO^PSOREJP3 ECS+71, ECS+105
PRINT^PSOREJP3 ECS+137
$$FIND^PSOREJUT ECS+67
FULL^VALM1 FILL+2, VER+1, ECS+20
PAUSE^VALM1 RES+4, RES+9, RES+14, REV+4, REV+9, REV+13, ECS+31, ECS+44, ECS+51, ECS+127
, ECS+146
$$FMTE^XLFDT FILL+29, FILL+30, EDITDT+25, EDITDT+53, EDITDT+55, EDITDT+56, EDITDT+72, EDITDT+85
$$HL7TFM^XLFDT EDITDT+41

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No claim was ever submitted for this prescription. Cannot resubmit."
  • Line Location: RES+4
Function Call: WRITE
  • Prompt: !!,"The claim cannot be Resubmitted since it has been deleted in Pharmacy."
  • Line Location: RES+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FILL+42
Function Call: WRITE
  • Prompt: !!,"No claim was ever submitted for this prescription. Cannot reverse."
  • Line Location: REV+4
Function Call: WRITE
  • Prompt: !!,"The claim cannot be Reversed since it has been deleted in Pharmacy."
  • Line Location: REV+10
Function Call: WRITE
  • Prompt: !!,"No claim was ever submitted for this prescription. Cannot resubmit."
  • Line Location: ECS+30
Function Call: WRITE
  • Prompt: !!,"No Initial Claim Submission Found - Data Elements are NOT Editable for Re-"
  • Line Location: ECS+42
Function Call: WRITE
  • Prompt: !,"Submission"
  • Line Location: ECS+43
Function Call: WRITE
  • Prompt: !!,"The claim cannot be Resubmitted since it has been deleted in Pharmacy."
  • Line Location: ECS+50
Function Call: WRITE
  • Prompt: !!,"Enter ^ at any prompt to exit"
  • Line Location: ECS+61
Function Call: WRITE
  • Prompt: !!," When you confirm, a new claim will be submitted for"
  • Line Location: ECS+68
Function Call: WRITE
  • Prompt: !," the prescription and this REJECT will be marked"
  • Line Location: ECS+69
Function Call: WRITE
  • Prompt: !," resolved."
  • Line Location: ECS+70
Function Call: WRITE
  • Prompt: !!,"No value changed. A claim will not be submitted.",!
  • Line Location: ECS+95
Function Call: WRITE
  • Prompt: !!,"A claim will be submitted now."
  • Line Location: ECS+104
Function Call: WRITE
  • Prompt: !!?10,"Claim could not be submitted. Please try again later!"
  • Line Location: ECS+125
Function Call: WRITE
  • Prompt: !,?10,"Reason: ",$S($P(PSORESPONSE,"^",2)="":"UNKNOWN",1:$P(PSORESPONSE,"^",2)),$C(7)
  • Line Location: ECS+126
Function Call: WRITE
  • Prompt: !!,"Rx is not released. Date of Service will be ",X,"."
  • Line Location: EDITDT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITDT+50
Function Call: WRITE
  • Prompt: !,?10,$$FMTE^XLFDT(PSODATE,"5D")," ",PSODATEARRAY(PSODATE,X)
  • Line Location: EDITDT+53
Function Call: WRITE
  • Prompt: !!,"Claim will be submitted with ",$$FMTE^XLFDT(PSODATE,"5D")," Date of Service."
  • Line Location: EDITDT+55
Routine Call
  • DIR
  • Line Location:
    • FILL+42
    • ECS+99
    • EDITDT+77

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPSC - [#9002313.02] GET1^DIQ
^BPSTL - [#9002313.57] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BPSTL("B" EDITDT+39
^PSRX - [#52] FILL+5, FILL+8, FILL+9, FILL+10, FILL+13, FILL+14, RXDEL+2, RXDEL+4, RXDEL+5
^TMP("PSOHDR" VER+3, VER+6*
^TMP("PSOHDR_ARCHIVE" VER+2!, VER+3*, VER+6, VER+7!

Label References

Name Line Occurrences
$$EDITDT ECS+81
$$FILL RES+2, REV+2, ECS+27
$$RXDEL RES+9, REV+9, ECS+49
ECSQUIT ECS+19, ECS+26, ECS+41, ECS+49, ECS+59, ECS+67, ECS+82, ECS+88, ECS+94, ECS+106
, ECS+111, ECS+124
END RES+3, RES+4, RES+8, RES+9, REV+3, REV+4, REV+8, REV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION RES+1~
>> BPSVRX("RXIEN" VER+4*
>> CHANGE ECS+144*
CNT FILL+1~, FILL+26*, FILL+28*, FILL+32, FILL+33, FILL+39
DFN RES~, RES+2, FILL~, FILL+3, VER~, REV~, REV+2, ECS+27
DIR FILL+1~, FILL+42!, ECS+14~, ECS+96~, EDITDT+15~
DIR("?" EDITDT+59*, EDITDT+60*
DIR("A" FILL+37*, ECS+98*, EDITDT+61*
DIR("B" FILL+38*, EDITDT+62*, EDITDT+73*, EDITDT+84
DIR("L" FILL+22*, FILL+23*, FILL+24*, FILL+25*, FILL+33*, FILL+35*, FILL+40*
DIR(0 FILL+21*, FILL+36*, ECS+97*, EDITDT+63*, EDITDT+72*
DIROUT EDITDT+15~
DIRUT RES+1~, RES+3, REV+1~, REV+3, ECS+14~, ECS+28, EDITDT+15~, EDITDT+78
DT EDITDT+24, EDITDT+25
DTOUT EDITDT+15~
DUOUT EDITDT+15~
FILL FILL+1~, FILL+43*, FILL+44
FLDT FILL+1~, FILL+9*, FILL+11, FILL+13*, FILL+15, FILL+29*, FILL+31*, FILL+32, FILL+33
PSOADDLFLDS ECS+14~, ECS+87, ECS+111, ECS+112
PSOALTXT ECS+14~, ECS+79*, ECS+81, ECS+119, EDITDT~, EDITDT+27*, EDITDT+56*, EDITDT+85*
PSOCLAIM ECS+14~, ECS+39*, ECS+41, ECS+81, ECS+87, EDITDT~
PSOCLAIM2 EDITDT+16~, EDITDT+40*, EDITDT+41
PSOCOB RES+1~, RES+7, RES+12, REV+1~, REV+7, REV+12, ECS+14~, ECS+16*, ECS+58, ECS+81
, ECS+119, EDITDT~
PSODATE EDITDT+16~, EDITDT+41*, EDITDT+42, EDITDT+48*, EDITDT+49, EDITDT+52, EDITDT+53, EDITDT+55, EDITDT+56, EDITDT+65*
, EDITDT+66*, EDITDT+68, EDITDT+70, EDITDT+71, EDITDT+72
PSODATEARRAY EDITDT+16~
PSODATEARRAY( EDITDT+29*, EDITDT+31*, EDITDT+42*, EDITDT+49, EDITDT+52, EDITDT+53, EDITDT+66, EDITDT+68, EDITDT+71
PSODATEARRAY("" EDITDT+48
PSODATESELECTED ECS+14~, ECS+80*, ECS+81, ECS+87, ECS+94, EDITDT~, EDITDT+84*
PSODESC EDITDT+16~, EDITDT+71*, EDITDT+72, EDITDT+73
PSODOS ECS+15~, ECS+81*, ECS+82, ECS+87, ECS+119
PSOELIG RES+1~, RES+5*, RES+7, FILL+1~, REV+1~, REV+5*, REV+7, ECS+15~, ECS+57*, ECS+58
PSOET FILL+1~
PSOFILL RES+1~, RES+2*, RES+4, RES+5, RES+7, RES+9, RES+12, RES+13, REV+1~, REV+2*
, REV+4, REV+5, REV+7, REV+9, REV+12, RXDEL~, RXDEL+2, ECS~, ECS+26, ECS+27*
, ECS+29, ECS+38, ECS+49, ECS+57, ECS+58, ECS+67, ECS+81, ECS+119, ECS+135, ECS+137
, EDITDT~, EDITDT+23, EDITDT+30
PSOFILLDT EDITDT+16~, EDITDT+30*, EDITDT+31
PSOFL RES+1~, RES+2, FILL~, FILL+6!, FILL+17, FILL+18, REV+1~, REV+2
PSOFL( FILL+19
PSOFLZ RES+1~, FILL+6!, REV+1~
PSOFLZ( FILL+11*, FILL+19*, FILL+27, FILL+29, FILL+30
PSOFLZ("" FILL+38
PSOFLZ(0 FILL+15*
PSOIEN57 EDITDT+17~, EDITDT+38*, EDITDT+39*, EDITDT+40
PSOIEN59 ECS+15~, ECS+38*, ECS+39, ECS+40*, ECS+41, ECS+81, ECS+87, ECS+112, EDITDT~, EDITDT+39
PSOQUIT ECS+15~, ECS+17*, ECS+26, ECS+28*, ECS+32*, ECS+66*, ECS+67, ECS+71*, ECS+87*, ECS+88
, ECS+94, ECS+105*, ECS+106, ECS+111, ECS+112*
PSORELEASEDT EDITDT+17~, EDITDT+23*, EDITDT+24, EDITDT+29
PSORESPONSE ECS+15~, ECS+119, ECS+124, ECS+126
PSORX ECS~, ECS+27, ECS+38, ECS+49, ECS+57, ECS+58, ECS+67, ECS+81, ECS+119, ECS+135
, ECS+136, ECS+137, EDITDT~, EDITDT+23, EDITDT+30
PSORX("PSOL" RES+13*, ECS+136*
PSOSCREEN ECS~, ECS+136, ECS+137, ECS+144
>> PSOSTFLT ECS+144
PSOSTR FILL+1~, FILL+26*, FILL+32*, FILL+36
PSOTEMP EDITDT+17~
PSOTEMP( EDITDT+70*, EDITDT+85, EDITDT+87
PSOVALID ECS+15~, ECS+58*, ECS+59
PSOVRIEN ECS+15~, ECS+112
PSOVRIEN(1 ECS+119
REFILL FILL+1~, FILL+8*, FILL+9, FILL+10, FILL+11
RELDT FILL+1~, FILL+10*, FILL+11, FILL+14*, FILL+15, FILL+30*, FILL+31*, FILL+32, FILL+33
REVREAS RES+1~, RES+7, REV+1~, REV+7, REV+12
RF FILL+1~, FILL+19*, FILL+27*, FILL+29, FILL+30, FILL+32, FILL+33
RXIEN RES~, RES+2, RES+5, RES+7, RES+9, RES+12, RES+13, FILL~, FILL+3, FILL+5
, FILL+8, FILL+9, FILL+10, FILL+13, FILL+14, FILL+17, VER~, VER+4, REV~, REV+2
, REV+5, REV+7, REV+9, REV+12, RXDEL~, RXDEL+2, RXDEL+4, RXDEL+5
RXNUM FILL+1~, FILL+5*, FILL+22
U FILL+5, FILL+9, FILL+10, FILL+11, FILL+13, FILL+14, FILL+15, FILL+19, FILL+29, FILL+30
, FILL+36, RXDEL+2, RXDEL+4, RXDEL+5, ECS+39, ECS+40
VALID RES+1~, RES+7*, RES+8, REV+1~, REV+7*, REV+8
>> VALMAR ECS+19
>> VALMBCK RES+15*, VER+8*, REV+14*, END+1*, ECSQUIT+2*
X FILL+1~, RXDEL+5~*, RXDEL+6, EDITDT+17~, EDITDT+25*, EDITDT+26, EDITDT+27, EDITDT+51*, EDITDT+52*, EDITDT+53
, EDITDT+67*, EDITDT+68*, EDITDT+71
Y FILL+1~, FILL+43, EDITDT+17~, EDITDT+64*, EDITDT+69*, EDITDT+70, EDITDT+72, EDITDT+73, EDITDT+84, EDITDT+85
, EDITDT+87
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 |  All