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 ---[H[J[2J[HGMRCFP 1018 printed Dec 13, 2024@01:45:37 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 ;
