RA13PST1.m

RA13PST1 ;HIRMFO/CRT - Post-init number one (patch thirteen) ;5/19/99

VERSION ;;5.0;Radiology/Nuclear Medicine;**13**;Mar 16, 1998

 ;

EN1 ; Add entry to the LABEL PRINT FIELDS (78.7) file

 ;

 N RAFDA,RAFDAIEN

 I '$D(^RA(78.7,"B","NAME OF PATIENT (FIRST LAST)")) D

 . S RAFDA(78.7,"+1,",.01)="NAME OF PATIENT (FIRST LAST)"

 . S RAFDA(78.7,"+1,",2)="P"

 . S RAFDA(78.7,"+1,",3)="Name:"

 . S RAFDA(78.7,"+1,",4)="JOHN JONES"

 . S RAFDA(78.7,"+1,",5)="RANM"

 . D MSG("NAME OF PATIENT (FIRST LAST)",78.7),UPDATE^DIE("E","RAFDA","RAFDAIEN")

 . I '$D(^RA(78.7,"B","NAME OF PATIENT (FIRST LAST)")) D MSG("NAME OF PATIENT (FIRST LAST)",78.7,1) Q

 . S ^RA(78.7,RAFDAIEN(1),"E")="S RANM=$TR($P($P(RAY0,""^""),"","",2)_"" ""_$P($P(RAY0,""^""),"",""),"".,"","""")"

 ;

 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  -> err message? 1 if yes, else null

 ;

 N RACNT,RATXT,STRING,WORDS S RACNT=1,RATXT(RACNT)=" "

 S:$G(ERR) STRING="* ERROR * "

 S STRING=$G(STRING)_"Adding '"_$E(ENTRY,1,40)_"' to the "

 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

RA13PST1  ;HIRMFO/CRT - Post-init number one (patch thirteen) ;5/19/99

VERSION   ;;5.0;Radiology/Nuclear Medicine;**13**;Mar 16, 1998

 +1       ;

EN1       ; Add entry to the LABEL PRINT FIELDS (78.7) file

 +1       ;

 +2        NEW RAFDA,RAFDAIEN

 +3        IF '$DATA(^RA(78.7,"B","NAME OF PATIENT (FIRST LAST)"))

               Begin DoDot:1

 +4                SET RAFDA(78.7,"+1,",.01)="NAME OF PATIENT (FIRST LAST)"

 +5                SET RAFDA(78.7,"+1,",2)="P"

 +6                SET RAFDA(78.7,"+1,",3)="Name:"

 +7                SET RAFDA(78.7,"+1,",4)="JOHN JONES"

 +8                SET RAFDA(78.7,"+1,",5)="RANM"

 +9                DO MSG("NAME OF PATIENT (FIRST LAST)",78.7)

                   DO UPDATE^DIE("E","RAFDA","RAFDAIEN")

 +10               IF '$DATA(^RA(78.7,"B","NAME OF PATIENT (FIRST LAST)"))

                       DO MSG("NAME OF PATIENT (FIRST LAST)",78.7,1)

                       QUIT 

 +11               SET ^RA(78.7,RAFDAIEN(1),"E")="S RANM=$TR($P($P(RAY0,""^""),"","",2)_"" ""_$P($P(RAY0,""^""),"",""),"".,"","""")"

               End DoDot:1

 +12      ;

 +13      ; greater readability

           DO BMES^XPDUTL(" ")

 +14       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  -> err message? 1 if yes, else null

 +7       ;

 +8        NEW RACNT,RATXT,STRING,WORDS

           SET RACNT=1

           SET RATXT(RACNT)=" "

 +9        IF $GET(ERR)

               SET STRING="* ERROR * "

 +10       SET STRING=$GET(STRING)_"Adding '"_$EXTRACT(ENTRY,1,40)_"' to the "

 +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