- IBCEFG6 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING ;23-JAN-96
- ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
- ;
- ADD ; Add a new local form fld
- ; Assumes IBCEXDA defined
- N %,IB,IBASSOC,IBDA,IBSEL,IBCOPY,X,Y,DD,DO,DIC,DIE,DR,DA,DLAYGO,LDINUM,DINUM,IBSCREEN
- G:'$G(IBCEXDA) ADDQ
- D FULL^VALM1
- S IBASSOC=$P($G(^IBE(353,IBCEXDA,2)),U,5) S:IBASSOC=IBCEXDA IBASSOC="" S IBSEL=(IBASSOC'="")
- S IBSCREEN=$P($G(^IBE(353,IBCEXDA,2)),U,2)="S"
- I 'IBASSOC,$O(^IBA(364.6,"B",IBCEXDA,"")) D G:'IBSEL ADD1
- .W !,"OVERRIDE AN EXISTING FIELD" S %=2 D YN^DICN
- .I (%+1#3) S IBSEL=1
- G:'IBSEL ADD1
- D SEL(.IBDA,1)
- S IB=$O(IBDA("")) G:'IB ADDQ
- ; Associated form - only choose non-associated fld to override
- I IBASSOC,$S('IBSCREEN:$P($G(^IBA(364.6,+IBDA(IB),0)),U,2)'="N",1:0) W !!,"Can Only Over-ride a NATIONAL form field",! D PAUSE^VALM1 S IB=0 G ADDQ
- I 'IBASSOC,$S('IBSCREEN:$P($G(^IBA(364.6,+IBDA(IB),0)),U,3),1:+IBDA(IB)'=$P($G(^IBA(364.6,+IBDA(IB),0)),U,3)) W !!,"Can't Over-ride a form field that is an over-ride itself",! D PAUSE^VALM1 S IB=0 G ADDQ
- I $P($G(^IBA(364.6,+IBDA(IB),0)),U,7)=0 W !!,"Form field definition will not allow override",! D PAUSE^VALM1 S IB=0 G ADDQ
- W !!,"Over-riding Form Field # ",IB," - ",$P($G(^IBA(364.6,+IBDA(IB),0)),U,10)
- W !,"IS THIS OK" S %=2 D YN^DICN
- I '(%+1#3) S IB=0 G ADDQ
- W !,"COPY OVER THE DATA ELEMENT AND OUTPUT FORMAT FROM THE ORIGINAL FLD" S %=1 D YN^DICN
- G:%<0 ADDQ
- S IB=+IBDA(IB)
- S IBCOPY=$S(%+1#3:$O(^IBA(364.7,"B",IB,"")),1:"")
- ADD1 K DO,DD,DINUM
- S DIC="^IBA(364.6,",DIC(0)="L",DLAYGO=364.6,X=IBCEXDA
- S Z=$O(^IBA(364.6,"A"),-1) S:Z<10000 Z=9999
- F LDINUM=Z+1:1 L +^IBA(364.6,LDINUM):1 I $T S DINUM=LDINUM Q
- S DIC("DR")=".02///L;.07////1;I '$G(IB) S Y=""@10"";.03////"_$G(IB)_";S Y=""@99"""
- S DIC("DR")=DIC("DR")_";@10;.04;I X="""" W !,""MUST HAVE A PAGE/SEQ"" S Y=""@10"";@20;.05;I X="""" W !,""MUST HAVE A FIRST LINE #"" S Y=""@20"";@30;.08;I X="""" W !,""MUST HAVE A STARTING COLUMN"" S Y=""@30"";@99"
- D FILE^DICN
- K DLAYGO,DO,DD,DINUM
- S $P(^IBA(364.6,0),U,3)=$O(^IBA(364.6,9999),-1) L -^IBA(364.6,LDINUM)
- K DIC,DO,DD,DLAYGO
- G:Y<0 ADDQ
- S IBDA=+Y
- ADDQ I $G(IBDA) D EDITL(IBDA,"",1,$G(IBCOPY)),BLD^IBCEFG5
- S VALMBCK="R"
- Q
- ;
- EDIT ; Edit a local form fld
- N IBEDIT,IBDA,IB
- D FULL^VALM1
- S IBEDIT=0
- D SEL(.IBDA)
- S IB=0 F S IB=$O(IBDA(IB)) Q:'IB W !!,"Form field: (#",IB,")",$S($P($G(^IBA(364.6,+IBDA(IB),0)),U,10)'="":" - "_$P(^(0),U,10),1:"") D
- .I $P($G(^IBA(364.6,+IBDA(IB),0)),U,2)="N" W " is a NATIONAL form field",! D NOEDIT("EDIT A NATIONAL FIELD FROM") Q
- .D VIEW^IBCEFG61(+IBDA(IB),+$O(^IBA(364.7,"B",+IBDA(IB),""))),EDITL(+IBDA(IB),IB) S IBEDIT=1
- D:IBEDIT BLD^IBCEFG5
- S VALMBCK="R"
- Q
- ;
- EDITL(DA,FLD,NOASK,IBCOPY) ; Edit a local form fld #FLD in display whose ien is DA
- ; NOASK = 1, don't ask, just do it
- ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- ; should be copied into this new entry
- S DIE="^IBA(364.6,",DR="[IBCE ADD/EDIT LOCAL FORM FIELD]" D ^DIE
- I '$G(NOASK) W !!,$S($D(^IBA(364.7,"B",DA)):"EDIT",1:"ADD")," FORM FIELD",$S($G(FLD):" #"_FLD,1:""),"'S CONTENT DEFINITION NOW" S %=2 D YN^DICN
- I $G(NOASK) W !!,"...Please define CONTENT of field...",! S %=1
- D:(%+1#3) CONTENT(DA,$G(IBCOPY))
- Q
- ;
- VIEWF(IBDA) ;
- D SEL(.IBDA)
- D FULL^VALM1
- S IBDA=0 F S IBDA=$O(IBDA(IBDA)) Q:'IBDA W !!,"Definition of Form Field: (#",IBDA,")",$S($P($G(^IBA(364.6,+IBDA(IBDA),0)),U,10)'="":" - "_$P(^(0),U,10),1:"") D
- .D VIEW^IBCEFG61(+IBDA(IBDA),+$O(^IBA(364.7,"B",+IBDA(IBDA),""))),PAUSE^VALM1
- ;I IBCONT D BLD^IBCEFG5
- S VALMBCK="R"
- Q
- ;
- CONTENT(IBDA,IBCOPY) ; Add/edit form fld definition content
- ; IBDA = corresponding entry in file 364.6 for definition being
- ; added/edited. If null, ask for selections from current screen
- ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- ; should be copied into this new entry
- N IBCONT,DIPA
- D FULL^VALM1
- S IBCONT=0
- I $G(IBDA) D CONTED(IBDA,.IBCONT,$G(IBCOPY)) G CONTQ
- D SEL(.IBDA)
- S IBDA=0 F S IBDA=$O(IBDA(IBDA)) Q:'IBDA W !!,"Defining content of form field: (#",IBDA,")",$S($P($G(^IBA(364.6,+IBDA(IBDA),0)),U,10)'="":" - "_$P(^(0),U,10),1:"") D
- .I $P($G(^IBA(364.6,+IBDA(IBDA),0)),U,2)="N" W " is a NATIONAL form field",! D NOEDIT("EDIT A NATIONAL FIELD FROM") Q
- .D VIEW^IBCEFG61(+IBDA(IBDA),+$O(^IBA(364.7,"B",+IBDA(IBDA),""))),CONTED(+IBDA(IBDA),.IBCONT)
- CONTQ I IBCONT D BLD^IBCEFG5
- S VALMBCK="R"
- Q
- ;
- CONTED(IBDA,IBCONT,IBCOPY) ; Edit definition for ien IBDA
- ; IBDA = file 364.6 entry whose definition is being edited
- ; IBCONT = flag returned as 1 if a new associated form fld created,
- ; forcing a regeneration of the display
- ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- ; should be copied into this new entry
- N IBCECDA,DIC,DD,DO,DINUM,LDINUM,X,Y,Z
- S IBCECDA=$O(^IBA(364.7,"B",IBDA,""))
- I IBCECDA="" D S:IBCECDA IBCONT=1
- .K DO,DD,DINUM
- .S DIC="^IBA(364.7,",DIC(0)="L",DLAYGO=364.7,DIC("DR")=".02////L;.07////N",X=IBDA
- .I $G(IBCOPY) S DIC("DR")=DIC("DR")_";.03////"_$P($G(^IBA(364.7,IBCOPY,0)),U,3)
- .S Z=$O(^IBA(364.7,"A"),-1) S:Z<10000 Z=9999
- .F LDINUM=Z+1:1 L +^IBA(364.7,LDINUM):1 I $T S DINUM=LDINUM Q
- .D FILE^DICN
- .S $P(^IBA(364.7,0),U,3)=$O(^IBA(364.7,9999),-1) L -^IBA(364.7,LDINUM)
- .K DIC,DO,DD,DINUM,DLAYGO
- .S:Y>0 IBCECDA=+Y
- .I $G(IBCOPY) S ^IBA(364.7,+Y,1)=$G(^IBA(364.7,IBCOPY,1)) M ^IBA(364.7,+Y,3)=^IBA(364.7,IBCOPY,3)
- Q:'IBCECDA
- ED1 S DA=IBCECDA,DIE="^IBA(364.7,",DR="[IBCE EDIT FIELD CONTENT]" D ^DIE
- I $$EDCHK^IBCEFG60(IBCECDA) G ED1 ;Do edit checks,re-edit if indicated
- Q
- ;
- VIEWEL(IBBASE) ; View a data element
- ; IBBASE = ien of the base file for the element to be viewed
- ; if undef - any element can be selected
- N DIC,Y,IBBASE
- D FULL^VALM1
- W !!
- I $G(IBCEXDA) S IBBASE=+$G(^IBE(353,IBCEXDA,2))
- S:$G(IBBASE) DIC("S")="I $P(^(0),U,5)="_IBBASE S DIC="^IBA(364.5,",DIC(0)="AEMQ",DIC("A")="Select a DATA ELEMENT: " D ^DIC K DIC
- I Y>0 D VIEWE^IBCEFG61(+Y),PAUSE^VALM1
- VIEWELQ S VALMBCK="R"
- Q
- ;
- NOEDIT(FUNC,FLD) ; Write NO CHANGE msg for associated flds
- I $G(FLD) W !,"FORM FIELD #: ",FLD
- W !,*7,"YOU CANNOT ",FUNC," A NATIONALLY ASSOCIATED LOCAL FORM",!," - REDEFINE THE FIELD'S CONTENT BY USING A LOCAL FORM FIELD TO OVERRIDE"
- D PAUSE^VALM1
- Q
- ;
- FNL ; Clean up
- K ^TMP("IBCEDEFDX",$J)
- D CLEAN^VALM10
- Q
- ;
- SEL(IBDA,ONE) ; Select form fld entries from list
- D EN^VALM2($G(XQORNOD(0)),$S('$G(ONE):"",1:"S"))
- S IBDA=0 F S IBDA=$O(VALMY(IBDA)) Q:'IBDA S IBDA(IBDA)=+$P($G(^TMP("IBCEFLDDX",$J,IBDA)),U,2)
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEFG6 6671 printed Feb 18, 2025@23:36:57 Page 2
- IBCEFG6 ;ALB/TMP - OUTPUT FORMATTER MAINT-FORM FLD ACTION PROCESSING ;23-JAN-96
- +1 ;;2.0;INTEGRATED BILLING;**52,51**;21-MAR-94
- +2 ;
- ADD ; Add a new local form fld
- +1 ; Assumes IBCEXDA defined
- +2 NEW %,IB,IBASSOC,IBDA,IBSEL,IBCOPY,X,Y,DD,DO,DIC,DIE,DR,DA,DLAYGO,LDINUM,DINUM,IBSCREEN
- +3 if '$GET(IBCEXDA)
- GOTO ADDQ
- +4 DO FULL^VALM1
- +5 SET IBASSOC=$PIECE($GET(^IBE(353,IBCEXDA,2)),U,5)
- if IBASSOC=IBCEXDA
- SET IBASSOC=""
- SET IBSEL=(IBASSOC'="")
- +6 SET IBSCREEN=$PIECE($GET(^IBE(353,IBCEXDA,2)),U,2)="S"
- +7 IF 'IBASSOC
- IF $ORDER(^IBA(364.6,"B",IBCEXDA,""))
- Begin DoDot:1
- +8 WRITE !,"OVERRIDE AN EXISTING FIELD"
- SET %=2
- DO YN^DICN
- +9 IF (%+1#3)
- SET IBSEL=1
- End DoDot:1
- if 'IBSEL
- GOTO ADD1
- +10 if 'IBSEL
- GOTO ADD1
- +11 DO SEL(.IBDA,1)
- +12 SET IB=$ORDER(IBDA(""))
- if 'IB
- GOTO ADDQ
- +13 ; Associated form - only choose non-associated fld to override
- +14 IF IBASSOC
- IF $SELECT('IBSCREEN:$PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,2)'="N",1:0)
- WRITE !!,"Can Only Over-ride a NATIONAL form field",!
- DO PAUSE^VALM1
- SET IB=0
- GOTO ADDQ
- +15 IF 'IBASSOC
- IF $SELECT('IBSCREEN:$PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,3),1:+IBDA(IB)'=$PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,3))
- WRITE !!,"Can't Over-ride a form field that is an over-ride itself",!
- DO PAUSE^VALM1
- SET IB=0
- GOTO ADDQ
- +16 IF $PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,7)=0
- WRITE !!,"Form field definition will not allow override",!
- DO PAUSE^VALM1
- SET IB=0
- GOTO ADDQ
- +17 WRITE !!,"Over-riding Form Field # ",IB," - ",$PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,10)
- +18 WRITE !,"IS THIS OK"
- SET %=2
- DO YN^DICN
- +19 IF '(%+1#3)
- SET IB=0
- GOTO ADDQ
- +20 WRITE !,"COPY OVER THE DATA ELEMENT AND OUTPUT FORMAT FROM THE ORIGINAL FLD"
- SET %=1
- DO YN^DICN
- +21 if %<0
- GOTO ADDQ
- +22 SET IB=+IBDA(IB)
- +23 SET IBCOPY=$SELECT(%+1#3:$ORDER(^IBA(364.7,"B",IB,"")),1:"")
- ADD1 KILL DO,DD,DINUM
- +1 SET DIC="^IBA(364.6,"
- SET DIC(0)="L"
- SET DLAYGO=364.6
- SET X=IBCEXDA
- +2 SET Z=$ORDER(^IBA(364.6,"A"),-1)
- if Z<10000
- SET Z=9999
- +3 FOR LDINUM=Z+1:1
- LOCK +^IBA(364.6,LDINUM):1
- IF $TEST
- SET DINUM=LDINUM
- QUIT
- +4 SET DIC("DR")=".02///L;.07////1;I '$G(IB) S Y=""@10"";.03////"_$GET(IB)_";S Y=""@99"""
- +5 SET DIC("DR")=DIC("DR")_";@10;.04;I X="""" W !,""MUST HAVE A PAGE/SEQ"" S Y=""@10"";@20;.05;I X="""" W !,""MUST HAVE A FIRST LINE #"" S Y=""@20"";@30;.08;I X="""" W !,""MUST HAVE A STARTING COLUMN"" S Y=""@30"";@99"
- +6 DO FILE^DICN
- +7 KILL DLAYGO,DO,DD,DINUM
- +8 SET $PIECE(^IBA(364.6,0),U,3)=$ORDER(^IBA(364.6,9999),-1)
- LOCK -^IBA(364.6,LDINUM)
- +9 KILL DIC,DO,DD,DLAYGO
- +10 if Y<0
- GOTO ADDQ
- +11 SET IBDA=+Y
- ADDQ IF $GET(IBDA)
- DO EDITL(IBDA,"",1,$GET(IBCOPY))
- DO BLD^IBCEFG5
- +1 SET VALMBCK="R"
- +2 QUIT
- +3 ;
- EDIT ; Edit a local form fld
- +1 NEW IBEDIT,IBDA,IB
- +2 DO FULL^VALM1
- +3 SET IBEDIT=0
- +4 DO SEL(.IBDA)
- +5 SET IB=0
- FOR
- SET IB=$ORDER(IBDA(IB))
- if 'IB
- QUIT
- WRITE !!,"Form field: (#",IB,")",$SELECT($PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,10)'="":" - "_$PIECE(^(0),U,10),1:"")
- Begin DoDot:1
- +6 IF $PIECE($GET(^IBA(364.6,+IBDA(IB),0)),U,2)="N"
- WRITE " is a NATIONAL form field",!
- DO NOEDIT("EDIT A NATIONAL FIELD FROM")
- QUIT
- +7 DO VIEW^IBCEFG61(+IBDA(IB),+$ORDER(^IBA(364.7,"B",+IBDA(IB),"")))
- DO EDITL(+IBDA(IB),IB)
- SET IBEDIT=1
- End DoDot:1
- +8 if IBEDIT
- DO BLD^IBCEFG5
- +9 SET VALMBCK="R"
- +10 QUIT
- +11 ;
- EDITL(DA,FLD,NOASK,IBCOPY) ; Edit a local form fld #FLD in display whose ien is DA
- +1 ; NOASK = 1, don't ask, just do it
- +2 ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- +3 ; should be copied into this new entry
- +4 SET DIE="^IBA(364.6,"
- SET DR="[IBCE ADD/EDIT LOCAL FORM FIELD]"
- DO ^DIE
- +5 IF '$GET(NOASK)
- WRITE !!,$SELECT($DATA(^IBA(364.7,"B",DA)):"EDIT",1:"ADD")," FORM FIELD",$SELECT($GET(FLD):" #"_FLD,1:""),"'S CONTENT DEFINITION NOW"
- SET %=2
- DO YN^DICN
- +6 IF $GET(NOASK)
- WRITE !!,"...Please define CONTENT of field...",!
- SET %=1
- +7 if (%+1#3)
- DO CONTENT(DA,$GET(IBCOPY))
- +8 QUIT
- +9 ;
- VIEWF(IBDA) ;
- +1 DO SEL(.IBDA)
- +2 DO FULL^VALM1
- +3 SET IBDA=0
- FOR
- SET IBDA=$ORDER(IBDA(IBDA))
- if 'IBDA
- QUIT
- WRITE !!,"Definition of Form Field: (#",IBDA,")",$SELECT($PIECE($GET(^IBA(364.6,+IBDA(IBDA),0)),U,10)'="":" - "_$PIECE(^(0),U,10),1:"")
- Begin DoDot:1
- +4 DO VIEW^IBCEFG61(+IBDA(IBDA),+$ORDER(^IBA(364.7,"B",+IBDA(IBDA),"")))
- DO PAUSE^VALM1
- End DoDot:1
- +5 ;I IBCONT D BLD^IBCEFG5
- +6 SET VALMBCK="R"
- +7 QUIT
- +8 ;
- CONTENT(IBDA,IBCOPY) ; Add/edit form fld definition content
- +1 ; IBDA = corresponding entry in file 364.6 for definition being
- +2 ; added/edited. If null, ask for selections from current screen
- +3 ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- +4 ; should be copied into this new entry
- +5 NEW IBCONT,DIPA
- +6 DO FULL^VALM1
- +7 SET IBCONT=0
- +8 IF $GET(IBDA)
- DO CONTED(IBDA,.IBCONT,$GET(IBCOPY))
- GOTO CONTQ
- +9 DO SEL(.IBDA)
- +10 SET IBDA=0
- FOR
- SET IBDA=$ORDER(IBDA(IBDA))
- if 'IBDA
- QUIT
- WRITE !!,"Defining content of form field: (#",IBDA,")",$SELECT($PIECE($GET(^IBA(364.6,+IBDA(IBDA),0)),U,10)'="":" - "_$PIECE(^(0),U,10),1:"")
- Begin DoDot:1
- +11 IF $PIECE($GET(^IBA(364.6,+IBDA(IBDA),0)),U,2)="N"
- WRITE " is a NATIONAL form field",!
- DO NOEDIT("EDIT A NATIONAL FIELD FROM")
- QUIT
- +12 DO VIEW^IBCEFG61(+IBDA(IBDA),+$ORDER(^IBA(364.7,"B",+IBDA(IBDA),"")))
- DO CONTED(+IBDA(IBDA),.IBCONT)
- End DoDot:1
- CONTQ IF IBCONT
- DO BLD^IBCEFG5
- +1 SET VALMBCK="R"
- +2 QUIT
- +3 ;
- CONTED(IBDA,IBCONT,IBCOPY) ; Edit definition for ien IBDA
- +1 ; IBDA = file 364.6 entry whose definition is being edited
- +2 ; IBCONT = flag returned as 1 if a new associated form fld created,
- +3 ; forcing a regeneration of the display
- +4 ; IBCOPY = IFN of entry in file 364.7 whose data element and format code
- +5 ; should be copied into this new entry
- +6 NEW IBCECDA,DIC,DD,DO,DINUM,LDINUM,X,Y,Z
- +7 SET IBCECDA=$ORDER(^IBA(364.7,"B",IBDA,""))
- +8 IF IBCECDA=""
- Begin DoDot:1
- +9 KILL DO,DD,DINUM
- +10 SET DIC="^IBA(364.7,"
- SET DIC(0)="L"
- SET DLAYGO=364.7
- SET DIC("DR")=".02////L;.07////N"
- SET X=IBDA
- +11 IF $GET(IBCOPY)
- SET DIC("DR")=DIC("DR")_";.03////"_$PIECE($GET(^IBA(364.7,IBCOPY,0)),U,3)
- +12 SET Z=$ORDER(^IBA(364.7,"A"),-1)
- if Z<10000
- SET Z=9999
- +13 FOR LDINUM=Z+1:1
- LOCK +^IBA(364.7,LDINUM):1
- IF $TEST
- SET DINUM=LDINUM
- QUIT
- +14 DO FILE^DICN
- +15 SET $PIECE(^IBA(364.7,0),U,3)=$ORDER(^IBA(364.7,9999),-1)
- LOCK -^IBA(364.7,LDINUM)
- +16 KILL DIC,DO,DD,DINUM,DLAYGO
- +17 if Y>0
- SET IBCECDA=+Y
- +18 IF $GET(IBCOPY)
- SET ^IBA(364.7,+Y,1)=$GET(^IBA(364.7,IBCOPY,1))
- MERGE ^IBA(364.7,+Y,3)=^IBA(364.7,IBCOPY,3)
- End DoDot:1
- if IBCECDA
- SET IBCONT=1
- +19 if 'IBCECDA
- QUIT
- ED1 SET DA=IBCECDA
- SET DIE="^IBA(364.7,"
- SET DR="[IBCE EDIT FIELD CONTENT]"
- DO ^DIE
- +1 ;Do edit checks,re-edit if indicated
- IF $$EDCHK^IBCEFG60(IBCECDA)
- GOTO ED1
- +2 QUIT
- +3 ;
- VIEWEL(IBBASE) ; View a data element
- +1 ; IBBASE = ien of the base file for the element to be viewed
- +2 ; if undef - any element can be selected
- +3 NEW DIC,Y,IBBASE
- +4 DO FULL^VALM1
- +5 WRITE !!
- +6 IF $GET(IBCEXDA)
- SET IBBASE=+$GET(^IBE(353,IBCEXDA,2))
- +7 if $GET(IBBASE)
- SET DIC("S")="I $P(^(0),U,5)="_IBBASE
- SET DIC="^IBA(364.5,"
- SET DIC(0)="AEMQ"
- SET DIC("A")="Select a DATA ELEMENT: "
- DO ^DIC
- KILL DIC
- +8 IF Y>0
- DO VIEWE^IBCEFG61(+Y)
- DO PAUSE^VALM1
- VIEWELQ SET VALMBCK="R"
- +1 QUIT
- +2 ;
- NOEDIT(FUNC,FLD) ; Write NO CHANGE msg for associated flds
- +1 IF $GET(FLD)
- WRITE !,"FORM FIELD #: ",FLD
- +2 WRITE !,*7,"YOU CANNOT ",FUNC," A NATIONALLY ASSOCIATED LOCAL FORM",!," - REDEFINE THE FIELD'S CONTENT BY USING A LOCAL FORM FIELD TO OVERRIDE"
- +3 DO PAUSE^VALM1
- +4 QUIT
- +5 ;
- FNL ; Clean up
- +1 KILL ^TMP("IBCEDEFDX",$JOB)
- +2 DO CLEAN^VALM10
- +3 QUIT
- +4 ;
- SEL(IBDA,ONE) ; Select form fld entries from list
- +1 DO EN^VALM2($GET(XQORNOD(0)),$SELECT('$GET(ONE):"",1:"S"))
- +2 SET IBDA=0
- FOR
- SET IBDA=$ORDER(VALMY(IBDA))
- if 'IBDA
- QUIT
- SET IBDA(IBDA)=+$PIECE($GET(^TMP("IBCEFLDDX",$JOB,IBDA)),U,2)
- +3 QUIT
- +4 ;