11 lines
2.4 KiB
JSON
11 lines
2.4 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine end_dialog\r\ndeclare function msg, fieldcount, prod_spec_comm\r\n$insert msg_equates\r\n\r\nEpiPromptCnt = get_property( @window, '@EpiPromptCnt' )\r\nEpiControls = get_property( @window, '@EpiControls' )\r\nEpiDataOnWindow = get_property( EpiControls, 'LIST':@rm:'LIST':@rm:'INVALUE' )\r\nconvert @rm to @vm in EpiDataOnWindow\r\nCurSameLayerNo = get_property( @window, '@CurSameLayer' )\r\nAllSameLayers = get_property( @window, '@EpiInfo' )\r\nif EpiDataOnWindow = @fm:@vm:@fm:str( @vm, EpiPromptCnt-2 ) then\r\n * do not store and delete blank layer\r\n AllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, char(243):'' )\r\n Acnt = fieldcount( AllSameLayers, char(248))\r\n if CurSameLayerNo = Acnt then\r\n swap char(248):char(243) with '' in AllSameLayers\r\n end else\r\n swap char(243):char(248) with '' in AllSameLayers\r\n end\r\n convert char(243) to '' in AllSameLayers \r\n Void = set_property( @window, '@EpiInfo', AllSameLayers )\r\nend else\r\n\tAllSameLayers = fieldstore( AllSameLayers, char(248), CurSameLayerNo, 1, EpiDataOnWindow )\r\n\tVoid = set_property( @window, '@EpiInfo', AllSameLayers )\r\nend\r\n*\r\nOrigEpiData = get_property( @window, '@OrigEpiInfo' )\r\nEpiData = get_property( @window, '@EpiInfo' )\r\nif EpiData = '' then\r\n EpiData = @fm:@rm:@fm\r\nend\r\nif EpiData <> OrigEpiData then\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You have changed EPI information. Do you wish to save?'\r\n\tMsgInfo<mtype$> = 'BNYC'\r\n\tMsgInfo<micon$> = '?'\r\n\tResponse = msg( '', MsgInfo )\r\n\tif Response = 1 then\r\n\t * VALIDATE THE DOPANTS\r\n\t Void = set_property( @window, '@LayerOn', get_property( @window, '@CurSameLayer' ) + 1 )\r\n\t Valid = prod_spec_comm( \"VALIDATE_DOPANT\" )\r\n if Valid else\r\n return 0\r\n end\r\n Valid = prod_spec_comm( \"VALIDATE_MINMAX\" )\r\n if Valid else\r\n return 0\r\n end\r\n\t convert @fm to @svm in EpiData ;* for conc mess\r\n\t end_dialog( @window, EpiData )\r\n\tend else\r\n\t if Response = 0 then\r\n\t end_dialog( @window, 'CANCEL' )\r\n\t end\r\n\tend\r\nend else \r\n end_dialog( @window, 'CANCEL' )\r\nend\r\nreturn 0"
|
|
}
|
|
}
|
|
} |