- 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 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 ;