GMRCFP.m

GMRCFP ;DSS/MBS - GMRC FEE PARAM List Utilities ;2/21/12 9:35am

 ;;3.0;CONSULT/REQUEST TRACKING;**74**;DEC 27, 1997;Build 4

 Q

 ;; ;

EN ; -- main entry point for GMRC FEE PARAM

 K GMRCCHNG D EN^VALM("GMRC FEE PARAM")

 Q

 ;

HDR ; -- header code

 S VALMHDR(1)="Services defined in GMRC FEE SERVICES system parameter"

 S VALMHDR(2)="as fee-basis services."

 Q

 ;

INIT ; -- init variables and list array

 N GMRCER

 S $P(GMRCFPBK," ",10)=""

 K GMRCFPX

 D GETWP^XPAR(.GMRCFPX,"SYS","GMRC FEE SERVICES",,.GMRCER)

 D BUILD

 Q

BUILD ; -- (re)Build the list

 N LINE,NAME,IEN,I

 K @VALMAR

 S LINE=0

 S I=0 F  S I=$O(GMRCFPX(I)) Q:'I  D

 . S IEN=GMRCFPX(I,0)

 . S NAME=$$GET1^DIQ(123.5,IEN_",",".01")

 . I NAME="" S NAME="*****UNKNOWN SERVICE!!!*****"

 . S LINE=LINE+1

 . D SET^VALM10(LINE,$E(LINE_GMRCFPBK,1,5)_NAME)

 S VALMCNT=LINE

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K @VALMAR,GMRCFPX,GMRCFPBK,GMRCCHNG

 Q

 ;

EXPND ; -- expand code

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCFP   1018     printed  Feb 18, 2025@23:12                                                                                                                                                                                                         Page 2

GMRCFP    ;DSS/MBS - GMRC FEE PARAM List Utilities ;2/21/12 9:35am

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**74**;DEC 27, 1997;Build 4

 +2        QUIT 

 +3       ;; ;

EN        ; -- main entry point for GMRC FEE PARAM

 +1        KILL GMRCCHNG

           DO EN^VALM("GMRC FEE PARAM")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1        SET VALMHDR(1)="Services defined in GMRC FEE SERVICES system parameter"

 +2        SET VALMHDR(2)="as fee-basis services."

 +3        QUIT 

 +4       ;

INIT      ; -- init variables and list array

 +1        NEW GMRCER

 +2        SET $PIECE(GMRCFPBK," ",10)=""

 +3        KILL GMRCFPX

 +4        DO GETWP^XPAR(.GMRCFPX,"SYS","GMRC FEE SERVICES",,.GMRCER)

 +5        DO BUILD

 +6        QUIT 

BUILD     ; -- (re)Build the list

 +1        NEW LINE,NAME,IEN,I

 +2        KILL @VALMAR

 +3        SET LINE=0

 +4        SET I=0

           FOR 

               SET I=$ORDER(GMRCFPX(I))

               if 'I

                   QUIT 

               Begin DoDot:1

 +5                SET IEN=GMRCFPX(I,0)

 +6                SET NAME=$$GET1^DIQ(123.5,IEN_",",".01")

 +7                IF NAME=""

                       SET NAME="*****UNKNOWN SERVICE!!!*****"

 +8                SET LINE=LINE+1

 +9                DO SET^VALM10(LINE,$EXTRACT(LINE_GMRCFPBK,1,5)_NAME)

               End DoDot:1

 +10       SET VALMCNT=LINE

 +11       QUIT 

 +12      ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL @VALMAR,GMRCFPX,GMRCFPBK,GMRCCHNG

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;