Changeset 636 for FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RADLQ3.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• RADIOLOGY_NUCLEAR_MEDICINE-RA/RADLQ3.m (modified) (2 diffs)

FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RADLQ3.m

@@ -1 +1 @@
 RADLQ3 ;HISC/GJC-Delq Status/Incomplete Rpt's ;5/7/97  15:58
- ;;5.0;Radiology/Nuclear Medicine;**87**;Mar 16, 1998;Build 2
- ; 11/15/07 BAY/KAM RA*5*87 Rem Call 217642 change pat ssn to display last four
+ ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
 DISPXAM ; Display exam statuses for selected Imaging Types.  These exam
  ; statuses need the 'DELINQUENT STATUS REPORT?' field tripped to
@@ -50 +49 @@
  ;       Since only inpatient and outpatient is possibly stored, any
  ;       change in the variable RAVAR will be a change to 'outpatient'.
- ; 11/15/07 BAY/KAM RA*5*87 Rem Call 217642 Added next line
- S RASSN=$E(RASSN,8,11)
  I IOM=132 D  ;132 column format
  . W !,RANME,?RATAB(1),RACN,?RATAB(2),RASSN,?RATAB(3),RADT,?RATAB(4)