RMPVRT.m

RMPVRT ; OIT/JDA - SCAMP runtime and compiletime support; Nov 17, 2024@23:35:37

 ;;1.0;PROSTHETICS VISION 4 SIGHT II;**2**;Jan 31, 2025;Build 38

 ;

 Q

NEWNAME(ROUT) ; Given a routine name, return the generated routine name

 Q "RMPV0"_ROUT

WRITEARG(ARG) ; Compiletime process to output WRITE command call

 I "!?#/*"[$E(ARG) Q "WRITECTL^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 I $E(ARG)="@" Q "WRITEIND^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 Q "WRITE^RMPVIO("_ARG_")"

READARG(ARG) ; Compiletime process to output READ command call

 I "!?#/"[$E(ARG) Q "READCTL^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 I $E(ARG)="@" Q "READIND^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 I $E(ARG)="""" Q "READPMT^RMPVIO("_ARG_")"

 I $E(ARG)="*" Q "READCHAR^RMPVIO(."_$E(ARG,2,*)_")"

 Q "READ^RMPVIO(."_ARG_")"

HOMEZIS ; Compiletime process

 I $G(^TMP($J,"RMPV","SILENT")) S IOP="NULL" D ^%ZIS U IO ; TODO: Should check POP in case NULL isn't set up

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPVRT   924     printed  May 25, 2026@12:51:04                                                                                                                                                                                                       Page 2

RMPVRT    ; OIT/JDA - SCAMP runtime and compiletime support; Nov 17, 2024@23:35:37

 +1       ;;1.0;PROSTHETICS VISION 4 SIGHT II;**2**;Jan 31, 2025;Build 38

 +2       ;

 +3        QUIT 

NEWNAME(ROUT) ; Given a routine name, return the generated routine name

 +1        QUIT "RMPV0"_ROUT

WRITEARG(ARG) ; Compiletime process to output WRITE command call

 +1        IF "!?#/*"[$EXTRACT(ARG)

               QUIT "WRITECTL^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 +2        IF $EXTRACT(ARG)="@"

               QUIT "WRITEIND^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 +3        QUIT "WRITE^RMPVIO("_ARG_")"

READARG(ARG) ; Compiletime process to output READ command call

 +1        IF "!?#/"[$EXTRACT(ARG)

               QUIT "READCTL^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 +2        IF $EXTRACT(ARG)="@"

               QUIT "READIND^RMPVIO("_$$QUOTE^XLFSTR(ARG)_")"

 +3        IF $EXTRACT(ARG)=""""

               QUIT "READPMT^RMPVIO("_ARG_")"

 +4        IF $EXTRACT(ARG)="*"

               QUIT "READCHAR^RMPVIO(."_$EXTRACT(ARG,2,*)_")"

 +5        QUIT "READ^RMPVIO(."_ARG_")"

HOMEZIS   ; Compiletime process

 +1       ; TODO: Should check POP in case NULL isn't set up

           IF $GET(^TMP($JOB,"RMPV","SILENT"))

               SET IOP="NULL"

               DO ^%ZIS

               USE IO

 +2        QUIT