SD53FY22 ;MNT/TXH - FY22 STOP CODE UPDATES; May 24, 2021@15:39
;;5.3;Scheduling;**787**;Aug 13, 1993;Build 2
;
; Post-install routine updating stop codes in CLINIC STOP file
; (#40.7) for FY222 updates - effective 10/01/2022.
;
; References to %DT supported by ICR# 10003
; References to DD^%DT supported by ICR# 10003
; References to $$FIND1^DIC supported by ICR# 2051
; References to FILE^DIE supported by ICR# 2053
; References to BMES^XPDUTL supported by ICR# 10141
; References to MES^XPDUTL supported by ICR# 10141
;
Q
;
POST ; Update stop codes in Clinic Stop file 40.7
;
D BMES^XPDUTL("SD*5.3*787 Post-Install starts...")
D:$P($T(OFF+1),";;",2)'="QUIT" INACT ; inactivate
D:$P($T(CHG+1),";;",2)'="QUIT" CHGNM ; change name
D:$P($T(RT+1),";;",2)'="QUIT" CHGRT ; change restriction data
D BMES^XPDUTL("SD*5.3*787 Post-Install complete.")
D MES^XPDUTL("")
K SDIEN,%H,%I,DIC,X,Y
Q
;
INACT ; Inactivate stop code
; SDREC is in format: ;;code #^^inactivation date (in FileMan format)
;
N SDI,SDREC,SDCODE,SDEXDT,SDINDT,SDNM,SDINTERR
D BMES^XPDUTL(">>> Inactivating stop codes in CLINIC STOP (#40.7) file...")
D BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used AFTER the indicated inactivation date.]")
;
; load entries w/ inactivate date
F SDI=1:1 S SDREC=$P($T(OFF+SDI),";;",2) Q:SDREC="QUIT" D
. S SDCODE=$P(SDREC,U) ;code
. ; get inactivate date and validate date passed in
. I +$P(SDREC,U,3) D
. . S X=$P(SDREC,U,3)
. . S %DT="FTX"
. . D ^%DT
. . Q:Y<0
. . S SDINDT=Y
. . D DD^%DT
. . S SDEXDT=Y
. . ; check if code already exists
. . S SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDINTERR")
. . ; quit if unable to find code in 40.7
. . I 'SDIEN D Q
. . . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE)
. . . I $D(SDINTERR) D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".")
. . . D MES^XPDUTL(" >> ... Please contact support for assistance.")
. . . ; clean out error array b4 processing next code
. . . K SDINTERR
. . ; check if error
. . I $D(SDINTERR) D Q
. . . D BMES^XPDUTL(" >> ... Unable to inactivate stop code "_SDCODE)
. . . D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".")
. . . D MES^XPDUTL(" >> ... Please contact support for assistance...")
. . . ; clean out error array b4 processing next code
. . . K SDINTERR
. . ; if no error, check if active
. . I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D
. . . S SDNM=$P($G(^DIC(40.7,SDIEN,0)),U) ;code name
. . . ; set field value
. . . K SDFDA
. . . S SDFDA(40.7,SDIEN_",",2)=SDINDT
. . . D FILE^DIE(,"SDFDA","SDINTERR")
. . . ; check if error
. . . I $D(SDINTERR) D Q
. . . . D BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDCODE)
. . . . D MES^XPDUTL(" >> ... "_$G(SDINTERR("DIERR",1,"TEXT",1))_".")
. . . . D MES^XPDUTL(" >> ... Please contact support for assistance.")
. . . . ; clean out error array b4 processing next code
. . . . K SDINTERR
. . . I '$D(SDINTERR) D
. . . . D BMES^XPDUTL(" >> Inactivated: "_+SDCODE_" "_SDNM_" as of "_SDEXDT)
;
D BMES^XPDUTL(">>> Inactivation complete.")
D MES^XPDUTL("")
K %,%DT,%H,%I,DIC,X,Y
Q
;
CHGNM ; Change code names
; SDREC is in format: ;;code name^code #^^new code name
;
N SDI,SDCODE,SDIEN,SDNEWNM,SDNM,SDREC,SDCHGERR
D BMES^XPDUTL(">>> Changing code names in CLINIC STOP (#40.7) file...")
;
; load entries w/ new code name
F SDI=1:1 S SDREC=$P($T(CHG+SDI),";;",2) Q:SDREC="QUIT" D
. S SDCODE=$P(SDREC,U,2) ;code
. S SDNEWNM=$P(SDREC,U,4) ;new name
. ;
. ; check if code already exists
. S SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDCHGERR")
. ;
. ; check if error
. I $D(SDCHGERR) D Q
. . D BMES^XPDUTL(" >> ... Unable to change name of the stop code: "_SDCODE)
. . D MES^XPDUTL(" >> ... "_$G(SDCHGERR("DIERR",1,"TEXT",1))_".")
. . D MES^XPDUTL(" >> ... Please contact support for assistance...")
. . ; clean out error array b4 processing next code
. . K SDCHGERR
. ;
. ; quit if no entry in file
. I 'SDIEN D Q
. . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE)
. . D MES^XPDUTL(" >> ... Please contact support for assistance.")
. ;
. ; check if code is active
. I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D
. . ; get current name
. . S SDNM=$P(^DIC(40.7,SDIEN,0),U,1)
. . K SDFDA
. . S SDFDA(40.7,SDIEN_",",.01)=SDNEWNM
. . D FILE^DIE(,"SDFDA","SDCHGERR")
. . ; check if error
. . I $D(SDCHGERR) D Q
. . . D BMES^XPDUTL(" >> ... Unable to change name for stop code: "_SDCODE)
. . . D MES^XPDUTL(" >> ... "_$G(SDCHGERR("DIERR",1,"TEXT",1))_".")
. . . D MES^XPDUTL(" >> ... Please contact support for assistance.")
. . . ; clean out error array b4 processing next code
. . . K SDCHGERR
. . I '$D(SDCHGERR) D
. . . D BMES^XPDUTL(" >> Stop Code "_SDCODE_" name changed from: "_SDNM)
. . . D MES^XPDUTL(" to: "_SDNEWNM)
. . . I SDNM=SDNEWNM D
. . . . D BMES^XPDUTL(" Stop Code "_SDCODE_" name has already changed.")
;
D BMES^XPDUTL(">>> Changing code names complete.")
D MES^XPDUTL("")
Q
;
CHGRT ; Change restriction data
; SDREC is in format: ;;code name^code #^restriction type^restriction date
;
N SDI,SDREC,SDNM,SDNUM,SDRTERR,SDIEN,SDOLDRT,SDRD,SDRT,SDX,SDINDT,SDEXRD,SDRDEX,SDRDIN
D BMES^XPDUTL(">>> Changing restriction data in CLINIC STOP (#40.7) file...")
;
; load new entry w/ restriction data
F SDI=1:1 S SDREC=$P($T(RT+SDI),";;",2) Q:SDREC="QUIT" D
. S SDNM=$P(SDREC,U) ; code name
. S SDNUM=$P(SDREC,U,2) ; code #
. S SDRT=$P(SDREC,U,3) ; restriction type
. S SDRD=$P(SDREC,U,4) ; restriction date
. ;
. ; check if code already exists and get code IEN
. S SDIEN=$$FIND1^DIC(40.7,"","MX",SDNUM,"","","SDRTERR")
. ; check if error
. I $D(SDRTERR) D Q
. . D BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDNUM)
. . D MES^XPDUTL(" >> ... "_$G(SDRTERR("DIERR",1,"TEXT",1))_".")
. . D MES^XPDUTL(" >> ... Please contact support for assistance...")
. . ; clean out error array b4 processing next code
. . K SDRTERR
. I 'SDIEN D Q
. . D BMES^XPDUTL(" >> ... Unable to find stop code: "_SDNUM)
. . D MES^XPDUTL(" >> ... Please contact support for assistance.")
. ;
. ; find current restriction type and date
. I $D(^DIC(40.7,SDIEN,0)) I $P(^(0),U,3)="" D
. . S SDOLDRT=$P(^DIC(40.7,SDIEN,0),U,6) ; old restriction type
. . S SDEXRD=""
. . S X=$P(^DIC(40.7,SDIEN,0),U,7) ; old restriction date
. . S %DT="FTX" D ^%DT Q:Y<0
. . S SDINDT=Y D DD^%DT S SDEXRD=Y
. ; set field value
. ; new restriction date
. S X=SDRD
. S %DT="FTX"
. D ^%DT
. I Y<0 S SDRDIN="" Q
. S SDRDIN=Y
. D DD^%DT
. S SDRDEX=Y
. ;
. K SDFDA
. S SDFDA(40.7,SDIEN_",",5)=SDRT
. S SDFDA(40.7,SDIEN_",",6)=SDRDIN ; save internal dt
. D FILE^DIE(,"SDFDA","SDRTERR")
. ;
. I SDOLDRT'=SDRT D
. . D BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT)
. . D MES^XPDUTL(" to: "_SDRT)
. E D
. . D BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT)
. . D MES^XPDUTL(" to: "_SDRT)
. . D BMES^XPDUTL(" restriction type has NOT or already changed.")
. ;
. I SDEXRD'=SDRDEX D
. . D BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD)
. . D MES^XPDUTL(" to: "_SDRDEX)
. E D
. . D BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD)
. . D MES^XPDUTL(" to: "_SDRDEX)
. . D BMES^XPDUTL(" restriction date has NOT or already changed.")
;
D BMES^XPDUTL(">>> Changing restriction data complete.")
D MES^XPDUTL("")
K %,%DT,%H,%I,DIC,X,Y,SDFDA
Q
;
OFF ; Codes to be inactivated - ;;code #^^inactive date
;;320^^10/1/2021
;;QUIT
;
CHG ; Code name changes - ;;code name^code #^^new code name
;;^189^^S&F HOME NON VA PROV SITE
;;^698^^REMOTE PT MONITOR PROV SITE
;;QUIT
;
RT ; Change Restriction - ;;stop code name^CODE #^rest type^rest date
;;S&F HOME NON VA PROV SITE^189^S^10/1/2021
;;REMOTE PT MONITOR PROV SITE^698^S^10/1/2021
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53FY22 8495 printed Sep 15, 2024@22:09:49 Page 2
SD53FY22 ;MNT/TXH - FY22 STOP CODE UPDATES; May 24, 2021@15:39
+1 ;;5.3;Scheduling;**787**;Aug 13, 1993;Build 2
+2 ;
+3 ; Post-install routine updating stop codes in CLINIC STOP file
+4 ; (#40.7) for FY222 updates - effective 10/01/2022.
+5 ;
+6 ; References to %DT supported by ICR# 10003
+7 ; References to DD^%DT supported by ICR# 10003
+8 ; References to $$FIND1^DIC supported by ICR# 2051
+9 ; References to FILE^DIE supported by ICR# 2053
+10 ; References to BMES^XPDUTL supported by ICR# 10141
+11 ; References to MES^XPDUTL supported by ICR# 10141
+12 ;
+13 QUIT
+14 ;
POST ; Update stop codes in Clinic Stop file 40.7
+1 ;
+2 DO BMES^XPDUTL("SD*5.3*787 Post-Install starts...")
+3 ; inactivate
if $PIECE($TEXT(OFF+1),";;",2)'="QUIT"
DO INACT
+4 ; change name
if $PIECE($TEXT(CHG+1),";;",2)'="QUIT"
DO CHGNM
+5 ; change restriction data
if $PIECE($TEXT(RT+1),";;",2)'="QUIT"
DO CHGRT
+6 DO BMES^XPDUTL("SD*5.3*787 Post-Install complete.")
+7 DO MES^XPDUTL("")
+8 KILL SDIEN,%H,%I,DIC,X,Y
+9 QUIT
+10 ;
INACT ; Inactivate stop code
+1 ; SDREC is in format: ;;code #^^inactivation date (in FileMan format)
+2 ;
+3 NEW SDI,SDREC,SDCODE,SDEXDT,SDINDT,SDNM,SDINTERR
+4 DO BMES^XPDUTL(">>> Inactivating stop codes in CLINIC STOP (#40.7) file...")
+5 DO BMES^XPDUTL(" [NOTE: These Stop Codes CANNOT be used AFTER the indicated inactivation date.]")
+6 ;
+7 ; load entries w/ inactivate date
+8 FOR SDI=1:1
SET SDREC=$PIECE($TEXT(OFF+SDI),";;",2)
if SDREC="QUIT"
QUIT
Begin DoDot:1
+9 ;code
SET SDCODE=$PIECE(SDREC,U)
+10 ; get inactivate date and validate date passed in
+11 IF +$PIECE(SDREC,U,3)
Begin DoDot:2
+12 SET X=$PIECE(SDREC,U,3)
+13 SET %DT="FTX"
+14 DO ^%DT
+15 if Y<0
QUIT
+16 SET SDINDT=Y
+17 DO DD^%DT
+18 SET SDEXDT=Y
+19 ; check if code already exists
+20 SET SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDINTERR")
+21 ; quit if unable to find code in 40.7
+22 IF 'SDIEN
Begin DoDot:3
+23 DO BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE)
+24 IF $DATA(SDINTERR)
DO MES^XPDUTL(" >> ... "_$GET(SDINTERR("DIERR",1,"TEXT",1))_".")
+25 DO MES^XPDUTL(" >> ... Please contact support for assistance.")
+26 ; clean out error array b4 processing next code
+27 KILL SDINTERR
End DoDot:3
QUIT
+28 ; check if error
+29 IF $DATA(SDINTERR)
Begin DoDot:3
+30 DO BMES^XPDUTL(" >> ... Unable to inactivate stop code "_SDCODE)
+31 DO MES^XPDUTL(" >> ... "_$GET(SDINTERR("DIERR",1,"TEXT",1))_".")
+32 DO MES^XPDUTL(" >> ... Please contact support for assistance...")
+33 ; clean out error array b4 processing next code
+34 KILL SDINTERR
End DoDot:3
QUIT
+35 ; if no error, check if active
+36 IF $DATA(^DIC(40.7,SDIEN,0))
IF $PIECE(^(0),U,3)=""
Begin DoDot:3
+37 ;code name
SET SDNM=$PIECE($GET(^DIC(40.7,SDIEN,0)),U)
+38 ; set field value
+39 KILL SDFDA
+40 SET SDFDA(40.7,SDIEN_",",2)=SDINDT
+41 DO FILE^DIE(,"SDFDA","SDINTERR")
+42 ; check if error
+43 IF $DATA(SDINTERR)
Begin DoDot:4
+44 DO BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDCODE)
+45 DO MES^XPDUTL(" >> ... "_$GET(SDINTERR("DIERR",1,"TEXT",1))_".")
+46 DO MES^XPDUTL(" >> ... Please contact support for assistance.")
+47 ; clean out error array b4 processing next code
+48 KILL SDINTERR
End DoDot:4
QUIT
+49 IF '$DATA(SDINTERR)
Begin DoDot:4
+50 DO BMES^XPDUTL(" >> Inactivated: "_+SDCODE_" "_SDNM_" as of "_SDEXDT)
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+51 ;
+52 DO BMES^XPDUTL(">>> Inactivation complete.")
+53 DO MES^XPDUTL("")
+54 KILL %,%DT,%H,%I,DIC,X,Y
+55 QUIT
+56 ;
CHGNM ; Change code names
+1 ; SDREC is in format: ;;code name^code #^^new code name
+2 ;
+3 NEW SDI,SDCODE,SDIEN,SDNEWNM,SDNM,SDREC,SDCHGERR
+4 DO BMES^XPDUTL(">>> Changing code names in CLINIC STOP (#40.7) file...")
+5 ;
+6 ; load entries w/ new code name
+7 FOR SDI=1:1
SET SDREC=$PIECE($TEXT(CHG+SDI),";;",2)
if SDREC="QUIT"
QUIT
Begin DoDot:1
+8 ;code
SET SDCODE=$PIECE(SDREC,U,2)
+9 ;new name
SET SDNEWNM=$PIECE(SDREC,U,4)
+10 ;
+11 ; check if code already exists
+12 SET SDIEN=$$FIND1^DIC(40.7,"","MX",SDCODE,"","","SDCHGERR")
+13 ;
+14 ; check if error
+15 IF $DATA(SDCHGERR)
Begin DoDot:2
+16 DO BMES^XPDUTL(" >> ... Unable to change name of the stop code: "_SDCODE)
+17 DO MES^XPDUTL(" >> ... "_$GET(SDCHGERR("DIERR",1,"TEXT",1))_".")
+18 DO MES^XPDUTL(" >> ... Please contact support for assistance...")
+19 ; clean out error array b4 processing next code
+20 KILL SDCHGERR
End DoDot:2
QUIT
+21 ;
+22 ; quit if no entry in file
+23 IF 'SDIEN
Begin DoDot:2
+24 DO BMES^XPDUTL(" >> ... Unable to find stop code: "_SDCODE)
+25 DO MES^XPDUTL(" >> ... Please contact support for assistance.")
End DoDot:2
QUIT
+26 ;
+27 ; check if code is active
+28 IF $DATA(^DIC(40.7,SDIEN,0))
IF $PIECE(^(0),U,3)=""
Begin DoDot:2
+29 ; get current name
+30 SET SDNM=$PIECE(^DIC(40.7,SDIEN,0),U,1)
+31 KILL SDFDA
+32 SET SDFDA(40.7,SDIEN_",",.01)=SDNEWNM
+33 DO FILE^DIE(,"SDFDA","SDCHGERR")
+34 ; check if error
+35 IF $DATA(SDCHGERR)
Begin DoDot:3
+36 DO BMES^XPDUTL(" >> ... Unable to change name for stop code: "_SDCODE)
+37 DO MES^XPDUTL(" >> ... "_$GET(SDCHGERR("DIERR",1,"TEXT",1))_".")
+38 DO MES^XPDUTL(" >> ... Please contact support for assistance.")
+39 ; clean out error array b4 processing next code
+40 KILL SDCHGERR
End DoDot:3
QUIT
+41 IF '$DATA(SDCHGERR)
Begin DoDot:3
+42 DO BMES^XPDUTL(" >> Stop Code "_SDCODE_" name changed from: "_SDNM)
+43 DO MES^XPDUTL(" to: "_SDNEWNM)
+44 IF SDNM=SDNEWNM
Begin DoDot:4
+45 DO BMES^XPDUTL(" Stop Code "_SDCODE_" name has already changed.")
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+46 ;
+47 DO BMES^XPDUTL(">>> Changing code names complete.")
+48 DO MES^XPDUTL("")
+49 QUIT
+50 ;
CHGRT ; Change restriction data
+1 ; SDREC is in format: ;;code name^code #^restriction type^restriction date
+2 ;
+3 NEW SDI,SDREC,SDNM,SDNUM,SDRTERR,SDIEN,SDOLDRT,SDRD,SDRT,SDX,SDINDT,SDEXRD,SDRDEX,SDRDIN
+4 DO BMES^XPDUTL(">>> Changing restriction data in CLINIC STOP (#40.7) file...")
+5 ;
+6 ; load new entry w/ restriction data
+7 FOR SDI=1:1
SET SDREC=$PIECE($TEXT(RT+SDI),";;",2)
if SDREC="QUIT"
QUIT
Begin DoDot:1
+8 ; code name
SET SDNM=$PIECE(SDREC,U)
+9 ; code #
SET SDNUM=$PIECE(SDREC,U,2)
+10 ; restriction type
SET SDRT=$PIECE(SDREC,U,3)
+11 ; restriction date
SET SDRD=$PIECE(SDREC,U,4)
+12 ;
+13 ; check if code already exists and get code IEN
+14 SET SDIEN=$$FIND1^DIC(40.7,"","MX",SDNUM,"","","SDRTERR")
+15 ; check if error
+16 IF $DATA(SDRTERR)
Begin DoDot:2
+17 DO BMES^XPDUTL(" >> ... Unable to inactivate stop code: "_SDNUM)
+18 DO MES^XPDUTL(" >> ... "_$GET(SDRTERR("DIERR",1,"TEXT",1))_".")
+19 DO MES^XPDUTL(" >> ... Please contact support for assistance...")
+20 ; clean out error array b4 processing next code
+21 KILL SDRTERR
End DoDot:2
QUIT
+22 IF 'SDIEN
Begin DoDot:2
+23 DO BMES^XPDUTL(" >> ... Unable to find stop code: "_SDNUM)
+24 DO MES^XPDUTL(" >> ... Please contact support for assistance.")
End DoDot:2
QUIT
+25 ;
+26 ; find current restriction type and date
+27 IF $DATA(^DIC(40.7,SDIEN,0))
IF $PIECE(^(0),U,3)=""
Begin DoDot:2
+28 ; old restriction type
SET SDOLDRT=$PIECE(^DIC(40.7,SDIEN,0),U,6)
+29 SET SDEXRD=""
+30 ; old restriction date
SET X=$PIECE(^DIC(40.7,SDIEN,0),U,7)
+31 SET %DT="FTX"
DO ^%DT
if Y<0
QUIT
+32 SET SDINDT=Y
DO DD^%DT
SET SDEXRD=Y
End DoDot:2
+33 ; set field value
+34 ; new restriction date
+35 SET X=SDRD
+36 SET %DT="FTX"
+37 DO ^%DT
+38 IF Y<0
SET SDRDIN=""
QUIT
+39 SET SDRDIN=Y
+40 DO DD^%DT
+41 SET SDRDEX=Y
+42 ;
+43 KILL SDFDA
+44 SET SDFDA(40.7,SDIEN_",",5)=SDRT
+45 ; save internal dt
SET SDFDA(40.7,SDIEN_",",6)=SDRDIN
+46 DO FILE^DIE(,"SDFDA","SDRTERR")
+47 ;
+48 IF SDOLDRT'=SDRT
Begin DoDot:2
+49 DO BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT)
+50 DO MES^XPDUTL(" to: "_SDRT)
End DoDot:2
+51 IF '$TEST
Begin DoDot:2
+52 DO BMES^XPDUTL(" >> Stop Code "_SDNUM_" restriction type changed from: "_SDOLDRT)
+53 DO MES^XPDUTL(" to: "_SDRT)
+54 DO BMES^XPDUTL(" restriction type has NOT or already changed.")
End DoDot:2
+55 ;
+56 IF SDEXRD'=SDRDEX
Begin DoDot:2
+57 DO BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD)
+58 DO MES^XPDUTL(" to: "_SDRDEX)
End DoDot:2
+59 IF '$TEST
Begin DoDot:2
+60 DO BMES^XPDUTL(" >> restriction date changed from: "_SDEXRD)
+61 DO MES^XPDUTL(" to: "_SDRDEX)
+62 DO BMES^XPDUTL(" restriction date has NOT or already changed.")
End DoDot:2
End DoDot:1
+63 ;
+64 DO BMES^XPDUTL(">>> Changing restriction data complete.")
+65 DO MES^XPDUTL("")
+66 KILL %,%DT,%H,%I,DIC,X,Y,SDFDA
+67 QUIT
+68 ;
OFF ; Codes to be inactivated - ;;code #^^inactive date
+1 ;;320^^10/1/2021
+2 ;;QUIT
+3 ;
CHG ; Code name changes - ;;code name^code #^^new code name
+1 ;;^189^^S&F HOME NON VA PROV SITE
+2 ;;^698^^REMOTE PT MONITOR PROV SITE
+3 ;;QUIT
+4 ;
RT ; Change Restriction - ;;stop code name^CODE #^rest type^rest date
+1 ;;S&F HOME NON VA PROV SITE^189^S^10/1/2021
+2 ;;REMOTE PT MONITOR PROV SITE^698^S^10/1/2021
+3 ;;QUIT
