SD53247P ;BP/ESW TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE' File Update - POST INST ; 1/31/02 9:11am
;;5.3;Scheduling;**247**;Aug 13, 1993
;
; 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53247P 2268 printed Oct 16, 2024@18:45:42 Page 2
SD53247P ;BP/ESW TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE' File Update - POST INST ; 1/31/02 9:11am
+1 ;;5.3;Scheduling;**247**;Aug 13, 1993
+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
