RMPVFM ; OIT/JDA - SCAMP runtime support; Nov 17, 2024@23:35:37
;;1.0;PROSTHETICS VISION 4 SIGHT II;**2**;Jan 31, 2025;Build 38
;
Q
%DIR ; FileMan ^DIR
N LOC S LOC=$$REALNAME($P($STACK($STACK-1,"PLACE")," "))
D HANDLE^RMPVDRV(LOC)
Q
%DIC ; FileMan ^DIC
I DIC(0)'["A" D ^DIC Q ; not interactive
N LOC S LOC=$$REALNAME($P($STACK($STACK-1,"PLACE")," "))
D HANDLE^RMPVDRV(LOC)
Q
%DIE ; FileMan ^DIE
N LOC S LOC=$$REALNAME($P($STACK($STACK-1,"PLACE")," "))
D HANDLE^RMPVDRV(LOC)
Q
YNDICN ; FileMan YN^DICN
N LOC S LOC=$$REALNAME($P($STACK($STACK-1,"PLACE")," "))
D HANDLE^RMPVDRV(LOC)
Q
ENDIWE ; FileMan EN^DIWE
N NUMLINES,INDEX,ROOT
S ROOT=$$CREF^DILF(DICN)
N LOC S LOC=$$REALNAME($P($STACK($STACK-1,"PLACE")," "))
D HANDLE^RMPVDRV(LOC)
N NUMLINES,IDX S (NUMLINES,IDX)=0
F S IDX=$O(@ROOT@(IDX)) Q:'IDX S NUMLINES=NUMLINES+1
S @ROOT@(0)="^^"_NUMLINES_U_NUMLINES_$$DT^XLFDT_U
Q
REALNAME(WHERE) ; find original eref
N SPEC S SPEC("RMPV0")=""
Q $$REPLACE^XLFSTR(WHERE,.SPEC)
FILEDICN ; added ATF since being called
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPVFM 1074 printed May 25, 2026@12:51:03 Page 2
RMPVFM ; OIT/JDA - SCAMP runtime support; Nov 17, 2024@23:35:37
+1 ;;1.0;PROSTHETICS VISION 4 SIGHT II;**2**;Jan 31, 2025;Build 38
+2 ;
+3 QUIT
%DIR ; FileMan ^DIR
+1 NEW LOC
SET LOC=$$REALNAME($PIECE($STACK($STACK-1,"PLACE")," "))
+2 DO HANDLE^RMPVDRV(LOC)
+3 QUIT
%DIC ; FileMan ^DIC
+1 ; not interactive
IF DIC(0)'["A"
DO ^DIC
QUIT
+2 NEW LOC
SET LOC=$$REALNAME($PIECE($STACK($STACK-1,"PLACE")," "))
+3 DO HANDLE^RMPVDRV(LOC)
+4 QUIT
%DIE ; FileMan ^DIE
+1 NEW LOC
SET LOC=$$REALNAME($PIECE($STACK($STACK-1,"PLACE")," "))
+2 DO HANDLE^RMPVDRV(LOC)
+3 QUIT
YNDICN ; FileMan YN^DICN
+1 NEW LOC
SET LOC=$$REALNAME($PIECE($STACK($STACK-1,"PLACE")," "))
+2 DO HANDLE^RMPVDRV(LOC)
+3 QUIT
ENDIWE ; FileMan EN^DIWE
+1 NEW NUMLINES,INDEX,ROOT
+2 SET ROOT=$$CREF^DILF(DICN)
+3 NEW LOC
SET LOC=$$REALNAME($PIECE($STACK($STACK-1,"PLACE")," "))
+4 DO HANDLE^RMPVDRV(LOC)
+5 NEW NUMLINES,IDX
SET (NUMLINES,IDX)=0
+6 FOR
SET IDX=$ORDER(@ROOT@(IDX))
if 'IDX
QUIT
SET NUMLINES=NUMLINES+1
+7 SET @ROOT@(0)="^^"_NUMLINES_U_NUMLINES_$$DT^XLFDT_U
+8 QUIT
REALNAME(WHERE) ; find original eref
+1 NEW SPEC
SET SPEC("RMPV0")=""
+2 QUIT $$REPLACE^XLFSTR(WHERE,.SPEC)
FILEDICN ; added ATF since being called
+1 QUIT
