Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCFP

GMRCFP.m

Go to the documentation of this file.
  1. 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
  1. Q
  1. ;; ;
  1. EN ; -- main entry point for GMRC FEE PARAM
  1. K GMRCCHNG D EN^VALM("GMRC FEE PARAM")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Services defined in GMRC FEE SERVICES system parameter"
  1. S VALMHDR(2)="as fee-basis services."
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N GMRCER
  1. S $P(GMRCFPBK," ",10)=""
  1. K GMRCFPX
  1. D GETWP^XPAR(.GMRCFPX,"SYS","GMRC FEE SERVICES",,.GMRCER)
  1. D BUILD
  1. Q
  1. BUILD ; -- (re)Build the list
  1. N LINE,NAME,IEN,I
  1. K @VALMAR
  1. S LINE=0
  1. S I=0 F S I=$O(GMRCFPX(I)) Q:'I D
  1. . S IEN=GMRCFPX(I,0)
  1. . S NAME=$$GET1^DIQ(123.5,IEN_",",".01")
  1. . I NAME="" S NAME="*****UNKNOWN SERVICE!!!*****"
  1. . S LINE=LINE+1
  1. . D SET^VALM10(LINE,$E(LINE_GMRCFPBK,1,5)_NAME)
  1. S VALMCNT=LINE
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K @VALMAR,GMRCFPX,GMRCFPBK,GMRCCHNG
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;