RMPR219P ;HDSO/DSK - RMPR*3.0*219 Post-Install Routine; Sep 05, 2025@15:00
;;3.0;PROSTHETICS;**219**;Feb 09, 1996;Build 8
;
; Reference to ^XUSEC in IA #10076
; Reference to BMES^XPDUTL in IA #10141
;
Q
;
EN ;
K ^XTMP("RMPR*3.0*219 POST INSTALL")
S ^XTMP("RMPR*3.0*219 POST INSTALL",0)=$$FMADD^XLFDT(DT,365)_"^"_DT_"^RMPR*3.0*219 POST INSTALL"
S ^XTMP("RMPR*3.0*219 POST INSTALL",12)="No Vehicle IDs longer than 30 characters found."
N RMPRSEQ,RMPRIEN,RMPRVID,RMPRSPACE
S RMPRSEQ=12,RMPRIEN=0,$P(RMPRSPACE," ",20)=""
F S RMPRIEN=$O(^RMPR(667,RMPRIEN)) Q:'RMPRIEN D
. S RMPRVID=$P($G(^RMPR(667,RMPRIEN,0)),"^")
. I $L(RMPRVID)>30 D
. . S ^XTMP("RMPR*3.0*219 POST INSTALL",RMPRSEQ)=RMPRIEN_$E(RMPRSPACE,1,21-$L(RMPRIEN))_RMPRVID
. . S RMPRSEQ=RMPRSEQ+1
D BMES^XPDUTL("RMPR*3.0*219 post-install routine complete.")
D MAIL
Q
;
MAIL ;
N RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
S RMPRMIN("FROM")="RMPR*3.0*219 Post-Install"
S RMPRMSUB="RMPR*3.0*219 Post-Install"
S RMPRMY(DUZ)=""
S RMPRX=""
F S RMPRX=$O(^XUSEC("RMPRMANAGER",RMPRX)) Q:RMPRX="" D
. S RMPRMY(RMPRX)=""
S ^XTMP("RMPR*3.0*219 POST INSTALL",1)="RMPR*3.0*219 post-install routine has completed."
S ^XTMP("RMPR*3.0*219 POST INSTALL",2)=" "
S ^XTMP("RMPR*3.0*219 POST INSTALL",3)="Listed below are Vehicle IDs in the VEHICLE OF RECORD (#667) file"
S ^XTMP("RMPR*3.0*219 POST INSTALL",4)="longer than 30 characters in length. These entries will generate"
S ^XTMP("RMPR*3.0*219 POST INSTALL",5)="errors in some Prosthetics reports and should be edited to a shorter"
S ^XTMP("RMPR*3.0*219 POST INSTALL",6)="Vehicle ID. Option ""Edit/Delete Vehicle of Record"" may be used."
S ^XTMP("RMPR*3.0*219 POST INSTALL",7)="To edit an entry, use the tic mark character (`) and the Internal"
S ^XTMP("RMPR*3.0*219 POST INSTALL",8)="Entry Number (IEN), (ex. '184)."
S ^XTMP("RMPR*3.0*219 POST INSTALL",9)=" "
S ^XTMP("RMPR*3.0*219 POST INSTALL",10)="File #667 IEN"_$E(RMPRSPACE,1,8)_"Vehicle ID"
S ^XTMP("RMPR*3.0*219 POST INSTALL",11)="-------------------- ----------------------------------------"
S RMPRMTEXT="^XTMP(""RMPR*3.0*219 POST INSTALL"")"
D SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR219P 2250 printed Apr 22, 2026@14:29:09 Page 2
RMPR219P ;HDSO/DSK - RMPR*3.0*219 Post-Install Routine; Sep 05, 2025@15:00
+1 ;;3.0;PROSTHETICS;**219**;Feb 09, 1996;Build 8
+2 ;
+3 ; Reference to ^XUSEC in IA #10076
+4 ; Reference to BMES^XPDUTL in IA #10141
+5 ;
+6 QUIT
+7 ;
EN ;
+1 KILL ^XTMP("RMPR*3.0*219 POST INSTALL")
+2 SET ^XTMP("RMPR*3.0*219 POST INSTALL",0)=$$FMADD^XLFDT(DT,365)_"^"_DT_"^RMPR*3.0*219 POST INSTALL"
+3 SET ^XTMP("RMPR*3.0*219 POST INSTALL",12)="No Vehicle IDs longer than 30 characters found."
+4 NEW RMPRSEQ,RMPRIEN,RMPRVID,RMPRSPACE
+5 SET RMPRSEQ=12
SET RMPRIEN=0
SET $PIECE(RMPRSPACE," ",20)=""
+6 FOR
SET RMPRIEN=$ORDER(^RMPR(667,RMPRIEN))
if 'RMPRIEN
QUIT
Begin DoDot:1
+7 SET RMPRVID=$PIECE($GET(^RMPR(667,RMPRIEN,0)),"^")
+8 IF $LENGTH(RMPRVID)>30
Begin DoDot:2
+9 SET ^XTMP("RMPR*3.0*219 POST INSTALL",RMPRSEQ)=RMPRIEN_$EXTRACT(RMPRSPACE,1,21-$LENGTH(RMPRIEN))_RMPRVID
+10 SET RMPRSEQ=RMPRSEQ+1
End DoDot:2
End DoDot:1
+11 DO BMES^XPDUTL("RMPR*3.0*219 post-install routine complete.")
+12 DO MAIL
+13 QUIT
+14 ;
MAIL ;
+1 NEW RMPRMIN,RMPRMY,RMPRX,RMPRMSUB,RMPRMTEXT
+2 SET RMPRMIN("FROM")="RMPR*3.0*219 Post-Install"
+3 SET RMPRMSUB="RMPR*3.0*219 Post-Install"
+4 SET RMPRMY(DUZ)=""
+5 SET RMPRX=""
+6 FOR
SET RMPRX=$ORDER(^XUSEC("RMPRMANAGER",RMPRX))
if RMPRX=""
QUIT
Begin DoDot:1
+7 SET RMPRMY(RMPRX)=""
End DoDot:1
+8 SET ^XTMP("RMPR*3.0*219 POST INSTALL",1)="RMPR*3.0*219 post-install routine has completed."
+9 SET ^XTMP("RMPR*3.0*219 POST INSTALL",2)=" "
+10 SET ^XTMP("RMPR*3.0*219 POST INSTALL",3)="Listed below are Vehicle IDs in the VEHICLE OF RECORD (#667) file"
+11 SET ^XTMP("RMPR*3.0*219 POST INSTALL",4)="longer than 30 characters in length. These entries will generate"
+12 SET ^XTMP("RMPR*3.0*219 POST INSTALL",5)="errors in some Prosthetics reports and should be edited to a shorter"
+13 SET ^XTMP("RMPR*3.0*219 POST INSTALL",6)="Vehicle ID. Option ""Edit/Delete Vehicle of Record"" may be used."
+14 SET ^XTMP("RMPR*3.0*219 POST INSTALL",7)="To edit an entry, use the tic mark character (`) and the Internal"
+15 SET ^XTMP("RMPR*3.0*219 POST INSTALL",8)="Entry Number (IEN), (ex. '184)."
+16 SET ^XTMP("RMPR*3.0*219 POST INSTALL",9)=" "
+17 SET ^XTMP("RMPR*3.0*219 POST INSTALL",10)="File #667 IEN"_$EXTRACT(RMPRSPACE,1,8)_"Vehicle ID"
+18 SET ^XTMP("RMPR*3.0*219 POST INSTALL",11)="-------------------- ----------------------------------------"
+19 SET RMPRMTEXT="^XTMP(""RMPR*3.0*219 POST INSTALL"")"
+20 DO SENDMSG^XMXAPI(DUZ,RMPRMSUB,RMPRMTEXT,.RMPRMY,.RMPRMIN,"","")
+21 QUIT
+22 ;
