RA15PST1 ;HIRMFO/CRT - Post-init number one (patch fifteen) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**15**;Mar 16, 1998
;
EN1 ; Edit entry in the LABEL PRINT FIELDS (78.7) file
;
N RAFDA
I '$D(^RA(78.7,"B","SSN OF PATIENT BARCODE-NO DASH")) D
. D MSG("SSN OF PATIENT BARCODE",78.7)
. S RAFDA(78.7,"+1,",.01)="SSN OF PATIENT BARCODE-NO DASH"
. S RAFDA(78.7,"+1,",2)="P"
. S RADFA(78.7,"+1,",3)="SSN:"
. S RAFDA(78.7,"+1,",4)="Barcoded SSN"
. S RAFDA(78.7,"+1,",5)="RABSSN"
. D UPDATE^DIE("E","RAFDA")
. S RA100=$O(^RA(78.7,"B","SSN OF PATIENT BARCODE-NO DASH",0))
. I RA100="" D MSG("SSN OF PATIENT BARCODE",78.7,1) Q
. S ^RA(78.7,RA100,"E")="S RABSSN=$TR($$SSN^RAUTL,""-"",""""),RABSSN=$$BCDE^RAUTL18($S(RABSSN=""Unknown"":"""",1:RABSSN))"
;
D BMES^XPDUTL(" ") ; greater readability
Q
MSG(ENTRY,FILE,ERR) ; display a status message pertaining to the addition
; of entries to files: 78.7,
;
; Variable list:
; ENTRY-> value of the .01 field for a particular file (60 chars max)
; FILE -> file # where the data will be added
; ERR -> only passed if error message required
;
N RACNT,RATXT,STRING,WORDS S RACNT=1,RATXT(RACNT)=" "
S STRING="Adding '"_$E(ENTRY,1,40)_"' to the "
S:$G(ERR) STRING="** ERROR "_STRING
S STRING=$G(STRING)_$E($P($G(^DIC(FILE,0)),"^"),1,40)_" file."
S:$G(ERR)&($D(DIERR)) STRING=$G(STRING)_" "_$E($G(^TMP("DIERR",$J,1,"TEXT",1)),1,115) ; display the 1st error text encountered! (there may be more errors. Because of possible string length error display only the first error.)
S:$G(ERR) STRING=$G(STRING)_" IRM should investigate."
F D Q:STRING=""
. S WORDS=$L($E(STRING,1,71)," ")
. S RACNT=RACNT+1,RATXT(RACNT)=$P(STRING," ",1,WORDS)
. S STRING=$P(STRING," ",WORDS+1,999)
. Q
D MES^XPDUTL(.RATXT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA15PST1 1813 printed Oct 16, 2024@18:33:45 Page 2
RA15PST1 ;HIRMFO/CRT - Post-init number one (patch fifteen) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**15**;Mar 16, 1998
+1 ;
EN1 ; Edit entry in the LABEL PRINT FIELDS (78.7) file
+1 ;
+2 NEW RAFDA
+3 IF '$DATA(^RA(78.7,"B","SSN OF PATIENT BARCODE-NO DASH"))
Begin DoDot:1
+4 DO MSG("SSN OF PATIENT BARCODE",78.7)
+5 SET RAFDA(78.7,"+1,",.01)="SSN OF PATIENT BARCODE-NO DASH"
+6 SET RAFDA(78.7,"+1,",2)="P"
+7 SET RADFA(78.7,"+1,",3)="SSN:"
+8 SET RAFDA(78.7,"+1,",4)="Barcoded SSN"
+9 SET RAFDA(78.7,"+1,",5)="RABSSN"
+10 DO UPDATE^DIE("E","RAFDA")
+11 SET RA100=$ORDER(^RA(78.7,"B","SSN OF PATIENT BARCODE-NO DASH",0))
+12 IF RA100=""
DO MSG("SSN OF PATIENT BARCODE",78.7,1)
QUIT
+13 SET ^RA(78.7,RA100,"E")="S RABSSN=$TR($$SSN^RAUTL,""-"",""""),RABSSN=$$BCDE^RAUTL18($S(RABSSN=""Unknown"":"""",1:RABSSN))"
End DoDot:1
+14 ;
+15 ; greater readability
DO BMES^XPDUTL(" ")
+16 QUIT
MSG(ENTRY,FILE,ERR) ; display a status message pertaining to the addition
+1 ; of entries to files: 78.7,
+2 ;
+3 ; Variable list:
+4 ; ENTRY-> value of the .01 field for a particular file (60 chars max)
+5 ; FILE -> file # where the data will be added
+6 ; ERR -> only passed if error message required
+7 ;
+8 NEW RACNT,RATXT,STRING,WORDS
SET RACNT=1
SET RATXT(RACNT)=" "
+9 SET STRING="Adding '"_$EXTRACT(ENTRY,1,40)_"' to the "
+10 if $GET(ERR)
SET STRING="** ERROR "_STRING
+11 SET STRING=$GET(STRING)_$EXTRACT($PIECE($GET(^DIC(FILE,0)),"^"),1,40)_" file."
+12 ; display the 1st error text encountered! (there may be more errors. Because of possible string length error display only the first error.)
if $GET(ERR)&($DATA(DIERR))
SET STRING=$GET(STRING)_" "_$EXTRACT($GET(^TMP("DIERR",$JOB,1,"TEXT",1)),1,115)
+13 if $GET(ERR)
SET STRING=$GET(STRING)_" IRM should investigate."
+14 FOR
Begin DoDot:1
+15 SET WORDS=$LENGTH($EXTRACT(STRING,1,71)," ")
+16 SET RACNT=RACNT+1
SET RATXT(RACNT)=$PIECE(STRING," ",1,WORDS)
+17 SET STRING=$PIECE(STRING," ",WORDS+1,999)
+18 QUIT
End DoDot:1
if STRING=""
QUIT
+19 DO MES^XPDUTL(.RATXT)
+20 QUIT
