RA15PST1.m

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

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