Routine: PSOREJP3

Information

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

Source Information

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
Outpatient Pharmacy	9	ECMESND^PSOBPSU1 ($$RXFLDT,$$RXSITE,$$STATUS)^PSOBPSUT DQ^PSOLBL LBL^PSOLSET $$GETNDC^PSONDCUT ($$CLOSED,$$TRIC,INIT,SETLN)^PSOREJP1 $$PTLBL^PSOREJP2 $$DC^PSOREJU1 CLOSE^PSOREJUT
VA Fileman	5	NOW^%DTC (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR ^DIWP
Kernel	4	^%ZIS ^%ZISC $$FMTE^XLFDT BMES^XPDUTL
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOREJP1 PSOREJP2 PSOREJU4 PSOREJUT PSORXED

Entry Points

Name	Comments	DBIA/ICR reference
YESNO(PSQSTR,PSDFL)	; Default - YES
DC	;Discontinue TRICARE Rx
PRINT(RX,RFL)	; Print Label for specific Rx/Fill
RXINFO(RX,FILL,LINE)	; Returns header displayable Rx Information
SAVECOM(PSRXIEN,PSREJIEN,PSCOMNT,DATETIME,USER)	;
ADDCOM	; - Add comment worklist action
COMMENT(PSOTR,PSMLEN)	;*/
INSITEM(PSSFILE,PSIEN0,PSIEN1,PSVAL01)	;*/
SEND(COD1,COD2,COD3,CLA,PA)	; - Sends Claim to ECME and closes Reject
COM	; Builds the Comments section in the Reject Display Screen
FILL	;Fill payable TRICARE Rx

External References

Name	Field # of Occurrence
NOW^%DTC	SAVECOM+2
^%ZIS	PRINT+10
^%ZISC	PRINT+10
FILE^DIE	SAVECOM+9
UPDATE^DIE	INSITEM+4
$$GET1^DIQ	COM+8, COM+9, COM+10, PRINT+3, PRINT+6, RXINFO+3, RXINFO+7, RXINFO+8, SEND+21, FILL+10 , FILL+12, FILL+13
^DIR	COMMENT+9, YESNO+5, SEND+7
^DIWP	COM+12
ECMESND^PSOBPSU1	SEND+13
$$RXFLDT^PSOBPSUT	RXINFO+5
$$RXSITE^PSOBPSUT	PRINT+5
$$STATUS^PSOBPSUT	SEND+22, FILL+5
DQ^PSOLBL	PRINT+10
LBL^PSOLSET	PRINT+8
$$GETNDC^PSONDCUT	RXINFO+9, SEND+13
$$CLOSED^PSOREJP1	FILL+3
$$TRIC^PSOREJP1	SEND+20
INIT^PSOREJP1	ADDCOM+6
SETLN^PSOREJP1	COM+2, COM+3, COM+16
$$PTLBL^PSOREJP2	SEND+18, FILL+15
$$DC^PSOREJU1	DC+3
CLOSE^PSOREJUT	FILL+14
FULL^VALM1	ADDCOM+2, FILL+2, DC+2
$$FMTE^XLFDT	RXINFO+5
BMES^XPDUTL	INSITEM+5

Interaction Calls

Name	Line Occurrences
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+8
Function Call: WRITE	Prompt: ! Line Location: SEND+7
Function Call: WRITE	Prompt: !!?10,"Claim could not be submitted. Please try again later!" Line Location: SEND+15
Function Call: WRITE	Prompt: !,?10,"Reason: ",$S($P(RESP,"^",2)="":"UNKNOWN",1:$P(RESP,"^",2)),$C(7) Line Location: SEND+16
Function Call: WRITE	Prompt: !,"This prescription can be pulled early from suspense or the label will print" Line Location: SEND+24
Function Call: WRITE	Prompt: !,"when PRINT FROM SUSPENSE occurs.",! Line Location: SEND+25
Function Call: WRITE	Prompt: !?20,"[Closing all rejections for prescription "_$$GET1^DIQ(52,RX,".01")_":" Line Location: FILL+10
Function Call: WRITE	Prompt: !?25,OPNREJ3_" - "_$$GET1^DIQ(9002313.93,OPNREJ3,".02")_"..." Line Location: FILL+13
Function Call: WRITE	Prompt: "OK]",!,$C(7) Line Location: FILL+14
Routine Call	DIE Line Location: INSITEM+4
Routine Call	DIE Line Location: SAVECOM+9
Routine Call	DIR Line Location: COMMENT+9 YESNO+5 SEND+7
Routine Call	%ZIS Line Location: PRINT+10

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.032	GET1^DIQ
52.25	GET1^DIQ
52.2551	GET1^DIQ
^ABSPF(9002313.93 - [#9002313.93]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	PRINT+5
^PS(59.7 - [#59.7]	PRINT+6
^PSDRUG("AQ"	RXINFO+7
^PSRX - [#52]	COM+1, COM+7, COM+14, SAVECOM+5, PRINT+3, FILL+8
^UTILITY($J	COM+12!, COM+13, COM+14, COM+15, COM+17!

Name	Line Occurrences
$$COMMENT	ADDCOM+3
$$YESNO	COMMENT+16
INSITEM	SAVECOM+4
PRINT	SEND+18, FILL+15
SAVECOM	ADDCOM+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SAVECOM+2
ACTION	DC+1~, DC+3, DC+4
ALTXT	SEND+1~, SEND+9, SEND+10, SEND+11, SEND+12, SEND+13
>> CHANGE	SEND+28, FILL+16, DC+5*
CLA	SEND~, SEND+11, SEND+13
CMOP	RXINFO+1~, RXINFO+7*, RXINFO+8
COD1	SEND~, SEND+8, SEND+10
COD2	SEND~, SEND+8, SEND+10
COD3	SEND~, SEND+8, SEND+10
COM	SEND+1~, FILL+1~, FILL+6*, FILL+14
DATETIME	SAVECOM~, SAVECOM+2*, SAVECOM+4, SAVECOM+5
DFN	PRINT+2~, PRINT+6*
DIR	COMMENT+1~, YESNO+1~, SEND+1~
DIR("?"	COMMENT+6*
DIR("A"	COMMENT+5, YESNO+3, SEND+2, SEND+3, SEND+4, SEND+5, SEND+6*
DIR("B"	COMMENT+13, YESNO+4, SEND+2*
DIR(0	COMMENT+4, YESNO+2, SEND+2*
>> DIRUT	SEND+7
DIWL	COM+4~, COM+12*
DIWR	COM+4~, COM+12*
DRG	RXINFO+1~, RXINFO+7*
DTOUT	COMMENT+1~, COMMENT+10
DUOUT	COMMENT+1~, COMMENT+10, YESNO+1~, YESNO+6
DUZ	SAVECOM+3, PRINT+6, FILL+14
FILL	RXINFO~, RXINFO+3, RXINFO+5, RXINFO+9, SEND+13, SEND+18, SEND+20, FILL+5, FILL+14, FILL+15
I	COM+5~, FILL+11*
>> IOP	PRINT+10*
LAST	COM+5~, COM+14*, COM+16
LBL	RXINFO+1~
LINE	RXINFO~, RXINFO+2, RXINFO+6
LNCNT	COM+4~
MAXLN	COM+4~
OPNREJ	FILL+1~, FILL+7, FILL+8, FILL+9*, FILL+11
OPNREJ2	FILL+1~, FILL+7, FILL+8, FILL+9, FILL+11, FILL+12, FILL+14
OPNREJ3	FILL+1~, FILL+7, FILL+12, FILL+13
OVRC	SEND+1~, SEND+8*, SEND+10, SEND+13
PA	SEND~, SEND+12, SEND+13
PDUZ	PRINT+2~, PRINT+6*
POP	PRINT+2~
PPL	PRINT+1~, PRINT+7*
PSCOM	COM+8, COM+9, COM+10, COM+12, ADDCOM+1~, ADDCOM+3, ADDCOM+4, ADDCOM+5
PSCOMNT	SAVECOM~, SAVECOM+8
PSDA	SAVECOM+1~
PSDA(	SAVECOM+7, SAVECOM+8
PSDFL	YESNO~, YESNO+4
PSER	INSITEM+1~, INSITEM+5
PSER("DIERR"	INSITEM+5
PSERR	SAVECOM+1~
PSFDA	INSITEM+1~
PSFDA(	INSITEM+3*
PSI	COM+5~, COM+6, COM+7, COM+8, COM+9, COM+10, COM+14
PSIEN0	INSITEM~, INSITEM+2
PSIEN1	INSITEM~, INSITEM+2
PSIENS	INSITEM+1~, INSITEM+2*, INSITEM+3
PSL	COM+4~, COM+13*, COM+14, COM+15, COM+16
PSMLEN	COMMENT~, COMMENT+3*, COMMENT+11, COMMENT+13
PSOBAR0	PRINT+1~
PSOBAR1	PRINT+1~
PSOBARS	PRINT+1~
PSOBFLAG	PRINT+1~, PRINT+8*
PSOCOM	COM+5~
PSOIOS	PRINT+1~
PSOLAP	PRINT+1~, PRINT+10
PSOPAR	PRINT+1~, PRINT+5*
>> PSOQUIT	PRINT+8
>> PSORX("DFLG"	DC+4
PSOSITE	PRINT+1~, PRINT+5*
>> PSOSTFLT	SEND+28
PSOSYS	PRINT+1~, PRINT+6*
PSOTR	COMMENT~, COMMENT+2*, COMMENT+5
PSOTRIC	SEND+20~*, SEND+21
PSQ	COMMENT+1~, COMMENT+7, COMMENT+8, COMMENT+10, COMMENT+11, COMMENT+14, COMMENT+16, COMMENT+17, COMMENT+18
PSQSTR	YESNO~, YESNO+3
PSREC	SAVECOM+1~, SAVECOM+5*, SAVECOM+6, SAVECOM+7, SAVECOM+8
PSREJIEN	SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8
PSRXIEN	SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8
PSSFILE	INSITEM~, INSITEM+3
PSSSI	INSITEM+1~
PSVAL01	INSITEM~, INSITEM+3
>> REJ	COM+1, COM+7, COM+8, COM+9, COM+10, COM+14, ADDCOM+5, FILL+3
REJLBL	PRINT+2~, PRINT+3*
REPRINT	PRINT+2~, PRINT+3*
RESP	SEND+1~, SEND+13, SEND+14, SEND+16
RFL	PRINT~, PRINT+3, PRINT+5, PRINT+7, SEND+22
RX	COM+1, COM+7, COM+8, COM+9, COM+10, COM+14, ADDCOM+5, PRINT~, PRINT+3, PRINT+5 , PRINT+6, PRINT+7, RXINFO~, RXINFO+3, RXINFO+4, RXINFO+5, RXINFO+7, RXINFO+8, RXINFO+9, SEND+13 , SEND+18, SEND+20, SEND+21, SEND+22, FILL+3, FILL+5, FILL+8, FILL+10, FILL+12, FILL+14 , FILL+15, DC+3
RXFL	PRINT+2~
RXFL(	PRINT+7*
RXINFO	RXINFO+1~, RXINFO+3, RXINFO+4, RXINFO+5, RXINFO+8, RXINFO+9*, RXINFO+10
TXT	RXINFO+1~
TXTLN	COM+5~, COM+15*, COM+16
USER	SAVECOM~, SAVECOM+3*, SAVECOM+7
>> VALMBCK	ADDCOM+7, SEND+7, FILL+4, FILL+5, FILL+16, DC+4
>> VALMSG	FILL+4, FILL+5, DC+4*
X	COM+5~, COM+12*
XXX	SEND+23~, SEND+26
Y	COM+5~, COMMENT+11, COMMENT+13, COMMENT+15, COMMENT+19, YESNO+1~, YESNO+6, SEND+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJP3

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: