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

GMRCFPA.m

Go to the documentation of this file.
  1. GMRCFPA ;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. ADD ;Adds stuff
  1. N DIC,I
  1. S DIC=123.5,DIC(0)="AEMQ" D ^DIC
  1. Q:+$G(Y)'>0
  1. I $$INLIST(Y) S VALMSG="**SERVICE ALREADY IN LIST**" Q
  1. S GMRCFPX(VALMCNT+1,0)=+Y
  1. D BUILD^GMRCFP
  1. S VALMSG="**"_$P(Y,U,2)_" ADDED**"
  1. S GMRCCHNG=1
  1. S VALMBCK="R"
  1. Q
  1. INLIST(IEN) ;Is the item already in the list?
  1. N I,RET
  1. S RET=0
  1. F I=1:1:VALMCNT D Q:RET
  1. . I +IEN=$G(GMRCFPX(I,0)) S RET=1
  1. Q RET
  1. ;
  1. REMOVE ;Removes stuff
  1. N J,END,IEN,NAME,DIR
  1. S DIR(0)="N^1:"_VALMCNT_":0"
  1. S DIR("A")="Select service by number in list above"
  1. D ^DIR
  1. S END=VALMCNT-1
  1. Q:'+X
  1. S IEN=GMRCFPX(Y,0)
  1. S NAME=$$GET1^DIQ(123.5,IEN_",",".01")
  1. F J=Y:1:END D
  1. . M GMRCFPX(J)=GMRCFPX(J+1)
  1. K GMRCFPX(VALMCNT)
  1. D BUILD^GMRCFP
  1. S VALMSG="**"_NAME_" REMOVED**"
  1. S GMRCCHNG=1
  1. S VALMBCK="R"
  1. Q
  1. SAVE ;Saves
  1. N GMRCER
  1. I $D(GMRCFPX)<10 S GMRCFPX="@"
  1. D EN^XPAR("SYS","GMRC FEE SERVICES",,.GMRCFPX,.GMRCER)
  1. S VALMSG="**CURRENT LIST SAVED**"
  1. S GMRCCHNG=0
  1. Q
  1. EXIT ;Checks for unsaved changes and asks if user would like to save before quitting
  1. N DIR
  1. S VALMBCK=""
  1. I +$G(GMRCCHNG) D
  1. . S DIR(0)="Y",DIR("B")="NO"
  1. . S DIR("A")="Would you like to save your changes to the list"
  1. . D ^DIR
  1. . I Y D SAVE
  1. S VALMBCK="Q"
  1. Q