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

BAR500Z.m

Go to the documentation of this file.
  1. BAR500Z ; IHS/SD/LSL - AR TOP LEVEL FILE STRUCTURE ;
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE**21**;;OCT 26, 2005
  1. ;
  1. D CLEAR^VALM1
  1. EN ;Entry point
  1. ;
  1. W #
  1. S Y=$$SELTRAN^BAR50I01
  1. Q:Y'>0
  1. ;
  1. S DLFL=Y
  1. ;
  1. D ENTRY(DLFL)
  1. Q
  1. ; *********************************************************************
  1. ;
  1. ENTRY(DLFL) ;Entry point for the file type
  1. S FILE=DLFL
  1. D EN^VALM("BAR ERA Maintenance")
  1. Q
  1. ; *********************************************************************
  1. ;
  1. HDR ;EP -- header code
  1. S VALMSG=$$VALMSG^AMCOUT
  1. S VALMHDR(1)=$P($G(^BAREDI("1T",FILE,0)),"^")
  1. Q
  1. ; *********************************************************************
  1. ;
  1. INIT ;EP -- init variables and list array
  1. D GATHER
  1. S VALMCNT=20
  1. Q
  1. ; *********************************************************************
  1. ;
  1. HELP ;EP -- help code
  1. S X="?" D DISP^XQORM1,MSG^AMCOUT("",2,0,0)
  1. Q
  1. ; *********************************************************************
  1. ;
  1. EXIT ;EP -- exit code
  1. D CLEAR^VALM1
  1. Q
  1. ; *********************************************************************
  1. ;
  1. EXPND ;EP -- expand code
  1. Q
  1. ; *********************************************************************
  1. ;
  1. RESET ;EP; -- rebuilds array after action
  1. D TERM^VALM0 S VALMBCK="R"
  1. D INIT,HDR
  1. Q
  1. ; *********************************************************************
  1. ;
  1. GATHER ; -- SUBRTN to set data into array
  1. ;
  1. ; List of Routines to be accessed
  1. ;
  1. S DL="/"
  1. S FLST="EDTSEG^BAR50I01/EDTELEM^BAR50I01/EDTTAB^BAR50I01/"
  1. S FLST=FLST_"EDTCLAIM^BAR50I01/EDTDATA^BAR50I01/VIEWR^XBLM(""PRTVARS^BAREDIUT(FILE)"")"
  1. S FLD="Add/Edit Segment^Add/Edit Elements^Add/Edit Tables^Add/Edit Claim Level Reason Codes^Add/Edit Data Types^Reports"
  1. K ^TMP($J,"LVL0")
  1. K LVL0
  1. S RECNM=0
  1. S (LN,COUNT)=1
  1. ;
  1. ;Get file details
  1. S (SFL,LNC)=1
  1. F I=1:1:6 D
  1. . S FD=$P(FLD,U,I)
  1. . S LVL0($J,I)=FD
  1. . S ^TMP($J,"L0",LNC)=I_U_FD
  1. . S LNC=LNC+1
  1. ;
  1. S RN=""
  1. F S RN=$O(LVL0($J,RN)) Q:RN="" D
  1. . S (RECORD,DI)=""
  1. .S FLEN=40
  1. .S FIELD=$G(LVL0($J,RN))
  1. .S RECORD=$$PAD(FIELD,FLEN)
  1. .S ^TMP($J,"LVL0",LN,0)=$$PAD(LN,3)_RECORD
  1. .S ^TMP($J,"LVL0","IDX",LN,LN)=""
  1. .S LN=LN+1,COUNT=COUNT+1
  1. Q
  1. ; *********************************************************************
  1. ;
  1. GETITEM ;
  1. ;
  1. K HDR
  1. S VALMLST=""
  1. S VALMLST=$O(^TMP($J,"LVL0","IDX",VALMLST),-1)
  1. D EN^VALM2(XQORNOD(0),"O")
  1. I '$D(VALMY) Q
  1. N X,Y
  1. S X=0
  1. F S X=$O(VALMY(X)) Q:X="" D
  1. . S HDR=$P($G(^TMP($J,"L0",X)),U,2)
  1. . S FN=$P($G(^TMP($J,"L0",X)),U,1)
  1. . S OPT=$P(FLST,DL,FN)
  1. Q
  1. ; *********************************************************************
  1. ;
  1. BROWSE ; Get specifc details for SEGMENTS, DATA TYPES etc.
  1. ;
  1. D GETITEM I '$D(HDR) Q
  1. D @OPT
  1. Q
  1. ; *********************************************************************
  1. ;
  1. PAD(D,L) ; -- SUBRTN to pad length of data
  1. ; -- D=data L=length
  1. Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)
  1. ; *********************************************************************
  1. ;
  1. SP(N) ; -- SUBRTN to pad N number of spaces
  1. Q $$PAD(" ",N)