Issue in listing down the Radiology order status in reports tab in CPRS

[elanchezhiyan]

We faced an issue on Status list for radiology orders on Reports tab.

Replication Steps:

1. Make more than 4 radiology orders
2. Select all the four and sign at once
3. Go to Reports tab
4. Select Clinical reports -- Radiology
5. and click on Status menu
6. you could see only one or two items listed but not all.

Reason for the issue: ( if at all it is not supposed to be VistA
functionality)

Since all new orders signed at same time, some global entries taken
the same date time.

for example

^{TMP("GMTSRAD",7488,6899590.898492,3,847)="3100408.101508}p^{ABDOMEN
LATERAL VIEW|(ONE FILM)MANAGER,SYSTEM"}
TMP("GMTSRAD",7488,6899590.898492,3,847,0)=""
^{TMP("GMTSRAD",7488,6899590.898492,4,846)="3100408.101508}p^{ABDOMEN
FOR PREGNANCYMANAGER,SYSTEM"}
TMP("GMTSRAD",7488,6899590.898492,4,846,0)=""
^{TMP("GMTSRAD",7488,6899590.898492,5,848)="3100408.101508}p^{BARIUM
MEAL COMPLETEMANAGER,SYSTEM"}
TMP("GMTSRAD",7488,6899590.898492,5,848,0)=""
^{TMP("GMTSRAD",7488,6899590.898494,2,627)="3100408.101506}p^{ABDOMEN AP OR ERECT (ONE|FILM)MANAGER,SYSTEM"}
TMP("GMTSRAD",7488,6899590.898494,2,627,0)=""

but the OE/RR reports ^{TMP("ORDATA", nodes is gettting overwritten by the nodes having the same dates. please check the code pasted under solution.}

Solution:

In RS^ORDV03,

...S CNT=CNT+1

...S SITE=$S($L($G(^{TMP("GMTSRAD",}

$J,ORDT,ORDA,ORDA2,"facility"))):^{("facility"),1:ORSITE)}

...;[ELN]
...;S ^{TMP("ORDATA",$J,ORDT,"WP",1)="1}"_SITE
...S ^{TMP("ORDATA",$J,ORDA,"WP",1)="1}"_SITE
...;S ^{TMP("ORDATA",$J,ORDT,"WP",2)="2}"_$$DATE^{ORDVU($P(REC,"}"))
...S ^{TMP("ORDATA",$J,ORDA,"WP",2)="2}"_$$DATE^{ORDVU($P(REC,"}"))
...;S ^{TMP("ORDATA",$J,ORDT,"WP",3)="3}"_

$S(STAT="d":"Discontinued",STAT="c":"Complete",STAT="h":"Hold",STAT="p":"Pe­nding",STAT="a":"Active",STAT="s":"Scheduled",STAT="u":"Unreleased",
1:STAT)

...S ^{TMP("ORDATA",$J,ORDA,"WP",3)="3}"_

$S(STAT="d":"Discontinued",STAT="c":"Complete",STAT="h":"Hold",STAT="p":"Pe­nding",STAT="a":"Active",STAT="s":"Scheduled",STAT="u":"Unreleased",
1:STAT)

...;S ^{TMP("ORDATA",$J,ORDT,"WP",4)="4}"_$P(REC,"^",3)
...S TMP("ORDATA",$J,ORDA,"WP",4)="4^"_$P(REC,"",3)
...;S ^{TMP("ORDATA",$J,ORDT,"WP",5)="5}"_$$DATE^{ORDVU($P(REC,"}",4))
...S ^{TMP("ORDATA",$J,ORDA,"WP",5)="5}"_$$DATE^{ORDVU($P(REC,"}",4))
...;S ^{TMP("ORDATA",$J,ORDT,"WP",6)="6}"_$P(REC,"^",5)
...S TMP("ORDATA",$J,ORDA,"WP",6)="6^"_$P(REC,"",5)
...;[ELN]
S ROOT=$NA(^{TMP("ORDATA",$J))
Q}

so I have changed the ORDT order date-time with ORDA record number.

Please review and give your comments.

Thanks.

[elanchezhiyan]

Modified programs. look for [ELN]