- PSSP194 ;DAL/DSK-PSS*1.0*194 POST INSTALL ROUTINE
- ;;1.0;PHARMACY DATA MANAGEMENT;**194**;9/30/97;Build 9
- ;;
- Q
- ;
- POSTINT ; POST INSTALL ENTRY POINT.
- ;
- N ZTDESC,ZTIO,ZTDTH,ZTRTN,ZTSAVE
- S ZTDESC="PSS*1*194 Post Install",ZTIO="",ZTDTH=$H,ZTRTN="POST^PSSP194",ZTSAVE("DUZ")=""
- D ^%ZTLOAD
- D BMES^XPDUTL("PSS*1*194 Post Install Task Queued.")
- D BMES^XPDUTL("You will receive a MailMan message")
- D BMES^XPDUTL("when task #"_$G(ZTSK)_" has completed.")
- K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
- Q
- ;
- POST ;correct cross references and send mail message
- ;
- ; ^XTMP("PSSP194" used to document changes made
- ; Changes are sent in MailMan message to installer
- ; ^XTMP is kept for 90 days in case questions arise later
- ; and mail message has been deleted
- ;
- N PSSNOW
- S PSSNOW=$$NOW^XLFDT()
- ;in case this routine is run more than once, delete old ^XTMP entry
- K ^XTMP("PSSP194")
- S ^XTMP("PSSP194",0)=$$FMADD^XLFDT(PSSNOW,90)_"^"_PSSNOW_"^PSS*1.0*194 Post Install Routine PSSP194"
- D NAME,MAIL
- Q
- ;
- NAME ;Search for incorrect cross references
- ;If length is exactly 30, pre-PSS*1*194 version of PSSTXT
- ;may not have deleted or changed the cross reference correctly
- ;If length is more than 30, change to 30 to be consistent
- ;with FileMan logic
- ;
- N PSSEQ,PSSTR,PSSIEN,PSSINDEX
- D CHECK
- ;
- S PSSEQ=""
- ;
- ;Delete cross references which need to be deleted
- F S PSSEQ=$O(^XTMP("PSSP194","CROSS",PSSEQ)) Q:PSSEQ="" D
- . S PSSTR=^XTMP("PSSP194","CROSS",PSSEQ)
- . S PSSIEN=$P(PSSTR,"^"),PSSINDEX=$P(PSSTR,"^",3)
- . K ^PS(51.7,"B",PSSINDEX,PSSIEN)
- ;
- ;Set cross references which need to be set
- F S PSSEQ=$O(^XTMP("PSSP194","B_SET",PSSEQ)) Q:PSSEQ="" D
- . S PSSTR=^XTMP("PSSP194","B_SET",PSSEQ)
- . S PSSIEN=$P(PSSTR,"^"),PSSINDEX=$P(PSSTR,"^",3)
- . S ^PS(51.7,"B",PSSINDEX,PSSIEN)=""
- ;
- ;Kill long cross references and set truncated cross references
- F S PSSEQ=$O(^XTMP("PSSP194","LONG",PSSEQ)) Q:PSSEQ="" D
- . S PSSTR=^XTMP("PSSP194","LONG",PSSEQ)
- . ;kill the >30 length cross reference
- . S PSSIEN=$P(PSSTR,"^"),PSSINDEX=$P(PSSTR,"^",2)
- . K ^PS(51.7,"B",PSSINDEX,PSSIEN)
- . ;set correct cross reference.
- . ;This set could potentially occur twice due to part IND
- . ;but at least it would be set.
- . S PSSINDEX=$P(PSSTR,"^",3)
- . ;check for null value in case this was a file fragment
- . I PSSINDEX]"" S ^PS(51.7,"B",PSSINDEX,PSSIEN)=""
- Q
- ;
- CHECK ;Check cross reference and correct if necessary
- ;
- N PSSNAME,PSSUB
- S PSSINDEX="",PSSEQ=0
- F S PSSINDEX=$O(^PS(51.7,"B",PSSINDEX)) Q:PSSINDEX="" D
- . Q:$L(PSSINDEX)<30
- . S PSSIEN=""
- . F S PSSIEN=$O(^PS(51.7,"B",PSSINDEX,PSSIEN)) Q:PSSIEN="" D
- . . S PSSNAME=$P($G(^PS(51.7,PSSIEN,0)),"^")
- . . I $E(PSSNAME,1,30)'=PSSINDEX D
- . . . ;"CROSS" subscript = cross reference was not deleted
- . . . ; because of previous logic issue
- . . . ; in routine PSSTXT so need to delete
- . . . ;"LONG" subscript = cross reference is longer than
- . . . ; 30 characters; truncate to 30
- . . . ; to be consistent with FileMan
- . . . S PSSEQ=PSSEQ+1,PSSUB=$S($L(PSSINDEX)=30:"CROSS",1:"LONG")
- . . . ;set data string for ease of sending MailMan message later
- . . . S ^XTMP("PSSP194",PSSUB,PSSEQ)=PSSIEN_"^"_$S(PSSUB="CROSS":PSSNAME,1:PSSINDEX)_"^"_$S(PSSUB="CROSS":PSSINDEX,1:$E(PSSNAME,1,30))
- . . . D IND
- Q
- ;
- IND ;double check to make sure there is a valid index
- ;
- I PSSNAME'="",'$D(^PS(51.7,"B",PSSNAME,PSSIEN)),'$D(^PS(51.7,"B",$E(PSSNAME,1,30),PSSIEN)) D
- . ;For an unknown reason, the name is not present -- truncated or not
- . ; -- as a cross reference.
- . ;This is probably not a real issue at sites, but am allowing for the
- . ;possibility.
- . ;
- . ;If PSSNAME is null, a file fragment probably exists which was caused
- . ;by a previous error. Leave the file fragment "as is" because side
- . ;effects of deleting file fragments are not known.
- . ;
- . S ^XTMP("PSSP194","B_SET",PSSEQ)=PSSIEN_"^"_PSSNAME_"^"_$E(PSSNAME,1,30)
- Q
- ;
- MAIL ;send Mail message
- ;
- N XMY,PSLINE,PSSPACE,XMDUZ,XMY,XMSUB,A,XMTEXT,PSFLG
- K XMY
- S PSFLG=0,PSLINE=1,PSSPACE=" "
- ;send MailMan message to installer
- S XMDUZ="POST-INSTALL,PSS*1.0*194",XMY(DUZ)="",XMSUB="POST-INSTALL PSS*1.0*194 INFORMATION"
- S A(PSLINE)=""
- S PSLINE=PSLINE+1
- S A(PSLINE)=" PSS*1.0*194 POST-INSTALL"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S A(PSLINE)=" The content of this message is informational only."
- S PSLINE=PSLINE+1
- S A(PSLINE)=" No action needs to be taken."
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S PSSEQ=""
- F S PSSEQ=$O(^XTMP("PSSP194",PSSEQ)) Q:PSSEQ="" D
- . I PSSEQ="CROSS" S PSFLG=1 D MCROSS
- . I PSSEQ="B_SET" S PSFLG=1 D MBSET
- . I PSSEQ="LONG" S PSFLG=1 D MLONG
- I 'PSFLG D
- . S PSLINE=PSLINE+1
- . S A(PSLINE)=" The DRUG TEXT (#51.7) file was checked and no issues were found."
- ;set mail message in ^XTMP in case mail message accidentally deleted
- M ^XTMP("PSSP194","MAIL")=A
- ;send mail message
- S XMTEXT="A(" D ^XMD
- ;delete task from TaskManager list
- S ZTREQ="@"
- Q
- ;
- MCROSS ;Incorrect cross reference was deleted
- ;
- N PSSUB,PSSTR,PSSIEN,PSSNAME,PSSCROSS
- ;set top level of ^XMTP subscript for ease of troublehshooting later if necessary
- S ^XTMP("PSSP194",PSSEQ)="Incorrect Cross References which were deleted by post-install routine PSSP194"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S PSLINE=PSLINE+1
- S A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had"
- S PSLINE=PSLINE+1
- S A(PSLINE)="incorrect cross references deleted."
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S PSLINE=PSLINE+1
- S A(PSLINE)=" IEN Name"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ------------ ---------------------------------------------"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" Incorrect Cross Reference Deleted"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ---------------------------------------"
- D STR
- Q
- ;
- MBSET ;No cross references existed, so cross references were set
- ;
- N PSSUB,PSSTR,PSSIEN,PSSNAME,PSSCROSS
- ;set top level of ^XTMP subscript for ease of troubleshooting later if necessary
- S ^XTMP("PSSP194",PSSEQ)="No cross references existed, so cross reference was set"
- S PSLINE=PSLINE+1
- S A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had no cross references,"
- S PSLINE=PSLINE+1
- S A(PSLINE)="so cross references were set."
- S PSLINE=PSLINE+1
- S A(PSLINE)=""
- S PSLINE=PSLINE+1
- S A(PSLINE)=" IEN Name"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ------------ ---------------------------------------------"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" Cross Reference Set"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ------------------------------"
- D STR
- Q
- ;
- MLONG ;Long cross references which were truncated
- ;
- N PSSUB,PSSTR,PSSIEN,PSSCROSS
- ;set top level of ^XTMP subscript for ease of troubleshooting later if necessary
- S ^XTMP("PSSP194",PSSEQ)="Long cross references which were truncated"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S PSLINE=PSLINE+1
- S A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had long"
- S PSLINE=PSLINE+1
- S A(PSLINE)="cross references deleted and truncated cross references set."
- S PSLINE=PSLINE+1
- S A(PSLINE)=""
- S PSLINE=PSLINE+1
- S A(PSLINE)=" IEN Long Cross Reference Deleted"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ------------ ---------------------------------------------"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" Truncated Cross Reference Set"
- S PSLINE=PSLINE+1
- S A(PSLINE)=" ------------------------------"
- D STR
- Q
- ;
- STR ;set data in mail message array
- S PSLINE=PSLINE+1
- S A(PSLINE)=" "
- S PSSUB=""
- F S PSSUB=$O(^XTMP("PSSP194",PSSEQ,PSSUB)) Q:PSSUB="" D
- . S PSSTR=^XTMP("PSSP194",PSSEQ,PSSUB),PSSIEN=$P(PSSTR,"^"),PSSNAME=$P(PSSTR,"^",2),PSSCROSS=$P(PSSTR,"^",3)
- . S PSLINE=PSLINE+1
- . S A(PSLINE)=" "_PSSIEN_$E(PSSPACE,1,14-$L(PSSIEN))_$S(PSSNAME]"":PSSNAME,1:"No name on entry")
- . S PSLINE=PSLINE+1
- . S A(PSLINE)=" "_$S(PSSCROSS]"":PSSCROSS,1:"None -- no name on entry")
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSP194 8285 printed Jan 18, 2025@03:34:24 Page 2
- PSSP194 ;DAL/DSK-PSS*1.0*194 POST INSTALL ROUTINE
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**194**;9/30/97;Build 9
- +2 ;;
- +3 QUIT
- +4 ;
- POSTINT ; POST INSTALL ENTRY POINT.
- +1 ;
- +2 NEW ZTDESC,ZTIO,ZTDTH,ZTRTN,ZTSAVE
- +3 SET ZTDESC="PSS*1*194 Post Install"
- SET ZTIO=""
- SET ZTDTH=$HOROLOG
- SET ZTRTN="POST^PSSP194"
- SET ZTSAVE("DUZ")=""
- +4 DO ^%ZTLOAD
- +5 DO BMES^XPDUTL("PSS*1*194 Post Install Task Queued.")
- +6 DO BMES^XPDUTL("You will receive a MailMan message")
- +7 DO BMES^XPDUTL("when task #"_$GET(ZTSK)_" has completed.")
- +8 KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
- +9 QUIT
- +10 ;
- POST ;correct cross references and send mail message
- +1 ;
- +2 ; ^XTMP("PSSP194" used to document changes made
- +3 ; Changes are sent in MailMan message to installer
- +4 ; ^XTMP is kept for 90 days in case questions arise later
- +5 ; and mail message has been deleted
- +6 ;
- +7 NEW PSSNOW
- +8 SET PSSNOW=$$NOW^XLFDT()
- +9 ;in case this routine is run more than once, delete old ^XTMP entry
- +10 KILL ^XTMP("PSSP194")
- +11 SET ^XTMP("PSSP194",0)=$$FMADD^XLFDT(PSSNOW,90)_"^"_PSSNOW_"^PSS*1.0*194 Post Install Routine PSSP194"
- +12 DO NAME
- DO MAIL
- +13 QUIT
- +14 ;
- NAME ;Search for incorrect cross references
- +1 ;If length is exactly 30, pre-PSS*1*194 version of PSSTXT
- +2 ;may not have deleted or changed the cross reference correctly
- +3 ;If length is more than 30, change to 30 to be consistent
- +4 ;with FileMan logic
- +5 ;
- +6 NEW PSSEQ,PSSTR,PSSIEN,PSSINDEX
- +7 DO CHECK
- +8 ;
- +9 SET PSSEQ=""
- +10 ;
- +11 ;Delete cross references which need to be deleted
- +12 FOR
- SET PSSEQ=$ORDER(^XTMP("PSSP194","CROSS",PSSEQ))
- if PSSEQ=""
- QUIT
- Begin DoDot:1
- +13 SET PSSTR=^XTMP("PSSP194","CROSS",PSSEQ)
- +14 SET PSSIEN=$PIECE(PSSTR,"^")
- SET PSSINDEX=$PIECE(PSSTR,"^",3)
- +15 KILL ^PS(51.7,"B",PSSINDEX,PSSIEN)
- End DoDot:1
- +16 ;
- +17 ;Set cross references which need to be set
- +18 FOR
- SET PSSEQ=$ORDER(^XTMP("PSSP194","B_SET",PSSEQ))
- if PSSEQ=""
- QUIT
- Begin DoDot:1
- +19 SET PSSTR=^XTMP("PSSP194","B_SET",PSSEQ)
- +20 SET PSSIEN=$PIECE(PSSTR,"^")
- SET PSSINDEX=$PIECE(PSSTR,"^",3)
- +21 SET ^PS(51.7,"B",PSSINDEX,PSSIEN)=""
- End DoDot:1
- +22 ;
- +23 ;Kill long cross references and set truncated cross references
- +24 FOR
- SET PSSEQ=$ORDER(^XTMP("PSSP194","LONG",PSSEQ))
- if PSSEQ=""
- QUIT
- Begin DoDot:1
- +25 SET PSSTR=^XTMP("PSSP194","LONG",PSSEQ)
- +26 ;kill the >30 length cross reference
- +27 SET PSSIEN=$PIECE(PSSTR,"^")
- SET PSSINDEX=$PIECE(PSSTR,"^",2)
- +28 KILL ^PS(51.7,"B",PSSINDEX,PSSIEN)
- +29 ;set correct cross reference.
- +30 ;This set could potentially occur twice due to part IND
- +31 ;but at least it would be set.
- +32 SET PSSINDEX=$PIECE(PSSTR,"^",3)
- +33 ;check for null value in case this was a file fragment
- +34 IF PSSINDEX]""
- SET ^PS(51.7,"B",PSSINDEX,PSSIEN)=""
- End DoDot:1
- +35 QUIT
- +36 ;
- CHECK ;Check cross reference and correct if necessary
- +1 ;
- +2 NEW PSSNAME,PSSUB
- +3 SET PSSINDEX=""
- SET PSSEQ=0
- +4 FOR
- SET PSSINDEX=$ORDER(^PS(51.7,"B",PSSINDEX))
- if PSSINDEX=""
- QUIT
- Begin DoDot:1
- +5 if $LENGTH(PSSINDEX)<30
- QUIT
- +6 SET PSSIEN=""
- +7 FOR
- SET PSSIEN=$ORDER(^PS(51.7,"B",PSSINDEX,PSSIEN))
- if PSSIEN=""
- QUIT
- Begin DoDot:2
- +8 SET PSSNAME=$PIECE($GET(^PS(51.7,PSSIEN,0)),"^")
- +9 IF $EXTRACT(PSSNAME,1,30)'=PSSINDEX
- Begin DoDot:3
- +10 ;"CROSS" subscript = cross reference was not deleted
- +11 ; because of previous logic issue
- +12 ; in routine PSSTXT so need to delete
- +13 ;"LONG" subscript = cross reference is longer than
- +14 ; 30 characters; truncate to 30
- +15 ; to be consistent with FileMan
- +16 SET PSSEQ=PSSEQ+1
- SET PSSUB=$SELECT($LENGTH(PSSINDEX)=30:"CROSS",1:"LONG")
- +17 ;set data string for ease of sending MailMan message later
- +18 SET ^XTMP("PSSP194",PSSUB,PSSEQ)=PSSIEN_"^"_$SELECT(PSSUB="CROSS":PSSNAME,1:PSSINDEX)_"^"_$SELECT(PSSUB="CROSS":PSSINDEX,1:$EXTRACT(PSSNAME,1,30))
- +19 DO IND
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +20 QUIT
- +21 ;
- IND ;double check to make sure there is a valid index
- +1 ;
- +2 IF PSSNAME'=""
- IF '$DATA(^PS(51.7,"B",PSSNAME,PSSIEN))
- IF '$DATA(^PS(51.7,"B",$EXTRACT(PSSNAME,1,30),PSSIEN))
- Begin DoDot:1
- +3 ;For an unknown reason, the name is not present -- truncated or not
- +4 ; -- as a cross reference.
- +5 ;This is probably not a real issue at sites, but am allowing for the
- +6 ;possibility.
- +7 ;
- +8 ;If PSSNAME is null, a file fragment probably exists which was caused
- +9 ;by a previous error. Leave the file fragment "as is" because side
- +10 ;effects of deleting file fragments are not known.
- +11 ;
- +12 SET ^XTMP("PSSP194","B_SET",PSSEQ)=PSSIEN_"^"_PSSNAME_"^"_$EXTRACT(PSSNAME,1,30)
- End DoDot:1
- +13 QUIT
- +14 ;
- MAIL ;send Mail message
- +1 ;
- +2 NEW XMY,PSLINE,PSSPACE,XMDUZ,XMY,XMSUB,A,XMTEXT,PSFLG
- +3 KILL XMY
- +4 SET PSFLG=0
- SET PSLINE=1
- SET PSSPACE=" "
- +5 ;send MailMan message to installer
- +6 SET XMDUZ="POST-INSTALL,PSS*1.0*194"
- SET XMY(DUZ)=""
- SET XMSUB="POST-INSTALL PSS*1.0*194 INFORMATION"
- +7 SET A(PSLINE)=""
- +8 SET PSLINE=PSLINE+1
- +9 SET A(PSLINE)=" PSS*1.0*194 POST-INSTALL"
- +10 SET PSLINE=PSLINE+1
- +11 SET A(PSLINE)=" "
- +12 SET A(PSLINE)=" The content of this message is informational only."
- +13 SET PSLINE=PSLINE+1
- +14 SET A(PSLINE)=" No action needs to be taken."
- +15 SET PSLINE=PSLINE+1
- +16 SET A(PSLINE)=" "
- +17 SET PSSEQ=""
- +18 FOR
- SET PSSEQ=$ORDER(^XTMP("PSSP194",PSSEQ))
- if PSSEQ=""
- QUIT
- Begin DoDot:1
- +19 IF PSSEQ="CROSS"
- SET PSFLG=1
- DO MCROSS
- +20 IF PSSEQ="B_SET"
- SET PSFLG=1
- DO MBSET
- +21 IF PSSEQ="LONG"
- SET PSFLG=1
- DO MLONG
- End DoDot:1
- +22 IF 'PSFLG
- Begin DoDot:1
- +23 SET PSLINE=PSLINE+1
- +24 SET A(PSLINE)=" The DRUG TEXT (#51.7) file was checked and no issues were found."
- End DoDot:1
- +25 ;set mail message in ^XTMP in case mail message accidentally deleted
- +26 MERGE ^XTMP("PSSP194","MAIL")=A
- +27 ;send mail message
- +28 SET XMTEXT="A("
- DO ^XMD
- +29 ;delete task from TaskManager list
- +30 SET ZTREQ="@"
- +31 QUIT
- +32 ;
- MCROSS ;Incorrect cross reference was deleted
- +1 ;
- +2 NEW PSSUB,PSSTR,PSSIEN,PSSNAME,PSSCROSS
- +3 ;set top level of ^XMTP subscript for ease of troublehshooting later if necessary
- +4 SET ^XTMP("PSSP194",PSSEQ)="Incorrect Cross References which were deleted by post-install routine PSSP194"
- +5 SET PSLINE=PSLINE+1
- +6 SET A(PSLINE)=" "
- +7 SET PSLINE=PSLINE+1
- +8 SET A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had"
- +9 SET PSLINE=PSLINE+1
- +10 SET A(PSLINE)="incorrect cross references deleted."
- +11 SET PSLINE=PSLINE+1
- +12 SET A(PSLINE)=" "
- +13 SET PSLINE=PSLINE+1
- +14 SET A(PSLINE)=" IEN Name"
- +15 SET PSLINE=PSLINE+1
- +16 SET A(PSLINE)=" ------------ ---------------------------------------------"
- +17 SET PSLINE=PSLINE+1
- +18 SET A(PSLINE)=" Incorrect Cross Reference Deleted"
- +19 SET PSLINE=PSLINE+1
- +20 SET A(PSLINE)=" ---------------------------------------"
- +21 DO STR
- +22 QUIT
- +23 ;
- MBSET ;No cross references existed, so cross references were set
- +1 ;
- +2 NEW PSSUB,PSSTR,PSSIEN,PSSNAME,PSSCROSS
- +3 ;set top level of ^XTMP subscript for ease of troubleshooting later if necessary
- +4 SET ^XTMP("PSSP194",PSSEQ)="No cross references existed, so cross reference was set"
- +5 SET PSLINE=PSLINE+1
- +6 SET A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had no cross references,"
- +7 SET PSLINE=PSLINE+1
- +8 SET A(PSLINE)="so cross references were set."
- +9 SET PSLINE=PSLINE+1
- +10 SET A(PSLINE)=""
- +11 SET PSLINE=PSLINE+1
- +12 SET A(PSLINE)=" IEN Name"
- +13 SET PSLINE=PSLINE+1
- +14 SET A(PSLINE)=" ------------ ---------------------------------------------"
- +15 SET PSLINE=PSLINE+1
- +16 SET A(PSLINE)=" Cross Reference Set"
- +17 SET PSLINE=PSLINE+1
- +18 SET A(PSLINE)=" ------------------------------"
- +19 DO STR
- +20 QUIT
- +21 ;
- MLONG ;Long cross references which were truncated
- +1 ;
- +2 NEW PSSUB,PSSTR,PSSIEN,PSSCROSS
- +3 ;set top level of ^XTMP subscript for ease of troubleshooting later if necessary
- +4 SET ^XTMP("PSSP194",PSSEQ)="Long cross references which were truncated"
- +5 SET PSLINE=PSLINE+1
- +6 SET A(PSLINE)=" "
- +7 SET PSLINE=PSLINE+1
- +8 SET A(PSLINE)="The following entries in the DRUG TEXT (#51.7) file had long"
- +9 SET PSLINE=PSLINE+1
- +10 SET A(PSLINE)="cross references deleted and truncated cross references set."
- +11 SET PSLINE=PSLINE+1
- +12 SET A(PSLINE)=""
- +13 SET PSLINE=PSLINE+1
- +14 SET A(PSLINE)=" IEN Long Cross Reference Deleted"
- +15 SET PSLINE=PSLINE+1
- +16 SET A(PSLINE)=" ------------ ---------------------------------------------"
- +17 SET PSLINE=PSLINE+1
- +18 SET A(PSLINE)=" Truncated Cross Reference Set"
- +19 SET PSLINE=PSLINE+1
- +20 SET A(PSLINE)=" ------------------------------"
- +21 DO STR
- +22 QUIT
- +23 ;
- STR ;set data in mail message array
- +1 SET PSLINE=PSLINE+1
- +2 SET A(PSLINE)=" "
- +3 SET PSSUB=""
- +4 FOR
- SET PSSUB=$ORDER(^XTMP("PSSP194",PSSEQ,PSSUB))
- if PSSUB=""
- QUIT
- Begin DoDot:1
- +5 SET PSSTR=^XTMP("PSSP194",PSSEQ,PSSUB)
- SET PSSIEN=$PIECE(PSSTR,"^")
- SET PSSNAME=$PIECE(PSSTR,"^",2)
- SET PSSCROSS=$PIECE(PSSTR,"^",3)
- +6 SET PSLINE=PSLINE+1
- +7 SET A(PSLINE)=" "_PSSIEN_$EXTRACT(PSSPACE,1,14-$LENGTH(PSSIEN))_$SELECT(PSSNAME]"":PSSNAME,1:"No name on entry")
- +8 SET PSLINE=PSLINE+1
- +9 SET A(PSLINE)=" "_$SELECT(PSSCROSS]"":PSSCROSS,1:"None -- no name on entry")
- End DoDot:1
- +10 QUIT
- +11 ;