SD53247P.m

SD53247P ;BP/ESW  TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE' File Update - POST INST ; 1/31/02 9:11am

 ;;5.3;Scheduling;**247,1015**;Aug 13, 1993;Build 21

 ;

 ; This is the post-install for patch 247 to modify CORRECTIVE ACTION

 ; DESCRIPTION field (#21) of ERROR CODE: 4200 in TRANSMITTED

 ; OUTPATIENT ENCOUNTER ERROR CODE File (#409.76). This error code 

 ; is denoting why an entry in the TRANSMITTED OUTPATIENT ENCOUNTER

 ; file could not be transmitted or successfully processed.

 ;

EN ;

 N FILE,FLD,BREF

 S FILE=409.76,FLD=21,BREF=4200

 D BMES^XPDUTL("SD*5.3*247 Post Installation --")

 D MES^XPDUTL("   Update to TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#"_FILE_").")

 D MES^XPDUTL("  ")

 I '$D(^SD(FILE)) D BMES^XPDUTL("Missing file "_FILE_".")

 I $D(^SD(FILE)) D

 .D ACT

 Q

 ;

ACT ;enter a new text

 N LINE,IEN,SDX,WP,ERR,SD

 I '$D(^SD(FILE,"B",BREF)) D MISS Q

 S IEN=$O(^SD(FILE,"B",BREF,""))

 I '$D(^SD(FILE,IEN)) D MISS Q

 F SDX=1:1 S LINE=$P($T(TXTNEW+SDX),";;",2) Q:LINE="QUIT"  D

 .S SD(SDX,0)=LINE

 S IEN=IEN_","

 D WP^DIE(FILE,IEN,FLD,"K","SD","ERR")

 ;display error messages if unsuccessful

 I $D(ERR) D  Q

 .S SDX="ERR" F  S SDX=$Q(@SDX) Q:SDX=""  D

 ..D BMES^XPDUTL(SDX)

 ..D MES^XPDUTL(@SDX)

 .D BMES^XPDUTL("  *** Warning - Field #21")

 .D MES^XPDUTL("                of ERROR CODE 4200, file #409.76")

 .D MES^XPDUTL("                could not be modified.")

 .D BMES^XPDUTL(" Please contact the PIMS NATIONAL VISTA SUPPORT Team.")

 .D MES^XPDUTL("                for assistance.")

 D BMES^XPDUTL(" CORRECTIVE ACTION DESCRIPTION of ERROR CODE 4200")

 D MES^XPDUTL("     successfully modified.")

 D MES^XPDUTL("  ")

 Q

MISS ; missing messages

 D BMES^XPDUTL("Missing ERROR CODE 4200 in file #409.76...")

 D MES^XPDUTL("Please contact the PIMS NATIONAL VISTA SUPPORT Team.")

 Q

 ;

 ; New text for CORRECTIVE ACTIOB DESCRIPTION field:

TXTNEW ;

 ;;If the encounter date is invalid, or before the date of transmission,

 ;;the appointment will need to be canceled and remade through

 ;;the Appointment Manager. It may also be possible that the encounter

 ;;is not acceptable because the activity occurred after the NPCD was closed.

 ;;Contact your ADPAC to check on this possibility.

 ;;

 ;;QUIT

SD53247P  ;BP/ESW  TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE' File Update - POST INST ; 1/31/02 9:11am

 +1       ;;5.3;Scheduling;**247,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ; This is the post-install for patch 247 to modify CORRECTIVE ACTION

 +4       ; DESCRIPTION field (#21) of ERROR CODE: 4200 in TRANSMITTED

 +5       ; OUTPATIENT ENCOUNTER ERROR CODE File (#409.76). This error code 

 +6       ; is denoting why an entry in the TRANSMITTED OUTPATIENT ENCOUNTER

 +7       ; file could not be transmitted or successfully processed.

 +8       ;

EN        ;

 +1        NEW FILE,FLD,BREF

 +2        SET FILE=409.76

           SET FLD=21

           SET BREF=4200

 +3        DO BMES^XPDUTL("SD*5.3*247 Post Installation --")

 +4        DO MES^XPDUTL("   Update to TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#"_FILE_").")

 +5        DO MES^XPDUTL("  ")

 +6        IF '$DATA(^SD(FILE))

               DO BMES^XPDUTL("Missing file "_FILE_".")

 +7        IF $DATA(^SD(FILE))

               Begin DoDot:1

 +8                DO ACT

               End DoDot:1

 +9        QUIT 

 +10      ;

ACT       ;enter a new text

 +1        NEW LINE,IEN,SDX,WP,ERR,SD

 +2        IF '$DATA(^SD(FILE,"B",BREF))

               DO MISS

               QUIT 

 +3        SET IEN=$ORDER(^SD(FILE,"B",BREF,""))

 +4        IF '$DATA(^SD(FILE,IEN))

               DO MISS

               QUIT 

 +5        FOR SDX=1:1

               SET LINE=$PIECE($TEXT(TXTNEW+SDX),";;",2)

               IF LINE="QUIT"

                   QUIT 

               Begin DoDot:1

 +6                SET SD(SDX,0)=LINE

               End DoDot:1

 +7        SET IEN=IEN_","

 +8        DO WP^DIE(FILE,IEN,FLD,"K","SD","ERR")

 +9       ;display error messages if unsuccessful

 +10       IF $DATA(ERR)

               Begin DoDot:1

 +11               SET SDX="ERR"

                   FOR 

                       SET SDX=$QUERY(@SDX)

                       IF SDX=""

                           QUIT 

                       Begin DoDot:2

 +12                       DO BMES^XPDUTL(SDX)

 +13                       DO MES^XPDUTL(@SDX)

                       End DoDot:2

 +14               DO BMES^XPDUTL("  *** Warning - Field #21")

 +15               DO MES^XPDUTL("                of ERROR CODE 4200, file #409.76")

 +16               DO MES^XPDUTL("                could not be modified.")

 +17               DO BMES^XPDUTL(" Please contact the PIMS NATIONAL VISTA SUPPORT Team.")

 +18               DO MES^XPDUTL("                for assistance.")

               End DoDot:1

               QUIT 

 +19       DO BMES^XPDUTL(" CORRECTIVE ACTION DESCRIPTION of ERROR CODE 4200")

 +20       DO MES^XPDUTL("     successfully modified.")

 +21       DO MES^XPDUTL("  ")

 +22       QUIT 

MISS      ; missing messages

 +1        DO BMES^XPDUTL("Missing ERROR CODE 4200 in file #409.76...")

 +2        DO MES^XPDUTL("Please contact the PIMS NATIONAL VISTA SUPPORT Team.")

 +3        QUIT 

 +4       ;

 +5       ; New text for CORRECTIVE ACTIOB DESCRIPTION field:

TXTNEW    ;

 +1       ;;If the encounter date is invalid, or before the date of transmission,

 +2       ;;the appointment will need to be canceled and remade through

 +3       ;;the Appointment Manager. It may also be possible that the encounter

 +4       ;;is not acceptable because the activity occurred after the NPCD was closed.

 +5       ;;Contact your ADPAC to check on this possibility.

 +6       ;;

 +7       ;;QUIT