Please enable JavaScript.

Coggle requires JavaScript to display documents.

ADT 辦理入院, 查辦理入院Event可搜尋: EX: Event caseno, 查病患歷史檔Process搜尋: …

- - - - setAdtTranBedLog
        "病患歷史檔"+patBasicDTO.caseno+"，存入轉床Log，lastupdateby:"+lastupdateby+"_setAdtTranBedLog"
        :red_flag:brNewSubscribeADT004
        "Event "+it.caseno+"brNewSubscribeADT004(ENTER)_setAdtTranBedLog"、
        "Event "+adtTranBedDTO.caseno+"brNewSubscribeADT004(IN_Being)"、
        "Event "+adtTranBedDTO.caseno+"brNewSubscribeADT004(IN_End)"、
        "Event "+it.caseno+"brNewSubscribeADT004(OUT)_setAdtTranBedLog"
        
        setAdtTranDischargeLog
        "病患歷史檔"+patBasicDTO.caseno+"，存入病患狀態Log，lastupdateby:"+lastupdateby+"_setAdtTranBedLog"
        :red_flag:brNewSubscribeADT003
        "Event "+it.caseno+"brNewSubscribeADT003(ENTER)_setAdtTranDischargeLog"、
        "Event "+adtTranDischarge.caseno+"brNewSubscribeADT003(IN_Being)"、
        "Event "+adtTranDischarge.caseno+"brNewSubscribeADT003(IN_End)"、
        "Event "+it.caseno+"brNewSubscribeADT003(OUT)_setAdtTranDischargeLog"
        
        setAdtTranIdentityLog
        "病患歷史檔"+patBasicDTO.caseno+"，存入身份Log，lastupdateby:"+lastupdateby+"_setAdtTranIdentityLog"
        :red_flag:brNewSubscribeADT008
        "Event "+patBasicDTO.caseno+"brNewSubscribeADT008(ENTER)_setAdtTranIdentityLog" 、
        "Event "+patBasicDTO.caseno+"brNewSubscribeADT008(OUT)_setAdtTranIdentityLog"
        
        setAdtComprehensiveLog
        "病患歷史檔"+it.caseno+"，資料變更Log，lastupdateby:"+lastupdateby+"_setAdtComprehensiveLog"
      - :red_flag:brNewSubscribeADT007
        "Event "+adtPatBasicDTO.caseno+"brNewSubscribeADT007(ENTER)_bruiPublishAdtPatInfo_B"、
        "Event "+adtPatBasicDTO.caseno+"brNewSubscribeADT007(OUT)_bruiPublishAdtPatInfo_B"
        
        publishAdtPatientDiffSexTogetherStay
        println "===通知病患異床同住==="
        
        callComChartBasinfo
        更新病歷基本資料
        
        若為ICU
        callOutsideErsCareFormService001
        
        newsDoctorPhone
        發簡訊
        
        searchGmsOverdraft
        是否欠款
        
        1 more item...
- - - - 若住院序號為空
        callAdtUtilityInsideAcquireSeqno
        取得住院序號
        
        取得護理別
        callAdtBedInsideGetBedBasicInfo
        
        log.info "A 辦理入院測試，住院序號:"+ it.caseno
        updateAdtPatBasic
        log.info "C 辦理入院測試，住院序號:"+ it.caseno+ "，flag:" + flag
        
        變更床位預約床位檔
        callAdtBedInsideSetBedReserveToTrans
        
        寫入床位主檔資訊
        callAdtBedInsideBrAccountedBed
        
        更新AdtPreadmit資訊
        setAdtPreadmitInfo
        
        1 more item...
        
        接到此? YES
    - - :red_flag:brNewSubscribeADT001
        
        病患歷史檔
        setAdmitLogProcess
        "病患歷史檔"+adtPatBasicDTO.caseno+"，lastupdateby:"+lastupdateby+"_setAdmitProcessEvent_Being"
        setAdmitLogProcess
        "病患歷史檔"+updateDTOs.caseno+"，lastupdateby:"+lastupdateby+"_setAdmitLogProcess"
        "病患歷史檔"+adtPatBasicDTO.caseno+"，lastupdateby:"+lastupdateby+"_setAdmitProcessEvent_END"
        
        publishAdtPatientDiffSexTogetherStay
        println "===通知病患異床同住===" >>>不解用意...
        
        "event_setAdmitProcessEvent" +resultDTO.result.caseno+"_End"
        
        這有跑??? NO
      - 不知道這段做了有什麼意義...