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

Package: Outpatient Pharmacy

Routine: PSOREJU1


Information

PSOREJU1 ;BIRM/MFR - BPS (ECME) - Clinical Rejects Utilities (1) ;10/15/04

Source Information

Source file <PSOREJU1.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 10 ($$LSTRFL,ECMESND)^PSOBPSU1  $$STATUS^PSOBPSUT  CAN^PSOCAN  (NOOR,REQ)^PSOCAN4  $$GETNDC^PSONDCUT  $$TRIC^PSOREJP1  OVRDSP^PSOREJU1  (DISPLAY,TRICCHK)^PSOREJU3  
($$FIND,CLOSE)^PSOREJUT  ECME^PSORXL1  
Kernel 3 $$HL7TFM^XLFDT  $$UP^XLFSTR  SIG^XUSESIG  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 27

Package Total Caller Graph
Outpatient Pharmacy 27 PSOATRP  PSOBPSRP  PSOBPSUT  PSOHLD  PSON52  PSOORCPY  PSOORED2  PSOORED7  
PSOR52  PSOREF  PSOREJP0  PSOREJP1  PSOREJP2  PSOREJP3  PSOREJU1  PSOREJU3  
PSOREJU4  PSOREJUT  PSORENW  PSORENW4  PSORN52  PSORXL1  PSORXRP1  PSORXRPT  
PSOSUPOE  PSOSUPRX  PSOVER1  

Entry Points

Name Comments DBIA/ICR reference
HDLG(RX,RFL,CODES,FROM,OPTS,DEF) ; - REJECT Handling
DUP(RX,RSP) ; Checks if REJECT has already been logged in the PRESCRIPTION file
; Input: (r) RX - Rx IEN (#52)
; (o) RSP - Response IEN
; Output: DUP - 1: Already logged (duplicate)
; 0: Not yet logged on PRESCRIPTION file
SEL(FIELD,FILE,ARRAY,DEFAULT) ; - Provides field selection (one, multiple or ALL)
OVRX(TYPE,CODE) ; - Returns the extended code/description of the NCPDP DUR override codes
; Input: (r) TYPE - 1 (REASON FOR SERVICE), 2 (PROFESSIONAL SERVICE) or 3 (RESULT OF SERVICE)
; (r) CODE - Table IEN
; Output: "CODE - DESCRIPTION"
DAT(DAT) ; - External Date
CLA() ; - Ask for Clarification Code
SIG() ; - Get electronic signature
ACTION(RX,REJ,OPTS,DEF) ;
; Input: (r) RX - Rx IEN (#52)
; (r) REJ - REJECT ID (IEN)
; (r) OPTS - Available options ("QIO" for QUIT/IGNORE/OVERRIDE)
; (o) DEF - Default Option ("O", "I" or "Q")
; Output: ACTION: "I^Comments" - Ignore Reject
; "O^COD1^COD2^COD3" - Override with the Override codes COD1(Prof.),COD2(Reason) and COD3(Result)
; "Q" - Quit
; "^" - Up-arrow entered or timed out
OVR() ; - Ask for OVERRIDE codes
COM() ; - Ask for CLOSE comments
DC(RX,ACTION) ; - Discontinue inside and outside call
CLEAN(STR) ; Remove blanks from the end of a string and replaces ";" with ","
ASK
OTH(CODE,LST) ; Removes the current Reject code from the list
; Input: (r) CODE - Current Reject Code (79 or 88)
; (o) LST - List of all Reject codes with response (comma separated)
; Output: OTH - List of OTHER Reject codes (w/out 79 or 88)
LMREJ(RX,RFL,MSG,BCK) ; Used by ListManager hidden actions to detect unresolved 3rd Party Rejects
OVRDSP(LST) ; - Display the Override Codes
OVRCOD(TYPE,VALUE) ; - Prompt for NCPDP Override Codes
DC1 ;Discontinue

External References

Name Field # of Occurrence
^DIC OVRX+6, OVRCOD+7, OVRCOD+9, SEL+6
$$GET1^DIQ DC+9, OVR+2, OVRX+7, OVRX+8, OVRX+9, DUP+7
^DIR ASK+7, COM+2, OVR+9, CLA+2
$$LSTRFL^PSOBPSU1 HDLG+10, LMREJ+7
ECMESND^PSOBPSU1 HDLG+29
$$STATUS^PSOBPSUT HDLG+18
CAN^PSOCAN DC+8
NOOR^PSOCAN4 DC+3
REQ^PSOCAN4 DC+4
$$GETNDC^PSONDCUT HDLG+29
$$TRIC^PSOREJP1 HDLG+11
OVRDSP^PSOREJU1 OVR+6
DISPLAY^PSOREJU3 ACTION+16, DC1+1
TRICCHK^PSOREJU3 HDLG+18
$$FIND^PSOREJUT HDLG+23, HDLG+33, LMREJ+8
CLOSE^PSOREJUT HDLG+19, HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
ECME^PSORXL1 DC+10
$$HL7TFM^XLFDT DAT+1
$$UP^XLFSTR SEL+7
SIG^XUSESIG SIG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: $C(7)," ACTION NOT TAKEN!",!
  • Line Location: DC+3
Function Call: WRITE
  • Prompt: $C(7)," ACTION NOT TAKEN!",!
  • Line Location: DC+4
Function Call: WRITE
  • Prompt: $C(7),!,"You do not have an electronic signature code."
  • Line Location: SIG+3
Function Call: WRITE
  • Prompt: !,"Please contact your IRM office."
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OVR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OVR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: OVRDSP+1
Function Call: WRITE
  • Prompt: !?5,$S(I=1:"Reason for Service Code : ",I=2:"Professional Service Code: ",1:"Result of Service Code : ")
  • Line Location: OVRDSP+3
Function Call: WRITE
  • Prompt: $E($$OVRX(I,$P(LST,"^",I)),1,48)
  • Line Location: OVRDSP+4
Function Call: WRITE
  • Prompt: !!?10,"Claim could not be submitted. Please try again later!"
  • Line Location: HDLG+31
Function Call: WRITE
  • Prompt: !,?10,"Reason: ",$S($P(RESP,"^",2)="":"UNKNOWN",1:$P(RESP,"^",2)),$C(7)
  • Line Location: HDLG+32
Function Call: WRITE
  • Prompt: !,PRPT,VALUE," ",$P(Y(0),"^",2)
  • Line Location: OVRCOD+7
Function Call: WRITE
  • Prompt: !!,"You may select a single or multiple "_FIELD_"S,"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,"or enter ^ALL to select all "_FIELD_"S.",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: " ",$P(Y,"^",2),$S($D(ARRAY(+Y)):" (already selected)",1:"")
  • Line Location: SEL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+10
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: LMREJ+9
Routine Call
  • DIC
  • Line Location:
    • OVRX+6
    • OVRCOD+7
    • OVRCOD+9
    • SEL+6
Routine Call
  • DIR
  • Line Location:
    • ASK+7
    • COM+2
    • OVR+9
    • CLA+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.25 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] ACTION+13, DC+5, HDLG+14, LMREJ+6, DUP+6
^VA(200 - [#200] SIG+2

Label References

Name Line Occurrences
$$ACTION HDLG+25, HDLG+34
$$COM ASK+14
$$DC DC1+1
$$OVR ASK+18
$$OVRCOD OVR+2, OVR+3, OVR+4
$$OVRX OVRDSP+4
$$SIG ASK+14
ASK ASK+14, ASK+17, DC1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ACTION+10~, ASK!, ASK+10*, ASK+14*, ASK+17, ASK+18*, DC1+1*, DC1+3, DC~, DC+3*
, DC+4*, DC+11, HDLG+9~, HDLG+18*, HDLG+19, HDLG+21, HDLG+22*, HDLG+25*, HDLG+26, HDLG+27
, HDLG+28, HDLG+29, HDLG+33, HDLG+34*, HDLG+35, HDLG+36, HDLG+37
ARRAY SEL~, SEL+4!, SEL+7!*, SEL+8!*, SEL+11*
ARRAY( SEL+9, SEL+10*
BCK LMREJ~, LMREJ+9*
COD1 OVR+1~, OVR+2*, OVR+6, OVR+11
COD2 OVR+1~, OVR+3*, OVR+6, OVR+11
COD3 OVR+1~, OVR+4*, OVR+6, OVR+11
CODE SIG+1~, SIG+2*, HDLG+9~*, HDLG+21*, HDLG+23, HDLG+33, OVRX~, OVRX+6, OVRX+7, OVRX+8
, OVRX+9, OTH~, OTH+7
CODES HDLG~, HDLG+13*, HDLG+14*, HDLG+15*, HDLG+16, HDLG+21
COM ACTION+10~, ASK+14*, COM+1!, COM+3*, COM+4
DA DC+1~, DC+2*, DC+5, DC+7, DC+9
DAT DAT~, DAT+1
DCODE HDLG+9~, HDLG+13*, HDLG+14*
DEF ACTION~, ASK+7, HDLG~, HDLG+13*, HDLG+18*, HDLG+25, HDLG+34
DEFAULT SEL~, SEL+5
DIC OVRX+4~, OVRX+6*, OVRCOD+1~, OVRCOD+6*, OVRCOD+8*, SEL+1~, SEL+4*
DIC("A" OVRCOD+8*, SEL+4*, SEL+10*
DIC("B" SEL+5*, SEL+10!
DIC(0 OVRCOD+6*, OVRCOD+8*, SEL+4*
DIR ACTION+10~, ASK!, ASK+13!, COM+1!, OVR+1~, CLA+1~
DIR("??" ASK+6*
DIR("A" ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, COM+2*, OVR+8*, CLA+2*
DIR("B" ASK+7*, OVR+8*
DIR(0 ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, COM+2*, OVR+8*, CLA+2*
DIROUT CLA+1~, CLA+3
DIRUT ACTION+10~, ASK!, ASK+7, ASK+13!, DC1+1, DC+3, DC+4, COM+1!, COM+3, OVR+1~
, OVR+9, CLA+1~, CLA+3
DTOUT OVRCOD+9, SEL+1~, SEL+8
DUOUT OVRCOD+9, SEL+1~, SEL+8
DUP DUP+5~*, DUP+6, DUP+7*, DUP+8
DUZ SIG+2, HDLG+19, HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
FIELD SEL~, SEL+2, SEL+3, SEL+4
FILE OVRX+4~, OVRX+5*, OVRX+6, OVRCOD+1~, OVRCOD+3*, OVRCOD+4*, OVRCOD+5*, OVRCOD+6, OVRCOD+8, SEL~
, SEL+4
FROM HDLG~, HDLG+18, HDLG+29
I OVRDSP+1~, OVRDSP+2*, OVRDSP+3, OVRDSP+4, OTH+5~, OTH+6*, OTH+7
IDX DUP+5~*, DUP+6*, DUP+7
LEN CLEAN+1~*, CLEAN+3
LST OVRDSP~, OVRDSP+4, OTH~, OTH+6, OTH+7
MSG DC+1~, DC+6*, LMREJ~, LMREJ+9*
NEWDATA HDLG+9~, HDLG+33!
NEWDATA("" HDLG+34
OPTS ACTION~, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, HDLG~, HDLG+13*, HDLG+16*, HDLG+18*
, HDLG+25, HDLG+34
>> ORN DC+9*
OTH OTH+5~, OTH+7*, OTH+8*, OTH+9
OVR ACTION+10~, ASK+17, ASK+18*
>> PPL DC+10*
PRPT OVRCOD+1~, OVRCOD+3*, OVRCOD+4*, OVRCOD+5*, OVRCOD+7, OVRCOD+8
PSCAN DC+1~
PSCAN( DC+7*
PSOCKDC DC+9~*
>> PSOFDR DC+6
>> PSOLST(1 DC+9*
>> PSONBILL ACTION+13
>> PSOQFLAG DC+9*
>> PSORX("DFLG" DC+3*, DC+4*
PSOTRIC HDLG+9~, HDLG+11*, HDLG+12, HDLG+18
QT SEL+1~, SEL+6, SEL+7*, SEL+8*
REA DC+1~, DC+5*
REJ ACTION~, ACTION+12, ACTION+13, ACTION+16, DC1+1, OVR+2, HDLG+9~, HDLG+19, HDLG+24*, HDLG+25
, HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
REJCDI HDLG+9~, HDLG+21*
REJDATA HDLG+9~, HDLG+23
REJDATA("" HDLG+24
RESP HDLG+9~, HDLG+29, HDLG+30, HDLG+32
RFL HDLG~, HDLG+10*, HDLG+11, HDLG+18, HDLG+19, HDLG+23, HDLG+26, HDLG+27, HDLG+28, HDLG+29
, HDLG+33, HDLG+35, HDLG+36, LMREJ~, LMREJ+7*, LMREJ+8
RSP DUP~, DUP+7
RX ACTION~, ACTION+12, ACTION+13, ACTION+16, DC1+1, DC~, DC+2, OVR+2, HDLG~, HDLG+10
, HDLG+11, HDLG+14, HDLG+18, HDLG+19, HDLG+23, HDLG+25, HDLG+26, HDLG+27, HDLG+28, HDLG+29
, HDLG+33, HDLG+34, HDLG+35, HDLG+36, LMREJ~, LMREJ+6, LMREJ+7, LMREJ+8, DUP~, DUP+6
, DUP+7
RXN DC+1~
RXNUM DC+1~, DC+2*, DC+5*, DC+7, DC+9
STR CLEAN~, CLEAN+1, CLEAN+2*, CLEAN+3
TYPE OVRX~, OVRX+5, OVRX+7, OVRX+8, OVRX+9, OVRCOD~, OVRCOD+3, OVRCOD+4, OVRCOD+5
U SIG+2
VALUE OVRCOD~, OVRCOD+7
X ACTION+10~, ASK+13!, SIG+1~, COM+1!, COM+3, OVRX+4~, OVRX+6*, OVRCOD+1~, OVRCOD+7*, SEL+1~
, SEL+6, SEL+7, DAT+1*, DAT+2
X1 SIG+1~, SIG+5
Y ACTION+10~, ASK+10, SIG+1~, SIG+2*, SIG+5*, SIG+6, OVR+9, CLA+1~, CLA+4, OVRX+4~
, OVRX+7, OVRX+8, OVRX+9, OVRCOD+1~, OVRCOD+7, OVRCOD+9, OVRCOD+10, SEL+1~, SEL+9, SEL+10
Y(0 OVRCOD+7
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