123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618361936203621362236233624362536263627362836293630363136323633363436353636363736383639364036413642364336443645364636473648364936503651365236533654365536563657365836593660366136623663366436653666366736683669367036713672367336743675367636773678367936803681368236833684368536863687368836893690369136923693369436953696369736983699370037013702370337043705370637073708370937103711371237133714371537163717371837193720372137223723372437253726372737283729373037313732373337343735373637373738373937403741374237433744374537463747374837493750375137523753375437553756375737583759376037613762376337643765376637673768376937703771377237733774377537763777377837793780378137823783378437853786378737883789379037913792379337943795379637973798379938003801380238033804380538063807380838093810381138123813381438153816381738183819382038213822382338243825382638273828382938303831383238333834383538363837383838393840384138423843384438453846384738483849385038513852385338543855385638573858385938603861386238633864386538663867386838693870387138723873387438753876387738783879388038813882388338843885388638873888388938903891389238933894389538963897389838993900390139023903390439053906390739083909391039113912391339143915391639173918391939203921392239233924392539263927392839293930393139323933393439353936393739383939394039413942394339443945394639473948394939503951395239533954395539563957395839593960396139623963396439653966396739683969397039713972397339743975397639773978397939803981398239833984398539863987398839893990399139923993399439953996399739983999400040014002400340044005400640074008400940104011401240134014401540164017401840194020402140224023402440254026402740284029403040314032403340344035403640374038403940404041404240434044404540464047404840494050405140524053405440554056405740584059406040614062406340644065406640674068406940704071407240734074407540764077407840794080408140824083408440854086408740884089409040914092409340944095409640974098409941004101410241034104410541064107410841094110411141124113411441154116411741184119412041214122412341244125412641274128412941304131413241334134413541364137413841394140414141424143414441454146414741484149415041514152415341544155415641574158415941604161416241634164416541664167416841694170417141724173417441754176417741784179418041814182418341844185418641874188418941904191419241934194419541964197419841994200420142024203420442054206420742084209421042114212421342144215421642174218421942204221422242234224422542264227422842294230423142324233423442354236423742384239424042414242424342444245424642474248424942504251425242534254425542564257425842594260426142624263426442654266426742684269427042714272427342744275427642774278427942804281428242834284428542864287428842894290429142924293429442954296429742984299430043014302430343044305430643074308430943104311431243134314431543164317431843194320432143224323432443254326432743284329433043314332433343344335433643374338433943404341434243434344434543464347434843494350435143524353435443554356435743584359436043614362436343644365436643674368436943704371437243734374437543764377437843794380438143824383438443854386438743884389439043914392439343944395439643974398439944004401440244034404440544064407440844094410441144124413441444154416441744184419442044214422442344244425442644274428442944304431443244334434443544364437443844394440444144424443444444454446444744484449445044514452445344544455445644574458445944604461446244634464446544664467446844694470447144724473447444754476447744784479448044814482448344844485448644874488448944904491449244934494449544964497449844994500450145024503450445054506450745084509451045114512451345144515451645174518451945204521452245234524452545264527452845294530453145324533453445354536453745384539454045414542454345444545454645474548454945504551455245534554455545564557455845594560456145624563456445654566456745684569457045714572457345744575457645774578457945804581458245834584458545864587458845894590459145924593459445954596459745984599460046014602460346044605460646074608460946104611461246134614461546164617461846194620462146224623462446254626462746284629463046314632463346344635463646374638463946404641464246434644464546464647464846494650465146524653465446554656465746584659466046614662466346644665466646674668466946704671467246734674467546764677467846794680468146824683468446854686468746884689469046914692469346944695469646974698469947004701470247034704470547064707470847094710471147124713471447154716471747184719472047214722472347244725472647274728472947304731473247334734473547364737473847394740474147424743474447454746474747484749475047514752475347544755475647574758475947604761476247634764476547664767476847694770477147724773477447754776477747784779478047814782478347844785478647874788478947904791479247934794479547964797479847994800480148024803480448054806480748084809481048114812481348144815481648174818481948204821482248234824482548264827482848294830483148324833483448354836483748384839484048414842484348444845484648474848484948504851485248534854485548564857485848594860486148624863486448654866486748684869487048714872487348744875487648774878487948804881488248834884488548864887488848894890489148924893489448954896489748984899490049014902490349044905490649074908490949104911491249134914491549164917491849194920492149224923492449254926492749284929493049314932493349344935493649374938493949404941494249434944494549464947494849494950495149524953495449554956495749584959496049614962496349644965496649674968496949704971497249734974497549764977497849794980498149824983498449854986498749884989499049914992499349944995499649974998499950005001500250035004500550065007500850095010501150125013501450155016501750185019502050215022502350245025502650275028502950305031503250335034503550365037503850395040504150425043504450455046504750485049505050515052505350545055505650575058505950605061506250635064506550665067506850695070507150725073507450755076507750785079508050815082508350845085508650875088508950905091509250935094509550965097509850995100510151025103510451055106510751085109511051115112511351145115511651175118511951205121512251235124512551265127512851295130513151325133513451355136513751385139514051415142514351445145514651475148514951505151515251535154515551565157515851595160516151625163516451655166516751685169517051715172517351745175517651775178517951805181518251835184518551865187518851895190519151925193519451955196519751985199520052015202520352045205520652075208520952105211521252135214521552165217521852195220522152225223522452255226522752285229523052315232523352345235523652375238523952405241524252435244524552465247524852495250525152525253525452555256525752585259526052615262526352645265526652675268526952705271527252735274527552765277527852795280528152825283528452855286528752885289529052915292529352945295529652975298529953005301530253035304530553065307530853095310531153125313531453155316531753185319532053215322532353245325532653275328532953305331533253335334533553365337533853395340534153425343534453455346534753485349535053515352535353545355535653575358535953605361536253635364536553665367536853695370537153725373537453755376537753785379538053815382538353845385538653875388538953905391539253935394539553965397539853995400540154025403540454055406540754085409541054115412541354145415541654175418541954205421542254235424542554265427542854295430543154325433543454355436543754385439544054415442544354445445544654475448544954505451545254535454545554565457545854595460546154625463546454655466546754685469547054715472547354745475547654775478547954805481548254835484548554865487548854895490549154925493549454955496549754985499550055015502550355045505550655075508550955105511551255135514551555165517551855195520552155225523552455255526552755285529553055315532553355345535553655375538553955405541554255435544554555465547554855495550555155525553555455555556555755585559556055615562556355645565556655675568556955705571557255735574557555765577557855795580558155825583558455855586558755885589559055915592559355945595559655975598559956005601560256035604560556065607560856095610561156125613561456155616561756185619562056215622562356245625562656275628562956305631563256335634563556365637563856395640564156425643564456455646564756485649565056515652565356545655565656575658565956605661566256635664566556665667566856695670567156725673567456755676567756785679568056815682568356845685568656875688568956905691569256935694569556965697569856995700570157025703570457055706570757085709571057115712571357145715571657175718571957205721572257235724572557265727572857295730573157325733573457355736573757385739574057415742574357445745574657475748574957505751575257535754575557565757575857595760576157625763576457655766576757685769577057715772577357745775577657775778577957805781578257835784578557865787578857895790579157925793579457955796579757985799580058015802580358045805580658075808580958105811581258135814581558165817581858195820582158225823582458255826582758285829583058315832583358345835583658375838583958405841584258435844584558465847584858495850585158525853585458555856585758585859586058615862586358645865586658675868586958705871587258735874587558765877587858795880588158825883588458855886588758885889589058915892589358945895589658975898589959005901590259035904590559065907590859095910591159125913591459155916591759185919592059215922592359245925592659275928592959305931593259335934593559365937593859395940594159425943594459455946594759485949595059515952595359545955595659575958595959605961596259635964596559665967596859695970597159725973597459755976597759785979598059815982598359845985598659875988598959905991599259935994599559965997599859996000600160026003600460056006600760086009601060116012601360146015601660176018601960206021602260236024602560266027602860296030603160326033603460356036603760386039604060416042604360446045604660476048604960506051605260536054605560566057605860596060606160626063606460656066606760686069607060716072607360746075607660776078607960806081608260836084608560866087608860896090609160926093609460956096609760986099610061016102610361046105610661076108610961106111611261136114611561166117611861196120612161226123612461256126612761286129613061316132613361346135613661376138613961406141614261436144614561466147614861496150615161526153615461556156615761586159616061616162616361646165616661676168616961706171617261736174617561766177617861796180618161826183618461856186618761886189619061916192619361946195619661976198619962006201620262036204620562066207620862096210621162126213621462156216621762186219622062216222622362246225622662276228622962306231623262336234623562366237623862396240624162426243624462456246624762486249625062516252625362546255625662576258625962606261626262636264626562666267626862696270627162726273627462756276627762786279628062816282628362846285628662876288628962906291629262936294629562966297629862996300630163026303630463056306630763086309631063116312631363146315631663176318631963206321632263236324632563266327632863296330633163326333633463356336633763386339634063416342634363446345634663476348634963506351635263536354635563566357635863596360636163626363636463656366636763686369637063716372637363746375637663776378637963806381638263836384638563866387638863896390639163926393639463956396639763986399640064016402640364046405640664076408640964106411641264136414641564166417641864196420642164226423642464256426642764286429643064316432643364346435643664376438643964406441644264436444644564466447644864496450645164526453645464556456645764586459646064616462646364646465646664676468646964706471647264736474647564766477647864796480648164826483648464856486648764886489649064916492649364946495649664976498649965006501650265036504650565066507650865096510651165126513651465156516651765186519652065216522652365246525652665276528652965306531653265336534653565366537653865396540654165426543654465456546654765486549655065516552655365546555655665576558655965606561656265636564656565666567656865696570657165726573657465756576657765786579658065816582658365846585658665876588658965906591659265936594659565966597659865996600660166026603660466056606660766086609661066116612661366146615661666176618661966206621662266236624662566266627662866296630663166326633663466356636663766386639664066416642664366446645664666476648664966506651665266536654665566566657665866596660666166626663666466656666666766686669667066716672667366746675667666776678667966806681668266836684668566866687668866896690669166926693669466956696669766986699670067016702670367046705670667076708670967106711671267136714671567166717671867196720672167226723672467256726672767286729673067316732673367346735673667376738673967406741674267436744674567466747674867496750675167526753675467556756675767586759676067616762676367646765676667676768676967706771677267736774677567766777677867796780678167826783678467856786678767886789679067916792679367946795679667976798679968006801680268036804680568066807680868096810681168126813681468156816681768186819682068216822682368246825682668276828682968306831683268336834683568366837683868396840684168426843684468456846684768486849685068516852685368546855685668576858685968606861686268636864686568666867686868696870687168726873687468756876687768786879688068816882688368846885688668876888688968906891689268936894689568966897689868996900690169026903690469056906690769086909691069116912691369146915691669176918691969206921692269236924692569266927692869296930693169326933693469356936693769386939694069416942694369446945694669476948694969506951695269536954695569566957695869596960696169626963696469656966696769686969697069716972697369746975697669776978697969806981698269836984698569866987698869896990699169926993699469956996699769986999700070017002700370047005700670077008700970107011701270137014701570167017701870197020702170227023702470257026702770287029703070317032703370347035703670377038703970407041704270437044704570467047704870497050705170527053705470557056705770587059706070617062706370647065706670677068706970707071707270737074707570767077707870797080708170827083708470857086708770887089709070917092709370947095709670977098709971007101710271037104710571067107710871097110711171127113711471157116711771187119712071217122712371247125712671277128712971307131713271337134713571367137713871397140714171427143714471457146714771487149715071517152715371547155715671577158715971607161716271637164716571667167716871697170717171727173717471757176717771787179718071817182718371847185718671877188718971907191719271937194719571967197719871997200720172027203720472057206720772087209721072117212721372147215721672177218721972207221722272237224722572267227722872297230723172327233723472357236723772387239724072417242724372447245724672477248724972507251725272537254725572567257725872597260726172627263726472657266726772687269727072717272727372747275727672777278727972807281728272837284728572867287728872897290729172927293729472957296729772987299730073017302730373047305730673077308730973107311731273137314731573167317731873197320732173227323732473257326732773287329733073317332733373347335733673377338733973407341734273437344734573467347734873497350735173527353735473557356735773587359736073617362736373647365736673677368736973707371737273737374737573767377737873797380738173827383738473857386738773887389739073917392739373947395739673977398739974007401740274037404740574067407740874097410741174127413741474157416741774187419742074217422742374247425742674277428742974307431743274337434743574367437743874397440744174427443744474457446744774487449745074517452745374547455745674577458745974607461746274637464746574667467746874697470747174727473747474757476747774787479748074817482748374847485748674877488748974907491749274937494749574967497749874997500750175027503750475057506750775087509751075117512751375147515751675177518751975207521752275237524752575267527752875297530753175327533753475357536753775387539754075417542754375447545754675477548754975507551755275537554755575567557755875597560756175627563756475657566756775687569757075717572757375747575757675777578757975807581758275837584758575867587758875897590759175927593759475957596759775987599760076017602760376047605760676077608760976107611761276137614761576167617761876197620762176227623762476257626762776287629763076317632763376347635763676377638763976407641764276437644764576467647764876497650765176527653765476557656765776587659766076617662766376647665766676677668766976707671767276737674767576767677767876797680768176827683768476857686768776887689769076917692769376947695769676977698769977007701770277037704770577067707770877097710771177127713771477157716771777187719772077217722772377247725772677277728772977307731773277337734773577367737773877397740774177427743774477457746774777487749775077517752775377547755775677577758775977607761776277637764776577667767776877697770777177727773777477757776777777787779778077817782778377847785778677877788778977907791779277937794779577967797779877997800780178027803780478057806780778087809781078117812781378147815781678177818781978207821782278237824782578267827782878297830783178327833783478357836783778387839784078417842784378447845784678477848784978507851785278537854785578567857785878597860786178627863786478657866786778687869787078717872787378747875787678777878787978807881788278837884788578867887788878897890789178927893789478957896789778987899790079017902790379047905790679077908790979107911791279137914791579167917791879197920792179227923792479257926792779287929793079317932793379347935793679377938793979407941794279437944794579467947794879497950795179527953795479557956795779587959796079617962796379647965796679677968796979707971797279737974797579767977797879797980798179827983798479857986798779887989799079917992799379947995799679977998799980008001800280038004800580068007800880098010801180128013801480158016801780188019802080218022802380248025802680278028802980308031803280338034803580368037803880398040804180428043804480458046804780488049805080518052805380548055805680578058805980608061806280638064806580668067806880698070807180728073807480758076807780788079808080818082808380848085808680878088808980908091809280938094809580968097809880998100810181028103810481058106810781088109811081118112811381148115811681178118811981208121812281238124812581268127812881298130813181328133813481358136813781388139814081418142814381448145814681478148814981508151815281538154815581568157815881598160816181628163816481658166816781688169817081718172817381748175817681778178817981808181818281838184818581868187818881898190819181928193819481958196819781988199820082018202820382048205820682078208820982108211821282138214821582168217821882198220822182228223822482258226822782288229823082318232823382348235823682378238823982408241824282438244824582468247824882498250825182528253825482558256825782588259826082618262826382648265826682678268826982708271827282738274827582768277827882798280828182828283828482858286828782888289829082918292829382948295829682978298829983008301830283038304830583068307830883098310831183128313831483158316831783188319832083218322832383248325832683278328832983308331833283338334833583368337833883398340834183428343834483458346834783488349835083518352835383548355835683578358835983608361836283638364836583668367836883698370837183728373837483758376837783788379838083818382838383848385838683878388838983908391839283938394839583968397839883998400840184028403840484058406840784088409841084118412841384148415841684178418841984208421842284238424842584268427842884298430843184328433843484358436843784388439844084418442844384448445844684478448844984508451845284538454845584568457845884598460846184628463846484658466846784688469847084718472847384748475847684778478847984808481848284838484848584868487848884898490849184928493849484958496849784988499850085018502850385048505850685078508850985108511851285138514851585168517851885198520852185228523852485258526852785288529853085318532853385348535853685378538853985408541854285438544854585468547854885498550855185528553855485558556855785588559856085618562856385648565856685678568856985708571857285738574857585768577857885798580858185828583858485858586858785888589859085918592859385948595859685978598859986008601860286038604860586068607860886098610861186128613861486158616861786188619862086218622862386248625862686278628862986308631863286338634863586368637863886398640864186428643864486458646864786488649865086518652865386548655865686578658865986608661866286638664866586668667866886698670867186728673867486758676867786788679868086818682868386848685868686878688868986908691869286938694869586968697869886998700870187028703870487058706870787088709871087118712871387148715871687178718871987208721872287238724872587268727872887298730873187328733873487358736873787388739874087418742874387448745874687478748874987508751875287538754875587568757875887598760876187628763876487658766876787688769877087718772877387748775877687778778877987808781878287838784878587868787878887898790879187928793879487958796879787988799880088018802880388048805880688078808880988108811881288138814881588168817881888198820882188228823882488258826882788288829883088318832883388348835883688378838883988408841884288438844884588468847884888498850885188528853885488558856885788588859886088618862886388648865886688678868886988708871887288738874887588768877887888798880888188828883888488858886888788888889889088918892889388948895889688978898889989008901890289038904890589068907890889098910891189128913891489158916891789188919892089218922892389248925892689278928892989308931893289338934893589368937893889398940894189428943894489458946894789488949895089518952895389548955895689578958895989608961896289638964896589668967896889698970897189728973897489758976897789788979898089818982898389848985898689878988898989908991899289938994899589968997899889999000900190029003900490059006900790089009901090119012901390149015901690179018901990209021902290239024902590269027902890299030903190329033903490359036903790389039904090419042904390449045904690479048904990509051905290539054905590569057905890599060906190629063906490659066906790689069907090719072907390749075907690779078907990809081908290839084908590869087908890899090909190929093909490959096909790989099910091019102910391049105910691079108910991109111911291139114911591169117911891199120912191229123912491259126912791289129913091319132913391349135913691379138913991409141914291439144914591469147914891499150915191529153915491559156915791589159916091619162916391649165916691679168916991709171917291739174917591769177917891799180918191829183918491859186918791889189919091919192919391949195919691979198919992009201920292039204920592069207920892099210921192129213921492159216921792189219922092219222922392249225922692279228922992309231923292339234923592369237923892399240924192429243924492459246924792489249925092519252925392549255925692579258925992609261926292639264926592669267926892699270927192729273927492759276927792789279928092819282928392849285928692879288928992909291929292939294929592969297929892999300930193029303930493059306930793089309931093119312931393149315931693179318931993209321932293239324932593269327932893299330933193329333933493359336933793389339934093419342934393449345934693479348934993509351935293539354935593569357935893599360936193629363936493659366936793689369937093719372937393749375937693779378937993809381938293839384938593869387938893899390939193929393939493959396939793989399940094019402940394049405940694079408940994109411941294139414941594169417941894199420942194229423942494259426942794289429943094319432943394349435943694379438943994409441944294439444944594469447944894499450945194529453945494559456945794589459946094619462946394649465946694679468946994709471947294739474947594769477947894799480948194829483948494859486948794889489949094919492949394949495949694979498949995009501950295039504950595069507950895099510951195129513951495159516951795189519952095219522952395249525952695279528952995309531953295339534953595369537953895399540954195429543954495459546954795489549955095519552955395549555955695579558955995609561956295639564956595669567956895699570957195729573957495759576957795789579958095819582958395849585958695879588958995909591959295939594959595969597959895999600960196029603960496059606960796089609961096119612961396149615961696179618961996209621962296239624962596269627962896299630963196329633963496359636963796389639964096419642964396449645964696479648964996509651965296539654965596569657965896599660966196629663966496659666966796689669967096719672967396749675967696779678967996809681968296839684968596869687968896899690969196929693969496959696969796989699970097019702970397049705970697079708970997109711971297139714971597169717971897199720972197229723972497259726972797289729973097319732973397349735973697379738973997409741974297439744974597469747974897499750975197529753975497559756975797589759976097619762976397649765976697679768976997709771977297739774977597769777977897799780978197829783978497859786978797889789979097919792979397949795979697979798979998009801980298039804980598069807980898099810981198129813981498159816981798189819982098219822982398249825982698279828982998309831983298339834983598369837983898399840984198429843984498459846984798489849985098519852985398549855985698579858985998609861986298639864986598669867986898699870987198729873987498759876987798789879988098819882988398849885988698879888988998909891989298939894989598969897989898999900990199029903990499059906990799089909991099119912991399149915991699179918991999209921992299239924992599269927992899299930993199329933993499359936993799389939994099419942994399449945994699479948994999509951995299539954995599569957995899599960996199629963996499659966996799689969997099719972997399749975997699779978997999809981998299839984998599869987998899899990999199929993999499959996999799989999100001000110002100031000410005100061000710008100091001010011100121001310014100151001610017100181001910020100211002210023100241002510026100271002810029100301003110032100331003410035100361003710038100391004010041100421004310044100451004610047100481004910050100511005210053100541005510056100571005810059100601006110062100631006410065100661006710068100691007010071100721007310074100751007610077100781007910080100811008210083100841008510086100871008810089100901009110092100931009410095100961009710098100991010010101101021010310104101051010610107101081010910110101111011210113101141011510116101171011810119101201012110122101231012410125101261012710128101291013010131101321013310134101351013610137101381013910140101411014210143101441014510146101471014810149101501015110152101531015410155101561015710158101591016010161101621016310164101651016610167101681016910170101711017210173101741017510176101771017810179101801018110182101831018410185101861018710188101891019010191101921019310194101951019610197101981019910200102011020210203102041020510206102071020810209102101021110212102131021410215102161021710218102191022010221102221022310224102251022610227102281022910230102311023210233102341023510236102371023810239102401024110242102431024410245102461024710248102491025010251102521025310254102551025610257102581025910260102611026210263102641026510266102671026810269102701027110272102731027410275102761027710278102791028010281102821028310284102851028610287102881028910290102911029210293102941029510296102971029810299103001030110302103031030410305103061030710308103091031010311103121031310314103151031610317103181031910320103211032210323103241032510326103271032810329103301033110332103331033410335103361033710338103391034010341103421034310344103451034610347103481034910350103511035210353103541035510356103571035810359103601036110362103631036410365103661036710368103691037010371103721037310374103751037610377103781037910380103811038210383103841038510386103871038810389103901039110392103931039410395103961039710398103991040010401104021040310404104051040610407104081040910410104111041210413104141041510416104171041810419104201042110422104231042410425104261042710428104291043010431104321043310434104351043610437104381043910440104411044210443104441044510446104471044810449104501045110452104531045410455104561045710458104591046010461104621046310464104651046610467104681046910470104711047210473104741047510476104771047810479104801048110482104831048410485104861048710488104891049010491104921049310494104951049610497104981049910500105011050210503105041050510506105071050810509105101051110512105131051410515105161051710518105191052010521105221052310524105251052610527105281052910530105311053210533105341053510536105371053810539105401054110542105431054410545105461054710548105491055010551105521055310554105551055610557105581055910560105611056210563105641056510566105671056810569105701057110572105731057410575105761057710578105791058010581105821058310584105851058610587105881058910590105911059210593105941059510596105971059810599106001060110602106031060410605106061060710608106091061010611106121061310614106151061610617106181061910620106211062210623106241062510626106271062810629106301063110632106331063410635106361063710638106391064010641106421064310644106451064610647106481064910650106511065210653106541065510656106571065810659106601066110662106631066410665106661066710668106691067010671106721067310674106751067610677106781067910680106811068210683106841068510686106871068810689106901069110692106931069410695106961069710698106991070010701107021070310704107051070610707107081070910710107111071210713107141071510716107171071810719107201072110722107231072410725107261072710728107291073010731107321073310734107351073610737107381073910740107411074210743107441074510746107471074810749107501075110752107531075410755107561075710758107591076010761107621076310764107651076610767107681076910770107711077210773107741077510776107771077810779107801078110782107831078410785107861078710788107891079010791107921079310794107951079610797107981079910800108011080210803108041080510806108071080810809108101081110812108131081410815108161081710818108191082010821108221082310824108251082610827108281082910830108311083210833108341083510836108371083810839108401084110842108431084410845108461084710848108491085010851108521085310854108551085610857108581085910860108611086210863108641086510866108671086810869108701087110872108731087410875108761087710878108791088010881108821088310884108851088610887108881088910890108911089210893108941089510896108971089810899109001090110902109031090410905109061090710908109091091010911109121091310914109151091610917109181091910920109211092210923109241092510926109271092810929109301093110932109331093410935109361093710938109391094010941109421094310944109451094610947109481094910950109511095210953109541095510956109571095810959109601096110962109631096410965109661096710968109691097010971109721097310974109751097610977109781097910980109811098210983109841098510986109871098810989109901099110992109931099410995109961099710998109991100011001110021100311004110051100611007110081100911010110111101211013110141101511016110171101811019110201102111022110231102411025110261102711028110291103011031110321103311034110351103611037110381103911040110411104211043110441104511046110471104811049110501105111052110531105411055110561105711058110591106011061110621106311064110651106611067110681106911070110711107211073110741107511076110771107811079110801108111082110831108411085110861108711088110891109011091110921109311094110951109611097110981109911100111011110211103111041110511106111071110811109111101111111112111131111411115111161111711118111191112011121111221112311124111251112611127111281112911130111311113211133111341113511136111371113811139111401114111142111431114411145111461114711148111491115011151111521115311154111551115611157111581115911160111611116211163111641116511166111671116811169111701117111172111731117411175111761117711178111791118011181111821118311184111851118611187111881118911190111911119211193111941119511196111971119811199112001120111202112031120411205112061120711208112091121011211112121121311214112151121611217112181121911220112211122211223112241122511226112271122811229112301123111232112331123411235112361123711238112391124011241112421124311244112451124611247112481124911250112511125211253112541125511256112571125811259112601126111262112631126411265112661126711268112691127011271112721127311274112751127611277112781127911280112811128211283112841128511286112871128811289112901129111292112931129411295112961129711298112991130011301113021130311304113051130611307113081130911310113111131211313113141131511316113171131811319113201132111322113231132411325113261132711328113291133011331113321133311334113351133611337113381133911340113411134211343113441134511346113471134811349113501135111352113531135411355113561135711358113591136011361113621136311364113651136611367113681136911370113711137211373113741137511376113771137811379113801138111382113831138411385113861138711388113891139011391113921139311394113951139611397113981139911400114011140211403114041140511406114071140811409114101141111412114131141411415114161141711418114191142011421114221142311424114251142611427114281142911430114311143211433114341143511436114371143811439114401144111442114431144411445114461144711448114491145011451114521145311454114551145611457114581145911460114611146211463114641146511466114671146811469114701147111472114731147411475114761147711478114791148011481114821148311484114851148611487114881148911490114911149211493114941149511496114971149811499115001150111502115031150411505115061150711508115091151011511115121151311514115151151611517115181151911520115211152211523115241152511526115271152811529115301153111532115331153411535115361153711538115391154011541115421154311544115451154611547115481154911550115511155211553115541155511556115571155811559115601156111562115631156411565115661156711568115691157011571115721157311574115751157611577115781157911580115811158211583115841158511586115871158811589115901159111592115931159411595115961159711598115991160011601116021160311604116051160611607116081160911610116111161211613116141161511616116171161811619116201162111622116231162411625116261162711628116291163011631116321163311634116351163611637116381163911640116411164211643116441164511646116471164811649116501165111652116531165411655116561165711658116591166011661116621166311664116651166611667116681166911670116711167211673116741167511676116771167811679116801168111682116831168411685116861168711688116891169011691116921169311694116951169611697116981169911700117011170211703117041170511706117071170811709117101171111712117131171411715117161171711718117191172011721117221172311724117251172611727117281172911730117311173211733117341173511736117371173811739117401174111742117431174411745117461174711748117491175011751117521175311754117551175611757117581175911760117611176211763117641176511766117671176811769117701177111772117731177411775117761177711778117791178011781117821178311784117851178611787117881178911790117911179211793117941179511796117971179811799118001180111802118031180411805118061180711808118091181011811118121181311814118151181611817118181181911820118211182211823118241182511826118271182811829118301183111832118331183411835118361183711838118391184011841118421184311844118451184611847118481184911850118511185211853118541185511856118571185811859118601186111862118631186411865118661186711868118691187011871118721187311874118751187611877118781187911880118811188211883118841188511886118871188811889118901189111892118931189411895118961189711898118991190011901119021190311904119051190611907119081190911910119111191211913119141191511916119171191811919119201192111922119231192411925119261192711928119291193011931119321193311934119351193611937119381193911940119411194211943119441194511946119471194811949119501195111952119531195411955119561195711958119591196011961119621196311964119651196611967119681196911970119711197211973119741197511976119771197811979119801198111982119831198411985119861198711988119891199011991119921199311994119951199611997119981199912000120011200212003120041200512006120071200812009120101201112012120131201412015120161201712018120191202012021120221202312024120251202612027120281202912030120311203212033120341203512036120371203812039120401204112042120431204412045120461204712048120491205012051120521205312054120551205612057120581205912060120611206212063120641206512066120671206812069120701207112072120731207412075120761207712078120791208012081120821208312084120851208612087120881208912090120911209212093120941209512096120971209812099121001210112102121031210412105121061210712108121091211012111121121211312114121151211612117121181211912120121211212212123121241212512126121271212812129121301213112132121331213412135121361213712138121391214012141121421214312144121451214612147121481214912150121511215212153121541215512156121571215812159121601216112162121631216412165121661216712168121691217012171121721217312174121751217612177121781217912180121811218212183121841218512186121871218812189121901219112192121931219412195121961219712198121991220012201122021220312204122051220612207122081220912210122111221212213122141221512216122171221812219122201222112222122231222412225122261222712228122291223012231122321223312234122351223612237122381223912240122411224212243122441224512246122471224812249122501225112252122531225412255122561225712258122591226012261122621226312264122651226612267122681226912270122711227212273122741227512276122771227812279122801228112282122831228412285122861228712288122891229012291122921229312294122951229612297122981229912300123011230212303123041230512306123071230812309123101231112312123131231412315123161231712318123191232012321123221232312324123251232612327123281232912330123311233212333123341233512336123371233812339123401234112342123431234412345123461234712348123491235012351123521235312354123551235612357123581235912360123611236212363123641236512366123671236812369123701237112372123731237412375123761237712378123791238012381123821238312384123851238612387123881238912390123911239212393123941239512396123971239812399124001240112402124031240412405124061240712408124091241012411124121241312414124151241612417124181241912420124211242212423124241242512426124271242812429124301243112432124331243412435124361243712438124391244012441124421244312444124451244612447124481244912450124511245212453124541245512456124571245812459124601246112462124631246412465124661246712468124691247012471124721247312474124751247612477124781247912480124811248212483124841248512486124871248812489124901249112492124931249412495124961249712498124991250012501125021250312504125051250612507125081250912510125111251212513125141251512516125171251812519125201252112522125231252412525125261252712528125291253012531125321253312534125351253612537125381253912540125411254212543125441254512546125471254812549125501255112552125531255412555125561255712558125591256012561125621256312564125651256612567125681256912570125711257212573125741257512576125771257812579125801258112582125831258412585125861258712588125891259012591125921259312594125951259612597125981259912600126011260212603126041260512606126071260812609126101261112612126131261412615126161261712618126191262012621126221262312624126251262612627126281262912630126311263212633126341263512636126371263812639126401264112642126431264412645126461264712648126491265012651126521265312654126551265612657126581265912660126611266212663126641266512666126671266812669126701267112672126731267412675126761267712678126791268012681126821268312684126851268612687126881268912690126911269212693126941269512696126971269812699127001270112702127031270412705127061270712708127091271012711127121271312714127151271612717127181271912720127211272212723127241272512726127271272812729127301273112732127331273412735127361273712738127391274012741127421274312744127451274612747127481274912750127511275212753127541275512756127571275812759127601276112762127631276412765127661276712768127691277012771127721277312774127751277612777127781277912780127811278212783127841278512786127871278812789127901279112792127931279412795127961279712798127991280012801128021280312804128051280612807128081280912810128111281212813128141281512816128171281812819128201282112822128231282412825128261282712828128291283012831128321283312834128351283612837128381283912840128411284212843128441284512846128471284812849128501285112852128531285412855128561285712858128591286012861128621286312864128651286612867128681286912870128711287212873128741287512876128771287812879128801288112882128831288412885128861288712888128891289012891128921289312894128951289612897128981289912900129011290212903129041290512906129071290812909129101291112912129131291412915129161291712918129191292012921129221292312924129251292612927129281292912930129311293212933129341293512936129371293812939129401294112942129431294412945129461294712948129491295012951129521295312954129551295612957129581295912960129611296212963129641296512966129671296812969129701297112972129731297412975129761297712978129791298012981129821298312984129851298612987129881298912990129911299212993129941299512996129971299812999130001300113002130031300413005130061300713008130091301013011130121301313014130151301613017130181301913020130211302213023130241302513026130271302813029130301303113032130331303413035130361303713038130391304013041130421304313044130451304613047130481304913050130511305213053130541305513056130571305813059130601306113062130631306413065130661306713068130691307013071130721307313074130751307613077130781307913080130811308213083130841308513086130871308813089130901309113092130931309413095130961309713098130991310013101131021310313104131051310613107131081310913110131111311213113131141311513116131171311813119131201312113122131231312413125131261312713128131291313013131131321313313134131351313613137131381313913140131411314213143131441314513146131471314813149131501315113152131531315413155131561315713158131591316013161131621316313164131651316613167131681316913170131711317213173131741317513176131771317813179131801318113182131831318413185131861318713188131891319013191131921319313194131951319613197131981319913200132011320213203132041320513206132071320813209132101321113212132131321413215132161321713218132191322013221132221322313224132251322613227132281322913230132311323213233132341323513236132371323813239132401324113242132431324413245132461324713248132491325013251132521325313254132551325613257132581325913260132611326213263132641326513266132671326813269132701327113272132731327413275132761327713278132791328013281132821328313284132851328613287132881328913290132911329213293132941329513296132971329813299133001330113302133031330413305133061330713308133091331013311133121331313314133151331613317133181331913320133211332213323133241332513326133271332813329133301333113332133331333413335133361333713338133391334013341133421334313344133451334613347133481334913350133511335213353133541335513356133571335813359133601336113362133631336413365133661336713368133691337013371133721337313374133751337613377133781337913380133811338213383133841338513386133871338813389133901339113392133931339413395133961339713398133991340013401134021340313404134051340613407134081340913410134111341213413134141341513416134171341813419134201342113422134231342413425134261342713428134291343013431134321343313434134351343613437134381343913440134411344213443134441344513446134471344813449134501345113452134531345413455134561345713458134591346013461134621346313464134651346613467134681346913470134711347213473134741347513476134771347813479134801348113482134831348413485134861348713488134891349013491134921349313494134951349613497134981349913500135011350213503135041350513506135071350813509135101351113512135131351413515135161351713518135191352013521135221352313524135251352613527135281352913530135311353213533135341353513536135371353813539135401354113542135431354413545135461354713548135491355013551135521355313554135551355613557135581355913560135611356213563135641356513566135671356813569135701357113572135731357413575135761357713578135791358013581135821358313584135851358613587135881358913590135911359213593135941359513596135971359813599136001360113602136031360413605136061360713608136091361013611136121361313614136151361613617136181361913620136211362213623136241362513626136271362813629136301363113632136331363413635136361363713638136391364013641136421364313644136451364613647136481364913650136511365213653136541365513656136571365813659136601366113662136631366413665136661366713668136691367013671136721367313674136751367613677136781367913680136811368213683136841368513686136871368813689136901369113692136931369413695136961369713698136991370013701137021370313704137051370613707137081370913710137111371213713137141371513716137171371813719137201372113722137231372413725137261372713728137291373013731137321373313734137351373613737137381373913740137411374213743137441374513746137471374813749137501375113752137531375413755137561375713758137591376013761137621376313764137651376613767137681376913770137711377213773137741377513776137771377813779137801378113782137831378413785137861378713788137891379013791137921379313794137951379613797137981379913800138011380213803138041380513806138071380813809138101381113812138131381413815138161381713818138191382013821138221382313824138251382613827138281382913830138311383213833138341383513836138371383813839138401384113842138431384413845138461384713848138491385013851138521385313854138551385613857138581385913860138611386213863138641386513866138671386813869138701387113872138731387413875138761387713878138791388013881138821388313884138851388613887138881388913890138911389213893138941389513896138971389813899139001390113902139031390413905139061390713908139091391013911139121391313914139151391613917139181391913920139211392213923139241392513926139271392813929139301393113932139331393413935139361393713938139391394013941139421394313944139451394613947139481394913950139511395213953139541395513956139571395813959139601396113962139631396413965139661396713968139691397013971139721397313974139751397613977139781397913980139811398213983139841398513986139871398813989139901399113992139931399413995139961399713998139991400014001140021400314004140051400614007140081400914010140111401214013140141401514016140171401814019140201402114022140231402414025140261402714028140291403014031140321403314034140351403614037140381403914040140411404214043140441404514046140471404814049140501405114052140531405414055140561405714058140591406014061140621406314064140651406614067140681406914070140711407214073140741407514076140771407814079140801408114082140831408414085140861408714088140891409014091140921409314094140951409614097140981409914100141011410214103141041410514106141071410814109141101411114112141131411414115141161411714118141191412014121141221412314124141251412614127141281412914130141311413214133141341413514136141371413814139141401414114142141431414414145141461414714148141491415014151141521415314154141551415614157141581415914160141611416214163141641416514166141671416814169141701417114172141731417414175141761417714178141791418014181141821418314184141851418614187141881418914190141911419214193141941419514196141971419814199142001420114202142031420414205142061420714208142091421014211142121421314214142151421614217142181421914220142211422214223142241422514226142271422814229142301423114232142331423414235142361423714238142391424014241142421424314244142451424614247142481424914250142511425214253142541425514256142571425814259142601426114262142631426414265142661426714268142691427014271142721427314274142751427614277142781427914280142811428214283142841428514286142871428814289142901429114292142931429414295142961429714298142991430014301143021430314304143051430614307143081430914310143111431214313143141431514316143171431814319143201432114322143231432414325143261432714328143291433014331143321433314334143351433614337143381433914340143411434214343143441434514346143471434814349143501435114352143531435414355143561435714358143591436014361143621436314364143651436614367143681436914370143711437214373143741437514376143771437814379143801438114382143831438414385143861438714388143891439014391143921439314394143951439614397143981439914400144011440214403144041440514406144071440814409144101441114412144131441414415144161441714418144191442014421144221442314424144251442614427144281442914430144311443214433144341443514436144371443814439144401444114442144431444414445144461444714448144491445014451144521445314454144551445614457144581445914460144611446214463144641446514466144671446814469144701447114472144731447414475144761447714478144791448014481144821448314484144851448614487144881448914490144911449214493144941449514496144971449814499145001450114502145031450414505145061450714508145091451014511145121451314514145151451614517145181451914520145211452214523145241452514526145271452814529145301453114532145331453414535145361453714538145391454014541145421454314544145451454614547145481454914550145511455214553145541455514556145571455814559145601456114562145631456414565145661456714568145691457014571145721457314574145751457614577145781457914580145811458214583145841458514586145871458814589145901459114592145931459414595145961459714598145991460014601146021460314604146051460614607146081460914610146111461214613146141461514616146171461814619146201462114622146231462414625146261462714628146291463014631146321463314634146351463614637146381463914640146411464214643146441464514646146471464814649146501465114652146531465414655146561465714658146591466014661146621466314664146651466614667146681466914670146711467214673146741467514676146771467814679146801468114682146831468414685146861468714688146891469014691146921469314694146951469614697146981469914700147011470214703147041470514706147071470814709147101471114712147131471414715147161471714718147191472014721147221472314724147251472614727147281472914730147311473214733147341473514736147371473814739147401474114742147431474414745147461474714748147491475014751147521475314754147551475614757147581475914760147611476214763147641476514766147671476814769147701477114772147731477414775147761477714778147791478014781147821478314784147851478614787147881478914790147911479214793147941479514796147971479814799148001480114802148031480414805148061480714808148091481014811148121481314814148151481614817148181481914820148211482214823148241482514826148271482814829148301483114832148331483414835148361483714838148391484014841148421484314844148451484614847148481484914850148511485214853148541485514856148571485814859148601486114862148631486414865148661486714868148691487014871148721487314874148751487614877148781487914880148811488214883148841488514886148871488814889148901489114892148931489414895148961489714898148991490014901149021490314904149051490614907149081490914910149111491214913149141491514916149171491814919149201492114922149231492414925149261492714928149291493014931149321493314934149351493614937149381493914940149411494214943149441494514946149471494814949149501495114952149531495414955149561495714958149591496014961149621496314964149651496614967149681496914970149711497214973149741497514976149771497814979149801498114982149831498414985149861498714988149891499014991149921499314994149951499614997149981499915000150011500215003150041500515006150071500815009150101501115012150131501415015150161501715018150191502015021150221502315024150251502615027150281502915030150311503215033150341503515036150371503815039150401504115042150431504415045150461504715048150491505015051150521505315054150551505615057150581505915060150611506215063150641506515066150671506815069150701507115072150731507415075150761507715078150791508015081150821508315084150851508615087150881508915090150911509215093150941509515096150971509815099151001510115102151031510415105151061510715108151091511015111151121511315114151151511615117151181511915120151211512215123151241512515126151271512815129151301513115132151331513415135151361513715138151391514015141151421514315144151451514615147151481514915150151511515215153151541515515156151571515815159151601516115162151631516415165151661516715168151691517015171151721517315174151751517615177151781517915180151811518215183151841518515186151871518815189151901519115192151931519415195151961519715198151991520015201152021520315204152051520615207152081520915210152111521215213152141521515216152171521815219152201522115222152231522415225152261522715228152291523015231152321523315234152351523615237152381523915240152411524215243152441524515246152471524815249152501525115252152531525415255152561525715258152591526015261152621526315264152651526615267152681526915270152711527215273152741527515276152771527815279152801528115282152831528415285152861528715288152891529015291152921529315294152951529615297152981529915300153011530215303153041530515306153071530815309153101531115312153131531415315153161531715318153191532015321153221532315324153251532615327153281532915330153311533215333153341533515336153371533815339153401534115342153431534415345153461534715348153491535015351153521535315354153551535615357153581535915360153611536215363153641536515366153671536815369153701537115372153731537415375153761537715378153791538015381153821538315384153851538615387153881538915390153911539215393153941539515396153971539815399154001540115402154031540415405154061540715408154091541015411154121541315414154151541615417154181541915420154211542215423154241542515426154271542815429154301543115432154331543415435154361543715438154391544015441154421544315444154451544615447154481544915450154511545215453154541545515456154571545815459154601546115462154631546415465154661546715468154691547015471154721547315474154751547615477154781547915480154811548215483154841548515486154871548815489154901549115492154931549415495154961549715498154991550015501155021550315504155051550615507155081550915510155111551215513155141551515516155171551815519155201552115522155231552415525155261552715528155291553015531155321553315534155351553615537155381553915540155411554215543155441554515546155471554815549155501555115552155531555415555155561555715558155591556015561155621556315564155651556615567155681556915570155711557215573155741557515576155771557815579155801558115582155831558415585155861558715588155891559015591155921559315594155951559615597155981559915600156011560215603156041560515606156071560815609156101561115612156131561415615156161561715618156191562015621156221562315624156251562615627156281562915630156311563215633156341563515636156371563815639156401564115642156431564415645156461564715648156491565015651156521565315654156551565615657156581565915660156611566215663156641566515666156671566815669156701567115672156731567415675156761567715678156791568015681156821568315684156851568615687156881568915690156911569215693156941569515696156971569815699157001570115702157031570415705157061570715708157091571015711157121571315714157151571615717157181571915720157211572215723157241572515726157271572815729157301573115732157331573415735157361573715738157391574015741157421574315744157451574615747157481574915750157511575215753157541575515756157571575815759157601576115762157631576415765157661576715768157691577015771157721577315774157751577615777157781577915780157811578215783157841578515786157871578815789157901579115792157931579415795157961579715798157991580015801158021580315804158051580615807158081580915810158111581215813158141581515816158171581815819158201582115822158231582415825158261582715828158291583015831158321583315834158351583615837158381583915840158411584215843158441584515846158471584815849158501585115852158531585415855158561585715858158591586015861158621586315864158651586615867158681586915870158711587215873158741587515876158771587815879158801588115882158831588415885158861588715888158891589015891158921589315894158951589615897158981589915900159011590215903159041590515906159071590815909159101591115912159131591415915159161591715918159191592015921159221592315924159251592615927159281592915930159311593215933159341593515936159371593815939159401594115942159431594415945159461594715948159491595015951159521595315954159551595615957159581595915960159611596215963159641596515966159671596815969159701597115972159731597415975159761597715978159791598015981159821598315984159851598615987159881598915990159911599215993159941599515996159971599815999160001600116002160031600416005160061600716008160091601016011160121601316014160151601616017160181601916020160211602216023160241602516026160271602816029160301603116032160331603416035160361603716038160391604016041160421604316044160451604616047160481604916050160511605216053160541605516056160571605816059160601606116062160631606416065160661606716068160691607016071160721607316074160751607616077160781607916080160811608216083160841608516086160871608816089160901609116092160931609416095160961609716098160991610016101161021610316104161051610616107161081610916110161111611216113161141611516116161171611816119161201612116122161231612416125161261612716128161291613016131161321613316134161351613616137161381613916140161411614216143161441614516146161471614816149161501615116152161531615416155161561615716158161591616016161161621616316164161651616616167161681616916170161711617216173161741617516176161771617816179161801618116182161831618416185161861618716188161891619016191161921619316194161951619616197161981619916200162011620216203162041620516206162071620816209162101621116212162131621416215162161621716218162191622016221162221622316224162251622616227162281622916230162311623216233162341623516236162371623816239162401624116242162431624416245162461624716248162491625016251162521625316254162551625616257162581625916260162611626216263162641626516266162671626816269162701627116272162731627416275162761627716278162791628016281162821628316284162851628616287162881628916290162911629216293162941629516296162971629816299163001630116302163031630416305163061630716308163091631016311163121631316314163151631616317163181631916320163211632216323163241632516326163271632816329163301633116332163331633416335163361633716338163391634016341163421634316344163451634616347163481634916350163511635216353163541635516356163571635816359163601636116362163631636416365163661636716368163691637016371163721637316374163751637616377163781637916380163811638216383163841638516386163871638816389163901639116392163931639416395163961639716398163991640016401164021640316404164051640616407164081640916410164111641216413164141641516416164171641816419164201642116422164231642416425164261642716428164291643016431164321643316434164351643616437164381643916440164411644216443164441644516446164471644816449164501645116452164531645416455164561645716458164591646016461164621646316464164651646616467164681646916470164711647216473164741647516476164771647816479164801648116482164831648416485164861648716488164891649016491164921649316494164951649616497164981649916500165011650216503165041650516506165071650816509165101651116512165131651416515165161651716518165191652016521165221652316524165251652616527165281652916530165311653216533165341653516536165371653816539165401654116542165431654416545165461654716548165491655016551165521655316554165551655616557165581655916560165611656216563165641656516566165671656816569165701657116572165731657416575165761657716578165791658016581165821658316584165851658616587165881658916590165911659216593165941659516596165971659816599166001660116602166031660416605166061660716608166091661016611166121661316614166151661616617166181661916620166211662216623166241662516626166271662816629166301663116632166331663416635166361663716638166391664016641166421664316644166451664616647166481664916650166511665216653166541665516656166571665816659166601666116662166631666416665166661666716668166691667016671166721667316674166751667616677166781667916680166811668216683166841668516686166871668816689166901669116692166931669416695166961669716698166991670016701167021670316704167051670616707167081670916710167111671216713167141671516716167171671816719167201672116722167231672416725167261672716728167291673016731167321673316734167351673616737167381673916740167411674216743167441674516746167471674816749167501675116752167531675416755167561675716758167591676016761167621676316764167651676616767167681676916770167711677216773167741677516776167771677816779167801678116782167831678416785167861678716788167891679016791167921679316794167951679616797167981679916800168011680216803168041680516806168071680816809168101681116812168131681416815168161681716818168191682016821168221682316824168251682616827168281682916830168311683216833168341683516836168371683816839168401684116842168431684416845168461684716848168491685016851168521685316854168551685616857168581685916860168611686216863168641686516866168671686816869168701687116872168731687416875168761687716878168791688016881168821688316884168851688616887168881688916890168911689216893168941689516896168971689816899169001690116902169031690416905169061690716908169091691016911169121691316914169151691616917169181691916920169211692216923169241692516926169271692816929169301693116932169331693416935169361693716938169391694016941169421694316944169451694616947169481694916950169511695216953169541695516956169571695816959169601696116962169631696416965169661696716968169691697016971169721697316974169751697616977169781697916980169811698216983169841698516986169871698816989169901699116992169931699416995169961699716998169991700017001170021700317004170051700617007170081700917010170111701217013170141701517016170171701817019170201702117022170231702417025170261702717028170291703017031170321703317034170351703617037170381703917040170411704217043170441704517046170471704817049170501705117052170531705417055170561705717058170591706017061170621706317064170651706617067170681706917070170711707217073170741707517076170771707817079170801708117082170831708417085170861708717088170891709017091170921709317094170951709617097170981709917100171011710217103171041710517106171071710817109171101711117112171131711417115171161711717118171191712017121171221712317124171251712617127171281712917130171311713217133171341713517136171371713817139171401714117142171431714417145171461714717148171491715017151171521715317154171551715617157171581715917160171611716217163171641716517166171671716817169171701717117172171731717417175171761717717178171791718017181171821718317184171851718617187171881718917190171911719217193171941719517196171971719817199172001720117202172031720417205172061720717208172091721017211172121721317214172151721617217172181721917220172211722217223172241722517226172271722817229172301723117232172331723417235172361723717238172391724017241172421724317244172451724617247172481724917250172511725217253172541725517256172571725817259172601726117262172631726417265172661726717268172691727017271172721727317274172751727617277172781727917280172811728217283172841728517286172871728817289172901729117292172931729417295172961729717298172991730017301173021730317304173051730617307173081730917310173111731217313173141731517316173171731817319173201732117322173231732417325173261732717328173291733017331173321733317334173351733617337173381733917340173411734217343173441734517346173471734817349173501735117352173531735417355173561735717358173591736017361173621736317364173651736617367173681736917370173711737217373173741737517376173771737817379173801738117382173831738417385173861738717388173891739017391173921739317394173951739617397173981739917400174011740217403174041740517406174071740817409174101741117412174131741417415174161741717418174191742017421174221742317424174251742617427174281742917430174311743217433174341743517436174371743817439174401744117442174431744417445174461744717448174491745017451174521745317454174551745617457174581745917460174611746217463174641746517466174671746817469174701747117472174731747417475174761747717478174791748017481174821748317484174851748617487174881748917490174911749217493174941749517496174971749817499175001750117502175031750417505175061750717508175091751017511175121751317514175151751617517175181751917520175211752217523175241752517526175271752817529175301753117532175331753417535175361753717538175391754017541175421754317544175451754617547175481754917550175511755217553175541755517556175571755817559175601756117562175631756417565175661756717568175691757017571175721757317574175751757617577175781757917580175811758217583175841758517586175871758817589175901759117592175931759417595175961759717598175991760017601176021760317604176051760617607176081760917610176111761217613176141761517616176171761817619176201762117622176231762417625176261762717628176291763017631176321763317634176351763617637176381763917640176411764217643176441764517646176471764817649176501765117652176531765417655176561765717658176591766017661176621766317664176651766617667176681766917670176711767217673176741767517676176771767817679176801768117682176831768417685176861768717688176891769017691176921769317694176951769617697176981769917700177011770217703177041770517706177071770817709177101771117712177131771417715177161771717718177191772017721177221772317724177251772617727177281772917730177311773217733177341773517736177371773817739177401774117742177431774417745177461774717748177491775017751177521775317754177551775617757177581775917760177611776217763177641776517766177671776817769177701777117772177731777417775177761777717778177791778017781177821778317784177851778617787177881778917790177911779217793177941779517796177971779817799178001780117802178031780417805178061780717808178091781017811178121781317814178151781617817178181781917820178211782217823178241782517826178271782817829178301783117832178331783417835178361783717838178391784017841178421784317844178451784617847178481784917850178511785217853178541785517856178571785817859178601786117862178631786417865178661786717868178691787017871178721787317874178751787617877178781787917880178811788217883178841788517886178871788817889178901789117892178931789417895178961789717898178991790017901179021790317904179051790617907179081790917910179111791217913179141791517916179171791817919179201792117922179231792417925179261792717928179291793017931179321793317934179351793617937179381793917940179411794217943179441794517946179471794817949179501795117952179531795417955179561795717958179591796017961179621796317964179651796617967179681796917970179711797217973179741797517976179771797817979179801798117982179831798417985179861798717988179891799017991179921799317994179951799617997179981799918000180011800218003180041800518006180071800818009180101801118012180131801418015180161801718018180191802018021180221802318024180251802618027180281802918030180311803218033180341803518036180371803818039180401804118042180431804418045180461804718048180491805018051180521805318054180551805618057180581805918060180611806218063180641806518066180671806818069180701807118072180731807418075180761807718078180791808018081180821808318084180851808618087180881808918090180911809218093180941809518096180971809818099181001810118102181031810418105181061810718108181091811018111181121811318114181151811618117181181811918120181211812218123181241812518126181271812818129181301813118132181331813418135181361813718138181391814018141181421814318144181451814618147181481814918150181511815218153181541815518156181571815818159181601816118162181631816418165181661816718168181691817018171181721817318174181751817618177181781817918180181811818218183181841818518186181871818818189181901819118192181931819418195181961819718198181991820018201182021820318204182051820618207182081820918210182111821218213182141821518216182171821818219182201822118222182231822418225182261822718228182291823018231182321823318234182351823618237182381823918240182411824218243182441824518246182471824818249182501825118252182531825418255182561825718258182591826018261182621826318264182651826618267182681826918270182711827218273182741827518276182771827818279182801828118282182831828418285182861828718288182891829018291182921829318294182951829618297182981829918300183011830218303183041830518306183071830818309183101831118312183131831418315183161831718318183191832018321183221832318324183251832618327183281832918330183311833218333183341833518336183371833818339183401834118342183431834418345183461834718348183491835018351183521835318354183551835618357183581835918360183611836218363183641836518366183671836818369183701837118372183731837418375183761837718378183791838018381183821838318384183851838618387183881838918390183911839218393183941839518396183971839818399184001840118402184031840418405184061840718408184091841018411184121841318414184151841618417184181841918420184211842218423184241842518426184271842818429184301843118432184331843418435184361843718438184391844018441184421844318444184451844618447184481844918450184511845218453184541845518456184571845818459184601846118462184631846418465184661846718468184691847018471184721847318474184751847618477184781847918480184811848218483184841848518486184871848818489184901849118492184931849418495184961849718498184991850018501185021850318504185051850618507185081850918510185111851218513185141851518516185171851818519185201852118522185231852418525185261852718528185291853018531185321853318534185351853618537185381853918540185411854218543185441854518546185471854818549185501855118552185531855418555185561855718558185591856018561185621856318564185651856618567185681856918570185711857218573185741857518576185771857818579185801858118582185831858418585185861858718588185891859018591185921859318594185951859618597185981859918600186011860218603186041860518606186071860818609186101861118612186131861418615186161861718618186191862018621186221862318624186251862618627186281862918630186311863218633186341863518636186371863818639186401864118642186431864418645186461864718648186491865018651186521865318654186551865618657186581865918660186611866218663186641866518666186671866818669186701867118672186731867418675186761867718678186791868018681186821868318684186851868618687186881868918690186911869218693186941869518696186971869818699187001870118702187031870418705187061870718708187091871018711187121871318714187151871618717187181871918720187211872218723187241872518726187271872818729187301873118732187331873418735187361873718738187391874018741187421874318744187451874618747187481874918750187511875218753187541875518756187571875818759187601876118762187631876418765187661876718768187691877018771187721877318774187751877618777187781877918780187811878218783187841878518786187871878818789187901879118792187931879418795187961879718798187991880018801188021880318804188051880618807188081880918810188111881218813188141881518816188171881818819188201882118822188231882418825188261882718828188291883018831188321883318834188351883618837188381883918840188411884218843188441884518846188471884818849188501885118852188531885418855188561885718858188591886018861188621886318864188651886618867188681886918870188711887218873188741887518876188771887818879188801888118882188831888418885188861888718888188891889018891188921889318894188951889618897188981889918900189011890218903189041890518906189071890818909189101891118912189131891418915189161891718918189191892018921189221892318924189251892618927189281892918930189311893218933189341893518936189371893818939189401894118942189431894418945189461894718948189491895018951189521895318954189551895618957189581895918960189611896218963189641896518966189671896818969189701897118972189731897418975189761897718978189791898018981189821898318984189851898618987189881898918990189911899218993189941899518996189971899818999190001900119002190031900419005190061900719008190091901019011190121901319014190151901619017190181901919020190211902219023190241902519026190271902819029190301903119032190331903419035190361903719038190391904019041190421904319044190451904619047190481904919050190511905219053190541905519056190571905819059190601906119062190631906419065190661906719068190691907019071190721907319074190751907619077190781907919080190811908219083190841908519086190871908819089190901909119092190931909419095190961909719098190991910019101191021910319104191051910619107191081910919110191111911219113191141911519116191171911819119191201912119122191231912419125191261912719128191291913019131191321913319134191351913619137191381913919140191411914219143191441914519146191471914819149191501915119152191531915419155191561915719158191591916019161191621916319164191651916619167191681916919170191711917219173191741917519176191771917819179191801918119182191831918419185191861918719188191891919019191191921919319194191951919619197191981919919200192011920219203192041920519206192071920819209192101921119212192131921419215192161921719218192191922019221192221922319224192251922619227192281922919230192311923219233192341923519236192371923819239192401924119242192431924419245192461924719248192491925019251192521925319254192551925619257192581925919260192611926219263192641926519266192671926819269192701927119272192731927419275192761927719278192791928019281192821928319284192851928619287192881928919290192911929219293192941929519296192971929819299193001930119302193031930419305193061930719308193091931019311193121931319314193151931619317193181931919320193211932219323193241932519326193271932819329193301933119332193331933419335193361933719338193391934019341193421934319344193451934619347193481934919350193511935219353193541935519356193571935819359193601936119362193631936419365193661936719368193691937019371193721937319374193751937619377193781937919380193811938219383193841938519386193871938819389193901939119392193931939419395193961939719398193991940019401194021940319404194051940619407194081940919410194111941219413194141941519416194171941819419194201942119422194231942419425194261942719428194291943019431194321943319434194351943619437194381943919440194411944219443194441944519446194471944819449194501945119452194531945419455194561945719458194591946019461194621946319464194651946619467194681946919470194711947219473194741947519476194771947819479194801948119482194831948419485194861948719488194891949019491194921949319494194951949619497194981949919500195011950219503195041950519506195071950819509195101951119512195131951419515195161951719518195191952019521195221952319524195251952619527195281952919530195311953219533195341953519536195371953819539195401954119542195431954419545195461954719548195491955019551195521955319554195551955619557195581955919560195611956219563195641956519566195671956819569195701957119572195731957419575195761957719578195791958019581195821958319584195851958619587195881958919590195911959219593195941959519596195971959819599196001960119602196031960419605196061960719608196091961019611196121961319614196151961619617196181961919620196211962219623196241962519626196271962819629196301963119632196331963419635196361963719638196391964019641196421964319644196451964619647196481964919650196511965219653196541965519656196571965819659196601966119662196631966419665196661966719668196691967019671196721967319674196751967619677196781967919680196811968219683196841968519686196871968819689196901969119692196931969419695196961969719698196991970019701197021970319704197051970619707197081970919710197111971219713197141971519716197171971819719197201972119722197231972419725197261972719728197291973019731197321973319734197351973619737197381973919740197411974219743197441974519746197471974819749197501975119752197531975419755197561975719758197591976019761197621976319764197651976619767197681976919770197711977219773197741977519776197771977819779197801978119782197831978419785197861978719788197891979019791197921979319794197951979619797197981979919800198011980219803198041980519806198071980819809198101981119812198131981419815198161981719818198191982019821198221982319824198251982619827198281982919830198311983219833198341983519836198371983819839198401984119842198431984419845198461984719848198491985019851198521985319854198551985619857198581985919860198611986219863198641986519866198671986819869198701987119872198731987419875198761987719878198791988019881198821988319884198851988619887198881988919890198911989219893198941989519896198971989819899199001990119902199031990419905199061990719908199091991019911199121991319914199151991619917199181991919920199211992219923199241992519926199271992819929199301993119932199331993419935199361993719938199391994019941199421994319944199451994619947199481994919950199511995219953199541995519956199571995819959199601996119962199631996419965199661996719968199691997019971199721997319974199751997619977199781997919980199811998219983199841998519986199871998819989199901999119992199931999419995199961999719998199992000020001200022000320004200052000620007200082000920010200112001220013200142001520016200172001820019200202002120022200232002420025200262002720028200292003020031200322003320034200352003620037200382003920040200412004220043200442004520046200472004820049200502005120052200532005420055200562005720058200592006020061200622006320064200652006620067200682006920070200712007220073200742007520076200772007820079200802008120082200832008420085200862008720088200892009020091200922009320094200952009620097200982009920100201012010220103201042010520106201072010820109201102011120112201132011420115201162011720118201192012020121201222012320124201252012620127201282012920130201312013220133201342013520136201372013820139201402014120142201432014420145201462014720148201492015020151201522015320154201552015620157201582015920160201612016220163201642016520166201672016820169201702017120172201732017420175201762017720178201792018020181201822018320184201852018620187201882018920190201912019220193201942019520196201972019820199202002020120202202032020420205202062020720208202092021020211202122021320214202152021620217202182021920220202212022220223202242022520226202272022820229202302023120232202332023420235202362023720238202392024020241202422024320244202452024620247202482024920250202512025220253202542025520256202572025820259202602026120262202632026420265202662026720268202692027020271202722027320274202752027620277202782027920280202812028220283202842028520286202872028820289202902029120292202932029420295202962029720298202992030020301203022030320304203052030620307203082030920310203112031220313203142031520316203172031820319203202032120322203232032420325203262032720328203292033020331203322033320334203352033620337203382033920340203412034220343203442034520346203472034820349203502035120352203532035420355203562035720358203592036020361203622036320364203652036620367203682036920370203712037220373203742037520376203772037820379203802038120382203832038420385203862038720388203892039020391203922039320394203952039620397203982039920400204012040220403204042040520406204072040820409204102041120412204132041420415204162041720418204192042020421204222042320424204252042620427204282042920430204312043220433204342043520436204372043820439204402044120442204432044420445204462044720448204492045020451204522045320454204552045620457204582045920460204612046220463204642046520466204672046820469204702047120472204732047420475204762047720478204792048020481204822048320484204852048620487204882048920490204912049220493204942049520496204972049820499205002050120502205032050420505205062050720508205092051020511205122051320514205152051620517205182051920520205212052220523205242052520526205272052820529205302053120532205332053420535205362053720538205392054020541205422054320544205452054620547205482054920550205512055220553205542055520556205572055820559205602056120562205632056420565205662056720568205692057020571205722057320574205752057620577205782057920580205812058220583205842058520586205872058820589205902059120592205932059420595205962059720598205992060020601206022060320604206052060620607206082060920610206112061220613206142061520616206172061820619206202062120622206232062420625206262062720628206292063020631206322063320634206352063620637206382063920640206412064220643206442064520646206472064820649206502065120652206532065420655206562065720658206592066020661206622066320664206652066620667206682066920670206712067220673206742067520676206772067820679206802068120682206832068420685 |
- <?xml version="1.0" encoding="utf-8"?>
- <Script type="xscript4.0"><![CDATA[
- /********************************************************************************************************************/
- /************************* 본인부담 요율변경 대상 환자 ************************************************/
- /********************************************************************************************************************/
- // lf_getPrcpRcptInfo : 전자서명관련 모듈을 생성 및 초기화 한다.
- // lf_lisGetTitle : 화면의 타이틀명을 가져온다.
- /********************************************************************************************************************/
- /************************* 그리드 관련 ************************************************/
- /********************************************************************************************************************/
- // lf_lisClearStatus : 그리드의 상태값(i,d,u 등)의 값을 초기화한다.
- // fCOMLIS_ResultValidation : 결과저장시 유효성체크 & 서버로 전달할 자료 Flag변경
- // fCOMLIS_MicroResultValidation : 결과저장시 유효성체크 & 서버로 전달할 자료 Flag변경
- /********************************************************************************************************************/
- /************************* 시리얼바코드 출력 ************************************************/
- /********************************************************************************************************************/
- // lf_patNmBarCdLabel2 : 환자명 바코드를 출력 한다.
- // lf_lisSpcBarcodeLabelB : cross-matcing 바코드를 출력 한다.t
- // lf_lisSpcBarcodeLabel : 일반채혈 바코드를 출력 한다.
- // lf_lisPlgySpcBarcodeLabel : 병리채혈 바코드를 출력 한다.
- // lf_lisMicrobarcdLabel : 배지 바코드를 출력 한다.
- // lf_lisReagentBarcodeLabel : 시약 라벨을 출력한다.
- // lf_lisTnsrBarcodeLabel : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- // lf_lisTnsrBarcodeLabel2 : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- // lf_lisSpcSlideLabelPrint : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- // lf_lisQCBarcodePrint : QC정도관리 바코드출력, 접수시
- // lf_getLISUserInfo : 로그인 LIS사용자정보 조회
- /********************************************************************************************************************/
- /************************* CVR발송 ************************************************/
- /********************************************************************************************************************/
- // lf_sendMessage : CVR발송
- /**********************************************************************************
- * 함수명 : lf_getPrcpRcptInfo
- * 설명 : 외래채혈,환자별채혈 화면에서 본인부담요율변경 대상자 확인 - 원무 수납 재정산 안내 메시지 및 메시지 출력 여부.
- * argument : instcd - 기관코드
- pid - 등록번호
- flagvalue - 처방분류코드
- flag - 1(oprc.prcpclscd)
- * return Type : String
-
- **********************************************************************************/
- include "com_commodulexp::SSZFM00901.xjs"
- function lf_getPrcpRcptInfo(instcd, pid, flagvalue, flag){
- trace("lf_getPrcpRcptInfo :"+instcd+"/"+pid+"/"+flagvalue+"/"+flag);
- if(ds_init_lb8001.getColumn(0,"nm") == "Y"){
- dsf_createDs("ds_prcpRcptChk"
- , [{col: "prcprcptyn"}]);
- var sInDsName = dsf_createDsRow("ds_temp2_search"
- , [{col: "instcd", val: instcd}
- , {col: "pid", val: pid}
- , {col: "flagvalue", val: flagvalue}
- , {col: "flag", val: flag}]);
- tranf_submit({
- id: "TRAEA01100"
- , service: "pamcomnapp.PamComn"
- , method: "get0701GosiPrcpRcptChk"
- , inds : "cond="+sInDsName
- , outds: "ds_prcpRcptChk=prcprcptyn"
- , async: false
- , error: false
- });
- if(ds_prcpRcptChk.getColumn(0,"prcprcptyn") == "Y"
- && ds_init_lb8001.getColumn(0,"nm") == "Y"
- && frmf_getMenuParam() != "V"){
- sysf_messageBox(ds_init_lb8001.getColumn(0,"etc01"),"I");
- }
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisGetTitle
- * 설명 : 화면의 타이틀명을 가져온다.
- * argument :
- * return Type : String - 타이틀명
-
- **********************************************************************************/
- function lf_lisGetTitle(obj:Form){
- var sTitleName = "";
-
- var sSysteminstnm = sysf_getUserInfo("systeminstnm");
-
- if(!frmf_isPopup()){
- var sMainTitle = "";
- var sTitleName = parent.bgv_sTitleText;
- }else{
- if(!utlf_isNull(bgv_objScreenInfo.menuitemnm)){
- sTitleName += bgv_objScreenInfo.menuitemnm
- }else if(!utlf_isNull(obj.titletext)){
- sTitleName += obj.titletext;
- }else{
- sTitleName += frmplgv_titleName;
- }
- if(sTitleName.indexOf("(S") > -1){
- sTitleName = sTitleName.substr(0,sTitleName.indexOf("(S"));
- }
- }
- return sTitleName;
- }
- /**********************************************************************************
- * 함수명 : lf_lisClearStatus
- * 설명 : 그리드의 상태값을 초기화한다.
- * argument : ref : 초기화시킬 그리드의 ID
- * return Type : N/A
-
- **********************************************************************************/
- function lf_lisClearStatus(ref){
- var arrPostion = new Array();
- for(i=0;i<ref.rowcount;i++){
- arrPostion[i] = i;
- }
- grdf_setStatus(ref, "", arrPostion);
- }
- /**********************************************************************************
- * 함수명 : lf_patNmBarCdLabel2
- * 설명 : 외래채혈,병동채혈,환자별채혈 화면에서 환자명바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_patNmBarCdLabel2(ref,prntinfo){
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
-
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
-
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = utlf_transNullToEmpty(prntinfo.getColumn(0,"comm")); //com port
- var sDataBit = utlf_transNullToEmpty(prntinfo.getColumn(0,"databit")); //data bit
- var sStopBit = utlf_transNullToEmpty(prntinfo.getColumn(0,"stopbit")); //stop bit
- var sBaudRate = utlf_transNullToEmpty(prntinfo.getColumn(0,"baudrate")); //baud rate
- var sParity = utlf_transNullToEmpty(prntinfo.getColumn(0,"parity")); //parity
-
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- //portOpenCheck = llz_objCommAX.PortOpen = true;
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
-
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
-
- var pid = utlf_transNullToEmpty(ref.getColumn(0,"pid")); //등록번호
- var patnm = utlf_transNullToEmpty(ref.getColumn(0,"patnm")); //환자명
- var patsexage = utlf_transNullToEmpty(ref.getColumn(0,"patsexage")); //성별/나이
- var rrgstno = utlf_transNullToEmpty(ref.getColumn(0,"rrgstno")); //주민등록번호
- var printdt = utlf_transNullToEmpty(ref.getColumn(0,"printdt")); //출력일시
- var orddeptcd = utlf_transNullToEmpty(ref.getColumn(0,"orddeptcd")); //병동/병실
- var wardroom = utlf_transNullToEmpty(ref.getColumn(0,"wardroom")); //진료과
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //출력일시(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 280;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + "출력일시 : " + "\"" + "\r\n";
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,9,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "출력일시" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //출력일시
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 256;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + printdt + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,16,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + patsexage + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 280;
- if(wardroom == "외래") {
- iYPos = Number(sTopBank) + 230;
- }
- else{
- iYPos = Number(sTopBank) + 210;
- }
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + wardroom + "\"" + "\r\n";
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,9,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + wardroom +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //진료과
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 184;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + orddeptcd + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,12:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
- //주민번호 생년월일
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + rrgstno + "\"" + "\r\n";
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 136;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + pid + "\"" + "\r\n";
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //출력일시(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "출력일시 : " + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + printdt + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 24;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,2,2,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 24;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patsexage + "\"" + "\r\n";
-
- //진료과
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 48;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + wardroom + "\"" + "\r\n";
-
- //병동/병실
- XPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 72;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + orddeptcd + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 96;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + pid + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //출력일시(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "출력일시 : " + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + printdt + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,2,2,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + patsexage + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 54;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + wardroom + "\"" + "\r\n";
-
- //진료과
- XPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 78;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + orddeptcd + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 102;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + pid + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
-
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
-
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisSpcBarcodeLabelB
- * 설명 : 채혈,cross-matcing화면에서 cross-matcing 바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisSpcBarcodeLabelB(ref,prntinfo){
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
-
- //portOpenCheck = llz_objCommAX.PortOpen("true");
- portOpenCheck = llz_objCommAX.PortOpen(true);
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
-
- var roomcd = utlf_transNullToEmpty(ref.getColumn(0,"roomcd")); //병실코드
- var wardnm = utlf_transNullToEmpty(ref.getColumn(0,"wardnm")); //병동명
- var pid = utlf_transNullToEmpty(ref.getColumn(0,"pid")); //등록번호
- var patnm = utlf_transNullToEmpty(ref.getColumn(0,"patnm")); //환자명
- var patsex = utlf_transNullToEmpty(ref.getColumn(0,"patsex")); //환자성별
- var patage = utlf_transNullToEmpty(ref.getColumn(0,"patage")); //환자나이
- var orddeptcd = utlf_transNullToEmpty(ref.getColumn(0,"orddeptcd")); //진료과
- var bcollnm = utlf_transNullToEmpty(ref.getColumn(0,"bcollnm")); //채혈자
- var bcolldt = utlf_transNullToEmpty(ref.getColumn(0,"bcolldt")); //채혈일시
- var dt = utlf_transNullToEmpty(ref.getColumn(0,"dt")); //현재일시
- var btype = utlf_transNullToEmpty(ref.getColumn(0,"btype")); //혈액형
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //출력시각
- if(ref.getColumn(0,"reprint")=="1"){ //재출력 바코드일경우 음영처리 조건
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 256;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:II:PT " +"\"" + dt + "\"" + "\r\n";
- }else{
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 256;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + dt + "\"" + "\r\n";
- }
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + pid + "\"" + "\r\n";
-
- //ABO(Rh)
- //iXPos = Number(sLeftBank) + 20;
- //iYPos = Number(sTopBank) + 232;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + btype + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //진료과/병실
- XPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + orddeptcd + "/" + roomcd + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + patsex + "/" + patage + "\"" + "\r\n";
-
- //X-Matching(캡션-역상표현)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 52;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:II:PT " +"\"" + "X-Matching" + "\"" + "\r\n";
-
- //채혈자(캡션)
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 76;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "채혈자:" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //확인자(캡션)
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 52;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "확인자:" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //출력시각
- if(ref.getColumn(0,"reprint")=="1"){ //재출력 바코드일경우 음영처리 조건
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,LE," + "\"" + dt + "\"" + "\r\n";
- }else{
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + dt + "\"" + "\r\n";
- }
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + pid + "\"" + "\r\n";
-
- //ABO(Rh)
- //iXPos = Number(sLeftBank) + 20;
- //iYPos = Number(sTopBank) + 24;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,2,2,N," + "\"" + patnm + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 132;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,2,2,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 132;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //진료과/병실
- XPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 156;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + orddeptcd + "/" + roomcd + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 156;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patsex + "/" + patage + "\"" + "\r\n";
-
- //X-Matching(캡션-역상표현)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,R," + "\"" + "X-Matching" + "\"" + "\r\n";
-
- //채혈자(캡션)
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "채혈자:" + "\"" + "\r\n";
-
- //확인자(캡션)
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "확인자:" + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //출력시각
- if(ref.getColumn(0,"reprint")=="1"){ //재출력 바코드일경우 음영처리 조건
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,R," + "\"" + dt + "\"" + "\r\n";
- }else{
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + dt + "\"" + "\r\n";
- }
-
- //등록번호바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + pid + "\"" + "\r\n";
-
- //ABO(Rh)
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 64;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,2,2,N," + "\"" + btype + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,2,2,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //진료과/병실
- XPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 161;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + orddeptcd + "/" + roomcd + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + patsex + "/" + patage + "\"" + "\r\n";
-
- //X-Matching(캡션-역상표현)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 218;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,R," + "\"" + "X-Matching" + "\"" + "\r\n";
-
- //채혈자(캡션)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "채혈자:" + "\"" + "\r\n";
-
- //확인자(캡션)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 224;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "확인자:" + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- sSndMsg = "";
- }
- }
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
-
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisSpcBarcodeLabel
- * 설명 : 채혈,재출력화면에서 일반채혈 바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- bGbn - 채혈,접수화면에서 출력시 설정
- **********************************************************************************/
- function lf_lisSpcBarcodeLabel(ref,prntinfo,bGbn){
- var cntHR = ref.rowcount;
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var reprint = utlf_transNullToEmpty(ref.getColumn(0,"reprint")); //재출력바코드인지 여부 (값이 "1"이면 재출력->출력시각 음영처리)
- var sSndMsg = "";
- //인터맥 한글,영문 구분
- var aStr = ""; // 리턴받는 배열
- var aFlag = new Array(); //한글 영문 구분
- var hangulCnt = 0;
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- trace("portOpenCheck전:"+portOpenCheck);
- if(portOpenCheck == "TRUE" || utlf_isNull(portOpenCheck)){
- portOpenCheck = llz_objCommAX.PortOpen(true);
- }
- trace("portOpenCheck후:"+portOpenCheck);
-
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR;i++){
- if(bGbn == "1"){ //채혈
- var cnt = utlf_transNullToEmpty(ref.getColumn(i,"bcollbarcdprntcnt")); //채혈바코드장수
- }
- else if(bGbn == "2"){ //접수
- var cnt = utlf_transNullToEmpty(ref.getColumn(i,"spcacptbarcdprntcnt")); //접수바코드장수
- }
- else{ //재출력,1장출력인 부분 -> 바코드갯수로 수정
- //var cnt = "1";
- var cnt = utlf_transNullToEmpty(ref.getColumn(i,"bcollbarcdprntcnt")); //채혈바코드장수
- }
-
- if(cnt > "0") { //출력바코드장수가 있다면
- var sStr = "";
- var tsectlblnm = utlf_transNullToEmpty(ref.getColumn(i,"tsectlblnm")); //검사계라벨명
- var bcno = utlf_transNullToEmpty(ref.getColumn(i,"bcno")); //검체번호
- var barcdprntdt = utlf_transNullToEmpty(ref.getColumn(i,"barcdprntdt")); //라벨발행일자
- var dt = utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss").getDateFormat("YYYY-MM-DD hh:mm"); //출력일시
- var patnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm")); //환자성명
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var sexage = utlf_transNullToEmpty(ref.getColumn(i,"sexage")); //성별연령
- var deptroom = utlf_transNullToEmpty(ref.getColumn(i,"deptroom")); //진료과병실
- var spclblnm = utlf_transNullToEmpty(ref.getColumn(i,"spclblnm")); //검체라벨명
- var tubelblnm = utlf_transNullToEmpty(ref.getColumn(i,"tubelblnm")); //용기라벨명
- var eqmtlblnms = utlf_transNullToEmpty(ref.getColumn(i,"eqmtlblnm")); //장비명
- var eqmtlblnm = eqmtlblnms.substring(0,10); //장비명
- var secttsect = utlf_transNullToEmpty(ref.getColumn(i,"secttsect")); //계검사계
- var tclslblnmlists = utlf_transNullToEmpty(ref.getColumn(i,"tclslblnmlist")); //검사라벨명
- var tclslblnmlist = tclslblnmlists.substring(0,28);
- var sInfcinfolist = utlf_transNullToEmpty(ref.getColumn(i,"infcinfolist")); //감염정보
- var aInfcinfolist = sInfcinfolist.split("^"); //배열에 분리
- var infcinfolist = ""; //감염정보 바코드에 표현
- var bcollinfoyn = utlf_transNullToEmpty(ref.getColumn(i,"bcollinfoyn")); // 크로스매칭 구분
- //trace("eqmtlblnm: "+ eqmtlblnm);
- for(var a=0; a<aInfcinfolist.length-1; a++){
- sSndMsg = "";
-
- if(aInfcinfolist[a]=="Y"&&a==0){
- infcinfolist += "B|";
- }
- if(aInfcinfolist[a]=="Y"&&a==1){
- infcinfolist += "C|";
- }
- if(aInfcinfolist[a]=="Y"&&a==2){
- infcinfolist += "A|";
- }
- if(aInfcinfolist[a]=="Y"&&a==3){
- infcinfolist += "D|";
- }
- if(aInfcinfolist[a]=="Y"&&a==4){
- infcinfolist += "E|";
- }
- }
-
- var erprcpflag = utlf_transNullToEmpty(ref.getColumn(i,"erprcpflag")); //응급여부
- var bcollbarcdprntcnt = utlf_transNullToEmpty(ref.getColumn(i,"bcollbarcdprntcnt")); //채혈바코드수
- var spcacptbarcdprntcnt = utlf_transNullToEmpty(ref.getColumn(i,"spcacptbarcdprntcnt")); //검체바코드수
- var microbarcdprntcnt = utlf_transNullToEmpty(ref.getColumn(i,"microbarcdprntcnt")); //미생물바코수
- var mdiabarcdprntcnt = utlf_transNullToEmpty(ref.getColumn(i,"mdiabarcdprntcnt")); //분주바코드수
- var workno = utlf_transNullToEmpty(ref.getColumn(i,"workno")); //작업번호
- var orddrnm = utlf_transNullToEmpty(ref.getColumn(i,"orddrnm")); //주치의
- var roomcd = utlf_transNullToEmpty(ref.getColumn(i,"roomcd")); //병실
- var dept = utlf_transNullToEmpty(ref.getColumn(i,"dept")); //진료과
- var spcacptdd = utlf_transNullToEmpty(ref.getColumn(i,"spcacptdd")); //접수일자
- var dnornm = utlf_transNullToEmpty(ref.getColumn(i,"dnornm")); //공여자명
- var prcphopedd = utlf_transNullToEmpty(ref.getColumn(i,"prcphopedd")); //접수일자
- var bedposcnts = utlf_transNullToEmpty(ref.getColumn(i,"bedposcnts")); //기본코드명칭
- var bldtype = utlf_transNullToEmpty(ref.getColumn(i,"bldtype")); //혈액형정보
- var bcollcau = utlf_transNullToEmpty(ref.getColumn(i,"bcollcau")); //채혈시주의사항
- var prcpremfacts = utlf_transNullToEmpty(ref.getColumn(i,"prcpremfact")); //의사remark
- var bcollcmt = utlf_transNullToEmpty(ref.getColumn(i,"bcollcmt")); //채혈comment
- var prcpremfact = prcpremfacts.substring(0,10);
-
- var testlrgkind = utlf_transNullToEmpty(ref.getColumn(i,"testlrgkind")); //RIA인지
-
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
-
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //검사계라벨명
- if(tsectlblnm.length != utlf_getStringLength(tsectlblnm)){
- iYPos = Number(sTopBank) + 280;
- }else{
- iYPos = Number(sTopBank) + 260;
- }
- iXPos = Number(sLeftBank) + 20;
-
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + tsectlblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- //검체번호
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + bcno + "\"" + "\r\n";
-
- //출력시각 barcdprntdt
- //바코드 재출력일경우 출력시각 음영처리 - NI(노말) , II(음영)
- if(reprint!="1"){
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + dt + "\"" + "\r\n";
- } else if(reprint=="1"){
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:II:PT " +"\"" + dt + "\"" + "\r\n";
- }
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 215;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + bcno + "\"" + "\r\n";
-
- if(secttsect == "T1" ){
- //ABO(Rh)
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,9:NI:PT " +"\"" + bldtype + "\"" + "\r\n";
- }else{
- //감염정보
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,9:NI:PT " +"\"" + infcinfolist + "\"" + "\r\n";
- }
-
- if(bcollinfoyn == "Y"){
- // 등록번호 폐기능검사실,RIA 음영처리 - NI(노말) , II(음영)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 115;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:II:PT " +"\"" + pid + "\"" + "\r\n";
- } else{
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + pid + "\"" + "\r\n";
- }
- if(patnm.length != utlf_getStringLength(patnm)){
- iYPos = Number(sTopBank) + 135;
- }else{
- iYPos = Number(sTopBank) + 115;
- }
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- //iYPos = Number(sTopBank) + 135;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,9,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //병동/병실
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
- //Remark
- // hangulCnt = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // aStr = lpzfGetHanGul(prcpremfact, aFlag);
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- // if (aFlag[iNo] != "E") {
- // hangulCnt++;
- // break;
- // }
- // }
- if(prcpremfact.length != utlf_getStringLength(prcpremfact)){
- iYPos = Number(sTopBank) + 110;
- }else{
- iYPos = Number(sTopBank) + 95;
- }
-
- iXPos = Number(sLeftBank) + 20;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + prcpremfact +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
-
- //채혈comment
- if(bcollcmt.length != utlf_getStringLength(bcollcmt)){
- iYPos = Number(sTopBank) + 110;
- }else{
- iYPos = Number(sTopBank) + 90;
- }
-
- iXPos = Number(sLeftBank) + 150;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + bcollcmt + "\"" + "\r\n";
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + bcollcmt +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 300;
- //iYPos = Number(sTopBank) + 50;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + "작업그룹코드" + "\"" + "\r\n";
-
-
-
- //검체 spclblnm
- if(spclblnm.length != utlf_getStringLength(spclblnm)){
- iYPos = Number(sTopBank) + 90;
- }else{
- iYPos = Number(sTopBank) + 70;
- }
-
- iXPos = Number(sLeftBank) + 20;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + spclblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
-
- //용기 tubelblnm
- if(tubelblnm.length != utlf_getStringLength(tubelblnm)){
- iYPos = Number(sTopBank) + 90;
- }else{
- iYPos = Number(sTopBank) + 70;
- }
- iXPos = Number(sLeftBank) + 140;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + tubelblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- //장비 eqmtlblnm
- if(eqmtlblnm.length != utlf_getStringLength(eqmtlblnm)){
- iYPos = Number(sTopBank) + 90;
- }else{
- iYPos = Number(sTopBank) + 70;
- }
- iXPos = Number(sLeftBank) + 250;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + eqmtlblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + secttsect + "\"" + "\r\n";
-
-
- //검사목록 tclslblnmlist
- if(tclslblnmlist.length != utlf_getStringLength(tclslblnmlist)){
- iYPos = Number(sTopBank) + 90;
- }else{
- iYPos = Number(sTopBank) + 50;
- }
- iXPos = Number(sLeftBank) + 60;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + tclslblnmlist +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- //채혈자,확인자 (시행부서가 혈액은행인 검체 바코드에만 추가
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "채혈자: 확인자:" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
-
- }else{
- // 등록번호 폐기능검사실,RIA 음영처리 - NI(노말) , II(음영)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 110;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:II:PT " +"\"" + pid + "\"" + "\r\n";
- } else{
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:NI:PT " +"\"" + pid + "\"" + "\r\n";
- }
- if(patnm.length != utlf_getStringLength(patnm)){
- iYPos = Number(sTopBank) + 135;
- }else{
- iYPos = Number(sTopBank) + 115;
- }
- //환자명
- iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 124;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //병동/병실
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
-
- //Remark
- if(prcpremfact.length != utlf_getStringLength(prcpremfact)){
- iYPos = Number(sTopBank) + 100;
- }else{
- iYPos = Number(sTopBank) + 80;
- }
-
- iXPos = Number(sLeftBank) + 20;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + prcpremfact +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //채혈comment
- if(bcollcmt.length != utlf_getStringLength(bcollcmt)){
- iYPos = Number(sTopBank) + 100;
- }else{
- iYPos = Number(sTopBank) + 80;
- }
-
- iXPos = Number(sLeftBank) + 150;
-
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + bcollcmt + "\"" + "\r\n";
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + bcollcmt +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 300;
- //iYPos = Number(sTopBank) + 50;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + "작업그룹코드" + "\"" + "\r\n";
-
- //검체 spclblnm
- if(spclblnm.length != utlf_getStringLength(spclblnm)){
- iYPos = Number(sTopBank) + 75;
- }else{
- iYPos = Number(sTopBank) + 55;
- }
-
- iXPos = Number(sLeftBank) + 20;
-
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + spclblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
-
- //용기 tubelblnm
- if(tubelblnm.length != utlf_getStringLength(tubelblnm)){
- iYPos = Number(sTopBank) + 75;
- }else{
- iYPos = Number(sTopBank) + 55;
- }
-
- iXPos = Number(sLeftBank) + 140;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + tubelblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- //장비 eqmtlblnm
- if(eqmtlblnm.length != utlf_getStringLength(eqmtlblnm)){
- iYPos = Number(sTopBank) + 75;
- }else{
- iYPos = Number(sTopBank) + 55;
- }
- iXPos = Number(sLeftBank) + 240;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + eqmtlblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + secttsect + "\"" + "\r\n";
-
-
- //검사목록 tclslblnmlist
- if(tclslblnmlist.length != utlf_getStringLength(tclslblnmlist)){
- iYPos = Number(sTopBank) + 50;
- }else{
- iYPos = Number(sTopBank) + 30;
- }
-
- iXPos = Number(sLeftBank) + 60;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + tclslblnmlist +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- }
-
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "1" + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- for(var cntRow = 0; cntRow <cnt; cntRow++){
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- }
-
- trace("속도개선용==============");
- trace(bcollbarcdprntcnt);
- trace(spcacptbarcdprntcnt);
- trace(microbarcdprntcnt);
- trace(mdiabarcdprntcnt);
- trace(workno);
- trace(bedposcnts);
- trace(prcpremfact);
- trace(bcollcmt);
- trace(bcno);
- trace(barcdprntdt);
- trace(patnm);
- trace(pid);
- trace("속도개선용==============");
-
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
-
- //검사계라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + tsectlblnm + "\"" + "\r\n";
-
- //검체번호
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //출력시각 barcdprntdt
- //바코드 재출력일경우 출력시각 음영처리 - N(노말), R(음영)
- if(reprint!="1"){
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,N," + "\"" + dt + "\"" + "\r\n";
- } else if(reprint =="1"){
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,R," + "\"" + dt + "\"" + "\r\n";
- }
-
- if(!utlf_isNull(bcno)){
- //검체바코드
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 22;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,91,N," + "\"" + bcno + "\"" + "\r\n";
- }
-
- if(secttsect == "T1"){
- //ABO(Rh)
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + bldtype + "\"" + "\r\n";
- }else{
- //감염정보
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + infcinfolist + "\"" + "\r\n";
- }
-
- if(bcollinfoyn == "Y"){
- //등록번호 음영처리 - N(노말), R(음영)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 117;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,R," + "\"" + pid + "\"" + "\r\n";
- } else{
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + pid + "\"" + "\r\n";
- }
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 117;
- // sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 117;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 117;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 280;
- //iYPos = Number(sTopBank) + 206;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "작업그룹코드" + "\"" + "\r\n";
-
- //Remark
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + prcpremfact + "\"" + "\r\n";
-
- //채혈comment
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + bcollcmt + "\"" + "\r\n";
-
- //검체 spclblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + spclblnm + "\"" + "\r\n";
-
- //용기 tubelblnm
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + tubelblnm + "\"" + "\r\n";
-
- //장비 eqmtlblnm
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + eqmtlblnm + "\"" + "\r\n";
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + secttsect + "\"" + "\r\n";
-
- //검사목록 tclslblnmlist
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
-
-
- //채혈자,확인자 (시행부서가 혈액은행인 검체 바코드에만 추가)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "채혈자: 확인자:" + "\"" + "\r\n";
-
- }else{
- //등록번호 음영처리 - N(노말), R(음영)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 117;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,R," + "\"" + pid + "\"" + "\r\n";
- } else{
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" + pid + "\"" + "\r\n";
- }
-
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 117;
- // sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 117;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" + patnm + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 138;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 280;
- //iYPos = Number(sTopBank) + 206;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "작업그룹코드" + "\"" + "\r\n";
-
- //Remark
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + prcpremfact + "\"" + "\r\n";
-
- //채혈comment
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + bcollcmt + "\"" + "\r\n";
-
- //검체 spclblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + spclblnm + "\"" + "\r\n";
-
- //용기 tubelblnm
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + tubelblnm + "\"" + "\r\n";
-
- //장비 eqmtlblnm
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + eqmtlblnm + "\"" + "\r\n";
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + secttsect + "\"" + "\r\n";
-
- //검사목록 tclslblnmlist
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 220;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
- }
-
- //출력
- sSndMsg += "P"+cnt+",1" + "\r\n";
- if(sCommKind == "01") {
- trace(llz_objCommAX.SendMessageToLPT(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
-
-
-
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //검사계라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + tsectlblnm + "\"" + "\r\n";
-
-
- //검체번호
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //출력시각 barcdprntdt
- //재출력이면 출력시각에 음영처리 - N(노말), R(음영)
- if(reprint != "1"){
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,N," + "\"" + dt + "\"" + "\r\n";
- }else if(reprint =="1"){
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,R," + "\"" + dt + "\"" + "\r\n";
- }
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 27;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + bcno + "\"" + "\r\n";
-
- //trace("옥희 : " +secttsect.substr(0,1) + " bldtype: "+bldtype+ " infcinfolist : "+infcinfolist);
- if(secttsect == "T1"){
- //ABO(Rh)
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,2,2,N," + "\"" + bldtype + "\"" + "\r\n";
- }else{
- //감염정보
- iXPos = Number(sLeftBank) + 310;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + infcinfolist + "\"" + "\r\n";
- }
-
- if(bcollinfoyn == "Y"){
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 140;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,R," + "\"" + pid + "\"" + "\r\n";
- }else{
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N," + "\"" + pid + "\"" + "\r\n";
- }
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,2,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 270;
- //iYPos = Number(sTopBank) + 190;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "작업그룹코드" + "\"" + "\r\n";
-
- //Remark
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + prcpremfact + "\"" + "\r\n";
-
- //채혈comment
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + bcollcmt + "\"" + "\r\n";
-
- //검체 spclblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + spclblnm + "\"" + "\r\n";
-
- //용기 tubelblnm
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + tubelblnm + "\"" + "\r\n";
-
- //장비 eqmtlblnm
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + eqmtlblnm + "\"" + "\r\n";
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + secttsect + "\"" + "\r\n";
-
- //검사목록 tclslblnmlist
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
-
- //채혈자,확인자 (시행부서가 혈액은행인 검체 바코드에만 추가)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "채혈자: 확인자:" + "\"" + "\r\n";
-
- }else{
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 140;
- if(secttsect=="P1" || testlrgkind == "N"){
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,R," + "\"" + pid + "\"" + "\r\n";
- }else{
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N," + "\"" + pid + "\"" + "\r\n";
- }
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,2,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + deptroom + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
-
- //작업그룹코드
- //iXPos = Number(sLeftBank) + 270;
- //iYPos = Number(sTopBank) + 190;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "작업그룹코드" + "\"" + "\r\n";
-
- //Remark
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + prcpremfact + "\"" + "\r\n";
-
- //채혈comment
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + bcollcmt + "\"" + "\r\n";
-
- //검체 spclblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 205;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + spclblnm + "\"" + "\r\n";
-
- //용기 tubelblnm
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 205;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + tubelblnm + "\"" + "\r\n";
-
- //장비 eqmtlblnm
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 205;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + eqmtlblnm + "\"" + "\r\n";
-
- //검사파트코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + secttsect + "\"" + "\r\n";
-
- //검사목록 tclslblnmlist
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
- }
-
-
- //출력
- sSndMsg += "P1"+ "," + cnt + "\r\n";
-
- if(sCommKind == "01") {
- trace(llz_objCommAX.SendMessageToLPT(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- }
- else {
- trace("========");
- return;
- }
- }
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- // portOpenCheck = llz_objCommAX.PortOpen(false);
- portOpenCheck = llz_objCommAX.PortClose(true);
- trace("portClose후:"+portOpenCheck);
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisMicrobarcdLabel
- * 설명 : 배지바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- bGbn - 접수화면에서 출력시 설정
- **********************************************************************************/
- function lf_lisMicrobarcdLabel(ref,prntinfo,bGbn){
- var cntHR = ref.rowcount;
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- //portOpenCheck = llz_objCommAX.PortOpen = true;
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
-
- for(i=0 ; i< cntHR;i++){
- if(bGbn == "4"){ //접수시 배지바코드
- var cnt = "1"; //model.getvalue(ref + "["+i+"]/mdiabarcdprntcnt"); //접수바코드장수
- }
- else{ //재출력,1장출력인 부분
- var cnt = "1";
- }
-
- if(cnt > "0") { //출력바코드장수가 있다면
- var sStr = "";
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var sexage = utlf_transNullToEmpty(ref.getColumn(i,"sexage")); //성별나이
- var patnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm")); //환자명
- var worknumber = utlf_transNullToEmpty(ref.getColumn(i,"workno")); //작업번호
- var workno = worknumber.substring(0,2) + "-" + worknumber.substring(2,6) + "-" + worknumber.substring(6,15);
- var spcnm = utlf_transNullToEmpty(ref.getColumn(i,"spcnm")); //검체명
- var acptdt = utlf_transNullToEmpty(ref.getColumn(i,"acptdt")); //접수일자
- var acptdt2 = utlf_transNullToEmpty(ref.getColumn(i,"acptdt2")); //접수일자2
- var mdialblnm = utlf_transNullToEmpty(ref.getColumn(i,"mdialblnm")); //배지명
- var wardinfo = utlf_transNullToEmpty(ref.getColumn(i,"wardinfo")); //병동정보
- var bcno = utlf_transNullToEmpty(ref.getColumn(i,"bcno")); //바코드
- var infcinfo = utlf_transNullToEmpty(ref.getColumn(i,"infcinfo")); //김염정보
- var prcpremfact = utlf_transNullToEmpty(ref.getColumn(i,"prcpremfact")); //의사comment
- var prntcnt = utlf_transNullToEmpty(ref.getColumn(i,"prntcnt")); //출력매수(화면설정)
- var flag = utlf_transNullToEmpty(ref.getColumn(i,"flag")); //재출력이면 설정됨
- var barcdprntdt = utlf_transNullToEmpty(ref.getColumn(i,"barcdprntdt")); //현재시간(TF단에서 처리됨)
- var tclslblnm = utlf_transNullToEmpty(ref.getColumn(i,"tclslblnm")); //검사라벨명
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //접수번호 -> 작업번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 256;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:NI:PT " +"\"" + workno + "\"" + "\r\n";
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 226;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + bcno + "\"" + "\r\n";
-
- //바코드번호
- iiXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + bcno + "\"" + "\r\n";
-
- //파트접수일시
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + acptdt2 + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 102;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 122;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //성별/나이
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
- //진료과/병실
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + wardinfo + "\"" + "\r\n";
-
- //검체명
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + spcnm + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + barcdprntdt + "\"" + "\r\n";
-
- //배지명
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:NI:PT " +"\"" + mdialblnm + "\"" + "\r\n";
-
- //검사명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 38;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:NI:PT " +"\"" + tclslblnm + "\"" + "\r\n";
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + cnt + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //접수번호 -> 작업번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + workno + "\"" + "\r\n";
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + bcno + "\"" + "\r\n";
-
- //바코드번호
- iiXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 132;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //파트접수일시
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 132;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + acptdt2 + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 156;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 156;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //진료과/병실
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + wardinfo + "\"" + "\r\n";
-
- //검체명
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + spcnm + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + barcdprntdt + "\"" + "\r\n";
-
- //배지명
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + mdialblnm + "\"" + "\r\n";
-
- //검사라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 228;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + tclslblnm + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P"+cnt+",1" + "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //접수번호 -> 작업번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + workno + "\"" + "\r\n";
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + bcno + "\"" + "\r\n";
-
- //바코드번호
- iiXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 137;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //파트접수일시
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 137;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + acptdt2 + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 156;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 154;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //진료과/병실
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + wardinfo + "\"" + "\r\n";
-
- //검체명
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + spcnm + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + barcdprntdt + "\"" + "\r\n";
-
- //배지명
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + mdialblnm + "\"" + "\r\n";
-
- //검사라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 228;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + tclslblnm + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "," + cnt + "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
-
-
-
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
- }
- else {
- return;
- }
- }
-
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisReagentBarcodeLabel
- * 설명 : 채혈,재출력화면에서 시약라벨 바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- bGbn - 채혈,접수화면에서 출력시 설정
- **********************************************************************************/
- function lf_lisReagentBarcodeLabel(ref,prntinfo,bGbn){
- var cntHR = ref.rowcount;
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
-
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR;i++){
- var cnt = utlf_transNullToEmpty(ref.getColumn(i,"reagentbarcdprntcnt")); //바코드장수
-
-
- if(cnt > "0") { //출력바코드장수가 있다면
- var reagentlblnm = utlf_transNullToEmpty(ref.getColumn(i,"reagentlblnm")); //시약라벨명
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var hngnm = utlf_transNullToEmpty(ref.getColumn(i,"hngnm")); //환자명
- var dt = utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss").getDateFormat("YYYY-MM-DD hh:mm"); //출력일시
-
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //시약라벨
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 260;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,9,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "시약라벨" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //출력시각 dt
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + dt + "\"" + "\r\n";
-
- //시약라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 150;
- sSndMsg += "FONTFT " +"\"" +"Haansoft Dotum" +"\"" + " ,9,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + reagentlblnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- // 등록번호 pid
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
-
- //환자명 hngnm
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + hngnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + cnt + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
-
- //시약라벨
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "시약라벨" + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + dt + "\"" + "\r\n";
-
- //시약라벨명 reagentlblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,2,3,N," + "\"" + reagentlblnm + "\"" + "\r\n";
-
- //등록번호 pid
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + pid + "\"" + "\r\n";
-
-
- //환자명 hngnm
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + hngnm + "\"" + "\r\n";
-
-
-
- //출력
- sSndMsg += "P"+cnt+",1" + "\r\n";
- if(sCommKind == "01") {
- trace(llz_objCommAX.SendMessageToLPT(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
-
-
-
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
- //시약라벨
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + "시약라벨" + "\"" + "\r\n";
-
- //출력일시
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + dt + "\"" + "\r\n";
-
- //시약라벨명 reagentlblnm
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,2,3,N," + "\"" + reagentlblnm + "\"" + "\r\n";
-
- //등록번호 pid
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N,"+ "\"" + pid + "\"" + "\r\n";
-
- //환자명 hngnm
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,2,N,"+ "\"" + hngnm + "\"" + "\r\n";
-
-
-
- //출력
- sSndMsg += "P1"+ "," + cnt + "\r\n";
- if(sCommKind == "01") {
- trace(llz_objCommAX.SendMessageToLPT(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- }
- else {
- trace("========");
- return;
- }
- }
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
-
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisPlgySpcBarcodeLabel
- * 설명 : 채혈화면에서 병리채혈 바코드를 출력한다.
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisPlgySpcBarcodeLabel(ref,prntinfo){
- var cntHR = ref.rowcount;
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- //portOpenCheck = llz_objCommAX.PortOpen = true;
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i < cntHR;i++){
- var sStr = "";
- var instcd = utlf_transNullToEmpty(ref.getColumn(i,"instcd")); //기관코드
- var spctrandd = utlf_transNullToEmpty(ref.getColumn(i,"spctrandd")); //검체전송일자
- var spctranno = utlf_transNullToEmpty(ref.getColumn(i,"spctranno")); //검체전송번호
- var spctranseqno = utlf_transNullToEmpty(ref.getColumn(i,"spctranseqno")); //검체전송일련번호 //순차적으로다르다
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var patnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm")); //환자명
- var sexage = utlf_transNullToEmpty(ref.getColumn(i,"sexage")); //성별나이
- var printdt = utlf_getCurrentDateTime().toDate("YYYYMMDD hhmmss").getDateFormat("YYYY-MM-DD hh:mm"); //출력일시
- var orddeptnm = utlf_transNullToEmpty(ref.getColumn(i,"orddeptnm")); //진료과
- var wardroom = utlf_transNullToEmpty(ref.getColumn(i,"wardroom")); //병동병실
- var prcpdd = utlf_transNullToEmpty(ref.getColumn(i,"prcpdd")); //처방일자
- var spccd = utlf_transNullToEmpty(ref.getColumn(i,"spccd")); //검체코드 //순차적으로다르다
- var spcnm = utlf_transNullToEmpty(ref.getColumn(i,"spcnm")); //검체명 //순차적으로다르다
- var spcbarcdno = utlf_transNullToEmpty(ref.getColumn(i,"spcbarcdno")); //검체바코드번호 //순차적으로다르다
- var prcpdispnm = utlf_transNullToEmpty(ref.getColumn(i,"prcpdispnm")); //처방표시명(원처방)
- var prcpdispnm2 = utlf_transNullToEmpty(ref.getColumn(i,"prcpdispnm2")); //처방표시명(추가처방)
- var spcdispnm = utlf_transNullToEmpty(ref.getColumn(i,"spcdispnm")); //검체표시명 //순차적으로다르다
- var orddrnm = utlf_transNullToEmpty(ref.getColumn(i,"orddrnm")); //진료의명
- var isolabbrcd = utlf_transNullToEmpty(ref.getColumn(i,"isolabbrcd")); //감염정보
- var prcphopedt = utlf_transNullToEmpty(ref.getColumn(i,"prcphopedt")); //희망일자
- var bedposcnts = utlf_transNullToEmpty(ref.getColumn(i,"bedposcnts")); //응급실환자위치
- var prcpgenrflag = utlf_transNullToEmpty(ref.getColumn(i,"prcpgenrflag")); //처방발생구분
- var dispptno = utlf_transNullToEmpty(ref.getColumn(i,"dispptno")); //병리번호
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 256;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + spcbarcdno + "\"" + "\r\n";
-
- //검체번호
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 153;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,9:NI:PT " +"\"" + spcbarcdno + "\"" + "\r\n";
-
-
- //PATHOLOGY(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 122;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + "PATHOLOGY" + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 122;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + wardroom + "\"" + "\r\n";
-
- //진료의
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + orddrnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 98;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,8:II:PT " +"\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 119;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 98;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
- //진료과약어
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 98;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + orddeptnm + "\"" + "\r\n";
-
- //검체순번/토탈갯수
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 74;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + spcdispnm + "\"" + "\r\n";
-
- //세부검체명
- //iXPos = Number(sLeftBank) + 50;
- //iYPos = Number(sTopBank) + 74;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + tclslblnmlist + "\"" + "\r\n";
-
- //원처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 68;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,7,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + prcpdispnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //추가처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 54;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,7,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + prcpdispnm2 +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //검체바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + spcbarcdno + "\"" + "\r\n";
-
- //검체번호
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + spcbarcdno + "\"" + "\r\n";
-
-
- //PATHOLOGY(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "PATHOLOGY" + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + wardroom + "\"" + "\r\n";
-
- //진료의
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + orddrnm + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,R," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //진료과약어
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + orddeptnm + "\"" + "\r\n";
-
- //검체순번/토탈갯수
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 182;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + spcdispnm + "\"" + "\r\n";
-
- //세부검체명
- //iXPos = Number(sLeftBank) + 50;
- //iYPos = Number(sTopBank) + 182;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
-
- //원처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + prcpdispnm + "\"" + "\r\n";
-
- //추가처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 228;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + prcpdispnm2 + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //검체바코드
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + spcbarcdno + "\"" + "\r\n";
-
- //검체번호
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + spcbarcdno + "\"" + "\r\n";
-
-
- //PATHOLOGY(캡션)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + "PATHOLOGY" + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + wardroom + "\"" + "\r\n";
-
- //진료의
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + orddrnm + "\"" + "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,R," + "\"" + pid + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 154;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,9,1,1,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //진료과약어
- iXPos = Number(sLeftBank) + 390;
- iYPos = Number(sTopBank) + 158;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + orddeptnm + "\"" + "\r\n";
-
- //검체순번/토탈갯수
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 182;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + spcdispnm + "\"" + "\r\n";
-
- //세부검체명
- //iXPos = Number(sLeftBank) + 50;
- //iYPos = Number(sTopBank) + 182;
- //sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + tclslblnmlist + "\"" + "\r\n";
- //원처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 204;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + prcpdispnm + "\"" + "\r\n";
-
- //추가처방명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 228;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + prcpdispnm2 + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- }
-
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
-
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_COMLIS_ResultValidation
- * 설명 : 결과저장시 유효성체크 & 서버로 전달할 자료 Flag변경
- * argument : 수정이 필요합니다. 필요한 부분은 SCHProject에 있는 fCOMLIS_ResultValidation 함수를 참고해서 수정 하세요.
- **********************************************************************************/
- function lf_COMLIS_ResultValidation(objDs, pRsltstat, pIsMsg){
- var isRstErr = false;
- var isSelected = false;
- var nDsRowcount = objDs.rowcount;
- var isUpdate = false;
-
- var vMsg = "";
- trace("pIsMsg="+pIsMsg);
- if(pIsMsg){
- if(pRsltstat == "1"){
- vMsg = "결과저장";
- }else if(pRsltstat == "2"){
- var vMsg = "중간(예비)보고"
- } else if (pRsltstat == "4") {
- var vMsg = "최종보고"
- }
- }
-
- var vTestCDLIST = "";
- var vTestCDRsltLIST = "";
- var vTestCDRsltCmtLIST = "";
-
- objDs.updatecontrol = false;
- for(var i=0; i<nDsRowcount; i++)
- {
- if(objDs.getColumn(i, "sel_value") == "true" && (!((objDs.getColumn(i, "conttestyn") == 'Y' || objDs.getColumn(i, "conttestyn") == 'T') && objDs.getColumn(i, "readonly") == "true"))){
- isSelected = true;
- var vTclsscrnm = objDs.getColumn(i, "tclsscrnnm");
- var vTclskind = objDs.getColumn(i, "tclskind");
- var vParentrsltinptyn = lf_nullColValue(objDs, i, "parentrsltinptyn", "");
- var vReptrslt = objDs.getColumn(i, "reptrslt");
- var updateTF = false;
- if(pRsltstat == "4")
- {
-
- var vPanicMark = objDs.getColumn(i, "panicmark");
- var vDeltaMark = objDs.getColumn(i, "deltamark");
- var vCriticalMark = objDs.getColumn(i, "criticalmark");
- var vAlertMark = objDs.getColumn(i, "alertmark");
- var vRsltmark = lf_nullColValue(objDs, i, "rsltmark", "");
-
- if(lf_nullColValue(objDs, i, "rsltstat", "") == "4" ||lf_nullColValue(objDs, i, "rsltstat", "") == "5")
- {
- updateTF = true;
- }
- }
- if(vTclskind == "2")
- {
- if (pRsltstat != '10' && utlf_isNull(String(vReptrslt).getTrim())) {
- sysf_messageBox("[" + vTclsscrnm + "]항목은 공백인 결과는 입력할 수 없습니다.","I","");
- isRstErr = true;
- break;
- }
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
-
- isUpdate = true;
-
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- objDs.getColumn(i, "reptrslt") + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- objDs.getOrgColumn(i, "reptrslt") + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
-
- alert("vTestCDLIST(1) = " + vTestCDLIST);
- }
-
- }else if(vTclskind == "3")
- {
- // Parent항목은 조건에 따라 Child항목만 체크
- if(String(vParentrsltinptyn).getTrim() != "N")
- { //Parent인데 입력가능한 항목들
- var sREQPARENT = lf_nullColValue(objDs, i, "reqsub", ""); // Parent항목 결과필수 입력[default:'1']
- var vTestcd = objDs.getColumn(i, "testcd");
- var vN_Inptrslt = utlf_transNullToEmpty(objDs.getColumn(i, "inptrslt"));
- var vO_Inptrslt = utlf_transNullToEmpty(ds_copy_grd_TestInfoCnts.lookup("testcd",vTestcd, "inptrslt")); //objDs.getColumn(objDs.findRow("testcd", vTestcd), "inptrslt");
- //뭔지 모르겠음 TF 소스 ==>>model.getValue("/root/hidden/TestInfo/getTestInfoCnts[testcd ='" + vTestcd + "']/inptrslt");
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if((vN_Inptrslt != "C" && utlf_isNull(vO_Inptrslt)) ||
- ((pRsltstat == lf_nullColValue(objDs, i, "rsltstat", "")) &&
- ("Y" != objDs.getColumn(i, "retestyn")))){
- }else{
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- objDs.getColumn(i, "reptrslt") + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- objDs.getOrgColumn(i, "reptrslt") + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
- alert("vTestCDLIST(2) = " + vTestCDLIST);
- }
- }
- }
- else
- {
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF) {
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- objDs.getColumn(i, "reptrslt") + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- objDs.getOrgColumn(i, "reptrslt") + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
- alert("vTestCDLIST(3) = " + vTestCDLIST);
- }
- }
-
- }
- else
- {
- //Parent인데 입력 불가능한 항목들
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- if(updateTF)
- {
- if(objDs.getColumn(j, "orgreptrslt") != objDs.getColumn(j, "inptrslt")){ //20141217 orgreptrslt(기존값)과 inptrslt(입력값) 비교
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- utlf_transNullToEmpty(objDs.getColumn(i, "reptrslt")) + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- utlf_transNullToEmpty(objDs.getOrgColumn(i, "reptrslt")) + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
- alert("vTestCDLIST(4) = " + vTestCDLIST);
- }
- }
-
- }
-
- /* ↑↑↑↑↑↑↑↑↑ Parent항목 child항목 ↓↓↓↓↓↓↓↓↓*/
- for(var j = i+1 ; j<nDsRowcount; j++)
- {
- var vTclsscrnm_SUB = objDs.getColumn(j, "tclsscrnnm");
- var vTclskind_SUB = objDs.getColumn(j, "tclskind");
- var sChildessnrsltyn = lf_nullColValue(objDs, j, "childessnrsltyn", ""); // Child항목 결과필수 입력[default:'' or '0']
- if(vTclskind_SUB != "4" && vTclskind_SUB != "5" && vTclskind_SUB != "7"){
- break;
- }
- if (sChildessnrsltyn.getTrim() == "1") {
- // sub필수 항목은 공백입력 안됨...
- if(pRsltstat != '10' && utlf_isNull(String(vReptrslt).getTrim()) ) {
- sysf_messageBox("[" + vTclsscrnm_SUB + "]항목은 공백인 결과는 입력할 수 없습니다." , "I");
- isRstErr = "true";
- break;
- }
- }
-
- var vTestcd = objDs.getColumn(j, "testcd");
- var vN_Inptrslt = objDs.getColumn(j, "inptrslt");
- var vO_Inptrslt = utlf_transNullToEmpty(ds_copy_grd_TestInfoCnts.lookup("testcd",vTestcd, "inptrslt")); //objDs.getColumn(objDs.findRow("testcd", vTestcd), "inptrslt");
- //이해안됨 TF소스 =>> model.getValue("/root/hidden/TestInfo/getTestInfoCnts[testcd ='" + vTestcd + "']/inptrslt");
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5" && vTclskind_SUB != "7") && utlf_isNull(vN_Inptrslt)) ||
- ((pRsltstat == objDs.getColumn(j, "rsltstat")) && ("Y" != objDs.getColumn(j, "retestyn")))){
- }
- else
- {
- objDs.setRowType(j, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF)
- {
- if(utlf_transNullToEmpty(objDs.getColumn(j, "orgreptrslt")) != objDs.getColumn(j, "inptrslt"))
- { //20141217 orgreptrslt(기존값)과 inptrslt(입력값) 비교
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(j, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(j, "testcd") + "▦" +
- utlf_transNullToEmpty(objDs.getColumn(j, "reptrslt")) + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(j, "testcd") + "▦" + objDs.getColumn(j, "tclsscrnnm") + "▦" +
- utlf_transNullToEmpty(objDs.getOrgColumn(j, "reptrslt")) + "▦" + objDs.getColumn(j, "lastreptdt") + "▩";
- alert("vTestCDLIST(5) = " + vTestCDLIST);
- }
- }
- }
- }else{
- objDs.setRowType(j, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF){
- if(objDs.getColumn(j, "orgreptrslt") != objDs.getColumn(j, "inptrslt") && (objDs.getColumn(j, "orgreptrslt") != null)){ //20141217 orgreptrslt(기존값)과 inptrslt(입력값) 비교
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(j, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(j, "testcd") + "▦" +
- utlf_transNullToEmpty(objDs.getColumn(j, "reptrslt")) + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(j, "testcd") + "▦" + objDs.getColumn(j, "tclsscrnnm") + "▦" +
- utlf_transNullToEmpty(objDs.getOrgColumn(j, "reptrslt")) + "▦" + objDs.getColumn(j, "lastreptdt") + "▩";
- alert("vTestCDLIST(6) = " + vTestCDLIST);
- }
- }
- }
-
- /* * * * * * * * * * * * * * * * * * * * * * * * */
- }//child for
-
- if(isRstErr) break;
-
- if(objDs.getColumn(j, "sel_value") == "true"){
- if(objDs.getColumn(j, "tclskind") != "4" && objDs.getColumn(j, "tclskind") != "5"){
- i = --j;
- continue;
- }else{
- i = j;
- }
- }else{
- i = j;
- continue;
- }
-
- }
- else
- {
- var vTestcd = objDs.getColumn(j, "testcd");
- var vN_Inptrslt = objDs.getColumn(j, "inptrslt");
- var vO_Inptrslt = utlf_transNullToEmpty(ds_copy_grd_TestInfoCnts.lookup("testcd",vTestcd, "inptrslt")); //objDs.getColumn(objDs.findRow("testcd", vTestcd), "inptrslt");
- //이해안됨 TF소스 =>> model.getValue("/root/hidden/TestInfo/getTestInfoCnts[testcd ='" + vTestcd + "']/inptrslt");
- if(vN_Inptrslt == vO_Inptrslt){
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5" && vTclskind_SUB != "7") && utlf_isNull(vN_Inptrslt)) ||
- ((pRsltstat == lf_nullColValue(objDs, j, "rsltstat", "")) && ("Y" != lf_nullColValue(objDs, j, "retestyn", "")))){
- }else{
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF){
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- objDs.getColumn(i, "reptrslt") + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- objDs.getOrgColumn(i, "reptrslt") + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
- alert("vTestCDLIST(7) = " + vTestCDLIST);
- }
- }
- }else{
- objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = true;
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ objDs.getColumn(i, "testcd")+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + objDs.getColumn(i, "testcd") + "▦" +
- objDs.getColumn(i, "reptrslt") + "▩";
- vTestCDRsltCmtLIST = vTestCDRsltCmtLIST + objDs.getColumn(i, "testcd") + "▦" + objDs.getColumn(i, "tclsscrnnm") + "▦" +
- objDs.getOrgColumn(i, "reptrslt") + "▦" + objDs.getColumn(i, "lastreptdt") + "▩";
- alert("vTestCDLIST(8) = " + vTestCDLIST);
- }
- }
- }
- } // end if
- } //end for
- objDs.updatecontrol = true;
- // if(ds_DJGGParm.rowcount<1){
- // ds_DJGGParm.addRow();
- // }
- /*
- if(utlf_isNull(this.objects.get_item("ds_hidden_DJGGParm"))){
- dsf_createDsRow("ds_hidden_DJGGParm"
- , [{col: "bcno" , val: ""}
- , {col: "testlrgkind" , val: ""}
- , {col: "microtestkind" , val: ""}
- , {col: "bufDJGG" , val: ""}
- , {col: "testcdlist" , val: ""}
- , {col: "uprsltYN" , val: ""}
- , {col: "rsltsaveYN" , val: ""}
- , {col: "userid" , val: ""}]);
- }
- */
- trace("isRstErr="+isRstErr);
- trace("isSelected="+isSelected);
- trace("pIsMsg="+pIsMsg);
- trace("vMsg="+vMsg);
- if(isRstErr){
- if(isSelected){
- if(pIsMsg){
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오.","I","");
- }
- return "2"; // 선택한항목 없음
- }
- return "1"; // 입력결과 오류
- }else
- {
- if(!isSelected)
- {
- if(pIsMsg)
- {
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오.","I","");
- }
- return "2"; // 선택한항목 없음
- }
- if(!isUpdate)
- {
- sysf_messageBox("수정된 결과값이 없습니다.","I","");
- return "1"; // 입력결과 오류
- }
- if(!utlf_isNull(vTestCDLIST))
- {
- trace("ddddddddddddddddddddd");
- ds_hidden_DJGGParrm.setColumn(0, "testcdlist", String(vTestCDLIST).substring(0, String(vTestCDLIST).length-1));
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "Y");
- ds_hidden_DJGGParrm.setColumn(0, "bufDJGG", vTestCDRsltLIST);
- ds_hidden_DJGGParrm.setColumn(0, "orgBufDJGG", vTestCDRsltCmtLIST);
-
- }else{
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "N");
- }
-
- return "0"; // 정상
- }
- }
- /**
- * 보이는결과로 바꾸기
- */
- function fCOMLIS_CvtReptrslt(pInptrslt, pRsltkind, pUlen, pLlen, pType , pNvalrsltlimyn) {
- var vReptrslt = pInptrslt;
- if (!utlf_isNull(vReptrslt)) {
- // 결과유형 체크
- if (pRsltkind == "1") {
- //숫자만 가능
- if( !String(vReptrslt).isNumber() && !String(vReptrslt).isFloat() ) {
- sysf_messageBox("숫자결과만 입력이 가능합니다.","I","");
- return "err";
- }
- } else {
- //문자+숫자혼합
- }
- //숫자결과 크기제한
- if (String(vReptrslt).isNumber() || String(vReptrslt).isFloat()) {
- if(String(pLlen).isNumber()){
- //실수자리수 크기제한
- if (eval(pLlen) > -1 && pNvalrsltlimyn == "Y") {
- vReptrslt = fCOMLIS_RstRound(vReptrslt, pLlen, pType);
- }
- }
- }
- }
- //if( vReptrslt=="" ) return "err";
- return vReptrslt;
- }
- /**
- * 올림, 반올림, 내림 처리
- */
- function fCOMLIS_RstRound(pRst, pLen, pType){
- var vNumber = eval(pRst);
- if (utlf_isNull(pLen)) return vNumber;
- if (utlf_isNull(pType)) return vNumber;
- if (pType == "-") return vNumber;
-
- if (pLen != "0") {
- if (pType == "2") {
- // 올림
- if (eval(pLen) > 0) {
- vNumber = Math.ceil(Math.round(parseFloat(vNumber) * Math.pow(10, pLen))) / Math.pow(10, pLen);
- } else {
- return "";
- }
- } else if (pType == "1") {
- // 반올림
- if (eval(pLen) > 0) {
- vNumber = Math.round(Math.round(parseFloat(vNumber) * Math.pow(10, pLen))) / Math.pow(10, pLen);
- } else {
- return "";
- }
- } else if (pType == "3") {
- // 내림
- if (eval(pLen) > 0) {
- } else {
- return "";
- }
- } else {
- return "";
- }
- // 소수자리보다 작은경우 0으로 채운다..
- var vTmpArray = eval(vNumber).toString().setReplaceWord("-", "").split(".");
- if(vTmpArray.length == 2 ) {
- vNumber = vTmpArray[0].toString() + "." + (vTmpArray[1].toString() + "0000000000").substr(0, eval(pLen));
- } else {
- vNumber = vTmpArray[0].toString() + "." + "0000000000".substr(0, eval(pLen));
- }
- } else if (pLen == "0") {
- if (pType == "2") {
- // 올림
- vNumber = Math.ceil(parseFloat(vNumber));
- } else if (pType == "1") {
- // 반올림
- vNumber = Math.round(parseFloat(vNumber));
- } else if (pType == "3") {
- // 내림
- }
- // 소수자리가 0인경우 정수부분만 취한다.
- vNumber = vNumber.toString().getTruncate()
- }
- return vNumber;
- }
- /**
- * Panic, Critical, Alert 판정
- *
- */
- function fCOMLIS_JudgPCA(pResult, pJudgGbn, pRefL, pRefLS, pRefH, pRefHS, pJudgmark) {
- var vRetJudgmark = "";
- var isLower = true;
- var isUpper = true;
- // 결과가 숫자가 아닌경우 PCA판정 안함
- if (!String(pResult).isNumber() && !String(pResult).isFloat()) {
- return vRetJudgmark;
- }
- if (!String(pRefL).isNumber() && !String(pRefL).isFloat()) {
- isLower = false;
- }
- if (!String(pRefH).isNumber() && !String(pRefH).isFloat()) {
- isUpper = false;
- }
- /**
- 판정구분(pJudgGbn)
- [0] 사용안함
- [1] 하한만 사용
- [2] 상한만 사용
- [3] 모두사용
- [4] 하한만 사용 (Grade)
- [5] 상한만 사용 (Grade)
- [6] 모두 사용 (Grade)
- [7] Grayzone 사용 --2006.05.22 ACK.HSM 추가
- */
- /** -- 2008.02.21 재한 추가
- 부등호(pRefLS, pRefHS)
- 0 : <
- 1 : <=
- 2 : >
- 3 : >=
- */
- var resultF = parseFloat(pResult);
- var reflF = parseFloat(pRefL);
- var refhF = parseFloat(pRefH);
- if (pJudgGbn == "1") {
- if (isLower) {
- if(pRefLS == "0")
- vRetJudgmark = (resultF < reflF) ? pJudgmark : "";
- else if(pRefLS == "1")
- vRetJudgmark = (resultF <= reflF) ? pJudgmark : "";
- }
- } else if (pJudgGbn == "2") {
- if (isUpper) {
- if(pRefHS == "2")
- vRetJudgmark = (resultF > refhF) ? pJudgmark : "";
- else if(pRefHS == "3")
- vRetJudgmark = (resultF >= refhF) ? pJudgmark : "";
- }
- } else if (pJudgGbn == "3") {
- if (isLower && isUpper) {
- if(pRefLS == "0" && pRefHS == "2")
- vRetJudgmark = ((resultF < reflF) || (resultF > refhF)) ? pJudgmark : "";
- else if(pRefLS == "0" && pRefHS == "3")
- vRetJudgmark = ((resultF < reflF) || (resultF >= refhF)) ? pJudgmark : "";
- else if(pRefLS == "1" && pRefHS == "2")
- vRetJudgmark = ((resultF <= reflF) || (resultF > refhF)) ? pJudgmark : "";
- else if(pRefLS == "1" && pRefHS == "3"){
- vRetJudgmark = ((resultF <= reflF) || (resultF >= refhF)) ? pJudgmark : "";
- }
- }
- } else if (pJudgGbn == "4") {
- } else if (pJudgGbn == "5") {
- } else if (pJudgGbn == "6") {
- } else if (pJudgGbn == "7") {
- if (isLower && isUpper)
- vRetJudgmark = ((resultF >= reflF) && (resultF <= refhF)) ? pJudgmark : "";
- }
- return vRetJudgmark;
- }
- /**
- * 결과 L/H 판정
- *
- * 사용XFM
- * LLR_GSHMSangSe.xfm
- */
- function fCOMLIS_JudgLH(pResult, vJudgkind, pRefL, pRefLS, pRefH, pRefHS,pRefLT,pRvalflag) {
- // 결과판정 Low/High만 수행
- var vJudgmark = "";
- if (vJudgkind != "0") {
- var isLow = true;
- var isHigh = true;
- if (!String(pResult).isNumber() && !String(pResult).isFloat()) {
- return vJudgmark;
- }
- if (!String(pRefL).isNumber() && !String(pRefL).isFloat()) {
- isLow = false;
- }
- if (!String(pRefH).isNumber() && !String(pRefH).isFloat()) {
- isHigh = false;
- }
- if (isLow) {
- //하한값 체크
- if (pRefLS == "0") {
- // 결과 <= 참고치 = L
- if (parseFloat(pResult) < parseFloat(pRefL))
- vJudgmark = "L";
- } else if (pRefLS == "1") {
- // 결과 < 참고치 = L
- if (parseFloat(pResult) <= parseFloat(pRefL))
- vJudgmark = "L";
- }
- }
- if (isHigh) {
- //상한값 체크
- if (pRefHS == "0") {
- // 결과 >= 참고치 = H
- if (parseFloat(pResult) > parseFloat(pRefH))
- vJudgmark = "H";
- } else if (pRefHS == "1") {
- // 결과 > 참고치 = H
- if (parseFloat(pResult) >= parseFloat(pRefH))
- vJudgmark = "H";
- }
- }
- }
- return vJudgmark;
- }
- /**
- * Delta 판정
- *
- */
- function fCOMLIS_JudgDelta(pResult, pBFResult, pJudgGbn, pRefH, pDeltaday, pRstinterval) {
- var vRetJudgmark = "";
- var isLower = true;
- var isUpper = true;
- // 결과가 숫자가 아닌경우 Delta판정 안함
- if (!String(pResult).isNumber() && !String(pResult).isFloat()) {
- return vRetJudgmark;
- }
- // 이전 결과가 숫자가 아닌경우 Delta판정 안함
- if (!String(pBFResult).isNumber() && !String(pBFResult).isFloat()) {
- return vRetJudgmark;
- }
- // 이전 최종보고가 없거나 숫자가아닌경우 Delta판정 안함(최종보고일과의 차이가 Null인경우)
- if (!String(pRstinterval).isNumber() && !String(pRstinterval).isFloat()) {
- return vRetJudgmark;
- }
- // 이전 최종보고일과의 차이가 Delta판정기간을 초과한경우 Delta판정 안함
- if ((String(pDeltaday).isNumber()) && (eval(pDeltaday + " < " + pRstinterval))) {
- return vRetJudgmark;
- }
- if (!String(pRefH).isNumber() && !String(pRefH).isFloat()) {
- return vRetJudgmark;
- }
- /**
- 판정구분(pJudgGbn)
- [1] 변화차 = 현재결과 - 이전결과
- [2] 변화비율 = 변화차/이전결과 * 100
- [3] 기간당변화차 = 변화차/기간
- [4] 기간당변화비율 = 변화비율/기간
- [5] 절대변화비율 = 변화차/이전결과
- [6] Grade Delta = 현재Grade - 이전Grade
- */
- var resultF = parseFloat(pResult);
- var bfresultF = parseFloat(pBFResult);
- var refhF = parseFloat(pRefH);
- var rstintervalF = parseFloat(pRstinterval);
- // 판정구분에 따른 계산결과
- var rstCalc = 0
- var rstDiff = parseFloat(Math.abs(resultF - bfresultF)); // 변화차(절대값)
- var rstDiffRate = (rstDiff / bfresultF) * 100 // 변화비율
- if (pJudgGbn == "1") {
- rstCalc = rstDiff;
- } else if (pJudgGbn == "2") {
- rstCalc = rstDiffRate;
- } else if (pJudgGbn == "3") {
- if (rstintervalF.toString() != "0")
- rstCalc = rstDiff / rstintervalF;
- } else if (pJudgGbn == "4") {
- if (rstintervalF.toString() != "0")
- rstCalc = rstDiffRate / rstintervalF;
- } else if (pJudgGbn == "5") {
- rstCalc = rstDiff / bfresultF;
- } else if (pJudgGbn == "6") {
- }
- if (rstCalc != 0)
- vRetJudgmark = (rstCalc > refhF) ? "D" : ""; // 판정 (상한값을 벗어나는경우만 Delta처리
- return vRetJudgmark;
- }
- /**
- * 사용자정의판정 결과변경
- *
- */
- function fCOMLIS_CvtUjudgRst(pOrgResult, pResult, pJudgmark, pUjudglt) {
- var vReptrslt = pResult;
- var vJudggbn = String(pUjudglt[0]).split(",");
- if (String(pResult).length == 0) return vReptrslt;
- // 숫자 여부(실제결과가 숫자만 사용자정의판정을 한다.)
- if (!String(pOrgResult).isNumber() && !String(pOrgResult).isFloat()) {
- return vReptrslt;
- }
- if (vJudggbn[0] == "2") {
- // 2단계 판정
- if (pJudgmark == "H") {
- vReptrslt = fCOMLIS_Ujudglt(vJudggbn[2], pResult, pUjudglt[2]);
- } else {
- vReptrslt = fCOMLIS_Ujudglt(vJudggbn[1], pResult, pUjudglt[1]);
- }
- } else if (vJudggbn[0] == "3") {
- // 3단계 판정
- if (pJudgmark == "L") {
- vReptrslt = fCOMLIS_Ujudglt(vJudggbn[1], pResult, pUjudglt[1]);
- } else if (pJudgmark == "H") {
- vReptrslt = fCOMLIS_Ujudglt(vJudggbn[3], pResult, pUjudglt[3]);
- } else {
- vReptrslt = fCOMLIS_Ujudglt(vJudggbn[2], pResult, pUjudglt[2]);
- }
- }
- return vReptrslt;
- }
-
-
- /**
- * 사용자정의판정 구분에 따른 결과문자 반환
- *
- */
- function fCOMLIS_Ujudglt(pUjudgtype, pResult, pUjudglt) {
- var vRetval = pResult
- if (pUjudgtype == "0") {
- // [0] 판정문자는 판정으로만 : 결과 -> 결과1
- } else if (pUjudgtype == "1") {
- // [1] 판정문자를 결과에 대체 : 결과 -> 판정문
- vRetval = pUjudglt;
- } else if (pUjudgtype == "2") {
- // [2] 판정문자를 결과에 포함 : 결과 -> 판정문자 (결과)
- vRetval = pUjudglt + " (" + pResult + ")";
- } else if (pUjudgtype == "3") {
- // [3] 판정문자를 결과에 포함 : 결과 -> 판정문자 결과
- vRetval = pUjudglt + " " + pResult ;
- } else if (pUjudgtype == "4") {
- // [4] 판정문자를 결과에 포함 : 결과 -> 결과 판정문자
- vRetval = pResult + " " + pUjudglt ;
- }
- return vRetval;
- }
-
-
- /**
- * 허용하한치 판정
- *
- */
- function fCOMLIS_JudgLimit(pResult, pJudgType, pRefL, pRefLS, pRefLDK, pRefH, pRefHS, pRefHDK) {
- var retResult = pResult;
- var isLow = true;
- var isHigh = true;
- // 결과 숫자여부
- if (!String(pResult).isNumber() && !String(pResult).isFloat()) {
- return retResult;
- }
- // 허용 하한값 숫자여부
- if (String(pRefL).isNumber() && !String(pRefL).isFloat()) {
- isLow = false;
- }
- // 허용 상항값 숫자여부
- if (String(pRefH).isNumber() && !String(pRefH).isFloat()) {
- isHigh = false;
- }
- /** -- 2008.02.21 재한 추가
- 부등호(pRefLS, pRefHS)
- 0 : <
- 1 : <=
- 2 : >
- 3 : >=
- */
- // 허용치 하한 or 모두
- if ((pJudgType == "1" || pJudgType == "3") && isLow) {
- /* 화면에 보이는 결과(pRefLDK) -- 2008.02.21 재한 수정
- [0] 없음
- [1] 결과를 '허용하한수치로'로 : 예) 20
- [2] 결과를 '<허용하한수치로'로 : 예) < 20
- [3] 결과를 '허용하한수치 이하로'로 : 예) 20이하
- [4] 결과를 '허용하한수치 미만으로'로 : 예) 20미만
- [5] 결과를 '재검중'로 : 예) 재검중
- [6] 결과를 '측정불가'로 : 예) 측정불가
- */
-
- if(pRefLS == "0") {
- if (parseFloat(pResult) < parseFloat(pRefL)) {
- if (pRefLDK == "1") {
- retResult = pRefL;
- } else if (pRefLDK == "2") {
- retResult = "< " + pRefL;
- } else if (pRefLDK == "3") {
- retResult = pRefL + " 이하";
- } else if (pRefLDK == "4") {
- retResult = pRefL + " 미만";
- } else if (pRefLDK == "5") {
- retResult = "재검중";
- } else if (pRefLDK == "6") {
- retResult = "측정불가";
- }
-
- }
- }else if(pRefLS == "1") {
- if (parseFloat(pResult) <= parseFloat(pRefL)) {
- if (pRefLDK == "1") {
- retResult = pRefL;
- } else if (pRefLDK == "2") {
- retResult = "< " + pRefL;
- } else if (pRefLDK == "3") {
- retResult = pRefL + " 이하";
- } else if (pRefLDK == "4") {
- retResult = pRefL + " 미만";
- } else if (pRefLDK == "5") {
- retResult = "재검중";
- } else if (pRefLDK == "6") {
- retResult = "측정불가";
- }
-
- }
- }
- }
- // 허용치 상한 or 모두
- if ((pJudgType == "2" || pJudgType == "3") && isHigh) {
- /* 화면에 보이는 결과(pRefHDK) -- 2008.02.21 재한 수정
- [0] 없음
- [1] 결과를 '허용상한수치로'로 : 예) 2000
- [2] 결과를 '>허용상한수치로'로 : 예) > 2000
- [3] 결과를 '허용상한수치 이상으로'로 : 예) 2000이상
- [4] 결과를 '허용상한수치 초과로'로 : 예) 2000초과
- [5] 결과를 '재검중'로 : 예) 재검중
- [6] 결과를 '측정불가'로 : 예) 측정불가
- */
-
- if(pRefHS == "2") {
- if (parseFloat(pResult) > parseFloat(pRefH)) {
- if (pRefHDK == "1") {
- retResult = pRefH;
- } else if (pRefHDK == "2") {
- retResult = "> " + pRefH;
- } else if (pRefHDK == "3") {
- retResult = pRefH + " 이상";
- } else if (pRefHDK == "4") {
- retResult = pRefH + " 초과";
- } else if (pRefHDK == "5") {
- retResult = "재검중";
- } else if (pRefHDK == "6") {
- retResult = "측정불가";
- }
-
- }
- }else if(pRefHS == "3") {
- if (parseFloat(pResult) >= parseFloat(pRefH)) {
- if (pRefHDK == "1") {
- retResult = pRefH;
- } else if (pRefHDK == "2") {
- retResult = "> " + pRefH;
- } else if (pRefHDK == "3") {
- retResult = pRefH + " 이상";
- } else if (pRefHDK == "4") {
- retResult = pRefH + " 초과";
- } else if (pRefHDK == "5") {
- retResult = "재검중";
- } else if (pRefHDK == "6") {
- retResult = "측정불가";
- }
-
- }
- }
- }
- return retResult;
- }
- function fCOMLIS_getMarkColor(pMark, pGbn){
- var color = "";
- if (pGbn == "B") {
- // 배경색
- if (pMark == "H") {
- color = "#f7a08b#";
- } else if (pMark == "L") {
- color = "#b9e5fb";
- } else if (pMark == "P") {
- color = "#7BE6B7";
- } else if (pMark == "D") {
- color = "#dec6a4" ;
- } else if (pMark == "C") {
- color = "#ffe79d";
- } else if (pMark == "A") {
- color = "#fec34d";
- }
- } else if (pGbn == "F") {
- // 전경색(글자색)
- color[0] = 255; color[1] = 255; color[2] = 255;
- if (pMark == "H") {
- color[0] = 255; color[1] = 0; color[2] = 0;
- //color[0] = 0; color[1] = 0; color[2] = 255;
- } else if (pMark == "L") {
- color[0] = 0; color[1] = 0; color[2] = 255;
- //color[0] = 255; color[1] = 0; color[2] = 0;
- } else if (pMark == "P") {
- color[0] = 153; color[1] = 0; color[2] = 204;
- } else if (pMark == "D") {
- color[0] = 0; color[1] = 128; color[2] = 0;
- } else if (pMark == "C") {
- color[0] = 255; color[1] = 102; color[2] = 0;
- } else if (pMark == "A") {
- color[0] = 0; color[1] = 0; color[2] = 0;
- }
- }
- return color;
- }
- /**********************************************************************************
- * 함수명 : lf_bodyControl
- * 설명 : 해당 컴포넌트 하위 컴포넌트들의 enable 설정
- * argument : flag - 설정flag (true/false)
- obj - 해당 컴포넌트(ex : this, this.div)
- trueComponentName - enable true로 설정할 컴포넌트 name:str
- **********************************************************************************/
- function lf_bodyControl(flag,obj,trueComponentName){
- var formComponentlist = obj.components;
-
- for(var i=0; i<formComponentlist.length; i++){
- if(formComponentlist[i] instanceof Edit || formComponentlist[i] instanceof Combo ||
- formComponentlist[i] instanceof Button || formComponentlist[i] instanceof Calendar ||
- formComponentlist[i] instanceof Radio || formComponentlist[i] instanceof TextArea ||
- formComponentlist[i] instanceof CheckBox){
- if(formComponentlist[i].name != trueComponentName){
- formComponentlist[i].enable = flag;
- }
- }
- }
- }
- /**********************************************************************************
- * 함수명 : createColumn
- * 설명 : Dataset의 column 생성
- * argument : objDs - Dataset
- strColID - 생성할 column 명 : str
- **********************************************************************************/
- function createColumn(objDs, strColID){
- var isExist = false;
- if(!isExistCol(objDs, strColID)){
- objDs.addColumn(strColID,"string");
- }
- }
- /**********************************************************************************
- * 함수명 : isExistCol
- * 설명 : Dataset의 해당 column 유무 확인
- * argument : objDs - Dataset
- strColID - 확인할 column 명 : str
- **********************************************************************************/
- function isExistCol(objDs, strColID){
- var isExist = false;
- var colID = "";
- for(var i=0; i<objDs.getColCount(); i++){
- colID = objDs.getColID(i);
- if(colID == strColID){
- isExist = true;
- }
- }
- return isExist;
- }
- /**********************************************************************************
- * 함수명 : getColPosition
- * 설명 : Dataset의 해당 column의 colindex를 반환
- * argument : objDs - Dataset
- strColID - 확인할 column 명 : str
- * return : col index
- **********************************************************************************/
- function getColPosition(objDs, strColID){
- var col = -1;
- if(isExistCol(objDs, strColID)){
- for(var i=0; i<objDs.colcount; i++){
- if(objDs.getColID(i) == strColID){
- col = i;
- }
- }
- }
- return col;
- }
- /**********************************************************************************
- * 함수명 : lf_nvl
- * 설명 : 오브젝트가 null 일경우 대체 반환
- * argument : objDs - Dataset
- * return : str - 대체할 값
- **********************************************************************************/
- function lf_nvl(obj, str){
- var returnValue = "";
- if(utlf_isNull(obj)){
- returnValue = str;
- }else{
- returnValue = obj;
- }
- return returnValue;
- }
- /**********************************************************************************
- * 함수명 : lf_nullColValue
- * 설명 : 해당 Dataset의 column이 없을경우 대체할 값 반환
- * argument : objDs - Dataset
- : index - index
- : strColID - column name
- : value - 대체할 값
- * return : returnValule - 대체할 값
- **********************************************************************************/
- function lf_nullColValue(objDs, index, strColID, value){
- var returnValule = "";
- if(isExistCol(objDs, strColID)){
- returnValule = objDs.getColumn(index, strColID);
- }else{
- returnValule = value;
- }
- return returnValule;
- }
- /**********************************************************************************
- * 함수명 : lf_isExistDs
- * 설명 : 해당 컴포넌트에 속해 있는 모든 데이터셋 중 원하는 데이터셋 존재유무
- * argument : objDs - component (ex : this)
- : strDs - 확인할 Dataset
- : [returnType] - dataset을 반환 할지 여부("dataset" 이면 Dataset을 반환)
- * return : returnValule - true, false 또는 Dataset
- **********************************************************************************/
- function lf_isExistDs(obj, strDs, returnType){
- var curDepth = 0;
- var returnFlag = false;
-
- var tmpStr = "";
-
- if(obj == null) return;
- var arrayCompList = obj.all;
- if(arrayCompList == "undefined") return;
- for(var i=0, len=arrayCompList.length ; i < len; i++){
- if(arrayCompList[i] instanceof Dataset){
- if(arrayCompList[i].name == "undefined") continue;
- if(arrayCompList[i].name == strDs){
- if(returnType == "dataset"){
- returnFlag = arrayCompList[i];
- }else if(returnType != "dataset" || utlf_isNull(returnType)){
- returnFlag = true;
- }
- break;
- }
-
- }else if(arrayCompList[i] instanceof Div || String(arrayCompList[i]).substring(0, 3) == "cp_"){ //Div 또는 공통 Composite 컨트롤 일 경우
- curDepth++;
- lf_isExistDs(arrayCompList[i], strDs);
- curDepth --;
-
- }else if(arrayCompList[i] instanceof Tab){ //Tab control일 경우
- var TabPageList = arrayCompList[i].components;
- curDepth++;
- for(var j=0; j < TabPageList.length; j++){
- lf_isExistDs(TabPageList[j], strDs);
- }
- curDepth --;
- }
- }
-
- return returnFlag;
- }
- /**********************************************************************************
- * 함수명 : copyDatasetCol
- * 설명 : 새로운 데이터셋 컬럼에 기존 데이터셋 컬럼의 데이터 생성 복사
- * argument : objDs - dataset
- : strOldColID - 복사할 column의 name
- : strNewColID - 생성할 column의 name
- **********************************************************************************/
- function copyDatasetCol(objDs, strOldColID, strNewColID){
- if(isExistCol(objDs, strOldColID)){
- createColumn(objDs, strNewColID);
- for(var i=0; i<objDs.rowcount; i++){
- objDs.setColumn(i, strNewColID, objDs.getColumn(i, strOldColID));
- }
- }
- }
- /**********************************************************************************
- * 함수명 : copyDatasetCol
- * 설명 : 새로운 데이터셋 컬럼에 기존 데이터셋 컬럼의 데이터 생성 복사
- * argument : objDs - dataset
- : strOldColID - 복사할 column의 name
- : strNewColID - 생성할 column의 name
- **********************************************************************************/
- function lf_copyColInfo(dsDest:Dataset, dsSrc:Dataset, bReplace){
- var nSrcColCnt = dsSrc.colcount;
-
- if(utlf_isNull(bReplace)) bReplace = true;
-
- if(bReplace) dsDest.clear();
-
- for(var j=0 ; j<nSrcColCnt ; j++){
- var sSrcColId = dsSrc.getColID(j);
-
- var objSrcColInfo = dsSrc.getColumnInfo(sSrcColId);
-
- dsDest.addColumn(sSrcColId, objSrcColInfo.type, objSrcColInfo.size);
- }
- }
- /**********************************************************************************
- * 함수명 : lf_UpPatinfo
- * 설명 : 환자 상단정보
- * argument : pid : 환자번호
- **********************************************************************************/
- function lf_UpPatinfo(pid){
- var sInDsName = dsf_createDsRow("ds_temp_search"
- , [{col: "pid", val: pid}]);
-
- dsf_createDs("ds_temp_prcpinfo");
-
- tranf_submit({
- id: "TRLZZ00109"
- , service: "diagtestapplib.LisCommon"
- , method: "reqGetPidTopinfo"
- , inds : "cond="+sInDsName
- , outds: "ds_temp_prcpinfo=getPidTopinfo"
- , callback: "cbf_TRLZZ00109"
- , async: true
- });
- }
- //콜백_Top정보 설정위한 환자 정보조회
- function cbf_TRLZZ00109(strSvcID, nErrorCode, strErrorMag){
- if(nErrorCode != 0){
- sysf_messageBox("ID: " + strSvcID + " Error: " + strErrorMag, "E009", "");
- }else{
- if(!utlf_isNull(ds_temp_prcpinfo.getColumn(0, "pid"))){
- frmf_setParameter('errflag', "Y");
-
- var genrflag = ds_temp_prcpinfo.getColumn(0, "genrflag");
- if(genrflag == "D") genrflag = "I";
- if(genrflag == "S") genrflag = "O";
-
- var mngtflag = genrflag; //조회구분
- var pid = ds_temp_prcpinfo.getColumn(0, "pid"); //등록번호
- var orddd = ds_temp_prcpinfo.getColumn(0, "orddd"); //진료일자
- var cretno = ds_temp_prcpinfo.getColumn(0, "cretno"); //생성번호
- var acptseqno = ds_temp_prcpinfo.getColumn(0, "acptseqno");
- var todd = ds_temp_prcpinfo.getColumn(0, "todd");
- var orgorddd = ds_temp_prcpinfo.getColumn(0, "orgorddd");
- var instcd = ds_temp_prcpinfo.getColumn(0, "instcd"); //기관코드
- var async = true; //비동기여부
- var condparam = "";
-
- if((genrflag == "I") || (genrflag =="E")){
- condparam += mngtflag +'▦'+
- pid +'▦'+
- orddd +'▦'+
- cretno +'▦'+
- instcd +'▦'+
- todd +'▦'+
- async;
-
- }else if((genrflag =="O") || (genrflag =="S")){
- condparam += mngtflag +'▦'+
- pid +'▦'+
- orddd +'▦'+
- cretno +'▦'+
- instcd +'▦'+
- async;
- }
- frmf_setParameter('condparam', condparam); // 글로벌변수에 저장
- appf_initPatientInfo(condparam); //환자상단호출
- }
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisTnsrBarcodeLabel
- * 설명 : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisTnsrBarcodeLabel(ref,prntinfo){
- // var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- // var vInstance = document.models(0).instances(0);
- var cntHR = ref.rowcount;
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
-
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR ;i++){
- var sStr = "";
- var prepblodseqno = utlf_transNullToEmpty(ref.getColumn(i,"prepblodseqno")); //준비혈액일련번호
- var blodno = utlf_transNullToEmpty(ref.getColumn(i,"blodno")); //혈액번호
- var blodno2 = utlf_transNullToEmpty(ref.getColumn(i,"blodno2")); //혈액번호
- var blodno3 = utlf_transNullToEmpty(ref.getColumn(i,"blodno3")); //혈액번호
- var blodno4 = utlf_transNullToEmpty(ref.getColumn(i,"blodno4")); //혈액번호
- var blodno5 = utlf_transNullToEmpty(ref.getColumn(i,"blodno5")); //혈액번호
- var blodno6 = utlf_transNullToEmpty(ref.getColumn(i,"blodno6")); //혈액번호
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var patnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm")); //환자명
- var sexage = utlf_transNullToEmpty(ref.getColumn(i,"sexage")); //성별나이
- var roominfo = utlf_transNullToEmpty(ref.getColumn(i,"roominfo")); //진료과병실
- var cmrslt = utlf_transNullToEmpty(ref.getColumn(i,"cmrslt")); //크로스매칭결과
- var blodcomnm = utlf_transNullToEmpty(ref.getColumn(i,"blodcomnm")); //성분제제명
- var aborh = utlf_transNullToEmpty(ref.getColumn(i,"aborh")); //공혈자혈액형
- var btype = utlf_transNullToEmpty(ref.getColumn(i,"btype")); //수혈자혈액형
- var iryn = utlf_transNullToEmpty(ref.getColumn(i,"iryn")); //방사선조사여부
- var prtdd = utlf_transNullToEmpty(ref.getColumn(i,"prtdd")); //불출일자
- var prttm = utlf_transNullToEmpty(ref.getColumn(i,"prttm")); //불출시간
- var rprtdd = utlf_transNullToEmpty(ref.getColumn(i,"rprtdd")); //준비일자
- var rprttm = utlf_transNullToEmpty(ref.getColumn(i,"rprttm")); //준비시간
- var validd = utlf_transNullToEmpty(ref.getColumn(i,"validd")); //유효일자
- var valitm = utlf_transNullToEmpty(ref.getColumn(i,"valitm")); //유효시간
- var cmnm = utlf_transNullToEmpty(ref.getColumn(i,"cmnm")); //검사자
- var delivenm = utlf_transNullToEmpty(ref.getColumn(i,"delivenm")); //불출자
- var acptnm = utlf_transNullToEmpty(ref.getColumn(i,"acptnm")); //수령자
- var filteryn = utlf_transNullToEmpty(ref.getColumn(i,"filteryn")); //필터여부
- var cmnmdd = utlf_transNullToEmpty(ref.getColumn(i,"cmnmdd")); //검사일시
- var acptdt = utlf_transNullToEmpty(ref.getColumn(i,"acptdt")); //출고일시(불출일시)
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- trace("속도개선용==============");
- trace(blodno);
- trace(pid);
- trace(prepblodseqno);
- trace(patnm);
- trace(sexage);
- trace(roominfo);
- trace(blodcomnm);
- trace(cmnmdd);
- trace(aborh);
- trace("속도개선용==============");
-
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //등록번호
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 465;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + pid + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 142;
- iYPos = Number(sTopBank) + 472;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,12:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
- //성명
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 465;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 480;
- if(patnm.length == utlf_getStringLength(patnm)){
- iYPos = Number(sTopBank) + 475;
- }
- else{//한글
- iYPos = Number(sTopBank) + 498;
- }
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,12,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //진료과/병동
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 430;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + roominfo + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 434;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,9:NI:PT " +"\"" + roominfo + "\"" + "\r\n";
-
- //성별/나이
- //iXPos = Number(sLeftBank) + 470;
- //iYPos = Number(sTopBank) + 430;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sexage + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 490;
- iYPos = Number(sTopBank) + 434;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,9:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
- //환자혈액형(수혈자혈액형)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 402;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,12:NI:PT " +"\"" + btype + "\"" + "\r\n";
-
- //출고혈액형(공혈자혈액형)
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 390;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + aborh + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 402;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,12:NI:PT " +"\"" + aborh + "\"" + "\r\n";
-
- // if(sCommKind == "01") {
- // //CommAX.SendMessageToLPT(sSndMsg);
- // llz_objCommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // }
- // else if(sCommKind == "02") {
- // //CommAX.SendMessage(sSndMsg);
- // llz_objCommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
-
- //혈액종류(성분제제명)
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 360;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodcomnm + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 138;
- if(blodcomnm.length == utlf_getStringLength(blodcomnm)){
- iYPos = Number(sTopBank) + 365;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,10:NI:PT " +"\"" + blodcomnm + "\"" + "\r\n";
- }
- else{//한글
- iYPos = Number(sTopBank) + 382;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,12,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + blodcomnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- }
-
-
- //X-Matching major
- //iXPos = Number(sLeftBank) + 235;
- //iYPos = Number(sTopBank) + 300;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + cmrslt +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- ////sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 225;
- iYPos = Number(sTopBank) + 325;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + cmrslt +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //X-Matching minor(미정)
- //iXPos = Number(sLeftBank) + 235;
- //iYPos = Number(sTopBank) + 266;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + cmrslt +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 225;
- iYPos = Number(sTopBank) + 295;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + cmrslt +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //혈액번호1
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 360;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 370;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno + "\"" + "\r\n";
-
- //혈액번호2
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 330;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno2 + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 340;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno2 + "\"" + "\r\n";
-
- //혈액번호3
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 300;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno3 + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 310;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno3 + "\"" + "\r\n";
-
- //혈액번호4
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 270;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno4 + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno4 + "\"" + "\r\n";
-
- //혈액번호5
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 240;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno5 + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno5 + "\"" + "\r\n";
-
- //혈액번호6
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 210;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + blodno6 + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 445;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,11:NI:PT " +"\"" + blodno6 + "\"" + "\r\n";
-
- if(sCommKind == "01") {
- //CommAX.SendMessageToLPT(sSndMsg);
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- //CommAX.SendMessage(sSndMsg);
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- //방사선/필터
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 205;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + iryn + "/" + filteryn + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 216;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + iryn + "/" + filteryn +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //혈액백 확인(일단 무조건 OK표시)
- //iXPos = Number(sLeftBank) + 475;
- //iYPos = Number(sTopBank) + 175;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + "OK" + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 400;
- iYPos = Number(sTopBank) + 216;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + "OK" +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //검사자
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 165;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + cmnm +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 165;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " 10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + cmnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //검사일시
- //iXPos = Number(sLeftBank) + 455;
- //iYPos = Number(sTopBank) + 165;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + cmnmdd + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 176;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,9:NI:PT " +"\"" + cmnmdd + "\"" + "\r\n";
-
- //출고자(불출자)
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 130;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + delivenm +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 165;
- iYPos = Number(sTopBank) + 162;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + delivenm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //출고일시(불출일시)
- //iXPos = Number(sLeftBank) + 455;
- //iYPos = Number(sTopBank) + 130;
- //sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + acptdt + "\"" + "\r\n";
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 142;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,9:NI:PT " +"\"" + acptdt + "\"" + "\r\n";
-
- //수령자
- //iXPos = Number(sLeftBank) + 170;
- //iYPos = Number(sTopBank) + 95;
- //sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,8,0,90" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- //sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- //sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- //sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- //sSndMsg += "PT " +"\"" + acptnm +"\"" + "\r\n"; //입력데이터제공
- //sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- iXPos = Number(sLeftBank) + 165;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,10,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + acptnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- //CommAX.SendMessageToLPT(sSndMsg);
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- //CommAX.SendMessage(sSndMsg);
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q480,24" + "\r\n"; //용지세로 60mm,용지사이여백3mm
- sSndMsg += "q640" + "\r\n"; //용지가로80mm
-
- //등록번호
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 15;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" +pid + "\"" + "\r\n";
-
-
- //성명
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 15;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" +patnm + "\"" + "\r\n";
-
- //진료과/병동
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + roominfo + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //환자혈액형(수혈자혈액형)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + btype + "\"" + "\r\n";
-
- //출고혈액형(공혈자혈액형)
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + aborh + "\"" + "\r\n";
-
- //혈액종류(성분제제명)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodcomnm + "\"" + "\r\n";
-
- //X-Matching major
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + cmrslt + "\"" + "\r\n";
-
- //X-Matching minor(미정)
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 214;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + cmrslt + "\"" + "\r\n";
-
- //혈액번호1
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno + "\"" + "\r\n";
-
- //혈액번호2
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 150;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno2 + "\"" + "\r\n";
-
- //혈액번호3
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno3 + "\"" + "\r\n";
-
- //혈액번호4
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno4 + "\"" + "\r\n";
-
- //혈액번호5
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno5 + "\"" + "\r\n";
-
- //혈액번호6
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 270;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodno5 + "\"" + "\r\n";
-
- //방사선/필터
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 275;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + iryn + "/" + filteryn + "\"" + "\r\n";
-
- //혈액백 확인(일단 무조건 OK표시)
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 305;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + "OK" + "\"" + "\r\n";
-
- //검사자
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 315;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + cmnm + "\"" + "\r\n";
-
- //검사일시
- iXPos = Number(sLeftBank) + 455;
- iYPos = Number(sTopBank) + 315;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + cmnmdd + "\"" + "\r\n";
-
- //출고자(불출자)
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 350;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + delivenm + "\"" + "\r\n";
-
- //출고일시(불출일시)
- iXPos = Number(sLeftBank) + 455;
- iYPos = Number(sTopBank) + 350;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + acptdt + "\"" + "\r\n";
-
- //수령자
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 385;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + acptnm + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- //CommAX.SendMessageToLPT(sSndMsg);
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- //CommAX.SendMessage(sSndMsg);
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg = "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q480,24" + "\r\n"; //용지세로 60mm,용지사이여백3mm
- sSndMsg += "q640" + "\r\n"; //용지가로80mm
- sSndMsg += "OD"+ "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" +pid + "\"" + "\r\n";
-
- //성명
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" +patnm + "\"" + "\r\n";
-
- //진료과/병동
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 65;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + roominfo + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 65;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //환자혈액형(수혈자혈액형)
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 95;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + btype + "\"" + "\r\n";
-
- //출고혈액형(공혈자혈액형)
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + aborh + "\"" + "\r\n";
-
- //혈액종류(성분제제명)
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodcomnm + "\"" + "\r\n";
-
- //X-Matching major
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + cmrslt + "\"" + "\r\n";
-
- //X-Matching minor(미정)
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + cmrslt + "\"" + "\r\n";
-
- //혈액번호1
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno + "\"" + "\r\n";
-
- //혈액번호2
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno2 + "\"" + "\r\n";
-
- //혈액번호3
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno3 + "\"" + "\r\n";
-
- //혈액번호4
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno4 + "\"" + "\r\n";
-
- //혈액번호5
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno5 + "\"" + "\r\n";
-
- //혈액번호6
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodno5 + "\"" + "\r\n";
- ////////////////////////////////////
- //방사선/필터
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + iryn + "/" + filteryn + "\"" + "\r\n";
-
- //혈액백 확인(일단 무조건 OK표시)
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + "OK" + "\"" + "\r\n";
-
- //검사자
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 320;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + cmnm + "\"" + "\r\n";
-
- //검사일시
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 320;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,N," + "\"" + cmnmdd + "\"" + "\r\n";
-
- //출고자(불출자)
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 355;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + delivenm + "\"" + "\r\n";
-
- //출고일시(불출일시)
- iXPos = Number(sLeftBank) + 425;
- iYPos = Number(sTopBank) + 355;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,1,1,1,N," + "\"" + acptdt + "\"" + "\r\n";
-
- //수령자
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 390;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + acptnm + "\"" + "\r\n";
- //출력
- sSndMsg += "P1"+ "\r\n";
-
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- trace("");
- sSndMsg = "";
- }
- }
- }
-
- if(sCommKind == "02") {
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisTnsrBarcodeLabel2
- * 설명 : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisTnsrBarcodeLabel2(ref,prntinfo){
- // var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- // var vInstance = document.models(0).instances(0);
- var cntHR = ref.rowcount;
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
-
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR ;i++){
- var sStr = "";
- var prepblodseqno = utlf_transNullToEmpty(ref.getColumn(i,"prepblodseqno")); //준비혈액일련번호
- var blodno = utlf_transNullToEmpty(ref.getColumn(i,"blodno")); //혈액번호
- var blodno2 = utlf_transNullToEmpty(ref.getColumn(i,"blodno2")); //혈액번호
- var blodno3 = utlf_transNullToEmpty(ref.getColumn(i,"blodno3")); //혈액번호
- var blodno4 = utlf_transNullToEmpty(ref.getColumn(i,"blodno4")); //혈액번호
- var blodno5 = utlf_transNullToEmpty(ref.getColumn(i,"blodno5")); //혈액번호
- var blodno6 = utlf_transNullToEmpty(ref.getColumn(i,"blodno6")); //혈액번호
- var pid = utlf_transNullToEmpty(ref.getColumn(i,"pid")); //등록번호
- var patnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm")); //환자명
- var sexage = utlf_transNullToEmpty(ref.getColumn(i,"sexage")); //성별나이
- var roominfo = utlf_transNullToEmpty(ref.getColumn(i,"roominfo")); //진료과병실
- var cmrslt = utlf_transNullToEmpty(ref.getColumn(i,"cmrslt")); //크로스매칭결과
- var blodcomnm = utlf_transNullToEmpty(ref.getColumn(i,"blodcomnm")); //성분제제명
- var aborh = utlf_transNullToEmpty(ref.getColumn(i,"aborh")); //공혈자혈액형
- var btype = utlf_transNullToEmpty(ref.getColumn(i,"btype")); //수혈자혈액형
- var iryn = utlf_transNullToEmpty(ref.getColumn(i,"iryn")); //방사선조사여부
- var prtdd = utlf_transNullToEmpty(ref.getColumn(i,"prtdd")); //불출일자
- var prttm = utlf_transNullToEmpty(ref.getColumn(i,"prttm")); //불출시간
- var rprtdd = utlf_transNullToEmpty(ref.getColumn(i,"rprtdd")); //준비일자
- var rprttm = utlf_transNullToEmpty(ref.getColumn(i,"rprttm")); //준비시간
- var validd = utlf_transNullToEmpty(ref.getColumn(i,"validd")); //유효일자
- var valitm = utlf_transNullToEmpty(ref.getColumn(i,"valitm")); //유효시간
- var cmnm = utlf_transNullToEmpty(ref.getColumn(i,"cmnm")); //검사자
- var delivenm = utlf_transNullToEmpty(ref.getColumn(i,"delivenm")); //불출자
- var acptnm = utlf_transNullToEmpty(ref.getColumn(i,"acptnm")); //수령자
- var filteryn = utlf_transNullToEmpty(ref.getColumn(i,"filteryn")); //필터여부
- var cmnmdd = utlf_transNullToEmpty(ref.getColumn(i,"cmnmdd")); //검사일시
- var acptdt = utlf_transNullToEmpty(ref.getColumn(i,"acptdt")); //출고일시(불출일시)
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 270;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,14:NI:PT " +"\"" + pid + "\"" + "\r\n";
-
- //혈액형
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 270;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,14:NI:PT " +"\"" + btype + "\"" + "\r\n";
-
-
- //이름
- iXPos = Number(sLeftBank) + 20;
- if(patnm.length == utlf_getStringLength(patnm)){
- iYPos = Number(sTopBank) + 220;
- }else{//한글
- iYPos = Number(sTopBank) + 240;
- }
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,14,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + patnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
- //성별/나이
- iXPos = Number(sLeftBank) + 210;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,10:NI:PT " +"\"" + sexage + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 210;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,10:NI:PT " +"\"" + roominfo + "\"" + "\r\n";
-
- //준비중일시
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 150;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 BT" +"\"" + " ,10:NI:PT " +"\"" + cmnmdd + "\"" + "\r\n";
-
- //혈액종류(성분제제명)
- iXPos = Number(sLeftBank) + 20;
- if(blodcomnm.length == utlf_getStringLength(blodcomnm)){
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,10:NI:PT " +"\"" + blodcomnm + "\"" + "\r\n";
- }
- else{//한글
- iYPos = Number(sTopBank) + 110;
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,12,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + blodcomnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
- //sSndMsg += "PF " + "\r\n"; //인쇄
- }
-
-
- //혈액번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,13:NI:PT " +"\"" + blodno + "\"" + "\r\n";
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- //CommAX.SendMessageToLPT(sSndMsg);
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- //CommAX.SendMessage(sSndMsg);
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- // sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- // sSndMsg += "Q480,24" + "\r\n"; //용지세로 60mm,용지사이여백3mm
- // sSndMsg += "q640" + "\r\n"; //용지가로80mm
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" +pid + "\"" + "\r\n";
-
- //혈앨형
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" +btype + "\"" + "\r\n";
-
- //이름
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 70;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" + patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //진료과/병동
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + roominfo + "\"" + "\r\n";
-
- //준비중일시
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + cmnmdd + "\"" + "\r\n";
-
- //혈액종류(성분제제명)
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + blodcomnm + "\"" + "\r\n";
-
- //혈액번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,2,N," + "\"" + blodno + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- //CommAX.SendMessageToLPT(sSndMsg);
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- //CommAX.SendMessage(sSndMsg);
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg = "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q480,24" + "\r\n"; //용지세로 60mm,용지사이여백3mm
- sSndMsg += "q640" + "\r\n"; //용지가로80mm
- sSndMsg += "OD"+ "\r\n";
-
- //등록번호
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,3,N," + "\"" +pid + "\"" + "\r\n";
-
- //혈액형
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,3,N," + "\"" +btype + "\"" + "\r\n";
-
- //이름
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 70;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,2,4,N," + "\"" +patnm + "\"" + "\r\n";
-
- //성별/나이
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + sexage + "\"" + "\r\n";
-
- //병동/병실
- iXPos = Number(sLeftBank) + 520;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + roominfo + "\"" + "\r\n";
-
- //준비중일시
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + cmnmdd + "\"" + "\r\n";
-
- //혈액종류(성분제제명)
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,1,N," + "\"" + blodcomnm + "\"" + "\r\n";
-
- //혈액번호
- iXPos = Number(sLeftBank) + 235;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,1,2,N," + "\"" + blodno + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- trace("");
- sSndMsg = "";
- }
- }
- }
-
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen(false);
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisSpcSlideLabelPrint
- * 설명 : 혈액은행 바코드 출력 혈액준비, 혈액불출시
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisSpcSlideLabelPrint(ref,prntinfo){
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var cntHR = ref.rowcount;
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
-
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR ;i++){
- var sSpclno = utlf_transNullToEmpty(ref.getColumn(i,"spclno"));
- var sName = utlf_transNullToEmpty(ref.getColumn(i,"name"));
- var sPatnm = utlf_transNullToEmpty(ref.getColumn(i,"patnm"));
- var sSpcacptdt = utlf_transNullToEmpty(ref.getColumn(i,"spcacptdt"));
- var cnt = utlf_transNullToEmpty(ref.getColumn(i,"cnt"));
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
-
- //특수검사연번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sSpclno + "\"" + "\r\n";
-
- //명칭
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sName + "\"" + "\r\n";
-
- //환자명
-
- iXPos = Number(sLeftBank) + 20;
- if(sPatnm.length == utlf_getStringLength(sPatnm)){
- iYPos = Number(sTopBank) + 60;
- }
- else{//한글
- iYPos = Number(sTopBank) + 55;
- }
- sSndMsg += "FONTD " +"\"" +"Haansoft Dotum" +"\"" + " ,12,0,100" + "\r\n"; //더블바이트폰트의 크기,기울기,폭을 선택
- sSndMsg += "NASCD " +"\"" + "c:KSC5601.NCD" +"\"" + "\r\n"; //더블바이트 캐릭터셋지정
- sSndMsg += "PP " + iXPos + "," + iYPos + "\r\n"; //위치지정
- sSndMsg += "NI " + "\r\n"; //일반인쇄로 재설정
- sSndMsg += "PT " +"\"" + sPatnm +"\"" + "\r\n"; //입력데이터제공
- sSndMsg += "NASCD" +"\"" + "\"" + "\r\n"; //더블바이트 캐릭터셋초기화
-
-
- //접수일자
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + sSpcacptdt + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + cnt + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
- //특수검사연번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sSpclno + "\"" + "\r\n";
-
- //명칭
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 45;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sName + "\"" + "\r\n";
- //환자명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,2,2,N," + "\"" + sPatnm + "\"" + "\r\n";
-
- //접수일자
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sSpcacptdt + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "P"+cnt+",1" + "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- }else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg = "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q144,24" + "\r\n"; //용지세로 18mm,용지사이여백 3mm
- sSndMsg += "q184" + "\r\n"; //용지가 23mm
-
- //특수검사연번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sSpclno + "\"" + "\r\n";
-
- //명칭
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 45;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sName + "\"" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,10,2,2,N," + "\"" + sPatnm + "\"" + "\r\n";
-
- //접수일자
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,4,1,1,N," + "\"" + sSpcacptdt + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "," + cnt + "\r\n";
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }else if(sPrntKind == "1" || sPrntKind == "5"){ //Zebra ZPL
- //프린터설정
- sSndMsg = "^XA" + "\r\n"; //Format 시작
-
- //특수검사연번호
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += "^FO"+ iXPos + "," + iYPos + "^AFN,40,24" + "^FD"+sSpclno+"^FS" + "\r\n"; // font size 세로5mm, 가로3mm
-
- //명칭
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += "^FO"+ iXPos + "," + iYPos + "^AFN,40,24" + "^FD"+sName+"^FS" + "\r\n";
-
- //환자명
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "^FO"+ iXPos + "," + iYPos + "^AFN,40,24" + "^FD"+sPatnm+"^FS" + "\r\n";
-
- //접수일자
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "^FO"+ iXPos + "," + iYPos + "^AFN,40,24" + "^FD"+sSpcacptdt+"^FS" + "\r\n";
-
- //출력
- sSndMsg += "^XZ"; //Format 종료
- trace("sSndMsg: "+sSndMsg);
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- }
- }
-
- if(sCommKind == "02") {
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * Name : gf_getHospitalInfo
- * Description : 병원명칭, 대표전화/fax번호, 병원주소 등 병원정보조회
- * Argument : None
- * return Type : Null
- * Author : Autumn
- **********************************************************************************/
- function gf_getHospitalInfo(sInstCd)
- {
- dsf_createDs("ds_hospital_info");
- /*
- ds_hospital_info.getColumn(0, "hospnm" ); 병원명
- ds_hospital_info.getColumn(0, "bizmngrgstno"); 사업자등록번호
- ds_hospital_info.getColumn(0, "prsdnm" ); 병원장명
- ds_hospital_info.getColumn(0, "reprtel1" ); 대표전화1
- ds_hospital_info.getColumn(0, "reprtel2" ); 대표전화2
- ds_hospital_info.getColumn(0, "reprfaxno" ); 대표fax
- ds_hospital_info.getColumn(0, "zipcd1" ); 우편번호1
- ds_hospital_info.getColumn(0, "zipcd2" ); 우편번호2
- ds_hospital_info.getColumn(0, "zipcdseq" ); 우편번호 일련번호
- ds_hospital_info.getColumn(0, "detladdr" ); 병원주소(전체)
- ds_hospital_info.getColumn(0, "hospengnm" ); 영문병원명
- ds_hospital_info.getColumn(0, "prsdengnm" ); 영문병원장명
- ds_hospital_info.getColumn(0, "engaddr" ); 영문주소
- */
- var sInDsName = dsf_createDsRow("in_ds_search"
- , [{col: "instcd", val: sInstCd}]);
- // 서브밋호출
- tranf_submit({
- id: "TRLZZ00102"
- , service: "diagtestapplib.LisCommon"
- , method: "reqGetHospitalInfo"
- , inds : "refData=" + sInDsName
- , outds: "ds_hospital_info=hospinfo"
- , async: false
- });
- }
- /**********************************************************************************
- * Name : gf_getHospitalInfo
- * Description : 병원명칭, 대표전화/fax번호, 병원주소 등 병원정보조회
- * Argument : None
- * return Type : Null
- * Author : Autumn
- **********************************************************************************/
- function gf_getHospitalInfoMerge(sFlag)
- {
- var sReturn;
- if (ds_hospital_info.rowcount < 1) {
- return "";
- }
- switch (sFlag) {
- case "HNGADDR": // 123-456 부천시 ~
- sReturn = ds_hospital_info.getColumn(0, "zipcd1") + "-" + ds_hospital_info.getColumn(0, "zipcd2") + " " +
- ds_hospital_info.getColumn(0, "detladdr");
- break;
- case "ENGADDR": // 영문주소
- sReturn = ds_hospital_info.getColumn(0, "engaddr");
- break;
- case "TEL1": // TEL : 대표전화1
- sReturn = "Tel : " + ds_hospital_info.getColumn(0, "reprtel1");
- break;
- case "TEL2": // TEL : 대표전화2
- sReturn = "Tel : " + ds_hospital_info.getColumn(0, "reprtel2");
- break;
- case "TEL3": // TEL : 대표전화1 + " / " + 대표전화2
- sReturn = "Tel : " + ds_hospital_info.getColumn(0, "reprtel1") + " / " + ds_hospital_info.getColumn(0, "reprtel2");
- break;
- case "TELFAX": // TEL : 대표전화1 + " / " + FAX번호
- sReturn = "Tel : " + ds_hospital_info.getColumn(0, "reprtel1") + " / FAX : " + ds_hospital_info.getColumn(0, "reprfaxno");
- break;
- default:
- sReturn = "";
- break;
- }
-
- return sReturn;
- }
- /**********************************************************************************
- * Name : lf_sendMessage
- * Description : CVR발송
- * Argument : bcno 바코드번호
- rsltstat 결과상태 ( 2:중간보고, 4:최종보고)
- * return Type : Null
- * Author : Autumn
- **********************************************************************************/
- function lf_sendMessage(bcno,testcdList){
- trace("cvr메시지함수");
- dsf_createDs("ds_grid_grd_Message");
- var sInDsName = dsf_createDsRow("ds_temp_search"
- , [{col: "bcno", val:bcno }
- , {col: "testcd", val:testcdList }]);
-
- // 서브밋호출
- tranf_submit({
- id: ""
- , service: "rsltmngtapp.RsltMngt"
- , method: "reqGetCVRMessage"
- , inds : "cond="+sInDsName
- , outds : "ds_grid_grd_Message=getCVRMessage"
- , async: false
- });
-
- if(ds_grid_grd_Message.rowcount > 0){
- var objArg = new Object();
- objArg.message = ds_grid_grd_Message;
- frmf_modal("SPLLR91700","SPLLR91700",objArg);
- }else{
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : lf_lisQCBarcodePrint
- * 설명 : QC정도관리 바코드출력,
- * argument : ref - 출력할 바코드정보 Dataset
- prntinfo - 바코드설정정보 Dataset
- **********************************************************************************/
- function lf_lisQCBarcodePrint(ref,prntinfo){
- var cntHR = ref.rowcount;
- var sPrntKind = prntinfo.getColumn(0,"prntkind"); //프린터종류
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = utlf_transNullToEmpty(prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(prntinfo.getColumn(0,"top")); //위쪽여백
- if(sCommKind == "01") {
- var sSetUpVal = prntinfo.getColumn(0,"setupval"); //PRT LPT출력
- }
- else if(sCommKind == "02") { //COM serial출력
- var sComm = prntinfo.getColumn(0,"comm"); //com port
- var sDataBit = prntinfo.getColumn(0,"databit"); //data bit
- var sStopBit = prntinfo.getColumn(0,"stopbit"); //stop bit
- var sBaudRate = prntinfo.getColumn(0,"baudrate"); //baud rate
- var sParity = prntinfo.getColumn(0,"parity"); //parity
- llz_objCommAX.CommPort = sComm;
- llz_objCommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = llz_objCommAX.PortOpen(true);
- trace(portOpenCheck);
- }
- else if(sCommKind == "03") { //TCP/IP출력
- var sSetUpVal = prntinfo.getColumn(0,"setupval03");
- var sEqmtCD = prntinfo.getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- for(i=0 ; i< cntHR;i++){
-
- var sStr = "";
-
- var bcno = utlf_transNullToEmpty(ref.getColumn(i,"bcno")); //검체번호
- var acptdt = utlf_transNullToEmpty(ref.getColumn(i,"acptdt")); //접수일자
- var matrnm = utlf_transNullToEmpty(ref.getColumn(i,"matrnm")); //물질명
- var levlnm = utlf_transNullToEmpty(ref.getColumn(i,"levlnm")); //레벨명
- var lotno = utlf_transNullToEmpty(ref.getColumn(i,"lotno")); //lotno
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "15") { //인터맥
- //프린터설정
- //sSndMsg += "SYSVAR(18)=0" + "\r\n"; //다변설정 기본:0
- sSndMsg += "SYSVAR(35)=1" + "\r\n"; //저장여부 0:영구저장,1:임시저장
- //sSndMsg += "LTS& OFF" + "\r\n"; //배치인쇄시 유용,기본 off
- sSndMsg += "INPUT OFF" + "\r\n"; //인터맥다이렉트프로토콜 비활성화
- //sSndMsg += "FORMAT INPUT \"STX\" , \"ETX\",\"CR\"" + "\r\n";
- //sSndMsg += "FORMAT INPUT CHR$(2),CHR$(3),CHR$(13)"; //layout run 명령어구문 정의
- sSndMsg += "LAYOUT INPUT " +"\"" + "tmp:LBLSOFT.LAY" + "\"" + "\r\n"; //layout구성 시작
- sSndMsg += "NASC -2:AN 7" + "\r\n"; //캐릭터셋지정 -2:ANSI : 위치지정 7:좌측상단
- //sSndMsg += "CLIP OFF" + "\r\n"; //인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "CLIP BARCODE OFF" + "\r\n";//인쇄바같부분 비활성화 기본 :off
- //sSndMsg += "XORMODE OFF" + "\r\n"; //교차필드인쇄부분 기본:off
- //sSndMsg += "MAG 1,1" + "\r\n"; 확대:높이,폭 기본 1,1
-
- //검체번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 286;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + bcno + "\"" + "\r\n";
-
- //접수시각 acptdt
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 286;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + acptdt + "\"" + "\r\n";
- //바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 246;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":AN 7:DIR 1:BARSET " +"\"" + "CODE39" +"\"" + ",2,1,2,101:PB " + "\"" + bcno + "\"" + "\r\n";
-
- //물질명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 134;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + matrnm + "\"" + "\r\n";
-
- //레벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 92;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + levlnm + "\"" + "\r\n";
-
- //lotno
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "PP " + iXPos + "," + iYPos + ":FT " +"\"" + "Swiss 721 Bold Condensed BT" +"\"" + " ,7:NI:PT " +"\"" + lotno + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "LAYOUT END" + "\r\n"; //레이아웃구성을 중지하고 저장
- sSndMsg += "LAYOUT RUN " +"\"" + "tmp:LBLSOFT.LAY" +"\"" + "\r\n"; //레이아웃시작
- sSndMsg += "INPUT ON" + "\r\n"; //인터맥다이렉트 프로토콜 활성화
- sSndMsg += "PF " + "\r\n"; //인쇄
- sSndMsg += "PRINT KEY OFF" + "\r\n"; //프린트버튼 비활성화
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
- else if(sPrntKind == "16") { //루칸
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //검체번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //출력시각 acptdt
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + acptdt + "\"" + "\r\n";
- //검체바코드
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,91,N," + "\"" + bcno + "\"" + "\r\n";
-
- //물질명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 132;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + matrnm + "\"" + "\r\n";
-
- //레벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 172;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + levlnm + "\"" + "\r\n";
-
- //lotno
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 212;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,8,1,1,N," + "\"" + lotno + "\"" + "\r\n";
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- llz_objCommAX.SendMessage(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
-
- }
- else if(sPrntKind == "17") { //아르고스
- //프린터설정
- sSndMsg += "N" + "\r\n"; //이미지버퍼내용삭제
- sSndMsg += "JF" + "\r\n"; //용지정렬
- sSndMsg += "Q256,24" + "\r\n"; //용지세로 32mm,용지사이여백3mm
- sSndMsg += "q432" + "\r\n"; //용지가로54mm
-
- //검체번호
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + bcno + "\"" + "\r\n";
-
- //출력시각 acptdt
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,1,N," + "\"" + acptdt + "\"" + "\r\n";
- //검체바코드
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 40;
- sSndMsg += "B" + iXPos + "," + iYPos + "," + "0,3,2,4,101,N," + "\"" + bcno + "\"" + "\r\n";
-
- //물질코드명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N," + "\"" + matrnm + "\"" + "\r\n";
-
- //레벨명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N," + "\"" + levlnm + "\"" + "\r\n";
-
- //lotno
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 235;
- sSndMsg += "A" + iXPos + "," + iYPos + "," + "0,2,1,2,N," + "\"" + lotno + "\"" + "\r\n";
-
-
- //출력
- sSndMsg += "P1"+ "\r\n";
-
- if(sCommKind == "01") {
- llz_objCommAX.SendMessageToLPT(sSndMsg);
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- else if(sCommKind == "02") {
- trace(llz_objCommAX.SendMessage(sSndMsg));
- //llz_objCommAX.Output = sSndMsg;
- sSndMsg = "";
- }
- }
-
- else {
- trace("========");
- return;
- }
- }
- if(sCommKind == "02") {
- //llz_objCommAX.PortOpen = false;
- portOpenCheck = llz_objCommAX.PortClose(true);
- }
- }else if(portOpenCheck == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /****************************************************************************************
- * Argument : Dataset
- * Description : lis 사용자정보 조회
- * ex : lf_getLISUserInfo(ds_data_userinfo); //로그인 사용자 정보
- : lf_getLISUserInfo(ds_data_userinfo, "42682"); //42682 사용자 정보
- ****************************************************************************************/
- function lf_getLISUserInfo(objDs:Dataset, sUserid){
- var sInDsName = dsf_createDsRow("ds_temp_search"
- , [{col: "userid", val: sUserid}]);//]);
-
- objDs.clearData();
- // 서브밋호출
- tranf_submit({
- id: "TRLLF02102"
- , service: "diagtestbaseinfomngtapp.GeneralTestBaseInfoMngt"
- , method: "reqGetUserInfo"
- , inds : "cond="+sInDsName
- , outds: objDs.name + "=userlist"
- , callback: "cbf_common"
- , async: false
- });
- }
- /**********************************************************************************
- * Name : lf_chkCvr
- * Description : TAT사유등록
- * Argument : bcno
- * return Type :
- * Author : KNK
- **********************************************************************************/
- function lf_chkCVR(bcno){
- dsf_createDsRow("ds_temp_search"
- , [{col: "bcno", val:bcno }]);
-
- // 서브밋호출
- dsf_createDs("ds_temp_data");
- tranf_submit({
- id : ""
- , service: "rsltmngtapp.TatMngt"
- , method : "reqGetBcnoTatInfo"
- , inds : "req=ds_temp_search"
- , outds : "ds_temp_data=getBcnoTatInfo"
- , async : false
- });
-
-
- //TAT사유등록에 필요한 값이 있으면 모달창 띄움
- dsf_createDs("ds_param_bcnotatinfo");
- ds_param_bcnotatinfo.copyData(ds_temp_data);
- ds_param_bcnotatinfo.clearData();
-
- var acptgaplastdt = ""; //접수 최종보고간 일시
- var acptgapmdltdt = ""; //접수 중간결과간 일시
- var tatappyn = ""; //TAT사유등록 대상여부
- var mdlreptterm = ""; //중간보고 TAT OVER타임기준
- var lstreptterm = ""; //최종보고 TAT OVER타임기준
- var testcmtcd = ""; //TAT사유코드
-
- for(var i=0; i<ds_temp_data.rowcount; i++) {
- acptgaplastdt = ds_temp_data.getColumn(i, "acptgaplastdt");
- acptgapmdltdt = ds_temp_data.getColumn(i, "acptgapmdltdt");
- tatappyn = ds_temp_data.getColumn(i, "tatappyn");
- mdlreptterm = ds_temp_data.getColumn(i, "mdlreptterm");
- lstreptterm = ds_temp_data.getColumn(i, "lstreptterm");
- testcmtcd = ds_temp_data.getColumn(i, "testcmtcd");
- // tatappyn = "Y";
- // mdlreptterm = 0;
- // lstreptterm = 1;
-
- //기존에 소견등록값이 없을때에만 TAT 사유창에 띄워줌
- if( utlf_isNull(testcmtcd) || testcmtcd == "-" ) {
- //if( true ) {
-
- if( tatappyn == "Y" && (mdlreptterm > 0 || lstreptterm > 0) ) {
- //접수-최종간 설정값이 있으면 무조건 이걸 기준으로 한다.
- if( lstreptterm > 0 ) {
- if(acptgaplastdt * 24 > lstreptterm ) {
- //trace( "최종TAT에 걸리다");
- var nRow = ds_param_bcnotatinfo.addRow();
- ds_param_bcnotatinfo.copyRow(nRow, ds_temp_data, i);
- }
- lstreptterm = 0;
- } else {
- if(acptgapmdltdt * 24 > mdlreptterm ) {
- //trace( "중간TAT에 걸리다");
- var nRow = ds_param_bcnotatinfo.addRow();
- ds_param_bcnotatinfo.copyRow(nRow, ds_temp_data, i);
- }
- }
- }
-
- }
-
-
-
- }
-
- if(ds_param_bcnotatinfo.rowcount > 0){
- var objArg = new Object();
- objArg.ds_param_bcnotatinfo = ds_param_bcnotatinfo;
- frmf_modal("SPLRR92800","SPLRR92800",objArg);
- }else{
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : 사용자메뉴권한부서코드 조회한다
- * 설명 : 사용자메뉴권한부서코드 조회한다
- * argument : ref :
- * return Type : 부서코드
-
- **********************************************************************************/
- var lgv_sUserdeptflagcd = "";
- function lf_getDbDeptcd(strGetCodeInfo, strCallBackID){
- if(strGetCodeInfo.indexOf("0000|") < 0){
- strGetCodeInfo = strGetCodeInfo + "|0000|";
- }
- var strCodeArray = strGetCodeInfo.split("|");
- var sOutds = "";
-
- for(iRow = 0 ; iRow < strCodeArray.length-1; iRow++){
- dsf_createDs("ds_init_lb" + strCodeArray[iRow]);
- sOutds += "ds_init_lb" + strCodeArray[iRow] + "=" + strCodeArray[iRow] + " ";
- }
- var sInDsName = dsf_createDsRow("ds_temp_search"
- , [{col: "codeflag", val: strGetCodeInfo}]);
-
- var oParam = {};
- oParam.id = "TRLZZ00101";
- oParam.service = "diagtestapplib.DiagTestBaseInfoMngt";
- oParam.method = "reqGetInitCodeInfo";
- oParam.inds = "cond="+ sInDsName;
- oParam.outds = sOutds ;
- oParam.async = false;
- oParam.callback = strCallBackID;
- tranf_submit(oParam);
- if(!utlf_isNull(this.objects["ds_init_lb0000"])&& ds_init_lb0000.rowcount > 0)
- {
- lgv_sUserdeptflagcd = ds_init_lb0000.getColumn(0,"nm");
- }
- }
- function lzzfMakeBrcdPrntObjHanDo(sobjNm,pIsNew){
-
- objDomParser = new DomParser;
-
-
- if( !utlf_isNull(this.objects["ds_data_setupinfo"]) && ds_data_setupinfo.rowcount > 0){
- var prtkind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portnm = ds_data_setupinfo.getColumn(0, "commkind");
- var prtnm = "";
- var comnum = "";
- var comset = "";
-
- if( !utlf_isNull(this.objects["ds_data_comm01"]) && ds_data_comm01.rowcount > 0 ){
- prtnm = ds_data_comm01.getColumn(0,"setupval");
- }
-
- if( !utlf_isNull(this.objects["ds_data_comm02"]) && ds_data_comm02.rowcount > 0 ){
- comnum = ds_data_comm02.getColumn(0,"comm");
- comset = ds_data_comm02.getColumn(0,"baudrate");
-
- comset = comset + "," + ds_data_comm02.getColumn(0,"parity");
- comset = comset + "," + ds_data_comm02.getColumn(0,"databit");
- comset = comset + "," + ds_data_comm02.getColumn(0,"stopbit");
- }else{
- comset = comset + ",";
- comset = comset + ",";
- comset = comset + ",";
- }
- }else{
- var prntsetupinfo = ds_barcdprntsetup.getColumn(0,"prntsetupinfo"); //프린터설정 XML형식
-
- // 공통함수 ds_data_ 로 시작하는 데이타셋 생성. 값이 존재하는 데이타셋 만 생성
- var pParamObj = new Object();
- pParamObj.pathYN = "N";
- pParamObj.nullColumnYN = "N";
- lf_convertXmlToDs(prntsetupinfo, pParamObj);
- var prtkind = "";
- var portnm = "";
- var prtnm = "";
- var comnum = "";
- var comset = "";
-
- if( !utlf_isNull(this.objects["ds_data_setupinfo"]) && ds_data_setupinfo.rowcount > 0 ){
- prtkind = ds_data_setupinfo.getColumn(0, "prntkind");
- portnm = ds_data_setupinfo.getColumn(0, "commkind");
- }
-
- if( !utlf_isNull(this.objects["ds_data_comm01"]) && ds_data_comm01.rowcount > 0 ){
- prtnm = ds_data_comm01.getColumn(0,"setupval");
- }
-
- if( !utlf_isNull(this.objects["ds_data_comm02"]) && ds_data_comm02.rowcount > 0 ){
- comnum = ds_data_comm02.getColumn(0,"comm");
- comset = ds_data_comm02.getColumn(0,"baudrate");
-
- comset = comset + "," + ds_data_comm02.getColumn(0,"parity");
- comset = comset + "," + ds_data_comm02.getColumn(0,"databit");
- comset = comset + "," + ds_data_comm02.getColumn(0,"stopbit");
- }else{
- comset = comset + ",";
- comset = comset + ",";
- comset = comset + ",";
- }
- }
- this.removeChild(sobjNm);
- if( (prtkind == "9" && portnm == "01") || (prtkind == "11" && portnm == "01") || prtkind == "10" || prtkind == "2" || prtkind == "6" || prtkind == "7" || pIsNew == "NEW"){
- // this.addChild(objNm,"; clsid:{b721f534-d025-466b-8a28-7cf40e700acd}; visibility:hidden; left:100px; top:100px; width:100px; height:100px; ");
- var objNm = new ActiveX(sobjNm, 100,100,100,100);
- objNm.progid = "{b721f534-d025-466b-8a28-7cf40e700acd}";
- this.addChild(sobjNm, objNm);
- objNm.show();
- if(prtkind == "1") prtkind = 0;
- else if(prtkind == "5") prtkind = 1;
- else if(prtkind == "2") prtkind = 2;
- else if(prtkind == "6") prtkind = 3;
- else if(prtkind == "7") prtkind = 4;
- else if(prtkind == "9") prtkind = 4;
- else if(prtkind == "10") prtkind = 4;
- else if(prtkind == "11") prtkind = 4;
- else prtkind = 9;
-
- if(portnm == "02") portnm = "1";
- else portnm = "2";
-
- eval(sobjNm + ".setPrt(prtkind, portnm, prtnm, comnum, comset);");
- //objNm.setPrt(prtkind, portnm, prtnm, comnum, comset);
- //PORT.setPrt(3, "LPT");
- }
- else{
- //1.0.0.26
- //{5fe8e390-d882-4ca4-9798-01b1eb10e0f3}
- // body.createChild("xforms:object", "id:"+objNm+"; clsid:{5fe8e390-d882-4ca4-9798-01b1eb10e0f3}; visibility:hidden; left:100px; top:100px; width:100px; height:100px; ");
- var objNm = new ActiveX(sobjNm, 100,100,100,100);
- objNm.progid = "{5fe8e390-d882-4ca4-9798-01b1eb10e0f3}";
- var nIndex = this.addChild(sobjNm, objNm);
-
- objNm.show();
- }
- }
- // //오토바코드 object생성
- // function lzzfMakeAutoBrcdPrntObj(sobjNm){
- //
- //
- // trace("!!!!!!!!!!!!!!");
- // trace("this.name : " + this.name);
- //
- // //body.removeChild(objNm);
- // this.removeChild(sobjNm);
- //
- //
- // //1.0.0.26
- // //{5fe8e390-d882-4ca4-9798-01b1eb10e0f3}
- // //body.createChild("xforms:object", "id:"+objNm+"; clsid:{AE459DE6-EC02-46A5-AD0D-4F028359CC8D}; visibility:hidden; left:100px; top:100px; width:100px; height:100px; ");
- //
- // var objNm = new ActiveX(sobjNm, 0,0,0,0);
- // objNm.progid = "{AE459DE6-EC02-46A5-AD0D-4F028359CC8D}";
- // var nIndex = this.addChild(sobjNm, objNm);
- // objNm.show();
- // trace("lzzfMakeAutoBrcdPrntObj "+nIndex);
- //
- // return objNm;
- //
- // }
- function lf_CarePrintOutH(pX, pY, pFont, pBold, pData, pReverse) {
- var sBuf = lf_CareFontSize(pFont, pBold);
- //sBuf += CommAX.PrtImgOut("GRAPH003", pData); //채혈자
- //sBuf += fCareFiendOrigin(pX, pY);
- //sBuf += "^XGGRAPH003," + pFont + "," + pFont + "^FS";
- sBuf += CommAX.PrtImgOut(pX, pY, pData, pFont, pFont);
- sBuf += CommAX.HanImageData();
- return sBuf;
- }
- function lf_CareFontSize(pFont, pBold) {
- var sBuf = "";
- var pW = 0;
- var pH = 0;
- if(pFont == 1){
- pH = 10;
- pW = 10;
- } else if(pFont == 2){
- pH = 20;
- pW = 20;
- } else if(pFont == 3){
- pH = 30;
- pW = 30;
- } else if(pFont == 4){
- pH = 40;
- pW = 40;
- } else if(pFont == 5){
- pH = 50;
- pW = 50;
- } else if(pFont == 6){
- pH = 60;
- pW = 60;
- } else if(pFont == 7){
- pH = 70;
- pW = 70;
- } else if(pFont == 8){
- pH = 80;
- pW = 80;
- } else if(pFont == 9){
- pH = 90;
- pW = 90;
- }else{
- }
- if(pBold == "Y"){
- sBuf = "^CFA,"+pH+","+pW;
- }else{
- sBuf = "^CFE"+pH+","+pW;
- }
- return sBuf;
- }
- // pKCount - 보관검체 출력수
- // pPCount - 병리바코드갯수, 접수관리 화면에서는 분주 바코드 출력수
- // scrflag - 병동 환자별 채혈시 true
- function lf_LisSpcBarcodePrint(ds_pRef:Dataset,sds_data_path, pKCount, pPCount, scrflag, reprintflag){
- try{
- trace(frmf_getMainFormScreenID());
- //var scridPrint = frmf_getScreenID();
- var scridPrint = frmf_getMainFormScreenID();
- if (scridPrint != 'SMLLJ00400') {
- objects[sds_data_path +"ds_main_KeepBcnoPrint_printinfo"].clearData();//Auto Label에 보내는 값을 저장한 인스턴트 초기화
- objects[sds_data_path +"ds_main_KeepBcnoPrint_printinfo"].setColumn(0,"sendmessage",'aaaa');//Auto Label에 보내는 값을 저장한 인스턴트 초기화
- }
- //ds_main_KeepBcnoPrint_printinfo.setColumn(0,"sendmessage",""); //Auto Label에 보내는 값을 저장한 인스턴트 초기화
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
-
- trace('auto 1 sPrntKind = '+sPrntKind);
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- //var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
-
- var test_he = "";
- var test_rtn = "";
- if(utlf_isNull(pKCount)){
- KCount = 0;
- }else{
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount)){
- PCount = 0;
- }else{
- PCount = pPCount;
- }
-
-
- // trace(frmf_getMainFormScreenID());
- // //var scridPrint = frmf_getScreenID();
- // var scridPrint = frmf_getMainFormScreenID();
- trace('auto 2 ds_pRef.rowcount = '+ds_pRef.rowcount);
- if(ds_pRef.rowcount > 0 && sPrntKind != 0){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
-
- trace('auto 3 sCommKind = '+sCommKind);
- trace('KCount = '+KCount);
-
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- portOpenTF = "TRUE";
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- //보관검체 출력 갯수가 존재하면 port 오픈 하지 않는다.
- //이미 오픈 되어 있음. 보관검체 출력후 진검 바코드 갯수 체크하여 포트 클로즈 하지 않는다.
- if(KCount > 0){
- //이미 포트 오픈 되어 있으므로 "TRUE" 셋팅
- portOpenTF = "TRUE";
- }else if(KCount == 0){
- //port open 반환값 -> String 문자 포트 오픈 성공이면 "TRUE" , 실패하면 "FALSE"
- portOpenTF = CommAX.PortOpen("true");
- trace("portOpenTF ="+portOpenTF);
- portOpenTF = "TRUE";
- }
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- var sEqmtCd = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"eqmtcd");
-
- }
- trace('auto 4 sSetUpVal = '+sSetUpVal+' / '+sEqmtCd+' / '+portOpenTF);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
-
- portOpenTF = "TRUE";
- if(sPrntKind == "1") { //zebra
-
- trace('test1');
- for(i=0 ; i< ds_pRef.rowcount ;i++){
- var sSndMsg = "";
- trace('test2');
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tclslblnmlist"));
- var sInfcinfolist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"infcinfolist"));
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = utlf_transNullToEmpty(ds_pRef.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- //2.0추가 remark 출력 추가
- var prcpdelivefact = ds_pRef.getColumn(i,"prcpdelivefact");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
-
- }
-
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- } else {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- else
- {
- iXPos = Number(sLeftBank) + 15;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- }
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBarcdprntdt); //라벨발행일시
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- sPatnm = sPatnm.substr(0, 20)
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 133;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- } else {
- iYPos = Number(sTopBank) + 130;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- else
- {
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 133;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm); // 바코드
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- var aa = CommAX.SendMessageToLPT(sSndMsg);
- trace("aaaa :"+aa);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- var aa = CommAX.SendMessage(sSndMsg);
- trace("bbb :"+aa);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- var aa = CommAX.SendMessageToLPT(sSndMsg);
- trace("ccc :"+aa);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- var aa = CommAX.SendMessage(sSndMsg);
- trace("ddd :"+aa);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSecttsect); //계검사계
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 90;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 178;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 175;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- else
- {
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 178;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist);
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
-
-
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //계검사계
- ///2.0 remark 출력 start
- if((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- }
-
- if(utlf_isNull(prcpdelivefact)){
- prcpdelivefact = "";
- }
-
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 180;
- aStr = lpzfGetHanGul(prcpdelivefact, aFlag); //공여자명은 한글, 리마크는 영문
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // remark
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- ///2.0 remark 출력 end
- //자동화일때 밑에 줄 끄어요~
- if(sSecttsect.substr(0, 1) == "A"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
-
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
- }//end for
- }//end if(sPrntKind == "1")
- else if(sPrntKind == "9" || sPrntKind == "5") { //zebra GX430
- for(i=0 ; i< ds_pRef.rowcount;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tclslblnmlist"));
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = utlf_transNullToEmpty(ds_pRef.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var prcphopedd = ds_pRef.getColumn(i,"prcphopedd");
- var bedposcnts = ds_pRef.getColumn(i,"bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
- trace('sPatnm :'+sPatnm);
- if (!utlf_isNull(sTclslblnmlist) ){
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- }
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
-
- }
-
- if (!utlf_isNull(sTsectlblnm) ){
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
- }
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- } else {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 2, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 250;
- sPatnm = sPatnm.substr(0, 20)
- // aStr = lpzfGetHanGul(sPatnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 160;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // iYPos = Number(sTopBank) + 157;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 2, 1); //20120504 환자명 수정
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- //----110531 환자명 영문출력 수정 유민규
-
-
-
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- trace("oneChar "+oneChar+" / "+test_he);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 12);
- } else {
- iYPos = Number(sTopBank) + 160;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, oneChar, 2, 1); //20120504 환자명 수정
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(oneChar) * 30);
-
-
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,15,15^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 30);
- }
- }
- trace("oneChar2 "+oneChar+" / "+test_he+" / "+sSndMsg);
- }
- }
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
-
- if(sBcno.substr(0, 1) == "E" && !utlf_isNull(bedposcnts)){
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, bedposcnts, 1, 1); //구역베드
- sSndMsg += CommAX.HanImageData();
- }else{
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
-
-
-
-
- iXPos = Number(sLeftBank) + 480;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //처방희망일시
-
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- if(!utlf_isNull(sTclslblnmlist)) {
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- }
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 212;
-
- if(!utlf_isNull(sTclslblnmlist)) {
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTclslblnmlist.substr(0, 20), 1, 1); //검사항목라벨명
- sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
-
- trace("checkABO "+checkABO+' / '+ scridPrint+' / '+scrflag+' / '+checkAST);
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
-
- }
-
-
- if(utlf_isNull(sInfcinfolist)) {
- sInfcinfolist = "";
- }
-
- if(!utlf_isNull(sInfcinfolist)) {
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist);
- }
-
- //자동화일때 밑에 줄 끄어요~
- if(sSecttsect.substr(0, 1) == "A"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 290;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
-
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
- }//end for
- }//end if(sPrntKind == "1")
- else if(sPrntKind == "3" && sCommKind == "03"){ //Auto labeler(Ginus)이고 TCP/IP 일때
- var sSndMsg = '';
- trace('auto 5 print start= '+ds_pRef.rowcount);
- for(i=0 ; i< ds_pRef.rowcount;i++){
- var sPid = ds_pRef.getColumn(i,"pid");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- if (reprintflag == "Y") {
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sSex = sSexage.substr(0,1);
- var sAge = sSexage.substr(2,10);
- }else{
- var sSex = ds_pRef.getColumn(i,"sex");
- var sAge = ds_pRef.getColumn(i,"age");
- }
-
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sSpcfcntslist = ds_pRef.getColumn(i,"spcfcntslist");
- //var sSpcfcntslist = ds_pRef.getColumn(i,"spclblnm");
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sLpflag = ds_pRef.getColumn(i,"lpflag");
- var sDeptnm = ds_pRef.getColumn(i,"deptnm");
- //var sDeptnm = ds_pRef.getColumn(i,"dept");
- var sWardroom = ds_pRef.getColumn(i,"wardroom");
- //var sWardroom = ds_pRef.getColumn(i,"roomcd");
- var sTubecd = ds_pRef.getColumn(i,"tubecd");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sTclscdlist = ds_pRef.getColumn(i,"tclscdlist");
- var sTclslblnmlist = ds_pRef.getColumn(i,"tclslblnmlist");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = ds_pRef.getColumn(i,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- //병리 인스턴스
- var sSpctranseqno = ds_pRef.getColumn(i,"spctranseqno");
- var sSpctotalcnt = ds_pRef.getColumn(i,"spctotalcnt");
- var sOrgprcpnm = ds_pRef.getColumn(i,"orgprcpnm");
- var sAddprcpnm = ds_pRef.getColumn(i,"addprcpnm");
- var sOrddrnm = ds_pRef.getColumn(i,"orddrnm");
- var sBcollcau = ds_pRef.getColumn(i,"bcollcau");
- var sPrcpdd = ds_pRef.getColumn(i,"prcpdd"); //병리 바코드 처방일자 추가(2009-09-08)
- var keepspc = false;
- if(!utlf_isNull(sTclslblnmlist)) {
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- }
-
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm") + ds_pRef.getColumn(i,"dnorsexage");
- }
- if((i == 0) ||
- (ds_pRef.getColumn(i-1,"pid") != ds_pRef.getColumn(i,"pid"))) { //등록번호가 다르다(일괄발행시)
- sSndMsg = "^^^P"; //환자정보 시작
- //등록번호, 환자명, 성별, 나이
- sSndMsg += "^PI" + sPid + "^PN" + sPatnm + "^PS" + sSex + "^PA" + sAge;
- //장비번호 선택
- sSndMsg += "^PB" + sEqmtCd;
- //감염정보
- if(!utlf_isNull(sInfcinfolist)) {
- sSndMsg += "^P3" + sInfcinfolist;
- }
- //환자특이사항
- if(!utlf_isNull(sSpcfcntslist)) {
- sSndMsg += "^P4" + sSpcfcntslist;
- }
- //채혈시 주의사항
- if(!utlf_isNull(sBcollcau)) {
- sSndMsg += "^P5" + sBcollcau;
- }
- sSndMsg += "^^^_P"; //환자정보 끝.
- sSndMsg += "^^^S"; //채혈정보 시작.
- }
- sSndMsg += "^SS"; //채혈정보 DATA 시작.
- sSndMsg += "^SA" + sBcno + "^SB" + sLpflag; //검체번호, 진검병리구분
- //진료과, 병동/병실, 용기코드
- if (utlf_isNull(sWardroom)){
- sWardroom = "";
- }
- sSndMsg += "^SC" + sDeptnm + "^SD" + sWardroom + "^SE" + sTubecd;
- //용기명
- if(!utlf_isNull(sTubelblnm)) {
- sSndMsg += "^SF" + sTubelblnm;
- }
- //시행부서코드, 시행부서명칭, 바코드출력일시, 검사항목코드리스트
- sSndMsg += "^SG" + sSecttsect + "^SH" + sTsectlblnm + "^SI" + sBarcdprntdt + "^SJ" + sTclscdlist;
- //검사항목명칭리스트, 검체명칭
- sSndMsg += "^SK" + sTclslblnmlist + "^SL" + sSpclblnm;
- //응급여부
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- sSndMsg += "^SMY";
- }
- else{
- sSndMsg += "^SMN";
- }
- ////공여자(리마크)
- if(!utlf_isNull(dnorNm)) {
- sSndMsg += "^SN" + dnorNm;
- }
- //병리인 경우
- if(sLpflag == "P") {
- //검체순번, 검체토탈갯구, 원처방명, 추가처방명, 진료의사명, 처방일자(2009-09-08 추가)
- sSndMsg += "^SO" + sSpctranseqno + "^SP" + sSpctotalcnt + "^SQ" + sOrgprcpnm + "^SR" + sAddprcpnm + "^ST" + sOrddrnm + "^S2" + sPrcpdd;
- }
- // trace("sSndMsg1 "+i+' / '+sSndMsg.length+' / '+sSndMsg);
- sSndMsg += "^SU" + bcollbarcdprntcnt; //바코드갯수
- sSndMsg += "^_SS"; //채혈정보 DATA 종료
-
-
- //trace("sSndMsg2 "+i+' / '+sSndMsg.length+' / '+sSndMsg);
-
- trace('auto 8 print start= checkABO '+checkABO+' / '+scrflag +' / '+scridPrint);
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- }
- trace("auto keepspc "+i+' / '+keepspc);
- if(keepspc) {
- //ABO 바코드 밑에 보관검체 출력하기 위해. 인스턴트에 지금까지의 sendmessage 값을 저장
- //model.makeValue("/root/hidden/sendmessage", model.getValue("/root/hidden/sendmessage") + sSndMsg);
- dsf_makeValue(ds_hidden,"sendmessage","string","");
- trace('dsf make :'+ds_hidden.saveXML());
- var v_sendmessage = utlf_transNullToEmpty(ds_hidden.getColumn(0,"sendmessage"));
- ds_hidden.setColumn(0,"sendmessage",v_sendmessage+sSndMsg);
- fKeepBcnoPrint("B");
- //sSndMsg = model.getValue("/root/hidden/sendmessage");
- sSndMsg = ds_hidden.getColumn(0,"sendmessage");
- //보관검체까지의 값을 sendmessage 변수에 넣는다.(한꺼번에 전송을 위하여)
- }
- if((i == (ds_pRef.rowcount-1)) || (ds_pRef.getColumn(i+1,"pid") != ds_pRef.getColumn(i,"pid"))) { //등록번호가 다르다(일괄발행시)
- sSndMsg += "^^^_S"; //채혈정보 종료
- }
-
- }//end for
-
-
- trace('auto 9 print end= '+sSetUpVal +' / '+sSndMsg);
- AutoLabel.TRANSDATA(0, sSetUpVal, sSndMsg); //전송
- }//end else if(sPrntKind == "3" && sCommKind == "03")
- else if(sPrntKind == "4" && sCommKind == "03"){ //Auto labeler(Robo)이고 TCP/IP 일때
- }//end else if(sPrntKind == "4" && sCommKind == "03")
- //portopen이 true이고 통신유형이 com이고 출력할 병리 바코드가 없을때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- sysf_catchTrace(ee);
- return;
- }
- }
- // 핵의학 채혈 접수용
- function lf_LisSpcBarcodePrint_test(ds_pRef:Dataset,sds_data_path, pKCount, pPCount, scrflag, reprintflag){
- try{
- trace(frmf_getMainFormScreenID());
- //var scridPrint = frmf_getScreenID();
- var scridPrint = frmf_getMainFormScreenID();
- if (scridPrint != 'SMLLJ00400') {
- objects[sds_data_path +"ds_main_KeepBcnoPrint_printinfo"].clearData();//Auto Label에 보내는 값을 저장한 인스턴트 초기화
- objects[sds_data_path +"ds_main_KeepBcnoPrint_printinfo"].setColumn(0,"sendmessage",'aaaa');//Auto Label에 보내는 값을 저장한 인스턴트 초기화
- }
- //ds_main_KeepBcnoPrint_printinfo.setColumn(0,"sendmessage",""); //Auto Label에 보내는 값을 저장한 인스턴트 초기화
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
-
- trace('핵의학 테스트 1 sPrntKind = '+sPrntKind);
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- //var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
-
- var test_he = "";
- var test_rtn = "";
- if(utlf_isNull(pKCount)){
- KCount = 0;
- }else{
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount)){
- PCount = 0;
- }else{
- PCount = pPCount;
- }
-
-
- // trace(frmf_getMainFormScreenID());
- // //var scridPrint = frmf_getScreenID();
- // var scridPrint = frmf_getMainFormScreenID();
- trace('auto 2 ds_pRef.rowcount = '+ds_pRef.rowcount);
- if(ds_pRef.rowcount > 0 && sPrntKind != 0){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
-
- trace('auto 3 sCommKind = '+sCommKind);
- trace('KCount = '+KCount);
-
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- portOpenTF = "TRUE";
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- //보관검체 출력 갯수가 존재하면 port 오픈 하지 않는다.
- //이미 오픈 되어 있음. 보관검체 출력후 진검 바코드 갯수 체크하여 포트 클로즈 하지 않는다.
- if(KCount > 0){
- //이미 포트 오픈 되어 있으므로 "TRUE" 셋팅
- portOpenTF = "TRUE";
- }else if(KCount == 0){
- //port open 반환값 -> String 문자 포트 오픈 성공이면 "TRUE" , 실패하면 "FALSE"
- portOpenTF = CommAX.PortOpen("true");
- trace("portOpenTF ="+portOpenTF);
- portOpenTF = "TRUE";
- }
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- var sEqmtCd = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"eqmtcd");
-
- }
- trace('auto 4 sSetUpVal = '+sSetUpVal+' / '+sEqmtCd+' / '+portOpenTF);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
-
- portOpenTF = "TRUE";
- //if( (sPrntKind == "1" || sPrntKind == "11") ) { //zebra
- if( (sPrntKind != "0") ) { //zebra
-
- trace('test1');
- for(i=0 ; i< ds_pRef.rowcount ;i++){
- var sSndMsg = "";
- trace('test2');
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tclslblnmlist"));
- var sInfcinfolist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"infcinfolist"));
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = utlf_transNullToEmpty(ds_pRef.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- //2.0추가 remark 출력 추가
- var prcpdelivefact = ds_pRef.getColumn(i,"prcpdelivefact");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
-
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS";
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataH(iXPos, iYPos, "*테스트*"); //바코드번호
-
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 45;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*AAAA테스트*"); //바코드번호
-
- sSndMsg += lzzfBP_EndFormat();
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
-
-
- // sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBcno); //혈액번호
- //
- // // iXPos = Number(sLeftBank) + 10;
- // // iYPos = Number(sTopBank) + 20;
- // // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatNm, 2, 2);
- // // sSndMsg += CommAX.HanImageData();
- // //
- // sSndMsg += lzzfBP_EndFormat();
- //
- // trace("sSndMsg :"+sSndMsg);
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
-
- // if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- // //검사계명
- // iXPos = Number(sLeftBank);
- // iYPos = Number(sTopBank) + 1;
- // //sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- // sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"FW10V0220";
- //
- // }
- //
- //
- // sTsectlblnm = sTsectlblnm.replace("▨", ",");
- //
- // //---------
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // iXPos = Number(sLeftBank) + 15;
- //
- // aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 2;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // iYPos = Number(sTopBank) + 2;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // iXPos = Number(sLeftBank) + 15;
- // iYPos = Number(sTopBank) + 2;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- //
- // }
- //
- // iXPos = Number(sLeftBank) + 130;
- // iYPos = Number(sTopBank) + 5;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- //
- //
- // iXPos = Number(sLeftBank) + 275;
- // iYPos = Number(sTopBank) + 5;
- // sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBarcdprntdt); //라벨발행일시
- //
- // iXPos = Number(sLeftBank) + 60;
- // iYPos = Number(sTopBank) + 30;
- // sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- // sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드
- //
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // iXPos = Number(sLeftBank) + 20;
- // sPatnm = sPatnm.substr(0, 20)
- // aStr = lpzfGetHanGul(sPatnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 133;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // iYPos = Number(sTopBank) + 130;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 133;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm); // 바코드
- // }
- //
- // if(barcdcntflag == "acpt" ){
- // if(spcacptbarcdprntcnt > 0){
- // if(sCommKind == "01") {
- // var aa = CommAX.SendMessageToLPT(sSndMsg);
- // trace("aaaa :"+aa);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // var aa = CommAX.SendMessage(sSndMsg);
- // trace("bbb :"+aa);
- // sSndMsg = "";
- // }
- // }
- // }else{
- // if(sCommKind == "01") {
- // var aa = CommAX.SendMessageToLPT(sSndMsg);
- // trace("ccc :"+aa);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // var aa = CommAX.SendMessage(sSndMsg);
- // trace("ddd :"+aa);
- // sSndMsg = "";
- // }
- // }
- //
- // iXPos = Number(sLeftBank) + 190;
- // iYPos = Number(sTopBank) + 135;
- // sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- //
- //
- // iXPos = Number(sLeftBank) + 300;
- // iYPos = Number(sTopBank) + 135;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- //
- //
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 160;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- //
- //
- // iXPos = Number(sLeftBank) + 160;
- // iYPos = Number(sTopBank) + 160;
- // // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- //
- //
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // aStr = lpzfGetHanGul(sSpclblnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm);
- // }
- //
- //
- // iXPos = Number(sLeftBank) + 280;
- // iYPos = Number(sTopBank) + 160;
- // // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- //
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // aStr = lpzfGetHanGul(sTubelblnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm);
- // }
- //
- //
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 180;
- // // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSecttsect); //계검사계
- //
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- //
- // aStr = lpzfGetHanGul(sSecttsect, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- // } else {
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSecttsect);
- // }
- //
- // if(barcdcntflag == "acpt" ){
- // if(spcacptbarcdprntcnt > 0){
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- // }else{
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- //
- // sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- //
- // //---------
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- // iXPos = Number(sLeftBank) + 90;
- // aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 178;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 175;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // else
- // {
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 178;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist);
- // }
- //
- // if(barcdcntflag == "acpt" ){
- // if(spcacptbarcdprntcnt > 0){
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- // }else{
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- //
- // //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- // dnorNm = dnorNm + dSexage;
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- // iXPos = Number(sLeftBank) + 20;
- // aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 232;
- // sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 232;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- // //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- // if(checkABO) {
- // //외래채혈일때
- // if(scridPrint=="SMLLC00100" && scrflag){
- // keepspc = true;
- // }
- // //병동,환자별일때
- // else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- // keepspc = true;
- // }
- // iXPos = Number(sLeftBank) + 110;
- // iYPos = Number(sTopBank) + 202;
- // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- // sSndMsg += CommAX.HanImageData();
- //
- // }
- //
- //
- //
- //
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 202;
- // // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist);
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- // aStr = lpzfGetHanGul(sInfcinfolist, aFlag); //공여자명은 한글, 리마크는 영문
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // remark
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- //
- //
- // ///2.0 remark 출력 start
- // if((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- // prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- // }
- //
- // if(utlf_isNull(prcpdelivefact)){
- // prcpdelivefact = "";
- // }
- //
- //
- // iWidth = 0;
- // aStr = "";
- // aFlag = new Array();
- // iXPos = Number(sLeftBank) + 180;
- // aStr = lpzfGetHanGul(prcpdelivefact, aFlag); //공여자명은 한글, 리마크는 영문
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 232;
- // sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // remark
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 232;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- //
- // if(barcdcntflag == "acpt" ){
- // if(spcacptbarcdprntcnt > 0){
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- // }else{
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- // }
- //
- // ///2.0 remark 출력 end
- //
- // //자동화일때 밑에 줄 끄어요~
- // if(sSecttsect.substr(0, 1) == "A"){
- // //검사계명
- // iXPos = Number(sLeftBank);
- // iYPos = Number(sTopBank) + 260;
- // sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- //
- //
- // }
- //
- //
- // if(barcdcntflag == "acpt" ){
- // if(spcacptbarcdprntcnt > 0){
- // sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // }
- // }
- // }else{
- // sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // }
- // }
- //
- // if(keepspc) {
- // fKeepBcnoPrint("B");
- // }
- }//end for
- }
- //portopen이 true이고 통신유형이 com이고 출력할 병리 바코드가 없을때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- sysf_catchTrace(ee);
- return;
- }
- }
- // pKCount - 보관검체 출력수
- // pPCount - 병리바코드갯수, 접수관리 화면에서는 분주 바코드 출력수
- // scrflag - 병동 환자별 채혈시 true
- function lf_LisSpcBarcodePrint2(ds_pRef:Dataset,sds_data_path, pKCount, pPCount, scrflag){
- try{
- trace('start');
- if( utlf_isNull(sds_data_path) ) sds_data_path = "";
-
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- trace("sPrntKind == " + sPrntKind);
-
-
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- //var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- //var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
- if(utlf_isNull(pKCount)){
- KCount = 0;
- }else{
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount)){
- PCount = 0;
- }else{
- PCount = pPCount;
- }
-
- var scridPrint = frmf_getMainFormScreenID();
- trace("ds_pRef.rowcount :" + ds_pRef.rowcount);
- if(ds_pRef.rowcount > 0 && sPrntKind != 0){
- //var sCommKind = model.getValue(barcdRef + "[1]/commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- for(i=0 ; i< ds_pRef.rowcount;i++){
-
- if(sPrntKind == "10"){ //zebra EPL
-
- var sSndMsg = "";
-
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = ds_pRef.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = ds_pRef.getColumn(i,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var prcphopedd = ds_pRef.getColumn(i,"prcphopedd");
- var bedposcnts = ds_pRef.getColumn(i,"bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = "";
- var checkAST = "";
- if(!utlf_isNull(sTclslblnmlist)) {
- checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- }
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
-
-
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sTsectlblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,2,1,1,N," + "\"" + "*" + sBcno + "*" + "\""+ "\n";
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sSpclblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 25;
- iYPos = Number(sTopBank) + 28;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sBcno + "\""+ "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\""+ "\n";
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,2,1,N," + "\"" + sPatnm + "\""+ "\n"; // 글짜크기 변경 20120504
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,1,1,1,N," + "\"" + prcphopedd + "\""+ "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 147;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sTubelblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 147;
- if(sBcno.substr(0, 1) == "E" && bedposcnts != ""){
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + bedposcnts + "\""+ "\n";
- } else {
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sDeptroom + "\""+ "\n";
- }
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 167;
- if(!utlf_isNull(sTclslblnmlist)) {
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sTclslblnmlist + "\""+ "\n";
- }
- iXPos = Number(sLeftBank);
-
- //감염정보 특수문자 추가 20120402
- if(!utlf_isNull(sInfcinfolist)){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- } else {
- sInfcinfolist = "";
- }
-
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,4,1,1,N," + "\"" + sInfcinfolist + "\""+ "\n"; //20120328
-
-
- sSndMsg += ""+ "\n";
- sSndMsg += "P"+ bcollbarcdprntcnt + "\n";
-
- trace("sSndMsg == " + sSndMsg);
- CommAX.SendMsg(sSndMsg);
-
-
- }else if(sPrntKind == "9") { //zebra GX430
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
-
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sTsectlblnm2 = ds_pRef.getColumn(i,"tsectlblnm2");
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPatnm2 = ds_pRef.getColumn(i,"patnm2");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tclslblnmlist"));
- trace("sTclslblnmlist == " + ds_pRef.getColumn(i,"tclslblnmlist"));
- var sTclslblnmlist2 = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tclslblnmlist2"));
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = ds_pRef.getColumn(i,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var prcphopedd = ds_pRef.getColumn(i,"prcphopedd");
- var bedposcnts = ds_pRef.getColumn(i,"bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
- //2.0추가 remark 출력 추가
- var prcpdelivefact = ds_pRef.getColumn(i,"prcpdelivefact");
- trace('pinrt9== '+sPrntKind+" / "+sPatnm);
- var checkABO = "";
- var checkAST = "";
- var test_he;
- var test_rtn;
-
- if(!utlf_isNull(sTclslblnmlist)) {
- checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- }
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
-
- sSndMsg += lzzfBP_StartFormat(0, 0);
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
-
- }
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank)+ 1;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += "^CI14^FO" + iXPos + ","+ iYPos + "^AQN,30,30^FH^FD"+ sTsectlblnm +"^FS^CI1";
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
-
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
-
-
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 250;
-
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 12);
- } else {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
-
- iWidth = iWidth + (Number(oneChar.length) * 30);
- }
- }
- }
- }else{
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm);
- }
-
- // aStr = lpzfGetHanGul(sPatnm, aFlag);
- //
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- //
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 160;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- //
- // } else {
- // iYPos = Number(sTopBank) + 160;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- // iWidth = iWidth + (Number(utlf_transNullToEmpty(aStr[iNo]).length) * 30);
- // }
- //
- // }
- // }else{
- // iXPos = Number(sLeftBank) + 250;
- // iYPos = Number(sTopBank) + 160;
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm);
- // }
-
- if(!utlf_isNull(sTclslblnmlist)) {
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- }
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- trace("sTclslblnmlist == " + sTclslblnmlist);
-
-
- //trace("astr = " + aStr);
-
-
- if(!utlf_isNull(sTclslblnmlist)) {
- for (var j = 0; j < sTclslblnmlist.length; j++) {
- oneChar = sTclslblnmlist.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- // if(!utlf_isNull(test_he))
- // {
- // //----------------------
- // if (test_he == "E") {
- // iYPos = Number(sTopBank) + 215;
- // iXPos = Number(sLeftBank) + Number(iWidth);
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, oneChar); //
- // iWidth = iWidth + (Number(oneChar.length) *16);
- // } else {
- // iYPos = Number(sTopBank) + 215;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- // iWidth = iWidth + (Number(oneChar.length) * 4);
- // }
- // }
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 225;
- //sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 24);
- } else {
- iYPos = Number(sTopBank) + 225;
- sSndMsg += "^CI14^FO" +(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 28);
- }
- }
- }
- }
- // aStr = lpzfGetHanGul(sTclslblnmlist, aFlag); //공여자명은 한글, 리마크는 영문
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 215;
- // iXPos = Number(sLeftBank) + Number(iWidth);
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aStr[iNo]); //용기명
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // } else {
- // iYPos = Number(sTopBank) + 215;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- // iWidth = iWidth + (Number(aStr[iNo].length) * 28);
- // }
- // }
- // }
- // else
- // {
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 215;
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist);
- // }
-
-
- iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 185;
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- iWidth = 0;
- if(!utlf_isNull(sTubelblnm)) {
- for (var j = 0; j < sTubelblnm.length; j++) {
- oneChar = sTubelblnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- // if(!utlf_isNull(test_he))
- // {
- // //----------------------
- // if (test_he == "E") {
- // iYPos = Number(sTopBank) + 185;
- // iXPos = Number(sLeftBank) + Number(iWidth);
- // sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, oneChar); //용기명
- // iWidth = iWidth + (Number(oneChar.length) * 18);
- // } else {
- // iYPos = Number(sTopBank) + 185;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- // iWidth = iWidth + (Number(oneChar.length) * 20);
- // }
- // }
-
-
-
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 190;
- //sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
-
-
-
- iWidth = iWidth + (Number(oneChar.length) * 24);
- } else {
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 28);
- }
- }
-
- }
- }
-
- if(sBcno.substr(0, 1) == "E" && (!utlf_isNull(bedposcnts))){
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 450;
- aStr = lpzfGetHanGul(bedposcnts, aFlag); //구역배드
- for (var iNo=0; iNo < aStr.length; iNo++) {
-
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 18);
- } else {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 20);
- }
- }
-
- }else{
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
-
- iXPos = Number(sLeftBank) + 480;
- //iYPos = Number(sTopBank) + 185;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //처방희망 일시
- //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 18);
- } else {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 20);
- }
- }
- }
-
- trace('print9 checkABO:'+checkABO+' / '+scrflag);
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
-
- }
-
-
- //감염정보 특수문자 추가 20120402
- if(!utlf_isNull(sInfcinfolist)){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- } else {
- sInfcinfolist = "";
- }
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 260;
- //iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정 20120328
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist);
- trace('aaa '+prcpdelivefact);
- if((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- }
-
- if(utlf_isNull(prcpdelivefact)){
- prcpdelivefact = "";
- }
- iWidth = 0;
- iXPos = Number(sLeftBank) + 180;
- if(!utlf_isNull(prcpdelivefact)) {
- for (var j = 0; j < prcpdelivefact.length; j++) {
- oneChar = prcpdelivefact.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 260;
- //sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
-
-
- iWidth = iWidth + (Number(oneChar.length) * 24);
- } else {
- iYPos = Number(sTopBank) + 260;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 28);
- }
- }
-
- }
- }
-
- //자동화일때 밑에 줄 끄어요~
- if(sSecttsect.substr(0, 1) == "A"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 290;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
-
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
-
- CommAX.SendMsg(sSndMsg);
- trace("sSndMsg == "+ sSndMsg);
- // if(keepspc) {
- // trace('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
- // fKeepBcnoPrint("B");
- // }
-
- }else if(sPrntKind == "11") { //zebra GX420
- trace('print11 =='+sPrntKind);
- for(i=0 ; i< ds_pRef.rowcount;i++){
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
- //trace('cnt '+ i+' / '+ds_pRef.rowcount);
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = ds_pRef.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- //var barcdcntflag = ds_pRef.getColumn(i,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var prcphopedd = ds_pRef.getColumn(i,"prcphopedd");
- var bedposcnts = ds_pRef.getColumn(i,"bedposcnts");
- //2.0추가 remark 출력 추가
- var prcpdelivefact = ds_pRef.getColumn(i,"prcpdelivefact");
-
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = "";
- var checkAST = "";
-
- var test_he;
- var test_rtn;
-
- if(!utlf_isNull(sTclslblnmlist)) {
- checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- }
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
- if (utlf_isNull(ds_pRef.getColumn(i,"bedposcnts"))){
- bedposcnts = "";
- }
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
-
- }
-
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
-
- trace("sTsectlblnm =="+sTsectlblnm);
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag); ///부서
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- } else {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; //
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }else{
- iXPos = Number(sLeftBank) + 15;
- //iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTsectlblnm);
- }
-
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 26;
- sSndMsg += lzzfBP_ChangeFont("F", 5, 5);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 170;
-
- if(!utlf_isNull(sPatnm)){
- sPatnm = sPatnm.substr(0, 20);
- }
-
-
- trace("sPatnm =="+sPatnm)
-
-
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- //trace("test_rtn"+' / '+j+' / '+test_rtn);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS";
- iWidth = iWidth + (Number(oneChar.length) * 14);
- } else {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 30);
- }
- }
- }
- }else{
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm);
- }
-
- // aStr = lpzfGetHanGul(sPatnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 135;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 135;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1";
- // //sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; //20160818
- // iWidth = iWidth + (Number(aStr[iNo].length) * 30);
- // }
- // }
- // }else{
- // iXPos = Number(sLeftBank) + 170;
- // iYPos = Number(sTopBank) + 135;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm);
- // }
-
-
- //trace("print start1");
- //GX420 환자명 영문표시 안되는 것 유민규 110608
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
-
- trace("bedposcnts =="+bedposcnts);
- if ((!utlf_isNull(sBcno)) && (!utlf_isNull(sBcno)) ){
-
- if(sBcno.substr(0, 1) == "E" && bedposcnts != ""){
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 300;
- aStr = lpzfGetHanGul(bedposcnts, aFlag); //구역배드
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
-
-
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 구역배드명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 구역배드명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- }else{
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
- }else{
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
-
- //trace("print start2");
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- //iXPos = Number(sLeftBank) + 280;
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //라벨발행일시
- trace("sTclslblnmlist =="+sTclslblnmlist);
- if(!utlf_isNull(sTclslblnmlist)) {
- sTclslblnmlist = sTclslblnmlist.replace("▨", ","); //검사코드리스트
- }else{
- sTclslblnmlist = "";
- }
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- //aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
-
-
- aStr = "";
- aFlag = new Array();
-
- if(!utlf_isNull(sTclslblnmlist)) {
- for (var j = 0; j < sTclslblnmlist.length; j++) {
- oneChar = sTclslblnmlist.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 178;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- //sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
-
- iWidth = iWidth + (Number(oneChar.length) * 14);
- } else {
- iYPos = Number(sTopBank) + 178;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,15,15^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }
-
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // trace("aFlag =="+iNo+' / '+aFlag[iNo]);
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 178;
- // sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검사코드리스트명(영문)
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 178;
- // sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,10,10^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검사코드리스트(한글)
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }else{
- //
- // iXPos = Number(sLeftBank) + 20;
- // iYPos = Number(sTopBank) + 178;
- // sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist); //검사코드리스트명
- // }
-
- //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- dnorNm = dnorNm + dSexage;
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 공여자명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 공여자명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }else{
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 232;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, dnorNm); //공여자명은 한글, 리마크는 영문
- }
-
- //trace("print start4");
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
-
- //감염정보 특수문자 추가 20120402
- if(!utlf_isNull(sInfcinfolist)){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- } else {
- sInfcinfolist = "";
- }
-
- //trace("print start5");
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 196;
-
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정 20120328
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //계검사계
- trace('bbbb '+prcpdelivefact);
- if ((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- }
-
- if(utlf_isNull(prcpdelivefact)){
- prcpdelivefact = "";
- }
-
- iXPos = Number(sLeftBank) + 160;
- // iYPos = Number(sTopBank) + 196;
- if(!utlf_isNull(prcpdelivefact)) {
- for (var j = 0; j < prcpdelivefact.length; j++) {
- oneChar = prcpdelivefact.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 196;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- //sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
-
- iWidth = iWidth + (Number(oneChar.length) * 14);
- } else {
- iYPos = Number(sTopBank) + 196;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,15,15^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }
-
- //자동화일때 밑에 줄 끄어요~
-
- if ((!utlf_isNull(sSecttsect)) && (sSecttsect.substr(0, 1) == "A")){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
- else{
-
- }
-
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- CommAX.SendMsg(sSndMsg);
-
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
- }//end for
- }//end if(sPrntKind == "1")
- else{
-
- var sSndMsg = "";
-
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = ds_pRef.getColumn(i,"tclslblnmlist");
- trace("ds_sTclslblnmlist == " + ds_pRef.getColumn(i,"tclslblnmlist"));
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = ds_pRef.getColumn(i,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
-
- sSndMsg = String.fromCharCode(27) +"A" + String.fromCharCode(27) +"A103500500"; // 시작위치 셋팅
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"FW10V0220";
-
- }
-
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
-
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
-
- iXPos = Number(sLeftBank) + 15;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTsectlblnm);
-
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 5;
-
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S*" + sBcno + "*"; //바코드번호
-
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
-
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sBarcdprntdt; //라벨발행일시
-
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
-
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"BG02100" + sBcno; // 바코드
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 130;
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20));
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sPid;//환자등록번호
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sSexage;
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sDeptroom; //진료과병실
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sSpclblnm; //검체명
-
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sTubelblnm; //용기명
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sSecttsect; //계검사계
-
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- trace("sTclslblnmlist == " + sTclslblnmlist);
- iXPos = Number(sLeftBank) + 70;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTclslblnmlist)
-
- //---------공여자 또는 리마크 때문에..2009.01.28.윤재한 수정
- dnorNm = dnorNm + dSexage;
-
- CommAX.PrtImgOut(iXPos, iYPos, dnorNm); //공여자명은 한글, 리마크는 영문
-
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자:");
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sInfcinfolist); //감염정보
-
- //자동화일때 밑에 줄 끄어요~
- if(sSecttsect.substr(0, 1) == "A"){
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += String.fromCharCode(27) +"V" + "220" + String.fromCharCode(27) +"H" + "0" + String.fromCharCode(27) +"FW10H0350";
-
- }
-
-
- if(barcdcntflag == "acpt" ){
- sSndMsg += String.fromCharCode(27) +"Q" + spcacptbarcdprntcnt + String.fromCharCode(27) +"Z";
- CommAX.SendMsg(sSndMsg);
- }else{
- sSndMsg += String.fromCharCode(27) + "Q" + bcollbarcdprntcnt + String.fromCharCode(27) +"Z";
- CommAX.SendMsg(sSndMsg);
- }
-
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
- }
- }//end for
- }
-
- } catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- sysf_catchTrace(ee);
- return;
- }
-
- }
- /**
- * @group :
- * @ver : 2008.07.03
- * @by : 윤재한
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
- function fKeLabel(objDsRef, count){
- var barcdRef = "ds_data_setupinfo";
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if( utlf_isNull(count) ){
- LCount = 0;
- }else{
- LCount = count;
- }
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- if(sCommKind == "01") {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- } else if(sCommKind == "02") {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCD = ds_data_comm03.getColumn(0, "eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- var sStr = "보관검체";
- var sRoomcd = objDsRef.getColumn(0, "roomcd");
- var sPid = objDsRef.getColumn(0, "pid");
- var sPatnm = objDsRef.getColumn(0, "patnm");
- var sPatsex = objDsRef.getColumn(0, "patsex");
- var sPatage = objDsRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= objDsRef.getColumn(0, "orddeptnm").substring(0,2);
- var sBtype = objDsRef.getColumn(0, "btype");
- var sInfcinfolist = objDsRef.getColumn(0, "infcinfolist"); //감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = objDsRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = objDsRef.getColumn(0, "bggc");
-
- if( !utlf_isNull(sInfcinfolist) ){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPid.length == 10){
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
- if(sPrntKind == "1") { //zebra
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sStr, 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1.6, 1.6);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 30;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 110; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 85, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 75; // 160 였음
- if( !utlf_isNull(sBGGCno) ){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno); // 보관검체
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBarcodeW;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY2,2.0"; //
- sSndMsg += "^B3" + "N" + ",N," + "85" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
- } else if(sPrntKind == "3") { //Auto Label(Ginus)
- if(LCount == 0) {//출력할 진검 바코드가 없을시에만 환자정보
- sSndMsg += "^^^P"; //환자정보 시작
- //환자번호, 환자이름, 성별, 나이
- sSndMsg += "^PI" + sPid + "^PN" + sPatnm + "^PS" + sPatsex + "^PA" + sPatage;
- //장비번호 선택
- sSndMsg += "^PB" + sEqmtCD;
- sSndMsg += "^^^_P"; //환자정보 종료
- sSndMsg += "^^^S"; //채혈정보 시작
- }
- sSndMsg += "^SS"; //data 시작
- //바코드번호(등록번호), S:보관검체, 진료과, 병실
- sSndMsg += "^SA" + sPid + "^SBS" + "^SC" + sOrddeptNm + "^SD" + sRoomcd;
- //용기코드(보관검체용으로 고정), 바코드출력일시, 혈액형
- sSndMsg += "^SEAB" + "^SI" + sDt + "^S1" + sBtype;
- sSndMsg += "^_SS"; //data 종료
- if(LCount != 0) { //진검바코드가 있을경우 진검바코드내용 + 보관검체내용
- ds_hidden.setColumn(0, "sendmessage", ds_hidden.getColumn(0, "sendmessage") + sSndMsg);
- }
- if(LCount == 0) {//출력할 진검 바코드가 없을시에만 전송
- sSndMsg += "^^^_S"; //채혈정보 종료
- var sReturnValue = AutoLabel.TRANSDATA(0, sSetUpVal, sSndMsg); //전송
- }
- } //end else if(sPrntKind == "3")
- else if(sPrntKind == "4") { //Auto Label(Robo)
- }
- else if(sPrntKind == "9") { //Zebra 300dpi
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sStr, 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
- iXPos = Number(sLeftBank) + 360;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1.6, 1.6);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 30;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- sSndMsg += lzzfBP_ChangeFont("C", 40, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 120; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 95, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 75; // 160 였음
- if( !utlf_isNull(sBGGCno) ){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno); // 보관검체
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBarcodeW;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY3,2.4,130"; //
- sSndMsg += "^B3" + "N" + ",N," + "125" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 215;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈일자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
- }
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**
- * @group :
- * @ver : 2008.07.03
- * @by : 윤재한
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
- function fKeLabel2(ds_pRef:Dataset, count,sds_data_path){
- if( utlf_isNull(sds_data_path) ){
- sds_data_path = "";
- }
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
-
- var portOpenCheck = "";
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if( utlf_isNull(count) ){
- LCount = 0;
- }else{
- LCount = count;
- }
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- if(ds_pRef.rowcount < 1) return;
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- if(sPrntKind == "10"){
-
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0, "roomcd");
- var sPid = ds_pRef.getColumn(0, "pid");
- var sPatnm = ds_pRef.getColumn(0, "patnm");
- var sPatsex = ds_pRef.getColumn(0, "patsex");
- var sPatage = ds_pRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0, "orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0, "btype");
- var sInfcinfolist = ds_pRef.getColumn(0, "infcinfolist"); //감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = ds_pRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0, "bggc");
-
-
- if( !utlf_isNull(sInfcinfolist) ){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
-
- //sSndMsg = "^@" + "\n";
- //sSndMsg = "^default" + "\n";
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sStr + "\""+ "\n";
-
- //iXPos = Number(sLeftBank) + 140;
- //iYPos = Number(sTopBank) + 5;
- //sSndMsg += "A" + iXPos + "," + iYPos + ",0,2,1,1,N," + "\"" + "*" + sBcno + "*" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + "Serum" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 25;
- iYPos = Number(sTopBank) + 28;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sPid + "\""+ "\n";
-
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,5,1,1,N," + "\"" + sBtype + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sPatnm + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "채혈일시:" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,1,1,1,N," + "\"" + sDt.substr(5) + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + "Plain 6ml" + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "검체채취일시:" + "\""+ "\n";
-
- //감염정보 추가 20120503
- iXPos = Number(sLeftBank) + 390;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sInfcinfolist + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "채혈자:" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "확인자:" + "\""+ "\n";
-
-
-
- sSndMsg += "P1"+ "\n";
-
- CommAX.SendMsg(sSndMsg);
-
-
- }else if(sPrntKind == "11"){
-
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
-
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0, "roomcd");
- var sPid = ds_pRef.getColumn(0, "pid");
- var sPatnm = ds_pRef.getColumn(0, "patnm");
- var sPatsex = ds_pRef.getColumn(0, "patsex");
- var sPatage = ds_pRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0, "orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0, "btype");
- var sInfcinfolist = ds_pRef.getColumn(0, "infcinfolist"); //감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = ds_pRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = "";
- if( !utlf_isNull(ds_pRef.getColumnInfo("bggc")) ){
- sBGGCno = ds_pRef.getColumn(0, "bggc");
- }
-
- if( !utlf_isNull(sInfcinfolist) ){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Serum");
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,25,25^FH^FD" + sStr + "^FS^CI1";
-
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 85, "*" + sPid + "*"); // 바코드
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
-
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,25,25^FH^FD" + sPatnm + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 205;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,15,15^FH^FD" + "채혈일시:" + "^FS^CI1";
- iXPos = Number(sLeftBank) + 310;
- iYPos = Number(sTopBank) + 35; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 70, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
-
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt.substr(5));
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C",10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Plain 6ml");
- //iXPos = Number(sLeftBank) + 190;
- //iYPos = Number(sTopBank) + 190;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + "검체채취일시:" + "^FS^CI1";
-
- //감염정보 추가 20120503
- iXPos = Number(sLeftBank) + 345;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C",20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist );
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + "채혈자:" + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + "확인자:" + "^FS^CI1";
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
-
-
-
- }else if(sPrntKind == "9"){
-
-
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
-
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0, "roomcd");
- var sPid = ds_pRef.getColumn(0, "pid");
- var sPatnm = ds_pRef.getColumn(0, "patnm");
- var sPatsex = ds_pRef.getColumn(0, "patsex");
- var sPatage = ds_pRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0, "orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0, "btype");
- var sInfcinfolist = ds_pRef.getColumn(0, "infcinfolist"); //감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = ds_pRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0, "bggc");
-
- // trace("sPatnm :"+sPatnm);
- if( !utlf_isNull(sInfcinfolist) ){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 400;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Serum");
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,40,40^FH^FD" + sStr + "^FS^CI1";
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 40;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sPid + "*"); // 바코드
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
-
- //iXPos = Number(sLeftBank) + 190;
- //iYPos = Number(sTopBank) + 165;
- //sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,35,35^FH^FD" + sPatnm + "^FS^CI1";
-
- //Start-- 성명 동명이인 표시에 따른 한글+영문 변경 by 김금련_20130213
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 190;
- sPatnm = sPatnm.substr(0, 20);
- // aStr = lpzfGetHanGul(sPatnm, aFlag);
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iXPos = Number(sLeftBank) + 223;
- // iYPos = Number(sTopBank) + 165;
- // sSndMsg += "^CFD40,40^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- // } else {
- // iYPos = Number(sTopBank) + 165;
- // //sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // //sSndMsg += CommAX.HanImageData();
- // sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,35,35^FH^FD" + aStr[iNo] + "^FS^CI1";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- //END-- 성명 동명이인 표시에 따른 한글+영문 변경 by 김금련_20130213
-
-
- aStr = "";
- aFlag = new Array();
-
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iXPos = Number(sLeftBank) + 223;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "^CFD40,40^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS";
- iWidth = iWidth + (Number(oneChar.length) * 12);
- } else {
- iYPos = Number(sTopBank) + 165;
- //sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,35,35^FH^FD" +oneChar + "^FS^CI1";
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,35,35^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }else{
- iXPos = Number(sLeftBank) + 223;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatnm);
- }
-
- //
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 165;
- // iXPos = Number(sLeftBank) + 400;
- // iYPos = Number(sTopBank) + 150;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + "채혈일시:" + "^FS^CI1";
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 50; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 100, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
-
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 165;
- // iXPos = Number(sLeftBank) + 500;
- // iYPos = Number(sTopBank) + 150;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt.substr(5));
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Plain 6ml");
- //iXPos = Number(sLeftBank) + 190;
- //iYPos = Number(sTopBank) + 190;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "검체채취일시:" + "^FS^CI1";
-
- //감염정보 추가 20120503
- iXPos = Number(sLeftBank) + 490;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += lzzfBP_ChangeFont("C",20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist );
-
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "채혈자:" + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "확인자:" + "^FS^CI1";
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
-
-
-
- }else{
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0, "roomcd");
- var sPid = ds_pRef.getColumn(0, "pid");
- var sPatnm = ds_pRef.getColumn(0, "patnm");
- var sPatsex = ds_pRef.getColumn(0, "patsex");
- var sPatage = ds_pRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0, "orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0, "btype");
- var sInfcinfolist = ds_pRef.getColumn(0, "infcinfolist"); //감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = ds_pRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0, "bggc");
-
- if( !utlf_isNull(sInfcinfolist) ){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- if( utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if( utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPid.length == 10){
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
-
- sSndMsg = String.fromCharCode(27) + "A" + String.fromCharCode(27) + "A103500500"; // 시작위치 셋팅
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sStr);
-
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "S" + sRoomcd;
-
-
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "S" + sPatsexage;
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm, 2, 2);
-
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "L0203" + String.fromCharCode(27) + "S" + sPid + String.fromCharCode(27) + "L0101";;
-
-
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 110; // 75 였음
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "L0303" + String.fromCharCode(27) + "M" + sBtype + String.fromCharCode(27) + "L0101";
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 90; // 160 였음
- if( !utlf_isNull(sBGGCno) ){ // 2009-03-07 정은 수정
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "S" + sBGGCno;
- }
-
- iXPos = Number(sLeftBank) + sBarcodeW + 20;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "BG02070" + sPid; // 바코드
-
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "S" + "*"+sPid+"*";
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += String.fromCharCode(27) + "V" + iYPos + String.fromCharCode(27) + "H" + iXPos + String.fromCharCode(27) + "S" + sDt;
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sBcollNm);
-
- sSndMsg += String.fromCharCode(27) + "Q" + "1" + String.fromCharCode(27) + "Z";
-
- CommAX.SendMsg(sSndMsg);
- }
- }
- /**
- * @group :
- * @ver : 2010.01.14
- * @by : 박정은
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
- function fKeLabel_B472(objDsRef, count){
- var barcdRef = "ds_data_setupinfo";
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if( utlf_isNull(count) ){
- LCount = 0;
- }else{
- LCount = count;
- }
-
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = model.getValue(barcdRef + "[1]/commkind");
- var sLeftBank = model.getValue(barcdRef + "[1]/blank/left");
- var sTopBank = model.getValue(barcdRef + "[1]/blank/top");
- var sB472sizegbn = model.getValue(barcdRef + "[1]/blank/b472size");
-
- if(sCommKind == "01") {
- var sSetUpVal = model.getValue(barcdRef + "[1]/comm01/setupval");
- } else if(sCommKind == "02") {
- var sComm = model.getValue(barcdRef + "[1]/comm02/comm");
- var sDataBit = model.getValue(barcdRef + "[1]/comm02/databit");
- var sStopBit = model.getValue(barcdRef + "[1]/comm02/stopbit");
- var sBaudRate = model.getValue(barcdRef + "[1]/comm02/baudrate");
- var sParity = model.getValue(barcdRef + "[1]/comm02/parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = model.getValue(barcdRef + "[1]/comm03/setupval");
- var sEqmtCD = model.getValue(barcdRef + "[1]/comm03/eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01" || sCommKind == "07"
- || sCommKind == "03"){
- //var sStr = "보관검체";
- var sRoomcd = model.getvalue(ref +"/roomcd");
- var sPid = model.getvalue(ref +"/pid");
- var sPatnm = model.getvalue(ref +"/patnm");
- var sPatsex = model.getvalue(ref +"/patsex");
- var sPatage = model.getvalue(ref +"/patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= model.getvalue(ref +"/orddeptnm").substring(0,2);
- var sBtype = model.getvalue(ref +"/btype");
- var sBcollNm = "채혈자:" ;//+ model.getvalue(ref +"/bcollnm");
- var sDt = model.getvalue(ref +"/dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = model.getvalue(ref +"/bggc");
- var sB472size = "";
- if (sLeftBank == "" || sLeftBank == "-") sLeftBank = 0;
- if (sTopBank == "" || sTopBank == "-") sTopBank = 0;
- if(sPid.length == 10){
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
- //sSndMsg += "{D0350,0550,0330|}"; // 라벨사이즈
- if(sB472sizegbn == "2"){ // 320 630
- sB472size = "0340,0620,0340"; // 기존라벨
- }else{
- sB472size = "0350,0550,0330"; // nUsize
- }
- sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
-
- sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{AX;-000,-000,+00|}"; // 피트량
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_HanDisp24("보관검체", iXPos, iYPos);
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) +20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sRoomcd);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sRoomcd);
-
-
- iXPos = Number(sLeftBank) + 370;
- iYPos = Number(sTopBank) + 20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sPatsexage);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPatsexage);
-
- iXPos = Number(sLeftBank) ;
- iYPos = Number(sTopBank) + 35;
- //sSndMsg += lzzfBP_HanDisp24(sPatnm, iXPos, iYPos); // 환자명 한글 24사이즈 기본
- sSndMsg += lzzfBP_HanDisp48(sPatnm.substr(0,4), iXPos, iYPos); // 환자명 한글 48사이즈
-
- iXPos = Number(sLeftBank) + 230;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sPid); // 환자번호 크게
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid);
-
-
- iXPos = Number(sLeftBank)+5;
- iYPos = Number(sTopBank) + 135; // 160 였음
- if(sBGGCno != ""){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sBGGCno);
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBGGCno);
-
- }
-
-
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 200; // 75 였음
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 60, 60, sBtype);
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBtype);
-
- iXPos = Number(sLeftBank)+150;
- iYPos = Number(sTopBank)+90;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, "*" + sPid + "*", 120); // 바코드
- iXPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 240;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, "*"+sPid+"*");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*"+sPid+"*");
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 275;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sDt);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sDt);
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_HanDisp24(sBcollNm, iXPos, iYPos); // 채혈자
-
- sSndMsg += "{XS;I,0001,0002C5101|}"; // end
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
-
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- function lf_LisSpcBarcodePrint3(ds_pRef:Dataset,sds_data_path, pKCount, pPCount, scrflag){
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- //var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- //var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
- if(utlf_isNull(pKCount)){
- KCount = 0;
- }else{
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount)){
- PCount = 0;
- }else{
- PCount = pPCount;
- }
-
- var scridPrint = frmf_getScreenID();
- if(ds_pRef.rowcount > 0 && sPrntKind != 0){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- var sB472sizegbn = objects[sds_data_path + "ds_data_blank"].getColumn(0,"b472size");
-
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- //보관검체 출력 갯수가 존재하면 port 오픈 하지 않는다.
- //이미 오픈 되어 있음. 보관검체 출력후 진검 바코드 갯수 체크하여 포트 클로즈 하지 않는다.
- if(KCount > 0){
- //이미 포트 오픈 되어 있으므로 "TRUE" 셋팅
- portOpenTF = "TRUE";
- }else if(KCount == 0){
- //port open 반환값 -> String 문자 포트 오픈 성공이면 "TRUE" , 실패하면 "FALSE"
- portOpenTF = CommAX.PortOpen("true");
- }
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- var sEqmtCd = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"eqmtcd");
- }
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- for(i=0 ; i< ds_pRef.rowcount ;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(ds_pRef.getColumn(i,"tsectlblnm"));
- var sBcno = ds_pRef.getColumn(i,"bcno");
- var sBarcdprntdt = ds_pRef.getColumn(i,"barcdprntdt");
- var sPatnm = ds_pRef.getColumn(i,"patnm");
- var sPid = ds_pRef.getColumn(i,"pid");
- var sSexage = ds_pRef.getColumn(i,"sexage");
- var sDeptroom = ds_pRef.getColumn(i,"deptroom");
- var sSpclblnm = ds_pRef.getColumn(i,"spclblnm");
- var sTubelblnm = ds_pRef.getColumn(i,"tubelblnm");
- var sSecttsect = ds_pRef.getColumn(i,"secttsect");
- var sTclslblnmlist = ds_pRef.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = ds_pRef.getColumn(i,"infcinfolist");
- var sErprcpflag = ds_pRef.getColumn(i,"erprcpflag");
- var barcdcntflag = ds_pRef.getColumn(0,"cntflag");
- var bcollbarcdprntcnt = ds_pRef.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = ds_pRef.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = ds_pRef.getColumn(i,"microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
- var sB472size = "";
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- var sTclslblnmlist2 = "";
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = ds_pRef.getColumn(i,"dnornm");
- var dSexage = ds_pRef.getColumn(i,"dnorsexage");
- }
- //sSndMsg += "{D0350,0550,0330|}"; // 라벨사이즈
- if(sB472sizegbn == "2"){ // 320 630
- sB472size = "0340,0620,0340"; // 기존라벨
- }else{
- sB472size = "0350,0550,0330"; // nUsize
- }
- sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
- // 버퍼클리어
- sSndMsg += "{C|}";
- // 피트량
- sSndMsg += "{AX;-000,-000,+00|}";
- //검사계명
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_HanDisp24(sTsectlblnm, iXPos, iYPos);
-
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- //응급표시
- iXPos1 = Number(sLeftBank);
- iXPos2 = Number(sLeftBank);
- iYPos1 = Number(sTopBank) ;
- iYPos2 = Number(sTopBank) + 280;
- var ppX1 = iXPos1.toString().getLeftPad(4, "0");
- var ppX2 = iXPos1.toString().getLeftPad(4, "0");
- var ppY1 = iYPos1.toString().getLeftPad(4, "0");
- var ppY2 = iYPos2.toString().getLeftPad(4, "0");
- sSndMsg += "{LC;"+ppX1+","+ppY1+","+ppX2+","+ppY2+",1,8|}";
- }
-
-
-
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank)+20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, "*" + sBcno + "*"); //바코드번호
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
-
- iXPos = Number(sLeftBank)+60;
- iYPos = Number(sTopBank)+30;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, "*" + sBcno + "*",110); // 바코드
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- CommAX.SendMessage(sSndMsg);
- }
- }else{
- if(bcollbarcdprntcnt > 0){
- CommAX.SendMessage(sSndMsg);
- }
- }
-
- iXPos = Number(sLeftBank)+350;
- iYPos = Number(sTopBank)+20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sBarcdprntdt); //라벨발행일시
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBarcdprntdt); //라벨발행일시
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+155;
- sSndMsg += lzzfBP_HanDisp24(sPatnm.substr(0, 7), iXPos, iYPos); // 환자명 한글
-
- iXPos = Number(sLeftBank)+225;
- iYPos = Number(sTopBank)+175;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sPid); //환자등록번호
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid); //환자등록번호
-
- iXPos = Number(sLeftBank)+400;
- iYPos = Number(sTopBank)+175;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sSexage); //성병나이
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSexage); //성병나이
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+210;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sDeptroom); //진료과병실
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sDeptroom); //진료과병실
-
- iXPos = Number(sLeftBank)+210;
- iYPos = Number(sTopBank)+210;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sSpclblnm); //검체명
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank)+380;
- iYPos = Number(sTopBank)+210;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sTubelblnm); //용기명
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTubelblnm); //용기명
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+245;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sSecttsect); //계검사계
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSecttsect); //계검사계
-
-
- iXPos = Number(sLeftBank)+70;
- iYPos = Number(sTopBank)+220;
- sSndMsg += lzzfBP_HanDisp24(sTclslblnmlist, iXPos, iYPos); // 검사명 한글
-
-
- if (!utlf_isNull(ds_pRef.getColumn(i,"dnornm"))){
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+255;
- sSndMsg += lzzfBP_HanDisp24(dnorNm.substr(0, 12), iXPos, iYPos); // 공여자명 한글
-
- iXPos = Number(sLeftBank)+110;
- iYPos = Number(sTopBank)+260;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20,20, dSexage); // 공여자성별나이 헌혈화면만 보냄
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, dSexage); //공여자성별나이 헌혈화면만 보냄
- }
-
-
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- iXPos = Number(sLeftBank)+10 ;
- iYPos = Number(sTopBank)+250;
- sSndMsg += lzzfBP_HanDisp24("채혈자 : ", iXPos, iYPos);
- }
-
- if(!utlf_isNull(sInfcinfolist)){
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+250;
- sSndMsg += lzzfBP_HanDisp24(sInfcinfolist, iXPos, iYPos);
- }
-
-
- //자동화일때 밑에 줄 끄어요~
- if(sSecttsect.substr(0, 1) == "A"){
- //검사계명
- iXPos = Number(sLeftBank) + 435;
- iYPos1 = Number(sTopBank) + 299;
- iYPos2 = Number(sTopBank) + 300;
- var ppX = iXPos.toString().getLeftPad(4, "0");
- var ppY1 = iYPos1.toString().getLeftPad(4, "0");
- var ppY2 = iYPos2.toString().getLeftPad(4, "0");
- sSndMsg += "{LC;0000,"+ppY1+","+ppX+","+ppY2+",1,8|}";
- }
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat_B472(spcacptbarcdprntcnt);
- CommAX.SendMessage(sSndMsg);
- }
- }else{
- if(bcollbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat_B472(bcollbarcdprntcnt);
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
-
-
- }//end for
-
-
- //portopen이 true이고 통신유형이 com이고 출력할 병리 바코드가 없을때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- }
- // sato 병리 채혈 바코드
- function lf_LisPlgySpcBarcodePrint(pLCount,sds_data_path) {
- try{
-
- if( utlf_isNull(sds_data_path) ) sds_data_path = "";
-
- var sSndMsg = "";
- var sPrcpDD = "";
- var sTemp = "";
- var sTempStr = "";
- var strNode = "/root/main/TestInfo/plgybarcdinfo";
- var iLeft = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var iTop = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- var iXPos = 0;
- var iYPos = 0;
- var iWidth = 0;
- var aFlag = new Array();
- var aStr = "";
- var LCount = 0;
- var portOpenTF = "";
- if(utlf_isNull(pLCount) || pLCount == 0){
- LCount = 0;
- }else if(pLCount > 0){
- LCount = pLCount;
- }
- //-----------------------------------------
- if (utlf_isNull(iLeft) || iLeft == "-") iLeft = 0;
- if (utlf_isNull(iTop) || iTop == "-") iTop = 0;
- //------------------------------
- // 2008-10-12 : 병리과 여백 조정
- iLeft = Number(iLeft) + Number(20);
- iTop = Number(iTop) + Number(10);
- //----------------
- // Serial Port Open
- //fExeCommPortOpen();
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- if(sPrntKind != "0"){
- //---------------
- // 바코드내용 출력
- for (var iRowNo=0; iRowNo < eval(sds_data_path + "ds_plgybarcdinfo").rowcount; iRowNo++) {
- sPrcpDD = String(eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "prcpdd"));
- sPrcpDD = sPrcpDD.substr(0,4) + "-" + sPrcpDD.substr(4,2) + "-" + sPrcpDD.substr(6,2);
- sSndMsg = String.fromCharCode(27) +"A" + String.fromCharCode(27) +"A103500500"; // 시작위치 셋팅
- //-------------------------
- iXPos = Number(iLeft) + 20;
- iYPos = Number(iTop) + 5;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"BG02100" + eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "spcbarcdno");
- iXPos = Number(iLeft) + 130;
- iYPos = Number(iTop) + 110;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "spcbarcdno");
- //--------------------
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 130;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + "PATHOLOGY";
- iXPos = Number(iLeft) + 110;
- iYPos = Number(iTop) + 130;
- sTempStr = eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "wardroom");
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTempStr);
- /*
- //-------------------------
- iXPos = Number(iLeft) + 310;
- iYPos = Number(iTop) + 127;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, model.getValue(strNode+"["+iRowNo+"]/orddrnm"));
- */
- iXPos = Number(iLeft) + 220;
- iYPos = Number(iTop) + 130;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) + "S" + sPrcpDD;
-
- iXPos = Number(iLeft) + 330;
- iYPos = Number(iTop) + 130;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"M" + eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "isolabbrcd");
- //--------------------------
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 155;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "pid");
- //-------------------------
- iXPos = Number(iLeft) + 110;
- iYPos = Number(iTop) + 150;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "patnm"));
- //-------------------------
- iXPos = Number(iLeft) + 220;
- iYPos = Number(iTop) + 155;
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "sexage");
- //-------------------------
- iXPos = Number(iLeft) + 280;
- iYPos = Number(iTop) + 155;
- sTempStr = eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "orddeptnm");
- sSndMsg += String.fromCharCode(27) +"V" + iYPos + String.fromCharCode(27) +"H" + iXPos + String.fromCharCode(27) +"S" + sTempStr;
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 175;
- sTempStr = eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "spcdispnm");
- sTempStr = sTempStr.replace("▨", ",");
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTempStr);
- //==========================
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 200;
- //---------------------------------------------------------
- sTempStr = eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "prcpdispnm");
- sTempStr = sTempStr.replace("▨", ",");
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTempStr);
- //-------------------------
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 225;
- sTempStr = eval(sds_data_path + "ds_plgybarcdinfo").getColumn(iRowNo, "prcpdispnm2"); //검사명(추가처방)
- sTempStr = sTempStr.replace("▨", ",");
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTempStr);
- sSndMsg += String.fromCharCode(27) +"Q" + "1" + String.fromCharCode(27) +"Z";
- CommAX.SendMsg(sSndMsg);
- }
- }
- } catch(ee) {
- sysf_messageBox("병리바코드출력에", "E009");
- sysf_catchTrace(ee);
- return;
- }
- }
- /**
- * @group : PathologyWeb Common
- * @ver : 2010.01.12 (CMCDEV-0001)
- * @by : 박정은
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 채혈화면 병리 바코드 출력(B472 )
- * @param :
- * @return :
- */
- function lf_LisPlgySpcBarcodePrint3(pLCount,sds_data_path) {
- try{
- var sSndMsg = "";
- var sPrcpDD = "";
- var sTemp = "";
- var sTempStr = "";
- var sTempStr2 = "";
- var strNode = "/root/main/TestInfo/plgybarcdinfo";
- var iLeft = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var iTop = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- var iXPos = 0;
- var iYPos = 0;
- var iWidth = 0;
- var sBarCdNoH = "";
-
- var aFlag = new Array();
- var aStr = "";
-
- var LCount = 0;
- var portOpenTF = "";
-
- if(utlf_isNull(pLCount) || pLCount == 0){
- LCount = 0;
- }else if(pLCount > 0){
- LCount = pLCount;
- }
-
- //-----------------------------------------
- if (utlf_isNull(iLeft) || iLeft == "-") iLeft = 0;
- if (utlf_isNull(iTop) || iTop == "-") iTop = 0;
- //------------------------------
- // 2008-10-12 : 병리과 여백 조정
- iLeft = Number(iLeft) ;
- iTop = Number(iTop) ;
-
- //----------------
- // Serial Port Open
- //fExeCommPortOpen();
-
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
-
- var sB472sizegbn = objects[sds_data_path + "ds_data_blank"].getColumn(0,"b472size");
- var sB472size = "";
-
- if(sPrntKind != "0"){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
-
- //진검 바코드 출력 갯수가 존재하면 port 오픈 하지 않는다.
- //진검 바코드 출력후 병리 바코드 갯수 체크하여 포트 클로즈 하지 않았기 때문에..
- if(LCount > 0){
- //이미 포트 오픈 되어 있으므로 "TRUE" 셋팅
- portOpenTF = "TRUE";
- }else if(LCount == 0){
- //port open 반환값 -> String 문자 포트 오픈 성공이면 "TRUE" , 실패하면 "FALSE"
- portOpenTF = CommAX.PortOpen("true");
- }
-
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- }
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
-
- //---------------
- // 바코드내용 출력
- for (var iRowNo=0; iRowNo < objects[sds_data_path + "ds_plgybarcdinfo"].rowcount; iRowNo++) {
- sPrcpDD = String(objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "prcpdd"));
- sPrcpDD = sPrcpDD.substr(0,4) + "-" + sPrcpDD.substr(4,2) + "-" + sPrcpDD.substr(6,2);
-
- if(sPrntKind == "8") {
-
- sSndMsg = "";
- if(sB472sizegbn == "2"){ // 320 630
- sB472size = "0340,0620,0340"; // 기존라벨
- }else{
- sB472size = "0350,0550,0330"; // nUsize
- }
- sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
- //sSndMsg += "{D0350,0550,0330|}"; // 라벨사이즈
- sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{AX;-000,-000,+00|}"; // 피트량
- sBarCdNoH = objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "spcbarcdno");
-
- iXPos = Number(iLeft) + 20;
- iYPos = Number(iTop) + 5;
- // var newbcno = sBarCdNoH + (iRowNo).toString().getLeftPad(2, "0");
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, sBarCdNoH, 90); // 바코드
-
-
- iXPos = Number(iLeft) + 140;
- iYPos = Number(iTop) + 120;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBarCdNoH); //바코드번호
-
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 145;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "PATHOLOGY");
-
-
- iXPos = Number(iLeft) + 200;
- iYPos = Number(iTop) + 120;
- sTempStr = bjects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "wardroom");
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTempStr);
- sSndMsg += lzzfBP_HanDisp24(sTempStr, iXPos, iYPos);
-
- iXPos = Number(iLeft) + 330;
- iYPos = Number(iTop) + 145;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPrcpDD);
-
-
- iXPos = Number(iLeft) + 300;
- iYPos = Number(iTop) + 145;
- sTempStr = bjects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "isolabbrcd");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTempStr);
-
-
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 180;
- sTempStr = bjects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "pid");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTempStr);
-
-
- iXPos = Number(iLeft) + 150;
- iYPos = Number(iTop) + 155;
- sTempStr = bjects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "patnm");
- sSndMsg += lzzfBP_HanDisp24(sTempStr, iXPos, iYPos);
-
-
- iXPos = Number(iLeft) + 310;
- iYPos = Number(iTop) + 180;
- var sTempStr1 = bjects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "sexage");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTempStr1);
-
-
-
- //-------------------------
- iXPos = Number(iLeft) + 410;
- iYPos = Number(iTop) + 180;
- //수술실이 있을 경우 진료과 옆에 수술방 이름을 표시하여 준다.
- if(!utlf_isNull(objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "oproomnm"))) {
- sTempStr = objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "orddeptnm") + "(" + objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "oproomnm") + ")";
- } else {
- sTempStr = objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "orddeptnm");
- }
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sTempStr);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTempStr);
-
-
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 190;
- sTempStr = String(objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "spcdispnm"));
- sTempStr = sTempStr.replace("▨", ",");
- //20바이트가 넘을 경우 검사명을 짤라서 출력한다.
- if(sTempStr.getByteLength() > 20) {
- for(var iLeng = 1 ; iLeng <= sTempStr.length ; iLeng++) {
- if(((sTempStr.substr(0, iLeng)).getByteLength()) > 20) {
- sTempStr2 = sTempStr.substr(0, iLeng);
- break;
- }
- }
- sTempStr = sTempStr2;
- }
- sSndMsg += lzzfBP_HanDisp24(sTempStr, iXPos, iYPos);
-
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 220;
- //---------------------------------------------------------
- sTempStr = String(objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "prcpdispnm"));
- sTempStr = sTempStr.replace("▨", ",");
-
- //14바이트가 넘을 경우 검사명을 짤라서 출력한다.
- if(sTempStr.getByteLength() > 14) {
- for(var iLeng = 1 ; iLeng <= sTempStr.length ; iLeng++) {
- if(((sTempStr.substr(0, iLeng)).getByteLength()) > 14) {
- sTempStr2 = sTempStr.substr(0, iLeng);
- break;
- }
- }
- sTempStr = sTempStr2;
- }
- sSndMsg += lzzfBP_HanDisp24(sTempStr, iXPos, iYPos);
-
- iXPos = Number(iLeft);
- iYPos = Number(iTop) + 250;
- sTempStr = String(objects[sds_data_path + "ds_plgybarcdinfo"].getColumn(iRowNo, "prcpdispnm2")); //검사명(추가처방)
- sTempStr = sTempStr.replace("▨", ",");
-
- //14바이트가 넘을 경우 검사명을 짤라서 출력한다.
- if(sTempStr.getByteLength() > 14) {
- for(var iLeng = 1 ; iLeng <= sTempStr.length ; iLeng++) {
- if(((sTempStr.substr(0, iLeng)).getByteLength()) > 14) {
- sTempStr2 = sTempStr.substr(0, iLeng);
- break;
- }
- }
- sTempStr = sTempStr2;
- }
- sSndMsg += lzzfBP_HanDisp24(sTempStr, iXPos, iYPos);
-
- sSndMsg += "{XS;I,0001,0002C5101|}"; // end
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
-
-
- } // 프린터종류
- }// end for
-
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02"){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } catch(ee) {
- sysf_messageBox("병리바코드출력에", "E009");
- return;
- }
- }
- /**
- * @group :
- * @ver : 2009.04.07
- * @by : 김성희
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 환자명바코드출력
- * @param : ref - 환자명바코드출력정보 인스턴스
- * @return :
- * @---------------------------------------------------
- */
- function lf_PatNmBarCdLabelSaTo(refDs:Dataset,sds_data_path){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- //var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
-
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- // var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- // var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- // var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- var sCommKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
-
- trace('Sato '+sPrntKind+' / '+sCommKind+' / '+sLeftBank+' / '+sTopBank);
- var sStr = "";
- var sPid = refDs.getColumn(0,"pid");
- var sPatnm = refDs.getColumn(0,"patnm");
- var sPatsexage = refDs.getColumn(0,"patsexage");
- var sDt = refDs.getColumn(0,"printdt");
- trace('Sato2 '+sPid+' / '+sPatnm+' / '+sPatsexage+' / '+sDt);
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- sSndMsg = String.fromCharCode(27)+ "A" +String.fromCharCode(27)+ "A103500500"; // 시작위치 셋팅
- //등록번호
- iXPos = Number(sLeftBank)+130;
- iYPos = Number(sTopBank)+10;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+ "H" + iXPos + String.fromCharCode(27)+ "S" + sPid;
- //바코드
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"BG02100" + sPid; // 바코드
- //환자명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm);
- //등록번호
- iXPos = Number(sLeftBank)+200;
- iYPos = Number(sTopBank)+160;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sPid;
- //성별/나이
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sPatsexage;
- //출력일시
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sDt;
- sSndMsg += String.fromCharCode(27)+"Q" + "1" + String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- }
- /**
- * @group :
- * @ver : 2010.01.14
- * @by : 박정은
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 환자명바코드출력
- * @param : ref - 환자명바코드출력정보 인스턴스
- * @return :
- * @---------------------------------------------------
- */
- function lf_PatNmBarCdLabel_B472(refDs:Dataset,sds_data_path){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind =eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- var sB472sizegbn = eval(sds_data_path + "ds_data_blank").getColumn(0,"b472size");
-
- if(sCommKind == "01") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm01").getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = eval(sds_data_path + "ds_data_comm02").getColumn(0,"comm");
- var sDataBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"databit");
- var sStopBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"stopbit");
- var sBaudRate = eval(sds_data_path + "ds_data_comm02").getColumn(0,"baudrate");
- var sParity = eval(sds_data_path + "ds_data_comm02").getColumn(0,"parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm03").getColumn(0,"setupval");
- var sEqmtCD = eval(sds_data_path + "ds_data_comm03").getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "07"
- || sCommKind == "03"){
- var sStr = "";
- var sPid = refDs.getColumn(0,"pid");
- var sPatnm = refDs.getColumn(0,"patnm");
- var sPatsexage = refDs.getColumn(0,"patsexage");
- var sDt = refDs.getColumn(0,"printdt");
- var sB472size = "";
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
-
- //sSndMsg += "{D0350,0550,0330|}"; // 라벨사이즈
- if(sB472sizegbn == "2"){ // 320 630
- sB472size = "0340,0620,0340"; // 기존라벨
- }else{
- sB472size = "0350,0550,0330"; // nUsize
- }
- sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
-
-
- sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{AX;+000,+000,+00|}"; // 피트량
-
- //등록번호
- iXPos = Number(sLeftBank)+130;
- iYPos = Number(sTopBank)+20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, "*"+sPid+"*");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*"+sPid+"*");
-
- //바코드
- iXPos = Number(sLeftBank) + 50;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, "*" + sPid + "*", 120); // 바코드
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
-
- //환자명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_HanDisp24(sPatnm, iXPos, iYPos); // 환자명 한글
-
- //등록번호
- iXPos = Number(sLeftBank)+180;
- iYPos = Number(sTopBank)+180;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sPid);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid);
-
- //성별/나이
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 180;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sPatsexage);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPatsexage);
-
- //출력일시
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 220;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sDt);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sDt);
-
- sSndMsg += "{XS;I,0001,0002C5101|}";
-
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- CommAX.PortOpen("false");
-
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**
- * @group :
- * @ver : 2009.04.07
- * @by : 김성희
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 환자명바코드출력
- * @param : ref - 환자명바코드출력정보 인스턴스
- * @return :
- * @---------------------------------------------------
- */
- function lf_PatNmBarCdLabel(refDs,sds_data_path){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- //var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var sSndMsg = "";
- if (sPrntKind == 0) return;
-
- var sCommKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
-
- // var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- // var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- // var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- if(sCommKind == "01") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm01").getColumn(0,"setupval");
- //var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = eval(sds_data_path + "ds_data_comm02").getColumn(0,"comm");
- var sDataBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"databit");
- var sStopBit =eval(sds_data_path + "ds_data_comm02").getColumn(0,"stopbit");
- var sBaudRate = eval(sds_data_path + "ds_data_comm02").getColumn(0,"baudrate");
- var sParity = eval(sds_data_path + "ds_data_comm02").getColumn(0,"parity");;
- // var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- // var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- // var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- // var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- // var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm03").getColumn(0,"setupval");
- var sEqmtCD = eval(sds_data_path + "ds_data_comm03").getColumn(0,"eqmtcd");
- // var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- // var sEqmtCD = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- var sStr = "";
- var sPid = refDs.getColumn(0,"pid");
- var sPatnm = refDs.getColumn(0,"patnm");
- var sPatsexage = refDs.getColumn(0,"patsexage");
- var sDt = refDs.getColumn(0,"printdt");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1" || sPrntKind == "5") { //zebra
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- //등록번호
- iXPos = Number(sLeftBank)+200;
- iYPos = Number(sTopBank)+10;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- //바코드
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sPid + "*"); // 바코드
- //sSndMsg += "^BY2,2.0"; //
- //sSndMsg += "^B3" + "N" + ",N," + "100" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- //환자명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 2, 2);
- sSndMsg += CommAX.HanImageData();
- //등록번호
- iXPos = Number(sLeftBank)+220;
- iYPos = Number(sTopBank)+190;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //성별/나이
- iXPos = Number(sLeftBank) + 420;
- iYPos = Number(sTopBank) + 190;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatsexage, 2, 2);
- //sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //출력일시
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- CommAX.PortOpen("false");
- }else if(sPrntKind == "9") { //zebra 300dpi
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- //등록번호
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank)+10;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- //바코드
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY3,2.4,130"; //
- sSndMsg += "^B3" + "N" + ",N," + "150" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 10;
- //sPatnm = sPatnm.substr(0, 20)
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
-
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 190;
- //iXPos = Number(iXPos) + Number(iWidth);
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
-
- } else {
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
-
- }
- }
-
- //----110531 환자명 영문출력 수정 이재오
- //등록번호
- iXPos = Number(sLeftBank)+200;
- iYPos = Number(sTopBank)+190;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- //성별/나이
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 190;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatsexage, 2, 2);
- //sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- // if(sCommKind == "01") {
- // CommAX.SendMessageToLPT(sSndMsg);
- // sSndMsg = "";
- // } else if(sCommKind == "02") {
- // CommAX.SendMessage(sSndMsg);
- // sSndMsg = "";
- // }
- //출력일시
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 220;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- CommAX.PortOpen("false");
- }else if(sPrntKind == "10"){ //zebra ELP 20120306
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
-
- //등록번호
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + "*"+sPid+"*" + "\""+ "\n";
-
-
- //바코드
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sPid + "\""+ "\n";
-
-
- //환자명
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sPatnm + "\""+ "\n";
-
-
- //등록번호
- iXPos = Number(sLeftBank)+ 140;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,2,2,N," + "\"" + sPid + "\""+ "\n";
-
-
- //성별/나이
- //등록번호
- iXPos = Number(sLeftBank)+ 340;
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPatsexage + "\""+ "\n";
-
- //출력일시
- iXPos = Number(sLeftBank)+ 10;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sDt + "\""+ "\n";
-
-
- sSndMsg += ""+ "\n";
- sSndMsg += "P1"+ "\n";
- //CommAX.PortOpen("false");
- CommAX.SendMsg(sSndMsg);
- }else if(sPrntKind == "11"){ //GX420 20120229
- sSndMsg += "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
-
- //등록번호
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank)+10;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- //바코드
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sPid + "*"); // 바코드
-
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 10;
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 28);
- } else {
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,25,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
-
- }
-
- //등록번호
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank)+145;
- sSndMsg += lzzfBP_ChangeFont("C", 15, 15);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
-
- //성별 나이
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 145;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatsexage, 2, 2);
- //sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_ChangeFont("C", 15, 15);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
-
- //출력일시
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
-
-
-
- sSndMsg += lzzfBP_EndFormat();
- CommAX.SendMsg(sSndMsg);
-
- }
-
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**
- * 미생물 작업번호라벨 출력 - 박정은
- * pBCount - 분주 또는 진검바코드 출력여부
- */
- function fLisMicroWorknoSpcBarcodePrint(refDs:Dataset,sds_data_path, pBCount){
- try{
-
- var cntHR = refDs.rowcount;
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var portOpenTF = "";
- var BCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(utlf_isNull(pBCount)){
- BCount = 0;
- }else{
- BCount = pBCount;
- }
- if(cntHR > 0 && sPrntKind != "0"){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");
- var sSetUpVal = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"setupval");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate+","+ sParity+","+sDataBit+","+ sStopBit;
- if(BCount > 0){
- portOpenTF = "TRUE";
- }else if(BCount == 0){
- portOpenTF = CommAX.PortOpen("true");
- }
- //CommAX.PortOpen();
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm03"].getColumn(0,"setupval");
- }
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = refDs.getColumn(i,"infcinfolist");
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var barcdcntflag = refDs.getColumn(i,"cntflag");
- var workno = refDs.getColumn(i,"workno");
- var spcacptdd = refDs.getColumn(i,"spcacptdd");
- var orddrnm = refDs.getColumn(i,"orddrnm");
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
- var mdiabarcdprntcnt = refDs.getColumn(i,"mdiabarcdprntcnt");
- var sRoomcd = refDs.getColumn(i,"roomcd");
- var sDept = refDs.getColumn(i,"dept");
- var workno2 = "";
- var sPrntcnt = refDs.getColumn(i,"prntcnt");
- var flag = refDs.getColumn(i,"flag");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 18;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += lzzfBP_ChangeFont("C", 12, 12); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += lzzfBP_ChangeFont("C", 12, 12); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd); //병실코드
-
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 55;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sDept.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += lzzfBP_ChangeFont("C", 12, 12); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage); // 성별나이
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 55;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, orddrnm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 95;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist); //검사항목라벨명
- if(!utlf_isNull(workno)){
- workno2 = workno.substr(12,3);
- workno = workno.substr(0,8) + "-" + workno.substr(8,2) + "-" +
- workno.substr(10,2) + "-";
- }
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 95;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, workno); //작업번호
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 88;
- sSndMsg += lzzfBP_ChangeFont("C", 28, 16); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, workno2); //작업번호
- iXPos = Number(sLeftBank) + 380;
- iYPos = Number(sTopBank) + 95;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, spcacptdd); //접수일자
-
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드번호
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, "*" + sBcno + "*"); //바코드번호
- if(flag == "reprnt"){ // 재출력화면일때
- if(sPrntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(sPrntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- if(microbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(microbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- }
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02"){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- }catch(ee) {//이후 2008-07-07 바코드 포트 오류 막기위해
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- function fLisMicroWorknoSpcBarcodePrint011(pRef, pBCount)
- {
- try{
- var cntHR = pRef.rowcount;
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var portOpenTF = "";
- var BCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- //if(pBCount == null || pBCount == ""){
- if(utlf_isNull(pBCount)){
- BCount = 0;
- }else{
- BCount = pBCount;
- }
- if(cntHR > 0 && sPrntKind != "0"){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
-
- if(sCommKind == "01") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"comm");
- var sDataBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"databit");
- var sStopBit = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"stopbit");
- var sBaudRate = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"baudrate");
- var sParity = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"parity");
- var sSetUpVal = objects[sds_data_path + "ds_data_comm02"].getColumn(0,"setupval");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate+","+ sParity+","+sDataBit+","+ sStopBit;
- if(BCount > 0){
- portOpenTF = "TRUE";
- }else if(BCount == 0){
- portOpenTF = CommAX.PortOpen("true");
- }
- //CommAX.PortOpen();
- } else if(sCommKind == "03") {
- var sSetUpVal = objects[sds_data_path + "ds_data_comm01"].getColumn(0,"setupval");
- }
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- for(i = 0; i < cntHR; i++){
- var sSndMsg = "";
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var workno = pRef.getColumn(i, "workno");
- var spcacptdd = pRef.getColumn(i, "spcacptdd");
- var orddrnm = pRef.getColumn(i, "orddrnm");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var mdiabarcdprntcnt = pRef.getColumn(i, "mdiabarcdprntcnt");
- var sRoomcd = pRef.getColumn(i, "roomcd");
- var sDept = pRef.getColumn(i, "dept");
- var workno2 = "";
- var sPrntcnt = pRef.getColumn(i, "prntcnt");
- var flag = pRef.getColumn(i, "flag");
-
- if( utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if( utlf_isNull(sTopBank) || sLeftBank == "-") sTopBank = 0;
- if(sPrntKind == "1") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 70, "*" + sBcno + "*"); // 바코드번호 짝데기
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 95;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sBcno); //바코드번호 텍스트
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(0,8)); // 작업번호 앞자리
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(8,16)); //작업번호 뒷자리
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //}
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- iXPos = Number(sLeftBank) + 305;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- iXPos = Number(sLeftBank) + 515;
- iYPos = Number(sTopBank) + 20;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, spcacptdd); //접수일자
- iXPos = Number(sLeftBank) + 305;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTclslblnmlist); //검사항목라벨명
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //}
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- iXPos = Number(sLeftBank) + 305;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sDept.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- if(sRoomcd != ""){ // 병실있을때만
- iXPos = Number(sLeftBank) + 360;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, " (" + sRoomcd + ")"); //병실코드
- }
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += lzzfBP_ChangeFont("C", 12, 12); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage); // 성별나이
- iXPos = Number(sLeftBank) + 305;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1); // 환자명
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 460;
- iYPos = Number(sTopBank) + 115;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //}
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- // 배지 1
- iXPos = Number(sLeftBank) +10 ;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 40, "*" + sBcno + "*"); // 바코드번호 짝데기
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 16); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sBcno); //바코드번호 텍스트
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(0,8)); //작업번호
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(8,16)); //작업번호
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 275;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1); // 환자명
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //}
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- // 배지 2
- iXPos = Number(sLeftBank) + 330 ;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 40, "*" + sBcno + "*"); // 바코드번호 짝데기
- iXPos = Number(sLeftBank) + 370;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += lzzfBP_ChangeFont("C", 16, 16); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sBcno); //바코드번호 텍스트
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(0,8)); //작업번호
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(8,16)); //작업번호
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 275;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1); // 환자명
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 530;
- iYPos = Number(sTopBank) + 280;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //}
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- // 배지 3
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 340;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 40, "*" + sBcno + "*"); // 바코드번호 짝데기
-
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 385;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sBcno); //바코드번호 텍스트
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(0,8)); //작업번호
-
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(8,16)); //작업번호
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 435;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1); // 환자명
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 440;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- if(flag == "reprnt"){ // 재출력화면일때
- //if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- // }
- }else{
- if(microbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
-
- // 배지 4
- iXPos = Number(sLeftBank) + 330 ;
- iYPos = Number(sTopBank) + 340;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 40, "*" + sBcno + "*"); // 바코드번호 짝데기
-
- iXPos = Number(sLeftBank) + 370;
- iYPos = Number(sTopBank) + 385;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sBcno); //바코드번호 텍스트
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(0,8)); //작업번호
-
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, workno.substr(8,16)); //작업번호
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 435;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1); // 환자명
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 530;
- iYPos = Number(sTopBank) + 440;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- if(flag == "reprnt"){ // 재출력화면일때
- if(sPrntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(sPrntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- if(microbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(microbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- }// if(sPrntKind == "1")
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02"){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- }catch(ee) {//이후 2008-07-07 바코드 포트 오류 막기위해
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- /**
- * 미생물 작업번호라벨 출력 - 박정은
- * pBCount - 분주 또는 진검바코드 출력여부
- */
- function lf_LisMicroWorknoSpcBarcodePrint2(refDs:Dataset,sds_data_path, pBCount){
- try{
-
- var cntHR = refDs.rowcount;
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"prntkind");
- var portOpenTF = "";
- var BCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(utlf_isNull(pBCount)){
- BCount = 0;
- }else{
- BCount = pBCount;
- }
- if(cntHR > 0 && sPrntKind != "0"){
- var sCommKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"commkind");
- var sLeftBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"left");
- var sTopBank = objects[sds_data_path + "ds_data_blank"].getColumn(0,"top");
-
-
- //EPL
- if(sPrntKind == "10"){
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = refDs.getColumn(i,"infcinfolist");
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var barcdcntflag = refDs.getColumn(i,"cntflag");
- var workno = refDs.getColumn(i,"workno");
- var spcacptdd = refDs.getColumn(i,"spcacptdd");
- var orddrnm = refDs.getColumn(i,"orddrnm");
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
- var mdiabarcdprntcnt = refDs.getColumn(i,"mdiabarcdprntcnt");
- var sRoomcd = refDs.getColumn(i,"roomcd");
- var sDept = refDs.getColumn(i,"dept");
- var workno2 = "";
- var sPrntcnt = refDs.getColumn(i,"prntcnt");
- var flag = refDs.getColumn(i,"flag");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
-
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
-
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,2,1,1,N," + "\"" + sSpclblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sPatnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\""+ "\n";
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sBcno + "\""+ "\n";
-
- sSndMsg += "P1"+ "\n";
-
-
-
- CommAX.SendMsg(sSndMsg);
- }//for(i=1 ; i<= cntHR;i++)
- }else{
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = refDs.getColumn(i,"infcinfolist");
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var barcdcntflag = refDs.getColumn(i,"cntflag");
- var workno = refDs.getColumn(i,"workno");
- var spcacptdd = refDs.getColumn(i,"spcacptdd");
- var orddrnm = refDs.getColumn(i,"orddrnm");
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
- var mdiabarcdprntcnt = refDs.getColumn(i,"mdiabarcdprntcnt");
- var sRoomcd = refDs.getColumn(i,"roomcd");
- var sDept = refDs.getColumn(i,"dept");
- var workno2 = "";
- var sPrntcnt = refDs.getColumn(i,"prntcnt");
- var flag = refDs.getColumn(i,"flag");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- sSndMsg = String.fromCharCode(27)+"A" + String.fromCharCode(27)+ "A103500500"; // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sSpclblnm; //검체명
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20)); // 환자명
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sPid;//환자등록번호
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sRoomcd; //병실코드
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sDept.substr(0, 20));
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sSexage; // 성별나이
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, orddrnm.substr(0, 20));
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sTclslblnmlist; //검사항목라벨명
- if(workno != ""){
- workno2 = workno.substr(12,3);
- workno = workno.substr(0,8) + "-" + workno.substr(8,2) + "-" +
- workno.substr(10,2) + "-";
- }
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + workno; //작업번호
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"M" + workno2;
- iXPos = Number(sLeftBank) + 380;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + spcacptdd; //접수일자
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + "*" + sBcno + "*"; // 바코드번호
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"BG02100" + sBcno; // 바코드
- sSndMsg += String.fromCharCode(27)+"Q" + microbarcdprntcnt + String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- }//for(i=1 ; i<= cntHR;i++)
- }
- }
- }catch(e) {//이후 2008-07-07 바코드 포트 오류 막기위해
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- //일반검사 분주라벨
- //lcount, mcount (접수바코드출력수, 미생물바코드 출력수)
- function lf_LisSpcBarcodePrintB(refDs:Dataset,sds_data_path, pLCount, pMCount){
- try {
- if( utlf_isNull(sds_data_path) ) sds_data_path = "";
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var cntHR = refDs.rowcount;
-
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- var portOpenTF = "";
- var LCount = 0;
- var MCount = 0;
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(utlf_isNull(pLCount)){
- LCount = 0;
- }else{
- LCount = pLCount;
- }
- if(utlf_isNull(pMCount)){
- MCount = 0;
- }else{
- MCount = pMCount;
- }
- if(cntHR > 0 && sPrntKind != 0){
- var sCommKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- if(sCommKind == "01") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm01").getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = eval(sds_data_path + "ds_data_comm02").getColumn(0,"comm");
- var sDataBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"databit");
- var sStopBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"stopbit");
- var sBaudRate = eval(sds_data_path + "ds_data_comm02").getColumn(0,"baudrate");
- var sParity = eval(sds_data_path + "ds_data_comm02").getColumn(0,"parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
-
-
- if(LCount > 0){
- portOpenTF = "TRUE";
- }else if (LCount == 0){
- portOpenTF = CommAX.PortOpen("true");
- }
- portOpenTF = "TRUE";
- } else if(sCommKind == "03") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm03").getColumn(0,"setupval");
- }
- //trace('19 portOpenTF: '+portOpenTF+' / '+sCommKind);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- //trace('20 cntHR : '+cntHR);
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sDeptroom = refDs.getColumn(i,"deptroom");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = utlf_transNullToEmpty(refDs.getColumn(i,"infcinfolist"));
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var barcdcntflag = utlf_transNullToEmpty(refDs.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
-
- var divgrupcd = refDs.getColumn(i,"divgrupcd");
- var divgrupnm = refDs.getColumn(i,"divgrupnm");
- var sbcoll = "채혈자";
-
- var iWidth = 0;
- var aStr = "";
- var test_rtn = "";
- var test_he = "";
-
- sPid = sPid;
-
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1" || sPrntKind == "9") {
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- iXPos = Number(sLeftBank) + 600;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- // sSndMsg += CommAX.HanImageData();
- sSndMsg += "^CI14^FO" + iXPos + ","+ iYPos + "^AQN,30,30^FH^FD"+ sTsectlblnm +"^FS^CI1";
- }
- else{
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- // sSndMsg += CommAX.HanImageData();
- sSndMsg += "^CI14^FO" + iXPos + ","+ iYPos + "^AQN,30,30^FH^FD"+ sTsectlblnm +"^FS^CI1";
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
-
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- // trace("sSpclblnm :"+sSpclblnm);
- // sSndMsg += "^CI14^FO" + iXPos + ","+ iYPos + "^AQN,30,30^FH^FD"+ sSpclblnm +"^FS^CI1";
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
-
- // iXPos = Number(sLeftBank) + 250;
- // iYPos = Number(sTopBank) + 157;
- // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 2, 1);
- // sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 157;
- aStr = "";
- aFlag = new Array();
-
- // if(!utlf_isNull(sPatnm)) {
- // for (var j = 0; j < sPatnm.length; j++) {
- // oneChar = sPatnm.charAt(j);
- //
- // test_rtn = "";
- // test_he = "";
- //
- // test_rtn = lpzfGetHanGul3(oneChar);
- // test_he = test_rtn.substring(0,1);
- // trace('a '+j+' / '+oneChar+' / '+test_rtn+' / '+test_he)
- // if(!utlf_isNull(test_he))
- // {
- // //----------------------
- // if (test_he == "E") {
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS";
- // iWidth = iWidth + (Number(oneChar.length) * 15);
- // } else {
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, oneChar, 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(oneChar.length) * 24);
- // }
- // }
- // }
- // }
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- //sPatnm += 'A';
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 157;
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 12);
- } else {
- iYPos = Number(sTopBank) + 157;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
-
- iWidth = iWidth + (Number(oneChar.length) * 30);
- }
- }
- }
- }
- trace('sSndMsg :'+iYPos+' / '+iXPos+' / '+sSndMsg);
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- trace("sTclslblnmlist :"+sTclslblnmlist);
- //---------
- // iWidth = 0;
- // aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- //
- // iXPos = Number(sLeftBank) + 90;
- // if(!utlf_isNull(aStr))
- // {
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- //
- // //----------------------
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 213;
- // sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- // iWidth = iWidth + (Number(aStr[iNo].length) * 15);
- // } else {
- // iYPos = Number(sTopBank) + 215;
- // sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- // sSndMsg += CommAX.HanImageData();
- // iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- // }
- // }
- // }
- iWidth = 0;
- iXPos = Number(sLeftBank) + 90;
-
- if(!utlf_isNull(sTclslblnmlist)) {
- for (var j = 0; j < sTclslblnmlist.length; j++) {
- oneChar = sTclslblnmlist.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 213;
- sSndMsg += "^CFA30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- //sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- //sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, oneChar); //환자등록번호
- iWidth = iWidth + (Number(oneChar.length) * 24);
-
- } else {
- iYPos = Number(sTopBank) + 215;
- sSndMsg += "^CI14^FO" +(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 28);
- }
- }
- }
- }
- //sSndMsg += CommAX.PrtImgOut(90, 200, sTclslblnmlist.substr(0, 20), 1, 1);
- //sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- if(sTclslblnmlist.substr(0, 3) == "ABO") {
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 235;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //감염정보
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 245;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "bunju"); //분주구분
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }//end if(sPrntKind == "1")
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && MCount == 0){
- CommAX.PortOpen("false");
- }
- }else if(portOpenTF == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch(e) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- //일반검사 분주라벨
- //lcount, mcount (접수바코드출력수, 미생물바코드 출력수)
- function lf_LisSpcBarcodePrintB_test(refDs:Dataset,sds_data_path, pLCount, pMCount){
- try {
- if( utlf_isNull(sds_data_path) ) sds_data_path = "";
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var cntHR = refDs.rowcount;
-
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- var portOpenTF = "";
- var LCount = 0;
- var MCount = 0;
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(utlf_isNull(pLCount)){
- LCount = 0;
- }else{
- LCount = pLCount;
- }
- if(utlf_isNull(pMCount)){
- MCount = 0;
- }else{
- MCount = pMCount;
- }
- if(cntHR > 0 && sPrntKind != 0){
- var sCommKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"commkind");
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- if(sCommKind == "01") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm01").getColumn(0,"setupval");
- } else if(sCommKind == "02") {
- var sComm = eval(sds_data_path + "ds_data_comm02").getColumn(0,"comm");
- var sDataBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"databit");
- var sStopBit = eval(sds_data_path + "ds_data_comm02").getColumn(0,"stopbit");
- var sBaudRate = eval(sds_data_path + "ds_data_comm02").getColumn(0,"baudrate");
- var sParity = eval(sds_data_path + "ds_data_comm02").getColumn(0,"parity");;
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
-
-
- if(LCount > 0){
- portOpenTF = "TRUE";
- }else if (LCount == 0){
- portOpenTF = CommAX.PortOpen("true");
- }
- portOpenTF = "TRUE";
- } else if(sCommKind == "03") {
- var sSetUpVal = eval(sds_data_path + "ds_data_comm03").getColumn(0,"setupval");
- }
- //trace('19 portOpenTF: '+portOpenTF+' / '+sCommKind);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- //trace('20 cntHR : '+cntHR);
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sDeptroom = refDs.getColumn(i,"deptroom");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = utlf_transNullToEmpty(refDs.getColumn(i,"infcinfolist"));
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var barcdcntflag = utlf_transNullToEmpty(refDs.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
-
- var divgrupcd = refDs.getColumn(i,"divgrupcd");
- var divgrupnm = refDs.getColumn(i,"divgrupnm");
- var sbcoll = "채혈자";
-
- var iWidth = 0;
- var aStr = "";
- var test_rtn = "";
- var test_he = "";
-
- sPid = sPid;
-
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1" || sPrntKind == "9") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- iXPos = Number(sLeftBank) + 600;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- sSndMsg += CommAX.HanImageData();
- }
- else{
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- sSndMsg += CommAX.HanImageData();
- }
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
-
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
-
- // iXPos = Number(sLeftBank) + 250;
- // iYPos = Number(sTopBank) + 157;
- // sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 2, 1);
- // sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 157;
- aStr = "";
- aFlag = new Array();
-
- if(!utlf_isNull(sPatnm)) {
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- trace('a '+j+' / '+oneChar+' / '+test_rtn+' / '+test_he)
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS";
- iWidth = iWidth + (Number(oneChar.length) * 15);
- } else {
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, oneChar, 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }
- trace('sSndMsg :'+iYPos+' / '+iXPos+' / '+sSndMsg);
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- //---------
- iWidth = 0;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- iXPos = Number(sLeftBank) + 90;
- if(!utlf_isNull(aStr))
- {
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 213;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 15);
- } else {
- iYPos = Number(sTopBank) + 215;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- //sSndMsg += CommAX.PrtImgOut(90, 200, sTclslblnmlist.substr(0, 20), 1, 1);
- //sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- if(sTclslblnmlist.substr(0, 3) == "ABO") {
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 235;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //감염정보
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 245;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "bunju"); //분주구분
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }//end if(sPrntKind == "1")
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && MCount == 0){
- CommAX.PortOpen("false");
- }
- }else if(portOpenTF == "FALSE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch(e) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- //일반검사 분주라벨사토
- //lcount, mcount (접수바코드출력수, 미생물바코드 출력수)
- function lf_LisSpcBarcodePrintB2(refDs:Dataset,sds_data_path, pLCount, pMCount){
- try {
- var cntHR = refDs.rowcount;
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- //var sPrntKind = objects[sds_data_path + "ds_data_setupinfo"].getColumn(0,"cprntkind");
- var sPrntKind = eval(sds_data_path + "ds_data_setupinfo").getColumn(0,"prntkind");
- var portOpenTF = "";
- var LCount = 0;
- var MCount = 0;
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(utlf_isNull(pLCount)){
- LCount = 0;
- }else{
- LCount = pLCount;
- }
- if(utlf_isNull(pMCount)){
- MCount = 0;
- }else{
- MCount = pMCount;
- }
- var sLeftBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"left");
- var sTopBank = eval(sds_data_path + "ds_data_blank").getColumn(0,"top");
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = utlf_transNullToEmpty(refDs.getColumn(i,"tsectlblnm"));
- var sBcno = refDs.getColumn(i,"bcno");
- var sBarcdprntdt = refDs.getColumn(i,"barcdprntdt");
- var sPatnm = refDs.getColumn(i,"patnm");
- var sPid = refDs.getColumn(i,"pid");
- var sSexage = refDs.getColumn(i,"sexage");
- var sDeptroom = refDs.getColumn(i,"deptroom");
- var sSpclblnm = refDs.getColumn(i,"spclblnm");
- var sTubelblnm = refDs.getColumn(i,"tubelblnm");
- var sSecttsect = refDs.getColumn(i,"secttsect");
- var sTclslblnmlist = refDs.getColumn(i,"tclslblnmlist");
- var sInfcinfolist = refDs.getColumn(i,"infcinfolist");
- var sErprcpflag = refDs.getColumn(i,"erprcpflag");
- var bcollbarcdprntcnt = refDs.getColumn(i,"bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = refDs.getColumn(i,"spcacptbarcdprntcnt");
- var microbarcdprntcnt = refDs.getColumn(i,"microbarcdprntcnt");
- var sbcoll = "채혈자";
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(!utlf_isNull(sBcno)){
- sSndMsg = String.fromCharCode(27)+"A" + String.fromCharCode(27)+"A103500500"; // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y"){
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"FW10V0220";
- }
- iXPos = Number(sLeftBank) + 15;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTsectlblnm);
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S*" + sBcno + "*"; //바코드번호
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sBarcdprntdt; //라벨발행일시
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"BG02100" + sBcno; // 바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 130;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20));
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sPid;//환자등록번호
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sSexage;
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sDeptroom; //진료과병실
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sSpclblnm; //검체명
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sTubelblnm; //용기명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += String.fromCharCode(27)+"V" + iYPos + String.fromCharCode(27)+"H" + iXPos + String.fromCharCode(27)+"S" + sSecttsect; //계검사계
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- iXPos = Number(sLeftBank) + 90;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTclslblnmlist);
- if(sTclslblnmlist.substr(0, 3) == "ABO") {
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ");
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sInfcinfolist); //감염정보
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, "bunju"); //분주구분
- //if(barcdcntflag == "acpt" ){
- sSndMsg += String.fromCharCode(27)+"Q" + spcacptbarcdprntcnt + String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- //}else{
- // sSndMsg += String.fromCharCode(27)+"Q" + bcollbarcdprntcnt + String.fromCharCode(27)+"Z";
- // CommAX.SendMsg(sSndMsg);
- //}
- }//if(sBcno != ""){
- }//end for
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch(e) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- //분자생물 배지 분주라벨
- //lcount, mcount (접수바코드출력수, 미생물바코드 출력수)
- function lf_LisSpcBarcodePrintD(pRef, pKCount, pPCount, scrflag){
- //model.setValue("/root/hidden/test/startdt", getCurrentTime());
- var vInstance = document.models(0).instances(0);
- var cntHR = vInstance.selectNodes(pRef).length;
- var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
- if(pKCount == null || pKCount == ""){
- KCount = 0;
- }else{
- KCount = pKCount;
- }
- if(pPCount == null || pPCount == ""){
- PCount = 0;
- }else{
- PCount = pPCount;
- }
- //alert(KCount);
- var scridPrint = getScreenID();
- if(cntHR > 0 && sPrntKind != 0){
- var sCommKind = model.getValue(barcdRef + "[1]/commkind");
- var sLeftBank = model.getValue(barcdRef + "[1]/blank/left");
- var sTopBank = model.getValue(barcdRef + "[1]/blank/top");
- if(sCommKind == "01") {
- var sSetUpVal = model.getValue(barcdRef + "[1]/comm01/setupval");
- } else if(sCommKind == "02") {
- var sComm = model.getValue(barcdRef + "[1]/comm02/comm");
- var sDataBit = model.getValue(barcdRef + "[1]/comm02/databit");
- var sStopBit = model.getValue(barcdRef + "[1]/comm02/stopbit");
- var sBaudRate = model.getValue(barcdRef + "[1]/comm02/baudrate");
- var sParity = model.getValue(barcdRef + "[1]/comm02/parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- //보관검체 출력 갯수가 존재하면 port 오픈 하지 않는다.
- //이미 오픈 되어 있음. 보관검체 출력후 진검 바코드 갯수 체크하여 포트 클로즈 하지 않는다.
- if(KCount > 0){
- //이미 포트 오픈 되어 있으므로 "TRUE" 셋팅
- portOpenTF = "TRUE";
- }else if(KCount == 0){
- //port open 반환값 -> String 문자 포트 오픈 성공이면 "TRUE" , 실패하면 "FALSE"
- portOpenTF = CommAX.PortOpen("true");
- }
- } else if(sCommKind == "03") {
- var sSetUpVal = model.getValue(barcdRef + "[1]/comm03/setupval");
- }
- //alert(portOpenTF);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- for(i=1 ; i<= cntHR;i++){
- var sSndMsg = "";
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
- var checkABO = isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (sLeftBank == "" || sLeftBank == "-") sLeftBank = 0;
- if (sTopBank == "" || sTopBank == "-") sTopBank = 0;
- if (model.getValue(pRef + "["+i+"]/dnornm") ==""){
- var dnorNm = "";
- var dSexage = "";
- }else{
- var dnorNm = model.getValue(pRef + "["+i+"]/dnornm");
- var dSexage = model.getValue(pRef + "["+i+"]/dnorsexage");
- }
- if(sPrntKind == "1") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 40;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 40;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- var dd = getCurrentDate();
- var realdd = dd.substring(4,6) + "/" + dd.substring(6,8);
- var tm = getCurrentTime();
- var realtm = tm.substring(0,2) + ":" + tm.substring(2,4) + ":" + tm.substring(4,6);
- realdd = realdd + " " + realtm;
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 70;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, realdd); //라벨발행일시
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- //---------
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 10;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++) {
- //----------------------
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 98;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- } else {
- iYPos = Number(sTopBank) + 95;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- //sSndMsg += CommAX.PrtImgOut(90, 175, sTclslblnmlist.substr(0, 20), 1, 1); //검사항목라벨명
- //sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }else{
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- //if(sTclslblnmlist.substr(0, 3) == "ABO") {
- if(checkABO) {
- //외래채혈일때
- if(scridPrint=="SMLLC00100" && scrflag){
- keepspc = true;
- }
- //병동,환자별일때
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST){
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 205;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sInfcinfolist, 1, 1); //감염정보
- //sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //계검사계
- if(barcdcntflag == "acpt" ){
- if(spcacptbarcdprntcnt > 0){
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }else{
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc) {
- fKeepBcnoPrint("B");
- }
- }//end if(sPrntKind == "1")
- }//end for
- //portopen이 true이고 통신유형이 com이고 출력할 병리 바코드가 없을때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- //model.setValue("/root/hidden/test/enddt", getCurrentTime());
- }
- function lf_getClobPasing()
- {
- if(utlf_isNull(p_sSetupInfo)){
- lf_setInitDataset(ds_Data_setupinfo, true);
- return;
- }
-
- // Parsing
- var sColID;
- var domDoc, domElement1, domElement2;
- var domPar = new DomParser;
- domDoc = domPar.parseFromString(p_sSetupInfo);
- // 최상위 노드
- for(var i=0; i<domDoc.childNodes.length; i++){
- domElement1 = domDoc.childNodes[i];
- // 상위 노드
- for(var j=0; j<domElement1.childNodes.length; j++){
- domElement2 = domElement1.childNodes[j];
- if(domElement2.childNodes.length>1||domElement2.nodeName=="pcl"){
- lf_getFindElement(domElement2);
- }else{
- sColID = domElement2.nodeName;
- if(sColID=="comm01"){
- sColID="setupval";
- }else if(sColID=="comm03"){
- sColID="setupval03";
- }
- lf_setDatasetMapping(sColID, domElement2.textContent);
- }
- }
- }
- }
- /**
- * @group :
- * @ver : 2008.07.03
- * @by : 윤재한
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
-
-
- function lf_KeLabel(ds_pRef:Dataset,ds_prntinfo:Dataset, count){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- //var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
- var portOpenCheck = "";
- var sPrntKind = ds_prntinfo.getColCount(0, "prntkind");
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(count == null || count == ""){
- LCount = 0;
- }else{
- LCount = count;
- }
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = ds_prntinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
-
- if(sCommKind == "01") {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- } else if(sCommKind == "02") {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
-
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCD = ds_data_comm03.getColumn(0, "eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01"
- || sCommKind == "03"){
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0, "roomcd");
- var sPid = ds_pRef.getColumn(0, "pid");
- var sPatnm = ds_pRef.getColumn(0, "patnm");
- var sPatsex = ds_pRef.getColumn(0, "patsex");
- var sPatage = ds_pRef.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm = ds_pRef.getColumn(0, "orddeptnm").substr(0, 2);
- var sBtype = ds_pRef.getColumn(0, "btype");
- var sInfcinfolist = ds_pRef.getColumn(0, "infcinfolist");//감염정보 추가 20120503
- var sBcollNm = "채혈자:" ;
- var sDt = ds_pRef.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0, "bggc");
-
- if(!utlf_isNull(sInfcinfolist))
- {
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPid.length == 10)
- {
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
- if(sPrntKind == "1") { //zebra
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sStr, 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1.6, 1.6);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 30;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 110; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 85, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 75; // 160 였음
- if(sBGGCno != ""){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno); // 보관검체
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBarcodeW;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY2,2.0"; //
- sSndMsg += "^B3" + "N" + ",N," + "85" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
- } else if(sPrntKind == "3") { //Auto Label(Ginus)
- if(LCount == 0) {//출력할 진검 바코드가 없을시에만 환자정보
- sSndMsg += "^^^P"; //환자정보 시작
- //환자번호, 환자이름, 성별, 나이
- sSndMsg += "^PI" + sPid + "^PN" + sPatnm + "^PS" + sPatsex + "^PA" + sPatage;
- //장비번호 선택
- sSndMsg += "^PB" + sEqmtCD;
- sSndMsg += "^^^P"; //환자정보 종료
- sSndMsg += "^^^S"; //채혈정보 시작
- }
- sSndMsg += "^SS"; //data 시작
- //바코드번호(등록번호), S:보관검체, 진료과, 병실
- sSndMsg += "^SA" + sPid + "^SBS" + "^SC" + sOrddeptNm + "^SD" + sRoomcd;
- //용기코드(보관검체용으로 고정), 바코드출력일시, 혈액형
- sSndMsg += "^SEAB" + "^SI" + sDt + "^S1" + sBtype;
- sSndMsg += "^SS"; //data 종료
- if(LCount != 0) { //진검바코드가 있을경우 진검바코드내용 + 보관검체내용
- ds_hidden.setColumn(0, "sendmessage", ds_hidden.getColumn(0, "sendmessage") + sSndMsg);
-
- }
- if(LCount == 0) {//출력할 진검 바코드가 없을시에만 전송
- sSndMsg += "^^^S"; //채혈정보 종료
- var sReturnValue = AutoLabel.TRANSDATA(0, sSetUpVal, sSndMsg); //전송
- }
- } //end else if(sPrntKind == "3")
- else if(sPrntKind == "4") { //Auto Label(Robo)
- }
- else if(sPrntKind == "9") { //Zebra 300dpi
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sStr, 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
- iXPos = Number(sLeftBank) + 360;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPatsexage);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1.6, 1.6);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 30;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 14); // 폰트 설정
- sSndMsg += lzzfBP_ChangeFont("C", 40, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 120; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 95, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 75; // 160 였음
- if(sBGGCno != ""){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno); // 보관검체
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + sBarcodeW;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY3,2.4,130"; //
- sSndMsg += "^B3" + "N" + ",N," + "125" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 215;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sPid+"*");
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈일자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
- }
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**
- * @group :
- * @ver : 2008.07.03
- * @by : 윤재한
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
-
- function lf_KeLabelHB2(ds_pRef:Dataset,ds_prntinfo:Dataset, count){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = ds_prntinfo.getColumn(0,"prntkind");
- var portOpenCheck = "";
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(count == null || count == ""){
- LCount = 0;
- }else{
- LCount = count;
- }
- var sSndMsg = "";
- if (sPrntKind == 0) return;
-
- var sCommKind = utlf_transNullToEmpty(ds_prntinfo.getColumn(0,"commkind"));
- var sLeftBank = utlf_transNullToEmpty(ds_prntinfo.getColumn(0,"left")); //왼쪽여백
- var sTopBank = utlf_transNullToEmpty(ds_prntinfo.getColumn(0,"top")); //위쪽여백
- if(sPrntKind == "10"){
-
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0,"roomcd");
- var sPid = ds_pRef.getColumn(0,"pid");
- var sPatnm = ds_pRef.getColumn(0,"patnm");
- var sPatsex = ds_pRef.getColumn(0,"patsex");
- var sPatage = ds_pRef.getColumn(0,"patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0,"orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0,"btype");
- var sBcollNm = "채혈자:" ;//+ ds_pRef.getColumn(i,"bcollnm");
- var sDt = ds_pRef.getColumn(0,"dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0,"bggc");
-
-
- //sSndMsg = "^@" + "\n";
- //sSndMsg = "^default" + "\n";
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sStr + "\""+ "\n";
-
- //iXPos = Number(sLeftBank) + 140;
- //iYPos = Number(sTopBank) + 5;
- //sSndMsg += "A" + iXPos + "," + iYPos + ",0,2,1,1,N," + "\"" + "*" + sBcno + "*" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + "Serum" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 25;
- iYPos = Number(sTopBank) + 28;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sPid + "\""+ "\n";
-
-
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,5,1,1,N," + "\"" + sBtype + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sPatnm + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "채혈일시:" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,1,1,1,N," + "\"" + sDt.substr(5) + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + "Plain 6ml" + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "검체채취일시:" + "\""+ "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "채혈자:" + "\""+ "\n";
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + "확인자:" + "\""+ "\n";
-
- sSndMsg += "P1"+ "\n";
-
- //alert(sSndMsg);
- CommAX.SendMsg(sSndMsg);
-
-
- }else if(sPrntKind == "11"){
-
-
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
-
- var sStr = "보관지정";
- var sRoomcd = ds_pRef.getColumn(0,"roomcd");
- var sPid = ds_pRef.getColumn(0,"pid");
- var sPatnm = ds_pRef.getColumn(0,"patnm");
- var sPatsex = ds_pRef.getColumn(0,"patsex");
- var sPatage = ds_pRef.getColumn(0,"patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0,"orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0,"btype");
- var sBcollNm = "채혈자:" ;//+ ds_pRef.getColumn(i,"bcollnm");
- var sDt = ds_pRef.getColumn(0,"dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0,"bggc");
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 22;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno.substring(0, 9));
-
- iXPos = Number(sLeftBank) + 265;
- iYPos = Number(sTopBank) + 22;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBGGCno.substr(9));
-
-
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,25,25^FH^FD" + sStr + "^FS^CI1";
-
-
- //iXPos = Number(sLeftBank) + 10;
- //iYPos = Number(sTopBank) + 25;
- //sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- //sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 70, "*" + sPid + "*"); // 바코드
-
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY1,2.0";//
- sSndMsg += "^B3" + "N" + ",N," + "70" + ",N,N^FD" + "*" + sPid + "*" + "^FS";//바코드 크기
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 100;
- //sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
-
- sSndMsg += "^CFA30,30^FO"+iXPos+","+iYPos+"^FD" + sPid + "^FS";
-
-
-
-
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 100;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,25,25^FH^FD" + sPatnm + "^FS^CI1";
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 45; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 50, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
-
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
-
-
-
- }else if(sPrntKind == "9"){
-
- trace('222 :'+' / '+ds_pRef.getColumn(0,"dt"));
-
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
-
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0,"roomcd");
- var sPid = ds_pRef.getColumn(0,"pid");
- var sPatnm = ds_pRef.getColumn(0,"patnm");
- var sPatsex = ds_pRef.getColumn(0,"patsex");
- var sPatage = ds_pRef.getColumn(0,"patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ""
- var sBtype = ds_pRef.getColumn(0,"btype");
- var sBcollNm = "채혈자:" ;//+ ds_pRef.getColumn(i,"bcollnm");
- var sDt = ds_pRef.getColumn(0,"dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0,"bggc");
-
- if (!utlf_isNull(ds_pRef.getColumn(0,"orddeptnm"))){
- sOrddeptNm= ds_pRef.getColumn(0,"orddeptnm").substring(0,2);
- }else{
- sOrddeptNm= "";
- }
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 400;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Serum");
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,40,40^FH^FD" + sStr + "^FS^CI1";
-
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 40;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sPid + "*"); // 바코드
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
-
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,35,35^FH^FD" + sPatnm + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + "채혈일시:" + "^FS^CI1";
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 50; // 75 였음
- sSndMsg += lzzfBP_ChangeFont("C", 100, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); // 혈액형
-
- trace("sDt :" +sDt);
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 165;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDt);
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "Plain 6ml");
- //iXPos = Number(sLeftBank) + 190;
- //iYPos = Number(sTopBank) + 190;
- //sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBcollNm, 1, 1);
- //sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomcd);
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "검체채취일시:" + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "채혈자:" + "^FS^CI1";
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,30,30^FH^FD" + "확인자:" + "^FS^CI1";
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
-
-
-
- }else{
- var sStr = "보관검체";
- var sRoomcd = ds_pRef.getColumn(0,"roomcd");
- var sPid = ds_pRef.getColumn(0,"pid");
- var sPatnm = ds_pRef.getColumn(0,"patnm");
- var sPatsex = ds_pRef.getColumn(0,"patsex");
- var sPatage = ds_pRef.getColumn(0,"patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm= ds_pRef.getColumn(0,"orddeptnm").substring(0,2);
- var sBtype = ds_pRef.getColumn(0,"btype");
- var sBcollNm = "채혈자:" ;//+ ds_pRef.getColumn(i,"bcollnm");
- var sDt = ds_pRef.getColumn(0,"dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- var sBGGCno = ds_pRef.getColumn(0,"bggc");
-
- if (sLeftBank == "" || sLeftBank == "-") sLeftBank = 0;
- if (sTopBank == "" || sTopBank == "-") sTopBank = 0;
-
- if(sPid.length == 10){
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
-
- sSndMsg = "AA103500500"; // 시작위치 셋팅
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sStr);
-
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sRoomcd;
-
-
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 8;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sPatsexage;
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm, 2, 2);
-
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += "V" + iYPos + "H" + iXPos + "L0203S" + sPid + "L0101";;
-
-
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 110; // 75 였음
- sSndMsg += "V" + iYPos + "H" + iXPos + "L0303M" + sBtype + "L0101";
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 90; // 160 였음
- if(sBGGCno != ""){ // 2009-03-07 정은 수정
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBGGCno;
- }
-
- iXPos = Number(sLeftBank) + sBarcodeW + 20;
- iYPos = Number(sTopBank) + 80;
- sSndMsg += "V" + iYPos + "H" + iXPos + "BG02070" + sPid; // 바코드
-
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "*"+sPid+"*";
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sDt;
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sBcollNm);
-
- sSndMsg += "Q" + "1" + "Z";
-
- CommAX.SendMsg(sSndMsg);
- }
- }
- /**
- * @group :
- * @ver : 2010.01.14
- * @by : 박정은
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 보관검체 출력
- * @param : ref - 보관검체 인스턴스
- * count - 진검바코드 갯수
- * @return :
- * @---------------------------------------------------
- * 채혈화면에서 보관검체출력시 TRLLC80101
- * 혈액은행 보관검체 등록시 TXLBT10902
- */
- function lf_KeLabel_B472(ref, count){
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- //var sPrntKind = model.getValue(barcdRef + "[1]/prntkind");
- var sPrntKind = ds_prntinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var LCount = 0;
- var iXPos = 0;
- var iYPos = 0;
- if(count == null || count == ""){
- LCount = 0;
- }else{
- LCount = count;
- }
- var sSndMsg = "";
- if (sPrntKind == 0) return;
- var sCommKind = ds_prntinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- var sB472sizegbn = ds_data_blank.getColumn(0, "b472size");
-
- if(sCommKind == "01") {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- } else if(sCommKind == "02") {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenCheck = CommAX.PortOpen("true");
- } else if(sCommKind == "03") {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCD = ds_data_comm03.getColumn(0, "eqmtcd");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02")
- || sCommKind == "01" || sCommKind == "07"
- || sCommKind == "03"){
- //var sStr = "보관검체";
- var sRoomcd = ref.getColumn(0, "roomcd");
- var sPid = ref.getColumn(0, "pid");
- var sPatnm = ref.getColumn(0, "patnm");
- var sPatsex = ref.getColumn(0, "patsex");
- var sPatage = ref.getColumn(0, "patage");
- var sPatsexage = sPatsex + "/" + sPatage;
- var sOrddeptNm = ref.getColumn(0, "orddeptnm").substr(0, 2);
- var sBtype = ref.getColumn(0, "btype");
- var sBcollNm = "채혈자:" ;
- //var sDt = model.getvalue(ref +"/dt");
- var sDt = ref.getColumn(0, "dt");
- var sPidW = 85;
- var sBarcodeW = 120; // 110였음
- var sBtypeW = 10;
- //var sBGGCno = model.getvalue(ref +"/bggc");
- var sBGGCno = ref.getColumn(0, "bggc");
- var sB472size = "";
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPid.length == 10){
- sBarcodeW = 90;// 90이었음
- sBtypeW = 10;
- }
- if(sB472sizegbn == "2"){ // 320 630
- sB472size = "0340,0620,0340"; // 기존라벨
- }else{
- sB472size = "0350,0550,0330"; // nUsize
- }
- sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
-
- sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{AX;-000,-000,+00|}"; // 피트량
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_HanDisp24("보관검체", iXPos, iYPos);
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) +20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sRoomcd);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sRoomcd);
-
-
- iXPos = Number(sLeftBank) + 370;
- iYPos = Number(sTopBank) + 20;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sPatsexage);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPatsexage);
-
- iXPos = Number(sLeftBank) ;
- iYPos = Number(sTopBank) + 35;
- //sSndMsg += lzzfBP_HanDisp24(sPatnm, iXPos, iYPos); // 환자명 한글 24사이즈 기본
- sSndMsg += lzzfBP_HanDisp48(sPatnm.substr(0,4), iXPos, iYPos); // 환자명 한글 48사이즈
-
- iXPos = Number(sLeftBank) + 230;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sPid); // 환자번호 크게
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid);
-
-
- iXPos = Number(sLeftBank)+5;
- iYPos = Number(sTopBank) + 135; // 160 였음
- if(sBGGCno != ""){ // 2009-03-07 정은 수정
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sBGGCno);
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBGGCno);
-
- }
-
-
- iXPos = Number(sLeftBank) + sBtypeW;
- iYPos = Number(sTopBank) + 200; // 75 였음
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 60, 60, sBtype);
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBtype);
-
- iXPos = Number(sLeftBank)+150;
- iYPos = Number(sTopBank)+90;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, "*" + sPid + "*", 120); // 바코드
- iXPos = Number(sLeftBank) + 240;
- iYPos = Number(sTopBank) + 240;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, "*"+sPid+"*");
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*"+sPid+"*");
-
- iXPos = Number(sLeftBank) + 5;
- iYPos = Number(sTopBank) + 275;
- //sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 20, 20, sDt);
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sDt);
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 250;
- sSndMsg += lzzfBP_HanDisp24(sBcollNm, iXPos, iYPos); // 채혈자
-
- sSndMsg += "{XS;I,0001,0002C5101|}"; // end
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- //출력할 진검 바코드가 없을시에만 port close
- if(portOpenCheck == "TRUE" && sCommKind == "02" && LCount == 0){
- CommAX.PortOpen("false");
- }
-
- }else if(portOpenCheck == "TRUE" && sCommKind == "02"){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : fLisSpcBarcodePrintB
- * 설명 : 핵의학체외
- * argument : ref - 출력할 바코드정보 Dataset
- **********************************************************************************/
- function fLisSpcBarcodePrintB(pRef, pLCount, pMCount)
- {
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- var LCount = 0;
- var MCount = 0;
-
- var sSndMsg = "";
-
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- if(sCommKind == "01")
- {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- }
- else if(sCommKind == "02")
- {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- if(LCount > 0)
- {
- portOpenCheck = "TRUE";
- }
- else if (LCount == 0)
- {
- portOpenCheck = CommAX.PortOpen("true");
- }
- }
- else if(sCommKind == "03")
- {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- }
- if( (portOpenCheck == "TRUE" && sCommKind == "02") || (sCommKind == "01") || (sCommKind == "03"))
- {
- for(var i = 0; i < cntHR; i++)
- {
- var tsectlblnm = utlf_transNullToEmpty(pRef.getColumn(i,"tsectlblnm"));
- var sBcno = utlf_transNullToEmpty(pRef.getColumn(i,"bcno"));
- var sBarcdprntdt = utlf_transNullToEmpty(pRef.getColumn(i,"barcdprntdt"));
- var patnm = utlf_transNullToEmpty(pRef.getColumn(i,"patnm"));
- var sPid = utlf_transNullToEmpty(pRef.getColumn(i,"pid"));
- var sSexage = utlf_transNullToEmpty(pRef.getColumn(i,"sexage"));
- var sDeptroom = utlf_transNullToEmpty(pRef.getColumn(i,"deptroom"));
- var sSpclblnm = utlf_transNullToEmpty(pRef.getColumn(i,"spclblnm"));
- var sTubelblnm = utlf_transNullToEmpty(pRef.getColumn(i,"tubelblnm"));
- var sSecttsect = utlf_transNullToEmpty(pRef.getColumn(i,"secttsect"));
- var sTclslblnmlist = utlf_transNullToEmpty(pRef.getColumn(i,"tclslblnmlist"));
- var sInfcinfolist = utlf_transNullToEmpty(pRef.getColumn(i,"infcinfolist"));
- var sErprcpflag = utlf_transNullToEmpty(pRef.getColumn(i,"erprcpflag"));
- var barcdcntflag = utlf_transNullToEmpty(pRef.getColumn(i,"cntflag"));
- var bcollbarcdprntcnt = utlf_transNullToEmpty(pRef.getColumn(i,"bcollbarcdprntcnt"));
- var spcacptbarcdprntcnt = utlf_transNullToEmpty(pRef.getColumn(i,"spcacptbarcdprntcnt"));
- var microbarcdprntcnt = utlf_transNullToEmpty(pRef.getColumn(i,"microbarcdprntcnt"));
- var divgrupcd = utlf_transNullToEmpty(pRef.getColumn(i,"divgrupcd"));
- var divgrupnm = utlf_transNullToEmpty(pRef.getColumn(i,"divgrupnm"));
- var sbcoll = "채혈자";
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1" || sPrntKind == "9")
- {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- iXPos = Number(sLeftBank) + 600;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- sSndMsg += CommAX.HanImageData();
- }
- else
- {
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTsectlblnm.substr(0, 20), 2, 1);
- sSndMsg += CommAX.HanImageData();
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
-
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 157;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 2, 1);
- sSndMsg += CommAX.HanImageData();
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iWidth = 0;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- iXPos = Number(sLeftBank) + 90;
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 213;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 15);
- }
- else
- {
- iYPos = Number(sTopBank) + 215;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- if(sTclslblnmlist.substr(0, 3) == "ABO")
- {
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 235;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //감염정보
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 245;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "bunju"); //분주구분
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- else
- {
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- if( portOpenCheck == "TRUE" && sCommKind == "02" && MCount == 0)
- {
- CommAX.PortOpen("false");
- }
- }
- }
- else if(portOpenCheck == "FALSE" && sCommKind == "02")
- {
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : fLisNSpcBarcodePrint2
- * 설명 : 핵의학체외
- * argument : ref - 출력할 바코드정보 Dataset
- **********************************************************************************/
- function fLisNSpcBarcodePrint2(pRef)
- {
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
- if(cntHR > 0 && sPrntKind != "0")
- {
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
-
- for(var i = 0 ; i < cntHR;i++)
- {
- var sSndMsg = "";
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sspctdt = pRef.getColumn(i, "spcacptdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- //var sDivgrupnm = pRef.getColumn(i, "divgruplblnm");
- var sDivgrupnm = pRef.getColumn(i, "divgrupnm");
- //var sDivgrupcd = pRef.getColumn(i, "divgrupcd");
- var sDivgrupcd = pRef.getColumn(i, "divgruplblnm"); //2.0 전환하면서 divgrupcd->divgruplblnm
- var sExtrtestinstnm = pRef.getColumn(i, "extrtestinstnm");
- var sBcolldt = pRef.getColumn(i, "bcolldt");
-
- //2.0추가 remark 출력 추가
- var prcpdelivefact = pRef.getColumn(i,"prcpdelivefact");
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- //trace("111111" + sDivgrupcd );
- /*
- if( i == 0){
- sDivgrupcd = ":C-PEP 0 회 ";
- }
- else if ( i == 1){
- sDivgrupcd = ":INSULIN 0 회";
- }
- */
- if(sPrntKind == "9" )
- {
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
- // if(!utlf_isNull(sInfcinfolist))
- // {
- // iXPos = Number(sLeftBank) + 2;
- // iYPos = Number(sTopBank) + 310;
- // sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 500, 10, 10);
- // }
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 80, "*" + sBcno + "*"); // 바코드
-
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_ChangeFont("F", 30, 30);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
- iXPos = Number(sLeftBank) + 360;
- //이재오 막다 2018.09 13
- //iYPos = Number(sTopBank);
- //sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,40,40^FH^FD" + sPatnm.substr(0, 20) + "^FS^CI1";
-
-
- var iWidth = 0;
- var aStr = "";
-
- // 이재오 수정 보완
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "H") {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,40,40^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 32);
-
- } else {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- // 이재오 수정 보완
-
-
- sDivgrupcd = sDivgrupcd.substr(0, sDivgrupcd.length);
- var Sindex = sDivgrupcd.indexOf(":");
- sDivgrupcd = sDivgrupcd.substr(Sindex + 1);
- trace("test 한글 " + i + sDivgrupcd);
- var iWidth = 0;
- var aStr = "";
- //var aFlag = new Array();
- iXPos = Number(sLeftBank) + 2;
-
- for (var j = 0; j < sDivgrupcd.length; j++) {
- oneChar = sDivgrupcd.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "H") {
- iYPos = Number(sTopBank) + 153;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1";
- // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 32);
- } else {
- iYPos = Number(sTopBank) + 150;
- sSndMsg += "^CFC30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS";
- // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 22);
- }
- }
- }
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "^CFC30,30^FO"+iXPos+","+ iYPos +"^FD" + sSpclblnm + "^FS";
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "^CFC30,30^FO"+iXPos+","+ iYPos +"^FD" + sDeptroom + "^FS";
-
-
- //감염정보 특수문자 추가 20120402
- if(!utlf_isNull(sInfcinfolist)){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- } else {
- sInfcinfolist = "";
- }
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "^CFC30,30^FO"+iXPos+","+ iYPos +"^FD" + sInfcinfolist + "^FS"; // 감염정보
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += "^CFC30,30^FO"+iXPos+","+ iYPos +"^FD" + sspctdt + "^FS";
- if ((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- }
-
- if(utlf_isNull(prcpdelivefact)){
- prcpdelivefact = "";
- }
- iXPos = Number(sLeftBank) + 130;
- if(!utlf_isNull(prcpdelivefact)) {
- for (var j = 0; j < prcpdelivefact.length; j++) {
- oneChar = prcpdelivefact.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; //
- iWidth = iWidth + (Number(oneChar.length) * 14);
- } else {
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,15,15^FH^FD" + oneChar + "^FS^CI1"; //
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
- }
- else if (sPrntKind == "11")
- {
- trace("ttttttttttttttttttttttttttt");
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += lzzfBP_ChangeFont("F", 5, 5);
- //sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 80, "*" + sBcno + "*"); // 바코드
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 80, "*" + sBcno + "*"); // 바코드
-
- iXPos = Number(sLeftBank) + 50;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
- /* 이재오막고 재설종
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += "^CI14^FO"+iXPos+","+ iYPos +"^AQN,20,20^FH^FD" + sPatnm.substr(0, 20) + "^FS^CI1";
- */
-
- var iWidth = 0;
- var aStr = "";
-
- iXPos = Number(sLeftBank) + 200;
- for (var j = 0; j < sPatnm.length; j++) {
- oneChar = sPatnm.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "H") {
- iYPos = Number(sTopBank) + 8;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 30);
-
- } else {
- iYPos = Number(sTopBank) + 8;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 14);
- }
- }
- }
- // 이재오 수정 보완
-
- sDivgrupcd = sDivgrupcd.substr(0, sDivgrupcd.length);
- var Sindex = sDivgrupcd.indexOf(":");
- sDivgrupcd = sDivgrupcd.substr(Sindex + 1);
- trace("test 한글2 " + i + sDivgrupcd);
- var iWidth = 0;
- var aStr = "";
- //var aFlag = new Array();
- iXPos = Number(sLeftBank) + 2;
-
- for (var j = 0; j < sDivgrupcd.length; j++) {
- oneChar = sDivgrupcd.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "H") {
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + oneChar + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(oneChar.length) * 30);
-
- } else {
- iYPos = Number(sTopBank) + 145;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(oneChar.length) * 14);
- }
- }
- }
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- //sSndMsg += "^CFC20,30^FO"+iXPos+","+ iYPos +"^FD" + sSpclblnm + "^FS";
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- //sSndMsg += "^CFC20,30^FO"+iXPos+","+ iYPos +"^FD" + sDeptroom + "^FS";
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과
-
-
-
- //감염정보 특수문자 추가 20120402
- if(!utlf_isNull(sInfcinfolist)){
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- } else {
- sInfcinfolist = "";
- }
-
- trace("print start5" + sInfcinfolist);
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 195;
-
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정 20120328
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); // 감염정보
-
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sspctdt); //출력일
-
-
- trace('bbbb '+prcpdelivefact);
- if ((!utlf_isNull(prcpdelivefact)) && ((prcpdelivefact.length) == 1)){
- prcpdelivefact = prcpdelivefact.replace("-", ""); //Remark
- }
-
- if(utlf_isNull(prcpdelivefact)){
- prcpdelivefact = "";
- }
- iXPos = Number(sLeftBank) + 130;
- if(!utlf_isNull(prcpdelivefact)) {
- for (var j = 0; j < prcpdelivefact.length; j++) {
- oneChar = prcpdelivefact.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + oneChar + "^FS"; //
- iWidth = iWidth + (Number(oneChar.length) * 14);
- } else {
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,15,15^FH^FD" + oneChar + "^FS^CI1"; //
- iWidth = iWidth + (Number(oneChar.length) * 24);
- }
- }
- }
- }
-
- sSndMsg += "^XZ"
- CommAX.SendMsg(sSndMsg);
-
- }
- else{
-
-
- sSndMsg = ""+String.fromCharCode(27)+"A"+String.fromCharCode(27)+"A103500500";
-
- if(!utlf_isNull(sInfcinfolist))
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 240;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+"220"+String.fromCharCode(27)+"H"+"0"+String.fromCharCode(27)+"FW10H0350";
- }
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"M"+sBcno;
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"M"+sPid;
-
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20));
- sDivgrupcd = sDivgrupcd.substr(0, sDivgrupcd.length)
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 70;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sDivgrupcd.substr(0, 20));
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"M"+sSpclblnm;
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"M"+sDeptroom;
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"M"+sBcolldt;
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 200;
- if(!utlf_isNull(sDivgrupnm))
- {
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sDivgrupnm.substr(0, 20));
- }
- sSndMsg += ""+String.fromCharCode(27)+"Q"+"1"+String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- }
- }
- }
- }
- /**********************************************************************************
- * 함수명 : fLisNSpcBarcodePrint
- * 설명 : 핵의학체외
- * argument : ref - 출력할 바코드정보 Dataset
- **********************************************************************************/
- function fLisNSpcBarcodePrint(pRef)
- {
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var portOpenCheck = "";
- var iXPos = 0;
- var iYPos = 0;
-
- if(cntHR > 0 && sPrntKind != "0")
- {
- var sCommKind = utlf_transNullToEmpty(ds_data_setupinfo.getColumn(0, "commkind"));
- var sLeftBank = utlf_transNullToEmpty(ds_data_blank.getColumn(0, "left"));
- var sTopBank = utlf_transNullToEmpty(ds_data_blank.getColumn(0, "top"));
- if(sCommKind == "01")
- {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- }
- else if(sCommKind == "02")
- {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- var sSetUpVal = ds_data_comm02.getColumn(0, "setupval");
-
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate+","+ sParity+","+sDataBit+","+ sStopBit;
- portOpenCheck = CommAX.PortOpen(true);
- portOpenCheck = "TRUE";
- }
- else if(sCommKind == "03")
- {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCD = ds_data_comm03.getColumn(0,"eqmtcd");
- }
- trace('lis 핵의학 체외 sSetUpVal = '+sPrntKind+' / '+sCommKind+' / '+portOpenCheck);
- if( (portOpenCheck == "TRUE" && sCommKind == "02") || (sCommKind == "01") || (sCommKind == "03"))
- {
- for(var i = 0 ; i < cntHR; i++)
- {
- var sSndMsg = "";
- var sBcno = utlf_transNullToEmpty(pRef.getColumn(i, "bcno"));
- var sBarcdprntdt = utlf_transNullToEmpty(pRef.getColumn(i, "barcdprntdt")); //사용하지않음
- var sspctdt = utlf_transNullToEmpty(pRef.getColumn(i, "spcacptdt"));
- var sPatnm = utlf_transNullToEmpty(pRef.getColumn(i, "patnm"));
- var sPid = utlf_transNullToEmpty(pRef.getColumn(i, "pid"));
- var sSexage = utlf_transNullToEmpty(pRef.getColumn(i, "sexage")); //사용하지않음
- var sDeptroom = utlf_transNullToEmpty(pRef.getColumn(i, "deptroom"));
- var sSpclblnm = utlf_transNullToEmpty(pRef.getColumn(i, "spclblnm"));
- var sTclslblnmlist = utlf_transNullToEmpty(pRef.getColumn(i, "tclslblnmlist"));
- var sInfcinfolist = utlf_transNullToEmpty(pRef.getColumn(i, "infcinfolist")); //감염정보
- var sDivgrupnm = utlf_transNullToEmpty(pRef.getColumn(i, "divgrupnm"));
- //var sDivgrupcd = utlf_transNullToEmpty(pRef.getColumn(i, "divgrupcd"));
- var sDivgrupcd = utlf_transNullToEmpty(pRef.getColumn(i, "divgruplblnm")); //2.0에서 divgrupcd->divgruplblnm 변경
- var sExtrtestinstnm = utlf_transNullToEmpty(pRef.getColumn(i, "extrtestinstnm")); //사용하지않음
- var sBcolldt = utlf_transNullToEmpty(pRef.getColumn(i, "bcolldt")); //사용하지않음
-
-
- trace("핵의학 sInfcinfolist :"+sInfcinfolist);
- if (utlf_isNull(sLeftBank) || sLeftBank == "-")
- {
- sLeftBank = 0;
- }
- if (utlf_isNull(sTopBank) || sTopBank == "-")
- {
- sTopBank = 0;
- }
-
- if(sPrntKind == "1")
- {
- sSndMsg += lzzfBP_StartFormat(0, 0); // LZZ001.xjs
- if(!utlf_isNull(sInfcinfolist))
- {
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 350, 10, 10); // LZZ001.xjs
- }
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank);
- sSndMsg += "^CFF30,30^FO"+iXPos+","+ iYPos +"^FD" + sPid + "^FS";
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank);
- // sSndMsg += llz_objCommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1);
- // sSndMsg += llz_objCommAX.HanImageData();
- //
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10); // LZZ001.xjs
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 40, "*" + sBcno + "*"); // LZZ001.xjs
-
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 67;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*");
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom);
-
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sspctdt); //검체명
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- if(utlf_isNull(sInfcinfolist)) {
- sInfcinfolist = "";
- }
-
- sSndMsg = "";
- //감염정보 2.0 추가
- if(!utlf_isNull(sInfcinfolist)) {
- iXPos = Number(sLeftBank) + 2;
- iYPos = Number(sTopBank) + 170;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*"+sInfcinfolist+"*");
- trace("감염 sSndMsg ="+sSndMsg);
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
-
- //trace("aStr1 ="+sDivgrupcd);
-
-
- sDivgrupcd = sDivgrupcd.substr(0, sDivgrupcd.length);
- var Sindex = sDivgrupcd.indexOf(":");
- sDivgrupcd = sDivgrupcd.substr(Sindex + 1);
-
- var iWidth = 0;
- var aStr = "";
- var aFlag = new Array();
- iXPos = Number(sLeftBank) + 2;
- aStr = lpzfGetHanGul(sDivgrupcd, aFlag);
- trace("aStr ="+aStr+'/'+sDivgrupcd);
-
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 95;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 18);
- }
- else
- {
- iYPos = Number(sTopBank) + 92;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 25);
- }
- }
- sSndMsg += lzzfBP_EndFormat(); // 출력수
- }
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
-
- if( portOpenCheck == "TRUE" && sCommKind == "02")
- {
- CommAX.PortOpen("false");
- }
- }
- else if((portOpenCheck = "FALSE" && sCommKind == "02"))
- {
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- }
- /**********************************************************************************
- * 함수명 : fLisSpcBarcodePrint3
- * 설명 : 핵의학체외
- * argument : ref - 출력할 바코드정보 Dataset
- **********************************************************************************/
- function fLisSpcBarcodePrint3(pRef, pKCount, pPCount, scrflag)
- {
- dsf_makeValue(ds_hidden, "sendmessage", "string", "", 0);
-
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
- if(utlf_isNull(pKCount))
- {
- KCount = 0;
- }
- else
- {
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount))
- {
- PCount = 0;
- }
- else
- {
- PCount = pPCount;
- }
-
- var scridPrint = frmf_getScreenID();
- if(cntHR > 0 && sPrntKind != 0)
- {
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- var sB472sizegbn = ds_data_blank.getColumn(0, "b472size");
-
- if(sCommKind == "01")
- {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- }
- else if(sCommKind == "02")
- {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- if(KCount > 0)
- {
- portOpenTF = "TRUE";
- }
- else if(KCount == 0)
- {
- portOpenTF = CommAX.PortOpen("true");
- }
- }
- else if(sCommKind == "03")
- {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCd = ds_data_comm03.getColumn(0, "eqmtcd");
- }
- if((portOpenTF == "TRUE" && sCommKind == "02")|| (sCommKind == "01")|| (sCommKind == "03"))
- {
- for(var i = 0 ; i < cntHR;i++)
- {
- var sSndMsg = "";
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
- var sB472size = "";
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- var sTclslblnmlist2 = "";
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-")
- {
- sLeftBank = 0;
- }
- if (utlf_isNull(sTopBank) || sTopBank == "-")
- {
- sTopBank = 0;
- }
- if (utlf_isNull(pRef.getColumn(i, "dnornm")))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm")
- var dSexage = pRef.getColumn(i, "dnorsexage")
- }
-
- if(sB472sizegbn == "2")
- {
- sB472size = "0340,0620,0340";
- }
- else
- {
- sB472size = "0350,0550,0330";
- }
- sSndMsg += "{D" + sB472size + "|}";
- sSndMsg += "{C|}";
- sSndMsg += "{AX;-000,-000,+00|}";
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_HanDisp24(sTsectlblnm, iXPos, iYPos);
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- //응급표시
- iXPos1 = Number(sLeftBank);
- iXPos2 = Number(sLeftBank);
- iYPos1 = Number(sTopBank) ;
- iYPos2 = Number(sTopBank) + 280;
- var ppX1 = iXPos1.toString().getLeftPad(4, "0");
- var ppX2 = iXPos1.toString().getLeftPad(4, "0");
- var ppY1 = iYPos1.toString().getLeftPad(4, "0");
- var ppY2 = iYPos2.toString().getLeftPad(4, "0");
- sSndMsg += "{LC;"+ppX1+","+ppY1+","+ppX2+","+ppY2+",1,8|}";
- }
-
- iXPos = Number(sLeftBank)+140;
- iYPos = Number(sTopBank)+20;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank)+60;
- iYPos = Number(sTopBank)+30;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 5, 4, "*" + sBcno + "*",110); // 바코드
-
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- else
- {
- if(bcollbarcdprntcnt > 0)
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
-
- iXPos = Number(sLeftBank)+350;
- iYPos = Number(sTopBank)+20;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBarcdprntdt); //라벨발행일시
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+155;
- sSndMsg += lzzfBP_HanDisp24(sPatnm.substr(0, 7), iXPos, iYPos); // 환자명 한글
-
- iXPos = Number(sLeftBank)+225;
- iYPos = Number(sTopBank)+175;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid); //환자등록번호
-
- iXPos = Number(sLeftBank)+400;
- iYPos = Number(sTopBank)+175;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSexage); //성병나이
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+210;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sDeptroom); //진료과병실
-
- iXPos = Number(sLeftBank)+210;
- iYPos = Number(sTopBank)+210;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank)+380;
- iYPos = Number(sTopBank)+210;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sTubelblnm); //용기명
-
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+245;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sSecttsect); //계검사계
-
- iXPos = Number(sLeftBank)+70;
- iYPos = Number(sTopBank)+220;
- sSndMsg += lzzfBP_HanDisp24(sTclslblnmlist, iXPos, iYPos); // 검사명 한글
-
-
- if (!utlf_isNull(pRef.getColumn(i, "dnornm")))
- {
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+255;
- sSndMsg += lzzfBP_HanDisp24(dnorNm.substr(0, 12), iXPos, iYPos); // 공여자명 한글
- iXPos = Number(sLeftBank)+110;
- iYPos = Number(sTopBank)+260;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, dSexage); //공여자성별나이 헌혈화면만 보냄
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
-
- iXPos = Number(sLeftBank)+10 ;
- iYPos = Number(sTopBank)+250;
- sSndMsg += lzzfBP_HanDisp24("채혈자 : ", iXPos, iYPos);
- }
- if(!utlf_isNull(sInfcinfolist))
- {
- iXPos = Number(sLeftBank)+10;
- iYPos = Number(sTopBank)+250;
- sSndMsg += lzzfBP_HanDisp24(sInfcinfolist, iXPos, iYPos);
- }
-
- if(sSecttsect.substr(0, 1) == "A")
- {
- iXPos = Number(sLeftBank) + 435;
- iYPos1 = Number(sTopBank) + 299;
- iYPos2 = Number(sTopBank) + 300;
- var ppX = iXPos.toString().getLeftPad(4, "0");
- var ppY1 = iYPos1.toString().getLeftPad(4, "0");
- var ppY2 = iYPos2.toString().getLeftPad(4, "0");
- sSndMsg += "{LC;0000,"+ppY1+","+ppX+","+ppY2+",1,8|}";
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- sSndMsg += lzzfBP_EndFormat_B472(spcacptbarcdprntcnt);
- CommAX.SendMessage(sSndMsg);
- }
- }
- else
- {
- if(bcollbarcdprntcnt > 0)
- {
- sSndMsg += lzzfBP_EndFormat_B472(bcollbarcdprntcnt);
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc)
- {
- fKeepBcnoPrint("B");
- }
- }
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0)
- {
- CommAX.PortOpen("false");
- }
- }
- }
- else if(portOpenTF = "FALSE" && sCommKind == "02")
- {
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- /**********************************************************************************
- * 함수명 : fLisSpcBarcodePrint
- * 설명 : 핵의학체외
- * argument : ref - 출력할 바코드정보 Dataset
- **********************************************************************************/
- function fLisSpcBarcodePrint(pRef, pKCount, pPCount, scrflag)
- {
- dsf_makeValue(ds_hidden, "sendmessage", "string", "", 0);
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var KCount = 0;
- var PCount = 0;
- if(utlf_isNull(pKCount))
- {
- KCount = 0;
- }
- else
- {
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount))
- {
- PCount = 0;
- }
- else
- {
- PCount = pPCount;
- }
- var scridPrint = frmf_getScreenID();
- if(cntHR > 0 && sPrntKind != 0)
- {
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- if(sCommKind == "01")
- {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- }
- else if(sCommKind == "02")
- {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- if(KCount > 0)
- {
- portOpenTF = "TRUE";
- }
- else if(KCount == 0)
- {
- portOpenTF = CommAX.PortOpen("true");
- }
- }
- else if(sCommKind == "03")
- {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- var sEqmtCd = ds_data_comm03.getColumn(0, "eqmtcd");
- }
- if((portOpenTF == "TRUE" && sCommKind == "02")|| (sCommKind == "01")|| (sCommKind == "03"))
- {
- if(sPrntKind == "1")
- {
- for(var i = 0; i < cntHR;i++)
- {
- var sSndMsg = "";
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(sLeftBank)|| sLeftBank == "-")
- {
- sLeftBank = 0;
- }
- if (utlf_isNull(sTopBank)|| sTopBank == "-")
- {
- sTopBank = 0;
- }
- if (pRef.getColumn(i, "dnornm"))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm");
- var dSexage = pRef.getColumn(i, "dnorsexage");
- }
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- }
- else
- {
- }
- //sTsectlblnm = sTsectlblnm.replace("▨", ",");
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- for (var iNo = 0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBarcdprntdt); //라벨발행일시
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- sPatnm = sPatnm.substr(0, 20)
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 133;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 130;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
-
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSecttsect); //계검사계
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 90;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- for (var iNo = 0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 178;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 175;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //계검사계
- if(sSecttsect.substr(0, 1) == "A")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
- else
- {
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- else
- {
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc)
- {
- fKeepBcnoPrint("B");
- }
- }
- }
- else if(sPrntKind == "9" || sPrntKind == "5")
- {
- for(var i = 0 ; i < cntHR; i++)
- {
- var sSndMsg = "";
- var sTsectlblnm = eval(pRef).getColumn(i, "tsectlblnm");
- var sBcno = eval(pRef).getColumn(i, "bcno");
- var sBarcdprntdt = eval(pRef).getColumn(i, "barcdprntdt");
- var sPatnm = eval(pRef).getColumn(i, "patnm");
- var sPid = eval(pRef).getColumn(i, "pid");
- var sSexage = eval(pRef).getColumn(i, "sexage");
- var sDeptroom = eval(pRef).getColumn(i, "deptroom");
- var sSpclblnm = eval(pRef).getColumn(i, "spclblnm");
- var sTubelblnm = eval(pRef).getColumn(i, "tubelblnm");
- var sSecttsect = eval(pRef).getColumn(i, "secttsect");
- var sTclslblnmlist = eval(pRef).getColumn(i, "tclslblnmlist");
- var sInfcinfolist = eval(pRef).getColumn(i, "infcinfolist");
- var sErprcpflag = eval(pRef).getColumn(i, "erprcpflag");
- var barcdcntflag = eval(pRef).getColumn(i, "cntflag");
- var bcollbarcdprntcnt = eval(pRef).getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = eval(pRef).getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = eval(pRef).getColumn(i, "microbarcdprntcnt");
- var prcphopedd = eval(pRef).getColumn(i, "prcphopedd");
- var bedposcnts = eval(pRef).getColumn(i, "bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-")
- {
- sLeftBank = 0;
- }
- if (utlf_isNull(sTopBank) || sTopBank == "-")
- {
- sTopBank = 0;
- }
- if (utlf_isNull(eval(pRef).getColumn(i, "dnornm")))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = eval(pRef).getColumn(i, "dnornm")
- var dSexage = eval(pRef).getColumn(i, "dnorsexage")
- }
- sSndMsg += lzzfBP_StartFormat(0, 0);
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- }
- else
- {
- }
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 2, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 250;
- sPatnm = sPatnm.substr(0, 20)
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 157;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 2, 1); //20120504 환자명 수정
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- if(sBcno.substr(0, 1) == "E" && !utlf_isNull(bedposcnts))
- {
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
-
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, bedposcnts, 1, 1); //구역베드
- sSndMsg += CommAX.HanImageData();
- }
- else
- {
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
- iXPos = Number(sLeftBank) + 480;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //처방희망일시
-
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 212;
-
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sTclslblnmlist.substr(0, 20), 1, 1); //검사항목라벨명
- sSndMsg += CommAX.HanImageData();
-
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- }
- else
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
-
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist);
- if(sSecttsect.substr(0, 1) == "A")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 290;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
- else
- {
- }
- if(barcdcntflag == "acpt" )
- {
- if(spcacptbarcdprntcnt > 0)
- {
- sSndMsg += lzzfBP_EndFormat(spcacptbarcdprntcnt); // 접수바코드출력수
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }
- else
- {
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- if(keepspc)
- {
- fKeepBcnoPrint("B");
- }
- }
- }
- else if(sPrntKind == "3" && sCommKind == "03")
- {
- for(var i = 0 ; i < cntHR;i++)
- {
- var sPid = pRef.getColumn(i, "pid");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sSex = pRef.getColumn(i, "sex");
- var sAge = pRef.getColumn(i, "age");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sSpcfcntslist = pRef.getColumn(i, "spcfcntslist");
- var sBcno = pRef.getColumn(i, "bcno");
- var sLpflag = pRef.getColumn(i, "lpflag");
- var sDeptnm = pRef.getColumn(i, "deptnm");
- var sWardroom = pRef.getColumn(i, "wardroom");
- var sTubecd = pRef.getColumn(i, "tubecd");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sTclscdlist = pRef.getColumn(i, "tclscdlist");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- //병리 인스턴스
- var sSpctranseqno = pRef.getColumn(i, "spctranseqno");
- var sSpctotalcnt = pRef.getColumn(i, "spctotalcnt");
- var sOrgprcpnm = pRef.getColumn(i, "orgprcpnm");
- var sAddprcpnm = pRef.getColumn(i, "addprcpnm");
- var sOrddrnm = pRef.getColumn(i, "orddrnm");
- var sBcollcau = pRef.getColumn(i, "bcollcau");
- var sPrcpdd = pRef.getColumn(i, "prcpdd");
- var keepspc = false;
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(pRef.getColumn(i, "dnornm")))
- {
- var dnorNm = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm") + pRef.getColumn(i, "dnorsexage");
- }
- if((i == 1) || (pRef.getColumn(i-1, "pid")!= pRef.getColumn(i, "pid")))
- {
- sSndMsg = "^^^P";
- sSndMsg += "^PI" + sPid + "^PN" + sPatnm + "^PS" + sSex + "^PA" + sAge;
- sSndMsg += "^PB" + sEqmtCd;
- if(!utlf_isNull(sInfcinfolist))
- {
- sSndMsg += "^P3" + sInfcinfolist;
- }
- if(!utlf_isNull(sSpcfcntslist))
- {
- sSndMsg += "^P4" + sSpcfcntslist;
- }
- if(!utlf_isNull(sBcollcau))
- {
- sSndMsg += "^P5" + sBcollcau;
- }
- sSndMsg += "^^^_P";
- sSndMsg += "^^^S";
- }
-
- sSndMsg += "^SS";
- sSndMsg += "^SA" + sBcno + "^SB" + sLpflag; //검체번호, 진검병리구분
- //진료과, 병동/병실, 용기코드
- sSndMsg += "^SC" + sDeptnm + "^SD" + sWardroom + "^SE" + sTubecd;
- //용기명
- if(!utlf_isNull(sTubelblnm))
- {
- sSndMsg += "^SF" + sTubelblnm;
- }
- //시행부서코드, 시행부서명칭, 바코드출력일시, 검사항목코드리스트
- sSndMsg += "^SG" + sSecttsect + "^SH" + sTsectlblnm + "^SI" + sBarcdprntdt + "^SJ" + sTclscdlist;
- sSndMsg += "^SK" + sTclslblnmlist + "^SL" + sSpclblnm;
- //응급여부
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- sSndMsg += "^SMY";
- }
- else
- {
- sSndMsg += "^SMN";
- }
- ////공여자(리마크)
- if(!utlf_isNull(dnorNm))
- {
- sSndMsg += "^SN" + dnorNm;
- }
- //병리인 경우
- if(sLpflag == "P")
- {
- sSndMsg += "^SO" + sSpctranseqno + "^SP" + sSpctotalcnt + "^SQ" + sOrgprcpnm + "^SR" + sAddprcpnm + "^ST" + sOrddrnm + "^S2" + sPrcpdd;
- }
- sSndMsg += "^SU" + bcollbarcdprntcnt; //바코드갯수
- sSndMsg += "^_SS"; //채혈정보 DATA 종료
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- }
- if(keepspc)
- {
- dsf_makeValue(ds_hidden, "sendmessage", "string", ds_hidden.getColumn(0, "sendmessage")+ sSndMsg, 0);
- trace('보관검체');
- fKeepBcnoPrint("B");
-
- sSndMsg = ds_hidden.getColumn(0, "sendmessage");
- }
- if((i == cntHR) || (pRef.getColumn(i+1, "pid") != pRef.getColumn(i, "pid")))
- {
- sSndMsg += "^^^_S"; //채혈정보 종료
- }
- }
- var sReturnValue = AutoLabel.TRANSDATA(0, sSetUpVal, sSndMsg); //전송
- }
- else if(sPrntKind == "4" && sCommKind == "03")
- {
- }
- if( portOpenTF == "TRUE" && sCommKind == "02" && PCount == 0)
- {
- CommAX.PortOpen("false");
- }
- }
- else if(portOpenTF = "FALSE" && sCommKind == "02")
- {
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- function fLisSpcBarcodePrint2(pRef, pKCount, pPCount, scrflag)
- {
- ds_hidden.setColumn(0, "sendmessage", "");
-
- var cntHR = pRef.rowcouunt;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iXPos = 0;
- var iYPos = 0;
- var KCount = 0;
- var PCount = 0;
- if(utlf_isNull(pKCount))
- {
- KCount = 0;
- }
- else
- {
- KCount = pKCount;
- }
- if(utlf_isNull(pPCount))
- {
- PCount = 0;
- }
- else
- {
- PCount = pPCount;
- }
-
- var scridPrint = frmf_getScreenID();
- if(cntHR > 0 && sPrntKind != 0)
- {
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- for(var i = 0 ; i < cntHR;i++)
- {
- if(sPrntKind == "10")
- {
- var sSndMsg = "";
-
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var prcphopedd = pRef.getColumn(i, "prcphopedd");
- var bedposcnts = pRef.getColumn(i, "bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-")
- {
- sLeftBank = 0;
- }
- if (utlf_isNull(sTopBank)|| sTopBank == "-")
- {
- sTopBank = 0;
- }
-
- if (utlf_isNull(pRef).getColumn(i, "dnornm"))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm");
- var dSexage = pRef.getColumn(i, "dnorsexage");
- }
-
- if(i == 1)
- {
- }
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
-
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sTsectlblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,2,1,1,N," + "\"" + "*" + sBcno + "*" + "\""+ "\n";
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 0;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sSpclblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 25;
- iYPos = Number(sTopBank) + 28;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,93,N," + "\"" + sBcno + "\""+ "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\""+ "\n";
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,2,1,N," + "\"" + sPatnm + "\""+ "\n"; // 글짜크기 변경 20120504
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,1,1,1,N," + "\"" + prcphopedd + "\""+ "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 147;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sTubelblnm + "\""+ "\n";
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 147;
-
- if(sBcno.substr(0, 1) == "E" && !utlf_isNull(bedposcnts))
- {
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + bedposcnts + "\""+ "\n";
- }
- else
- {
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sDeptroom + "\""+ "\n";
- }
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 167;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,1,1,N," + "\"" + sTclslblnmlist + "\""+ "\n";
- iXPos = Number(sLeftBank);
-
- if(!utlf_isNull(Infcinfolist))
- {
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- iYPos = Number(sTopBank) + 190;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,4,1,1,N," + "\"" + sInfcinfolist + "\""+ "\n"; //20120328
-
-
- sSndMsg += ""+ "\n";
- sSndMsg += "P"+ bcollbarcdprntcnt + "\n";
-
- CommAX.SendMsg(sSndMsg);
- }
- else if(sPrntKind == "9")
- {
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sTsectlblnm2 = pRef.getColumn(i, "tsectlblnm2");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPatnm2 = pRef.getColumn(i, "patnm2");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sTclslblnmlist2 = pRef.getColumn(i, "tclslblnmlist2");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var prcphopedd = pRef.getColumn(i, "prcphopedd");
- var bedposcnts = pRef.getColumn(i, "bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
-
- if (utlf_isNull(sLeftBank)|| sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(utlf_isNull(pRef.getColumn(0, "dnornm")))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm");
- var dSexage = pRef.getColumn(i, "dnorsexage");
- }
-
- sSndMsg += lzzfBP_StartFormat(0, 0);
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- }
-
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank)+ 1;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += "^CI14^FO" + iXPos + ","+ iYPos + "^AQN,30,30^FH^FD"+ sTsectlblnm +"^FS^CI1";
-
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- iXPos = Number(sLeftBank) + 70;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 120, "*" + sBcno + "*"); // 바코드
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 250;
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- for (var iNo = 0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 30);
- }
- }
-
- sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 215;
- iXPos = Number(sLeftBank) + Number(iWidth);
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aStr[iNo]); //용기명
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- else
- {
- iYPos = Number(sTopBank) + 215;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 28);
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
-
- if(sBcno.substr(0, 1) == "E" && !utlf_isNull(bedposcnts))
- {
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 450;
- aStr = lpzfGetHanGul(bedposcnts, aFlag); //구역배드
-
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 18);
- }
- else
- {
- iYPos = Number(sTopBank) + 160;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 20);
- }
- }
-
- }
- else
- {
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
- iXPos = Number(sLeftBank) + 480;
- iYPos = Number(sTopBank) + 185;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //처방희망 일시
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag); //공여자명은 한글, 리마크는 영문
-
- for (var iNo = 0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검체표시명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 18);
- }
- else
- {
- iYPos = Number(sTopBank) + 272;
- sSndMsg += CommAX.PrtImgOut((Number(iXPos)+Number(iWidth)), iYPos, aStr[iNo], 1, 1);
- sSndMsg += CommAX.HanImageData();
- iWidth = iWidth + (Number(aStr[iNo].length) * 20);
- }
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- }
- if(!utlf_isNull(sInfcinfolist))
- {
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정 20120328
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist);
- if(sSecttsect.substr(0, 1) == "A")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 290;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
- else
- {
- }
-
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
-
- CommAX.SendMsg(sSndMsg);
- }
- else if(sPrntKind == "11")
- {
- for(var i = 0; i < cntHR; i++)
- {
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
-
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var prcphopedd = pRef.getColumn(i, "prcphopedd");
- var bedposcnts = pRef.getColumn(i, "bedposcnts");
- var sbcoll = "채혈자";
- var keepspc = false;
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- if (utlf_isNull(pRef.getColumn(i, "dnornm")))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm");
- var dSexage = pRef.getColumn(i, "dnorsexage");
- }
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 15, 240, 10);
- }
- else
- {
- }
- sTsectlblnm = sTsectlblnm.replace("▨", ",");
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 15;
-
- aStr = lpzfGetHanGul(sTsectlblnm, aFlag);
- for (var iNo = 0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 12);
- }
- else
- {
- iYPos = Number(sTopBank) + 2;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검체표시명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBcno + "*"); //바코드번호
-
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 100, "*" + sBcno + "*"); // 바코드
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 170;
- sPatnm = sPatnm.substr(0, 20);
- aStr = lpzfGetHanGul(sPatnm, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CFF30,30^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS";
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1";
- iWidth = iWidth + (Number(aStr[iNo].length) * 30);
- }
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 14, 14); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- if(sBcno.substr(0, 1) == "E" && !utlf_isNull(bedposcnts))
- {
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 300;
- aStr = lpzfGetHanGul(bedposcnts, aFlag); //구역배드
-
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 구역배드명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 135;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 구역배드명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- }
- else
- {
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sDeptroom); //진료과병실
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sTubelblnm); //용기명
- iXPos = Number(sLeftBank) + 280;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += lzzfBP_ChangeFont("C", 5, 5); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, prcphopedd); //라벨발행일시
- sTclslblnmlist = sTclslblnmlist.replace("▨", ","); //검사코드리스트
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(sTclslblnmlist, aFlag);
-
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 178;
- sSndMsg += "^CFF20,20^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 검사코드리스트명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 175;
- sSndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,20,20^FH^FD" + aStr[iNo] + "^FS^CI1"; // 검사코드리스트(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- dnorNm = dnorNm + dSexage;
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- iXPos = Number(sLeftBank) + 20;
- aStr = lpzfGetHanGul(dnorNm, aFlag);
-
- for (var iNo=0; iNo < aStr.length; iNo++)
- {
- if (aFlag[iNo] == "E")
- {
- iYPos = Number(sTopBank) + 232;
- sSndMsg += "^CFC10,10^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^FD" + aStr[iNo] + "^FS"; // 공여자명(영문)
- iWidth = iWidth + (Number(aStr[iNo].length) * 14);
- }
- else
- {
- iYPos = Number(sTopBank) + 232;
- SndMsg += "^CI14^FO"+(Number(iXPos)+Number(iWidth))+","+ iYPos +"^AQN,30,30^FH^FD" + aStr[iNo] + "^FS^CI1"; // 공여자명(한글)
- iWidth = iWidth + (Number(aStr[iNo].length) * 24);
- }
- }
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자 : ", 1, 1);
- sSndMsg += CommAX.HanImageData();
- }
- if(!utlf_isNull(sInfcinfolist))
- {
- sInfcinfolist = "*"+ sInfcinfolist +"*";
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정 20120328
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sInfcinfolist); //계검사계
- if(sSecttsect.substr(0, 1) == "A")
- {
- //검사계명
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += lzzfBP_GraphicBox(iXPos, iYPos, 400, 10, 5);
- }
- else
- {
- }
-
- sSndMsg += lzzfBP_EndFormat(bcollbarcdprntcnt);
- CommAX.SendMsg(sSndMsg);
-
- if(keepspc)
- {
- fKeepBcnoPrint("B");
- }
- }
- }
- else
- {
- var sSndMsg = "";
-
- var sTsectlblnm = pRef.getColumn(i, "tsectlblnm");
- var sBcno = pRef.getColumn(i, "bcno");
- var sBarcdprntdt = pRef.getColumn(i, "barcdprntdt");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sDeptroom = pRef.getColumn(i, "deptroom");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sTubelblnm = pRef.getColumn(i, "tubelblnm");
- var sSecttsect = pRef.getColumn(i, "secttsect");
- var sTclslblnmlist = pRef.getColumn(i, "tclslblnmlist");
- var sInfcinfolist = pRef.getColumn(i, "infcinfolist");
- var sErprcpflag = pRef.getColumn(i, "erprcpflag");
- var barcdcntflag = pRef.getColumn(i, "cntflag");
- var bcollbarcdprntcnt = pRef.getColumn(i, "bcollbarcdprntcnt");
- var spcacptbarcdprntcnt = pRef.getColumn(i, "spcacptbarcdprntcnt");
- var microbarcdprntcnt = pRef.getColumn(i, "microbarcdprntcnt");
- var sbcoll = "채혈자";
- var keepspc = false;
-
- var checkABO = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "ABO");
- var checkAST = utlf_isSearchString(sTclslblnmlist.toUpperCase(), "AST");
-
- if (utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if (utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(utlf_isNull(pRef.getColumn(i, "dnornm")))
- {
- var dnorNm = "";
- var dSexage = "";
- }
- else
- {
- var dnorNm = pRef.getColumn(i, "dnornm");
- var dSexage = pRef.getColumn(i, "dnorsexage");
- }
-
- sSndMsg =""+String.fromCharCode(27)+"A"+String.fromCharCode(27)+"A"+"103500500";
-
- if(sErprcpflag == "1" || sErprcpflag == "2" || sErprcpflag == "Y")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 1;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"FW10V0220";
- }
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
-
- iXPos = Number(sLeftBank) + 15;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTsectlblnm);
-
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 5;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S*"+sBcno+"*";
-
- iXPos = Number(sLeftBank) + 275;
- iYPos = Number(sTopBank) + 5;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sBarcdprntdt;
-
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 30;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"BG02100"+sBcno;
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 130;
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20));
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 135;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sPid;
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 135;
-
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sSexage;
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sDeptroom;
-
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sSpclblnm;
-
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 160;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sTubelblnm;
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += ""+String.fromCharCode(27)+"V"+iYPos+String.fromCharCode(27)+"H"+iXPos+String.fromCharCode(27)+"S"+sSecttsect;
-
- //sTclslblnmlist = sTclslblnmlist.replace("▨", ",");
-
- iXPos = Number(sLeftBank) + 70;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sTclslblnmlist)
-
- dnorNm = dnorNm + dSexage;
-
- CommAX.PrtImgOut(iXPos, iYPos, dnorNm);
-
- if(checkABO)
- {
- if(scridPrint=="SMLLC00100" && scrflag)
- {
- keepspc = true;
- }
- else if((scridPrint=="SMLLC00200" || scridPrint=="SMLLC00300") && scrflag && checkAST)
- {
- keepspc = true;
- }
- iXPos = Number(sLeftBank) + 160;
- iYPos = Number(sTopBank) + 180;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "채혈자:");
- }
-
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 202;
-
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sInfcinfolist); //감염정보
-
- if(sSecttsect.substr(0, 1) == "A")
- {
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 260;
- sSndMsg += ""+String.fromCharCode(27)+"V"+"220"+String.fromCharCode(27)+"H"+"0"+String.fromCharCode(27)+"FW10H0350";
- }
-
- if(barcdcntflag == "acpt" )
- {
- sSndMsg += ""+String.fromCharCode(27)+"Q"+spcacptbarcdprntcnt+String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- }
- else
- {
- sSndMsg += ""+String.fromCharCode(27)+"Q"+bcollbarcdprntcnt+String.fromCharCode(27)+"Z";
- CommAX.SendMsg(sSndMsg);
- }
-
- if(keepspc)
- {
- fKeepBcnoPrint("B");
- }
- }
- }
- }
- }
- function fBaseInfoRef2(strGetCodeInfo)
- {
- if(utlf_isNull(strGetCodeInfo)|| strGetCodeInfo == "undefined")
- {
- return;
- }
-
- var strCodeArray = strGetCodeInfo.split("|");
- var sOutds = "";
-
- for(iRow = 0 ; iRow < strCodeArray.length-1; iRow++)
- {
- dsf_createDs("ds_init_lb" + strCodeArray[iRow]);
- sOutds += "ds_init_lb" + strCodeArray[iRow] + "=" + strCodeArray[iRow] + " ";
- }
-
- dsf_makeValue(ds_send, "codeflag", "string", strGetCodeInfo, 0);
-
- var oParam = {};
- oParam.id = "TRLZZ00103";
- oParam.service = "diagtestapplib.DiagTestBaseInfoMngt";
- oParam.method = "reqGetInitCodeInfo";
- oParam.inds = "cond=ds_send";
- oParam.outds = sOutds;
- oParam.async = false;
- //oParam.callback = "cf_TRLZZ00103";
- tranf_submit(oParam);
- }
- /**
- * 혈액은행 바코드 출력 혈액준비, 혈액불출시
- */
- function fLisTnsrBarcodePrint(pRef,pPrntRef){
- try{
- //var vInstance = document.models(0).instances(0);
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- var aStr = "";
- var iWidth = 0;
- var aFlag = new Array(); //한글 영문 구분
- //혈액불출 결과저장시에만 값이 존재.
- //var sBarcdFlag = model.getValue(pRef + "[1]/flag");
- trace('1 :'+cntHR+' / '+sPrntKind);
- if(cntHR > 0 && sPrntKind != "0"){
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- trace('2');
- if(sCommKind == "01") {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- } else if(sCommKind == "02") {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- var sSetUpVal = ds_data_comm02.getColumn(0, "setupval");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate+","+ sParity+","+sDataBit+","+ sStopBit;
- portOpenTF = CommAX.PortOpen("true");
- portOpenTF = "TRUE";
- } else if(sCommKind == "03") {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- }
- trace('3');
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03") ){
- trace('4');
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- var sPrepBlodSeqNo = pRef.getColumn(i, "prepblodseqno");
- var sBlodNo = pRef.getColumn(i, "blodno");
- var sBlodNo2 = pRef.getColumn(i, "blodno2");
- var sBlodNo3 = pRef.getColumn(i, "blodno3");
- var sBlodNo4 = pRef.getColumn(i, "blodno4");
- var sBlodNo5 = pRef.getColumn(i, "blodno5");
- var sPid = pRef.getColumn(i, "pid");
- var sPatNm = pRef.getColumn(i, "patnm");
- var aSexAge = pRef.getColumn(i, "sexage");
- var sRoomInfo = pRef.getColumn(i, "roominfo");
- var sCMRslt = pRef.getColumn(i, "cmrslt");
- var sBlodComNm = pRef.getColumn(i, "blodcomnm");
- var sAboRh = pRef.getColumn(i, "aborh");
- var sBtype = pRef.getColumn(i, "btype");
- var sIRyn = pRef.getColumn(i, "iryn");
- var sPrtDD = pRef.getColumn(i, "prtdd");
- var sPrtTM = pRef.getColumn(i, "prttm");
- var cmnm = pRef.getColumn(i, "cmnm"); //검사자
- var filteryn = pRef.getColumn(i, "filteryn"); //검사자
- if (sLeftBank == "" || sLeftBank == "-") sLeftBank = 0;
- if (sTopBank == "" || sTopBank == "-") sTopBank = 0;
- if(sPrntKind == "1") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
-
- iXPos = Number(sLeftBank) + 115;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo); //혈액번호
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 155;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo2); //혈액번호
-
- iXPos = Number(sLeftBank) + 115;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo3); //혈액번호
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo4); //혈액번호
-
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 195;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo5); //혈액번호
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 125;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sAboRh); //공혈자혈액형
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 65;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //등록번호
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatNm, 2, 2);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 375;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aSexAge); //성별나이
- iXPos = Number(sLeftBank) + 375;
- iYPos = Number(sTopBank) + 65;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomInfo); ////진료과병실
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //이재오 20150626수정
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 10;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 60, "*" + sPid + "*"); // 바코드
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //이재오 20150626수정 끝
-
- iXPos = Number(sLeftBank) + 460;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "교차시험 : " + sCMRslt.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 230;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, cmnm, 1, 1); // 검사자
- sSndMsg += CommAX.HanImageData();
-
-
- /// iXPos = Number(sLeftBank) + 10;
- /// iYPos = Number(sTopBank) + 105;
- /// sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- /// sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodComNm); //성분제제명
- // }
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 110;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBlodComNm, 1, 1); //성분제제명
- sSndMsg += CommAX.HanImageData();
-
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sIRyn); //성분제제명
-
-
- if(filteryn == "Y"){
-
- iXPos = Number(sLeftBank) + 65;
- iYPos = Number(sTopBank) + 200;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "F"); //성분제제명
- }
-
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- // iXPos = Number(sLeftBank) + 515;
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPrtDD+ ' ' + sPrtTM.substring(0,5)); //출력일자
-
- // iXPos = Number(sLeftBank) + 545;
- // iYPos = Number(sTopBank) + 255;
- // sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPrtTM.substring(0,5)); //출력일시
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- iXPos = Number(sLeftBank) + 115;
- iYPos = Number(sTopBank) + 415;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo); //혈액번호
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 415;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo2); //혈액번호
-
- iXPos = Number(sLeftBank) + 115;
- iYPos = Number(sTopBank) + 455;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo3); //혈액번호
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 455;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo4); //혈액번호
-
- iXPos = Number(sLeftBank) + 475;
- iYPos = Number(sTopBank) + 455;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodNo5); //혈액번호
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 395;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sAboRh); //공혈자혈액형
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 345;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //등록번호
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 340;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatNm, 2, 2);
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- iXPos = Number(sLeftBank) + 375;
- iYPos = Number(sTopBank) + 365;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aSexAge); //성별나이
- iXPos = Number(sLeftBank) + 375;
- iYPos = Number(sTopBank) + 345;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sRoomInfo); ////진료과병실
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
-
- iXPos = Number(sLeftBank) + 460;
- iYPos = Number(sTopBank) + 365;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, "교차시험 : " + sCMRslt.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 490;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, cmnm, 1, 1);
- sSndMsg += CommAX.HanImageData();
-
- //iXPos = Number(sLeftBank) + 10;
- //iYPos = Number(sTopBank) + 385;
- //sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- //sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodComNm); //성분제제명
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 390;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sBlodComNm, 1, 1); //성분제제명
- sSndMsg += CommAX.HanImageData();
-
-
- iXPos = Number(sLeftBank) + 10;
- iYPos = Number(sTopBank) + 460;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sIRyn); //성분제제명
- // }
-
- if(filteryn == "Y"){
-
- iXPos = Number(sLeftBank) + 65;
- iYPos = Number(sTopBank) + 460;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "F"); //성분제제명
- }
- // sSndMsg += lzzfBP_EndFormat();
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
-
- // iXPos = Number(sLeftBank) + 515;
- // iYPos = Number(sTopBank) + 485;
- // sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPrtDD); //출력일자
-
- // iXPos = Number(sLeftBank) + 575;
- // iYPos = Number(sTopBank) + 515;
- // sSndMsg += lzzfBP_ChangeFont("C", 30, 10); // 폰트 설정
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPrtTM); //출력일시
- sSndMsg += lzzfBP_EndFormat();
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02"){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- /**
- * 혈액은행 바코드 출력 (헌혈 혈액백)
- */
- function fLisTnsrBarcodePrintG(pRef,pPrntRef){
- try{
- //var vInstance = document.models(0).instances(0);
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
-
- var iXPos = 0;
- var iYPos = 0;
-
- var portOpenTF = "";
-
- var aStr = "";
- var iWidth = 0;
- var aFlag = new Array();
- if(cntHR > 0 && sPrntKind != "0"){
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- trace("fLisTnsrBarcodePrintG sPrntKind/sCommKind:"+sPrntKind + "/"+sCommKind);
- if(sCommKind == "01") {
- var sSetUpVal = ds_data_comm01.getColumn(0, "setupval");
- } else if(sCommKind == "02") {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBaudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- trace('111');
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate+","+ sParity+","+sDataBit+","+ sStopBit;
- trace('222');
- portOpenTF = CommAX.PortOpen("true");
- portOpenTF = "TRUE";
- trace('333');
- } else if(sCommKind == "03") {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- }
- trace("fLisTnsrBarcodePrintG portOpenTF :"+portOpenTF);
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03") ){
- for(i=0 ; i< cntHR;i++){
- var sSndMsg = "";
- //var sPrepBlodSeqNo = pRef.getColumn(i, "prepblodseqno");
- var sBlodNo = pRef.getColumn(i, "blodno");
- var sPid = pRef.getColumn(i, "tnsrpid");
- var sPatNm = pRef.getColumn(i, "tnsrnm");
- var aSexAge = pRef.getColumn(i, "tnssexage");
-
- var sCMRslt = pRef.getColumn(i, "panjung");
- var sAboRh = pRef.getColumn(i, "tnsrbtype");
- var sBtype = pRef.getColumn(i, "dnbtype");
- var sPrtDD = pRef.getColumn(i, "prtdd");
- var sPrtTM = pRef.getColumn(i, "prttm");
- var sDnorNm = pRef.getColumn(i, "dnornm");
- var sDnsexage = pRef.getColumn(i, "dnsexage");
- var sBcolldd = pRef.getColumn(i, "bcolldt");
- var sValiDt = pRef.getColumn(i, "validt");
- var sTitle = pRef.getColumn(i, "title");
- var sAbocd = pRef.getColumn(i, "abocd");
- var sBlodbarcd = pRef.getColumn(i, "blodbarcd");
- var sBlodbarnm = pRef.getColumn(i, "blodbarnm");
- var sBlodVol = pRef.getColumn(i, "blodvol");
- var sWardRoom = pRef.getColumn(i, "wardroom");
- var sBcollnm = pRef.getColumn(i, "bcollnm");
- if (sLeftBank == "" || sLeftBank == "-"){
- sLeftBank = 0;
- }
- if (sTopBank == "" || sTopBank == "-"){
- sTopBank = 0;
- }
-
- if(sPrntKind == "1" || sPrntKind == "5") {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅 ★ 중요함
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += fCarePrintOutH(iXPos, iYPos, 2, "N", sTitle, ""); // 타이틀----
- iXPos = Number(sLeftBank) + 540;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodVol + "ml"); //헌혈한 용량
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 150;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 30); // 폰트 설정 ----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); //공여자혈액형----
- iXPos = Number(sLeftBank) + 175;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);//----
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 80, "*" + sAbocd + "*"); // 바코드----
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sAbocd + "*"); //공여자혈액형----
- if(sBlodNo != ""){
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 295;
- sSndMsg += "^FO"+iXPos+","+iYPos; // 80 가로, 275세로
- sSndMsg += "^BY2,3.0"; // 크기 2 3= 3:1 배율
- sSndMsg += "^B2N,80,N,N,N^FD" + "*" + sBlodNo + "*" + "^FS";
- iXPos = Number(sLeftBank) + 125;
- iYPos = Number(sTopBank) + 385;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBlodNo + "*"); //혈액번호----
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 460;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodbarnm); //성분제제명----
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 480;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);//----
- sSndMsg += lzzfBP_BarCode_Code39(iXPos, iYPos, "N", 80, "*" + sBlodbarcd + "*"); // 바코드----
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 565;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBlodbarcd + "*"); //성분제제코드----
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 300;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBcolldd.substr(0, 4) + "-" + sBcolldd.substr(4, 2) + "-" + sBcolldd.substr(6, 2)); //채혈년월일 ----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 330;
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBcolldd.substr(8, 2) + ":" + sBcolldd.substr(10, 2)); //채혈시간 ----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 380;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sValiDt.substr(0, 4) + "-" + sValiDt.substr(4, 2) + "-" + sValiDt.substr(6, 2)); //유효일자----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sValiDt.substr(8, 2) + ":" + sValiDt.substr(10, 2)); //유효시간----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 465;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //등록번호----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 515;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatNm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 510;
- sSndMsg += lzzfBP_ChangeFont("C", 40, 20); // 폰트 설정----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sAboRh); //환자혈액형----
- if(sBlodNo != ""){
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 580;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sDnorNm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 575;
- sSndMsg += lzzfBP_ChangeFont("C", 40, 20); // 폰트 설정 ----
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBtype); //공여자혈액형----
- }
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- //보관방법, 사용방법, 혈소판 or 백혈구 수
- var sText11, sText12, sText13, sText14, sText15, sText21, sText22, sText23, sText24, sText25, sText31, sText32, sText33, sText34, sText35;
- if(sBlodbarcd =="A0003"){ //HPC
- //var sText1 = "* 보관 방법 : 약한 교반으로 20~24도 보관 " ;
- //var sText2 = "* 사용 방법 : 제조후 120시간이내 혈소판 수혈세트 사용
- // 정맥 수혈" ;
- //var sText3 = "* 혈소판 수 : ( X 10 ) 용량 ( )ml" ;
- //alert("sText1= " + sText1);
- sText11 = "보관 방법";
- sText12 = "약한 교반으로";
- sText13 = "20-24";
- sText14 = "도 보관";
- sText15 = ":"
- sText21 = "사용 방법";
- sText25 = "제조후";
- sText22 = "120";
- sText23 = "시간이내 혈소판 수혈세트 사용";
- sText24 = "정맥 수혈";
- sText31 = "혈소판 수";
- sText32 = "( X )";
- sText33 = "용량";
- sText34 = "( )ml";
- sText35 = "11";
- }else if(sBlodbarcd =="A0004"){ //DGI
- //var sText1 = "* 보관 방법: 실온보관 " ;
- //var sText2 = "* 사용 방법: 제조후 즉시, PRP세트 사용
- // 정맥수혈" ;
- //var sText3 = "* 백혈구수 ( X ) 용량 ( )ml ]" ;
- sText11 = "보관 방법";
- sText12 = "실온보관";
- sText15 = ":"
- sText21 = "사용 방법";
- sText25 = "제조후 즉시,";
- sText22 = "PRP";
- sText23 = "세트 사용";
- sText24 = "정맥 수혈";
- sText31 = "백혈구 수";
- sText32 = "( X )";
- sText33 = "용량";
- sText34 = "( )ml";
- sText35 = "11";
- }else if((sBlodbarcd =="A0001") || (sBlodbarcd =="A0002") || (sBlodbarcd =="04064")){ // 자가, 전혈
- //var sText1 = "* 보관 방법 / 1 6도 보관 " ;
- //var sText2 = "* 사용 방법 / 수혈세트 사용하여 정맥 수혈" ;
- //var sText3 = "* 용 량 / 365 +- 32ml" ;
- ///var sText1 = " 보관 방법 섭씨 1에서 6도 보관 ";
- var sText41 = "보관 방법";
- var sText42 = "1-6";
- var sText43 = "도 보관";
- //var sText2 = " 사용 방법 수혈세트 사용하여 정맥 수혈";
- var sText51 = "사용 방법";
- var sText52 = "수혈세트";
- var sText53 = "사용하여";
- var sText54 = "정맥 수혈";
- //var sText3 = " 용 량 365 32ml";
- var sText61 = "용 량"
- var sText62 = "365 + 32ml";
- //var sText63 = "+";
- var sText64 = "_";
- }
- if((sBlodbarcd =="A0003") || (sBlodbarcd =="A0004")){ //HPC, DGI
- //1째줄
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText11, 1, 1); // 보관 방법
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 700;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //:
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText15);
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText12, 1, 1); // 약한 교반으로 or 실온보관
- sSndMsg += CommAX.HanImageData();
- if(sBlodbarcd =="A0003"){
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 700;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //20-24 --혈소판
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText13);
-
- iXPos = Number(sLeftBank) + 420;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText14, 1, 1); // 도 보관 --혈소
- sSndMsg += CommAX.HanImageData();
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
- //2째줄
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText21, 1, 1); // 사용 방법
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //:
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText15);
-
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText25, 1, 1); // 제조후 or 제조후 즉시
- sSndMsg += CommAX.HanImageData();
-
- if(sBlodbarcd =="A0003"){ //HPC
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 120
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sText22);
-
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText23, 1, 1); // 시간이내 혈소판 수혈세트
- sSndMsg += CommAX.HanImageData();
- }else{ //DGI
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // PRP
- sSndMsg += lzzfBP_FieldDataA(iXPos , iYPos, sText22);
-
- iXPos = Number(sLeftBank) + 380;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText23, 1, 1); // 세트사용
- sSndMsg += CommAX.HanImageData();
- }
-
- //3째줄
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 751;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText24, 1, 1); // 정맥 수혈
- sSndMsg += CommAX.HanImageData();
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
-
- //4째줄
-
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText31, 1, 1); // 혈소판 수
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //:
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText15);
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ( X )
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText32);
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 770;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText35); // 11
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); //
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "10"); // 10
-
- iXPos = Number(sLeftBank) + 360;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText33, 1, 1); // 용량
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 420;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // ( )ml
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText34);
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodVol);
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
-
- }else if((sBlodbarcd =="A0001") || (sBlodbarcd =="A0002") || (sBlodbarcd =="04064")){
- // 1째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 705;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText41, 1, 1); // 보관 방법
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 710;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); //1-6
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText42);
-
-
- iXPos = Number(sLeftBank) + 210;
- iYPos = Number(sTopBank) + 705;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText43, 1, 1); // 도 보관
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
- // 2째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos , iYPos, sText51, 1, 1); // 사용 방법
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText52, 1, 1); // 수혈세트
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText53, 1, 1); // 사용하여
- sSndMsg += CommAX.HanImageData();
- iXPos = Number(sLeftBank) + 410;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText54, 1, 1); // 정맥 수혈
- sSndMsg += CommAX.HanImageData();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
- //3째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText61, 1, 1); // 용 량
- sSndMsg += CommAX.HanImageData();
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 365 + 32ml
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText62);
-
- iXPos = Number(sLeftBank) + 218;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // _
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sText64);
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- sSndMsg = "";
- }
- sSndMsg += lzzfBP_EndFormat();
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- }
- }//======================================== S = A = T = O ====================================================================================
- else if(sPrntKind == "2" || sPrntKind == "6" || sPrntKind == "7"){ //SATO
- sSndMsg = "AA103500500"; // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 100;
- iYPos = Number(sTopBank) + 50;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sTitle; //타이틀
-
- iXPos = Number(sLeftBank) + 540;
- iYPos = Number(sTopBank) + 85;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBlodVol + "ml";//헌혈한 용량
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 150;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBtype;//공여자혈액형----
- iXPos = Number(sLeftBank) + 175;
- iYPos = Number(sTopBank) + 140;
- sSndMsg += "V" + iYPos + "H" + iXPos + "BG02100" + sAbocd; // 바코드
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 225;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정----
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "*" + sAbocd + "*";//공여자혈액형----
- if(sBlodNo != ""){
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 295;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "*" + sBlodNo + "*";
- iXPos = Number(sLeftBank) + 125;
- iYPos = Number(sTopBank) + 385;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "*" + sBlodNo + "*";//혈액번호----
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 460;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBlodbarnm;//성분제제명----
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 480;
- sSndMsg += "V" + iYPos + "H" + iXPos + "BG02100" + sBlodbarcd; // 바코드
-
- iXPos = Number(sLeftBank) + 140;
- iYPos = Number(sTopBank) + 565;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "*" + sBlodbarcd + "*";
- }
-
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 300;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBcolldd.substr(0, 4) + "-" + sBcolldd.substr(4, 2) + "-" + sBcolldd.substr(6, 2);//채혈년월일 ----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 330;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBcolldd.substr(8, 2) + ":" + sBcolldd.substr(10, 2);//채혈시간 ----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 380;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sValiDt.substr(0, 4) + "-" + sValiDt.substr(4, 2) + "-" + sValiDt.substr(6, 2); //유효일자----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 410;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sValiDt.substr(8, 2) + ":" + sValiDt.substr(10, 2);//유효시간----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 465;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sPid; //등록번호----
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 515;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatNm.substr(0, 20), 1, 1);
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 510;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sAboRh; //환자혈액형----
- if(sBlodNo != ""){
- iXPos = Number(sLeftBank) + 470;
- iYPos = Number(sTopBank) + 580;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sDnorNm.substr(0, 20), 1, 1);
- iXPos = Number(sLeftBank) + 560;
- iYPos = Number(sTopBank) + 575;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBtype; //공여자혈액형----
- }
- //보관방법, 사용방법, 혈소판 or 백혈구 수
- var sText11, sText12, sText13, sText14, sText15, sText21, sText22, sText23, sText24, sText25, sText31, sText32, sText33, sText34, sText35;
- if(sBlodbarcd =="A0003"){ //HPC
- //var sText1 = "* 보관 방법 : 약한 교반으로 20~24도 보관 " ;
- //var sText2 = "* 사용 방법 : 제조후 120시간이내 혈소판 수혈세트 사용
- // 정맥 수혈" ;
- //var sText3 = "* 혈소판 수 : ( X 10 ) 용량 ( )ml" ;
- //alert("sText1= " + sText1);
- sText11 = "보관 방법";
- sText12 = "약한 교반으로";
- sText13 = "20-24";
- sText14 = "도 보관";
- sText15 = ":"
- sText21 = "사용 방법";
- sText25 = "제조후";
- sText22 = "120";
- sText23 = "시간이내 혈소판 수혈세트 사용";
- sText24 = "정맥 수혈";
- sText31 = "혈소판 수";
- sText32 = "( X )";
- sText33 = "용량";
- sText34 = "( )ml";
- sText35 = "11";
- }else if(sBlodbarcd =="A0004"){ //DGI
- //var sText1 = "* 보관 방법: 실온보관 " ;
- //var sText2 = "* 사용 방법: 제조후 즉시, PRP세트 사용
- // 정맥수혈" ;
- //var sText3 = "* 백혈구수 ( X ) 용량 ( )ml ]" ;
- sText11 = "보관 방법";
- sText12 = "실온보관";
- sText15 = ":"
- sText21 = "사용 방법";
- sText25 = "제조후 즉시,";
- sText22 = "PRP";
- sText23 = "세트 사용";
- sText24 = "정맥 수혈";
- sText31 = "백혈구 수";
- sText32 = "( X )";
- sText33 = "용량";
- sText34 = "( )ml";
- sText35 = "11";
- }else if((sBlodbarcd =="A0001") || (sBlodbarcd =="A0002") || (sBlodbarcd =="04064")){ // 자가, 전혈
- //var sText1 = "* 보관 방법 / 1 6도 보관 " ;
- //var sText2 = "* 사용 방법 / 수혈세트 사용하여 정맥 수혈" ;
- //var sText3 = "* 용 량 / 365 +- 32ml" ;
- ///var sText1 = " 보관 방법 섭씨 1에서 6도 보관 ";
- var sText41 = "보관 방법";
- var sText42 = "1-6";
- var sText43 = "도 보관";
- //var sText2 = " 사용 방법 수혈세트 사용하여 정맥 수혈";
- var sText51 = "사용 방법";
- var sText52 = "수혈세트";
- var sText53 = "사용하여";
- var sText54 = "정맥 수혈";
- //var sText3 = " 용 량 365 32ml";
- var sText61 = "용 량"
- var sText62 = "365 + 32ml";
- //var sText63 = "+";
- var sText64 = "_";
- }
- if((sBlodbarcd =="A0003") || (sBlodbarcd =="A0004")){ //HPC, DGI
- //1째줄
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText11, 1, 1); // 보관 방법
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 700;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText15;
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText12, 1, 1); // 약한 교반으로 or 실온보관
- if(sBlodbarcd =="A0003"){
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 700;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText13; //혈소판
-
- iXPos = Number(sLeftBank) + 420;
- iYPos = Number(sTopBank) + 695;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText14, 1, 1); // 도 보관 --혈소
- }
- //2째줄
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText21, 1, 1); // 사용 방법
-
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText15;
-
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText25, 1, 1); // 제조후 or 제조후 즉시
-
- if(sBlodbarcd =="A0003"){ //HPC
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText22;
-
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText23, 1, 1); // 시간이내 혈소판 수혈세트
- }else{ //DGI
- iXPos = Number(sLeftBank) + 340;
- iYPos = Number(sTopBank) + 728;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText22;// PRP
-
- iXPos = Number(sLeftBank) + 380;
- iYPos = Number(sTopBank) + 723;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText23, 1, 1); // 세트사용
- }
-
- //3째줄
- iXPos = Number(sLeftBank) + 172;
- iYPos = Number(sTopBank) + 751;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText24, 1, 1); // 정맥 수혈
-
- //4째줄
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText31, 1, 1); // 혈소판 수
-
- iXPos = Number(sLeftBank) + 155;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText15;//:
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10);
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText32; // ( X )
-
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank) + 770;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText35; // 11
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + "10"; // 10
-
- iXPos = Number(sLeftBank) + 360;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText33, 1, 1); // 용량
-
- iXPos = Number(sLeftBank) + 420;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText34; // ( )ml
-
- iXPos = Number(sLeftBank) + 450;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sBlodVol;
- }else if((sBlodbarcd =="A0001") || (sBlodbarcd =="A0002") || (sBlodbarcd =="04064")){
- // 1째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 705;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText41, 1, 1); // 보관 방법
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 710;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText42;//1-6
-
- iXPos = Number(sLeftBank) + 210;
- iYPos = Number(sTopBank) + 705;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText43, 1, 1); // 도 보관
- // 2째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos , iYPos, sText51, 1, 1); // 사용 방법
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText52, 1, 1); // 수혈세트
- iXPos = Number(sLeftBank) + 290;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText53, 1, 1); // 사용하여
- iXPos = Number(sLeftBank) + 410;
- iYPos = Number(sTopBank) + 740;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText54, 1, 1); // 정맥 수혈
- //3째줄
- iXPos = Number(sLeftBank) + 24;
- iYPos = Number(sTopBank) + 775;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sText61, 1, 1); // 용 량
-
- iXPos = Number(sLeftBank) + 170;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText62;// 365 + 32ml
-
- iXPos = Number(sLeftBank) + 218;
- iYPos = Number(sTopBank) + 780;
- sSndMsg += "V" + iYPos + "H" + iXPos + "S" + sText64; // _
-
- }
- sSndMsg += "Q" + "1" + "Z";
- //alert(sSndMsg);
- CommAX.SendMsg(sSndMsg);
- }// end sato
- //===============================================================================================================================
- else if(sPrntKind == "8"){ // 헌혈 b472 여의도성모 바코드 ★★★
- // alert("b472");
- //var sB472size = "";
- //var sB472sizegbn = model.getValue(barcdRef + "[1]/blank/b472size");
-
- //if(sB472sizegbn == "2"){ // 320 630
- // sB472size = "0340,0620,0340"; // 기존라벨
- //}else{
- // sB472size = "0350,0550,0330"; // nUsize
- //}
- //sSndMsg += "{D" + sB472size + "|}"; // 라벨사이즈
- // sSndMsg += "{D0350,0800,0330|}"; // 라벨사이즈 -- 혈액은행사이즈
-
-
- sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{D0950,0900,0900|}"; // 라벨사이즈
- //sSndMsg += "{C|}"; // 버퍼클리어
- sSndMsg += "{AX;-000,-000,+00|}"; // 피트량
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank)+40;
- sSndMsg += lzzfBP_HanDisp48(sTitle, iXPos, iYPos); // 타이틀----
-
- // -- 환자 -- //
-
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 180;
- //sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sPid); //등록번호
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sPid); //등록번호
-
-
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank)+210;
- sSndMsg += lzzfBP_HanDisp32(sPatNm, iXPos, iYPos); // 환자명
-
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 310;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, aSexAge); //환자 성별나이
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
-
- if(sWardRoom!=""){
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank)+335;
- sSndMsg += lzzfBP_HanDisp32(sWardRoom, iXPos, iYPos); // 병동 병실
- }
-
- if(sAboRh!=""){
- iXPos = Number(sLeftBank) + 640;
- iYPos = Number(sTopBank) + 260;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 70, 70, sAboRh); //환자혈액형
- }
- if(sAbocd!=""){
- iXPos = Number(sLeftBank)+ 620;
- iYPos = Number(sTopBank)+ 270;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 4, 4, "*" + sAbocd + "*", 80); //혈액형 바코드
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- if(sAbocd!=""){
- iXPos = Number(sLeftBank) + 650;
- iYPos = Number(sTopBank) + 375;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "* " + sAbocd + " *"); //혈액형 바코드텍스트
- }
- // -- 공여자 -- //
- if(sBtype!=""){
- iXPos = Number(sLeftBank) + 640;
- iYPos = Number(sTopBank) + 495;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 70, 70, sBtype); //공혈자혈액형
- }
-
- if(sDnorNm!=""){
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 400;
- sSndMsg += lzzfBP_HanDisp32(sDnorNm, iXPos, iYPos); // 공여자명
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- if(sDnsexage!=""){
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 495;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sDnsexage); //환자 성별나이
- }
- if(sBcolldd!="sBcolldd"){
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 550;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBcolldd.substr(0, 4) + "-" + sBcolldd.substr(4, 2) + "-" + sBcolldd.substr(6, 2)); //채혈년월일
-
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank) + 550;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBcolldd.substr(8, 2) + ":" + sBcolldd.substr(10, 2)); //채혈시간
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- if(sValiDt!=""){
- iXPos = Number(sLeftBank) + 530;
- iYPos = Number(sTopBank) + 555;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 30, 30, sValiDt.substr(0, 4) + "-" + sValiDt.substr(4, 2) + "-" + sValiDt.substr(6, 2)); //유효일자
-
- iXPos = Number(sLeftBank) + 760;
- iYPos = Number(sTopBank) + 555;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 30, 30, sValiDt.substr(8, 2) + ":" + sValiDt.substr(10, 2)); //유효시간
- }
- if(sBlodVol!=""){
- iXPos = Number(sLeftBank) + 260;
- iYPos = Number(sTopBank) + 620;
- sSndMsg += lzzfBP_FieldDataA_B472(iXPos, iYPos, 40, 40, sBlodVol + " ml"); //헌혈한 용량
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- if(sBlodbarnm!=""){
- iXPos = Number(sLeftBank) + 440;
- iYPos = Number(sTopBank) + 615;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, sBlodbarnm); //성분제제명
- }
-
-
- if(sBcollnm!=""){
- iXPos = Number(sLeftBank) + 500;
- iYPos = Number(sTopBank) + 650;
- sSndMsg += lzzfBP_HanDisp32("채혈자:" + sBcollnm, iXPos, iYPos); // 공여자명
- }
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- if(sBlodNo != ""){
- iXPos = Number(sLeftBank)+ 40;
- iYPos = Number(sTopBank)+ 770;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 4, 4, "*" + sBlodNo + "*",90); //혈액번호 바코드
-
- // iXPos = Number(sLeftBank) + 110;
- // iYPos = Number(sTopBank) + 295;
- // sSndMsg += "^FO"+iXPos+","+iYPos; // 80 가로, 275세로
- // sSndMsg += "^BY2,3.0"; // 크기 2 3= 3:1 배율
- // sSndMsg += "^B2N,80,N,N,N^FD" + "*" + sBlodNo + "*" + "^FS";
-
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 885;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "* " + sBlodNo + " *"); //혈액번호 텍스트
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- CommAX.SendMessage(sSndMsg);
- sSndMsg= "";
- }
-
- iXPos = Number(sLeftBank)+ 520;
- iYPos = Number(sTopBank)+ 770;
- sSndMsg += lzzfBP_BarCode_Code39_B472(iXPos, iYPos, 4, 4, "*" + sBlodbarcd + "*", 90); //성분제제 바코드
- iXPos = Number(sLeftBank) + 570;
- iYPos = Number(sTopBank) + 885;
- sSndMsg += lzzfBP_FieldDataG_B472(iXPos, iYPos, "*" + sBlodbarcd + "*"); //성분제제코드 텍스트
-
-
- }
-
-
-
- sSndMsg += lzzfBP_EndFormat_B472(1);
-
- if(sCommKind == "01") {
- CommAX.SendMessageToLPT(sSndMsg);
- } else if(sCommKind == "02") {
- // alert("10 " + sSndMsg);
- CommAX.SendMessage(sSndMsg);
- }
-
-
- }// end B472
-
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02"){
- CommAX.PortOpen("false");
- }
- }else if((portOpenTF = "FALSE" && sCommKind == "02")){
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- function fLisTnsrBarcodePrintG2(pRef){
- trace('aaaa');
- //SATO 프린터 Font Size 및 위치, 데이터 내용 확인 필요함.. 출력만 되게 해놓았지만 양식에 맞지 않을것임..
- try{
- trace('bbbb');
-
- //var vInstance = document.models(0).instances(0);
- var cntHR = pRef.rowcount;
- //var barcdRef = "/root/main/barcdprntsetup/prntsetupinfo/setupinfo";
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var iXPos = 0;
- var iYPos = 0;
-
- var aFlag = new Array(); //한글 영문 구분
- var aStr = "";
- var iWidth = 0;
-
- var test_he = "";
- var test_rtn = "";
- var portOpenTF = "";
- trace('1111');
- if(cntHR > 0 && sPrntKind != "0"){
- trace('2222');
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- trace('3333');
- if( (portOpenTF == "TRUE" && sCommKind == "02")
- || (sCommKind == "01")
- || (sCommKind == "03")){
- trace('4444 sPrntKind :'+sPrntKind);
- for(i=0 ; i< cntHR;i++){
- trace('55555');
- var sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
- var sBlodNo = pRef.getColumn(i, "blodno");
- var sPid = pRef.getColumn(i, "tnsrpid");
- var sPatNm = pRef.getColumn(i, "tnsrnm");
- var aSexAge = pRef.getColumn(i, "tnssexage");
- var sCMRslt = pRef.getColumn(i, "panjung");
- var sAboRh = pRef.getColumn(i, "tnsrbtype");
- var sBtype = pRef.getColumn(i, "dnbtype");
- var sPrtDD = pRef.getColumn(i, "prtdd");
- var sPrtTM = pRef.getColumn(i, "prttm");
- var sDnorNm = pRef.getColumn(i, "dnornm");
- var sDnsexage = pRef.getColumn(i, "dnsexage");
- var sBcolldd = pRef.getColumn(i, "bcolldt");
- var sValiDt = pRef.getColumn(i, "validt");
- var sTitle = pRef.getColumn(i, "title");
- var sAbocd = pRef.getColumn(i, "abocd");
- var sBlodbarcd = pRef.getColumn(i, "blodbarcd");
- var sBlodbarnm = pRef.getColumn(i, "blodbarnm");
- var sBlodVol = pRef.getColumn(i, "blodvol");
- var sWardRoom = pRef.getColumn(i, "wardroom");
- var sBcollnm = pRef.getColumn(i, "bcollnm");
- if (sLeftBank == "" || sLeftBank == "-"){
- sLeftBank = 0;
- }
- if (sTopBank == "" || sTopBank == "-"){
- sTopBank = 0;
- }
- trace('6666');
- if(sPrntKind == "9"){
-
- trace('7777');
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- //aStr = lpzfGetHanGul(sTitle, aFlag);
- // for (var iNo=0; iNo < aStr.length; iNo++) {
- // if (aFlag[iNo] == "E") {
- // iYPos = Number(sTopBank) + 5;
- // iXPos = Number(sLeftBank) + 300 + Number(iWidth);
- // sSndMsg += lzzfBP_ChangeFont("C", 50, 50);
- // sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aStr[iNo]);
- // iWidth = iWidth + (Number(aStr[iNo].length) * 50);
- // } else {
- // iYPos = Number(sTopBank) + 5;
- // iXPos = Number(sLeftBank) + 300 + Number(iWidth);
- // sSndMsg += "^CI14^FO"+ iXPos +","+ iYPos +"^AQN,50,50^FH^FD" + aStr[iNo] + "^FS^CI1";
- // iWidth = iWidth + (Number(aStr[iNo].length) * 50);
- // }
- // }
- for (var j = 0; j < sTitle.length; j++) {
- oneChar = sTitle.charAt(j);
-
- test_rtn = "";
- test_he = "";
-
- test_rtn = lpzfGetHanGul3(oneChar);
- test_he = test_rtn.substring(0,1);
- //trace("oneChar "+oneChar+" / "+test_he);
- if(!utlf_isNull(test_he))
- {
- //----------------------
- if (test_he == "E") {
- iYPos = Number(sTopBank) + 5;
- iXPos = Number(sLeftBank) + 300 + Number(iWidth);
- sSndMsg += lzzfBP_ChangeFont("C", 50, 50);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, oneChar);
- iWidth = iWidth + (Number(oneChar.length) * 50);
- } else {
- iYPos = Number(sTopBank) + 5;
- iXPos = Number(sLeftBank) + 300 + Number(iWidth);
- sSndMsg += "^CI14^FO"+ iXPos +","+ iYPos +"^AQN,50,50^FH^FD" + oneChar + "^FS^CI1";
- iWidth = iWidth + (Number(oneChar.length) * 50);
- }
- }
- //trace("oneChar2 "+oneChar+" / "+test_he+" / "+sSndMsg);
- }
-
- iXPos = Number(sLeftBank) + 105;
- iYPos = Number(sTopBank) + 90;
- sSndMsg += lzzfBP_ChangeFont("C", 80, 40); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sAboRh);
-
-
- iXPos = Number(sLeftBank) + 320;
- iYPos = Number(sTopBank) + 70;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 100, "*" + sAbocd + "*");
-
-
- iXPos = Number(sLeftBank) + 380;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sAbocd + "*");
-
- iXPos = Number(sLeftBank) + 150;
- iYPos = Number(sTopBank) + 240;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 100, "*" + sBlodNo + "*");
-
-
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank) + 345;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBlodNo + "*");
-
-
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank) + 390;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sBlodbarnm.substring(0, 20));
-
-
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 430;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 100, "*" + sBlodbarcd + "*");
-
- iXPos = Number(sLeftBank) + 270;
- iYPos = Number(sTopBank) + 535;
- sSndMsg += lzzfBP_ChangeFont("C", 20, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, "*" + sBlodbarcd + "*");
-
- iYPos = Number(sTopBank) + 240;
- iXPos = Number(sLeftBank) + 830;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- trace('88888');
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- aStr = lpzfGetHanGul(sPatNm, aFlag);
- for (var iNo=0; iNo < aStr.length; iNo++) {
- if (aFlag[iNo] == "E") {
- iYPos = Number(sTopBank) + 310;
- iXPos = Number(sLeftBank) + 840 + Number(iWidth);
- sSndMsg += lzzfBP_ChangeFont("C", 40, 40);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aStr[iNo]);
- iWidth = iWidth + (Number(aStr[iNo].length) * 40);
- } else {
- iYPos = Number(sTopBank) + 310;
- iXPos = Number(sLeftBank) + 840 + Number(iWidth);
- sSndMsg += "^CI14^FO"+ iXPos +","+ iYPos +"^AQN,40,40^FH^FD" + aStr[iNo] + "^FS^CI1";
- iWidth = iWidth + (Number(aStr[iNo].length) * 40);
- }
- }
- trace('9999');
- iYPos = Number(sTopBank) + 380;
- iXPos = Number(sLeftBank) + 800;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPrtDD.substring(0, 4) + "-" + sPrtDD.substring(4, 6) + "-" + sPrtDD.substring(6, 8));
-
- iYPos = Number(sTopBank) + 450;
- iXPos = Number(sLeftBank) + 800;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sValiDt.substring(0, 4) + "-" + sValiDt.substring(4, 6) + "-" + sValiDt.substring(6, 8));
- trace('1010');
-
- iWidth = 0;
- aStr = "";
- aFlag = new Array();
- trace('10100000 sBcollnm :'+sBcollnm);
- aStr = lpzfGetHanGul(sBcollnm, aFlag);
- trace('1010111');
- for (var iNo=0; iNo < aStr.length; iNo++) {
- trace('1010222');
- if (aFlag[iNo] == "E") {
- trace('1010333');
- iYPos = Number(sTopBank) + 520;
- iXPos = Number(sLeftBank) + 840 + Number(iWidth);
- sSndMsg += lzzfBP_ChangeFont("C", 40, 40);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, aStr[iNo]);
- iWidth = iWidth + (Number(aStr[iNo].length) * 40);
- } else {
- trace('1010444');
- iYPos = Number(sTopBank) + 520;
- iXPos = Number(sLeftBank) + 840 + Number(iWidth);
- sSndMsg += "^CI14^FO"+ iXPos +","+ iYPos +"^AQN,40,40^FH^FD" + aStr[iNo] + "^FS^CI1";
- iWidth = iWidth + (Number(aStr[iNo].length) * 40);
- }
- }
- trace('1020');
- sSndMsg += lzzfBP_EndFormat("1");
- trace('1030');
- CommAX.SendMsg(sSndMsg);
-
- }
- trace('1040');
- }
- }
- }
-
- }catch(ee) {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- function fchildsearch(xrwid)
- {
- var child = frmf_findPopup(xrwid);
- if(utlf_isNull(child))
- {
- return;
- }
- else
- {
- child.Onclick_btnRef("R");
- return child;
- }
- }
- function fCOMLIS_ResultValidation(pRef, pGridID, pRsltstat, pIsMsg)
- {
- var isRstErr = "false";
- var isSelected = "false";
- var nGridMaxRow = pRef.rowcount; //pGridID.rows - 1;
- var isUpdate = "false";
- var vMsg = ""
- //trace("pRsltstat =>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> " + pRsltstat);
- if (pIsMsg == "true")
- {
- if (pRsltstat == "1")
- {
- var vMsg = "결과저장"
- }
- else if (pRsltstat == "2")
- {
- var vMsg = "중간(예비)보고"
- }
- else if (pRsltstat == "4")
- {
- var vMsg = "최종보고"
- }
- else
- {
- var vMsg = "추가";
- }
- }
-
- var vTestCDLIST = "";
- var vTestCDRsltLIST = "";
-
- for (var i = 0; i < nGridMaxRow; i++)
- {
- // 선택된 항목만 Validation 체크한다.
- if(pRef.getColumn(i, "sel_value") == 1 || pRef.getColumn(i, "sel_value") == "true")
- {
- isSelected = "true";
- var vTclsscrnm = pRef.getColumn(i, "tclsscrnm");
- var vTclskind = pRef.getColumn(i, "tclskind");
- var vParentrsltinptyn = pRef.getColumn(i, "parentrsltinptyn"); // 타이틀 구분
- var vReptrslt = utlf_transNullToEmpty(pRef.getColumn(i, "reptrslt"));
- // 결과 수정기능 체크
- // 최종보고시 이상치 결과는 최종보고권한이 있는 유저만 가능함
- // ※ 진단검사 초기 정보를 이용한 사용자 권한 가져오기( 화면오픈시 정보 조회해야함 )
- if (pRsltstat == "4")
- {
- var vPanicMark = pRef.getColumn(i, "panicmark");
- var vDeltaMark = pRef.getColumn(i, "deltamark");
- var vCriticalMark = pRef.getColumn(i, "criticalmark");
- var vAlertMark = pRef.getColumn(i, "alertmark");
- var vRsltmark = pRef.getColumn(i, "rsltmark");
- var updateTF = false;
- if(pRef.getColumn(i, "rsltstat") == "4" || pRef.getColumn(i, "rsltstat") == "5")
- {
- updateTF = true;
- }
- }
- // trace("-------------------------------------------------------------")
- // trace("vTclskind =>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> " + vTclskind);
- // trace("-------------------------------------------------------------")
- // trace("updateTF =>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> " + updateTF);
- // trace("-------------------------------------------------------------")
- if (vTclskind == "2")
- {
- // Single항목 체크
- if( pRsltstat != '10' && utlf_isNull(vReptrslt.getTrim()))
- {
- sysf_messageBox("[" + vTclsscrnm + "]항목은 공백인 결과는 입력할 수 없습니다." , "I","");
- isRstErr = "true";
- break;
- }
-
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST + "'" + utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(i, "reptrslt")) + "▩";
- }
- }
- else if (vTclskind == "3")
- {
- // Parent항목은 조건에 따라 Child항목만 체크
- // trace("-------------------------------------------------------------")
- // trace("vParentrsltinptyn.getTrim() = " + vParentrsltinptyn.getTrim());
- // trace("-------------------------------------------------------------")
- if (vParentrsltinptyn.getTrim() != "N") //Parent인데 입력가능한 항목들
- {
- var vTestcd = pRef.getColumn(i, "testcd");
- var vN_Inptrslt = pRef.getColumn(i, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getTestInfoCnts.lookup("testcd", vTestcd, "bfinptrslt");
-
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if((vN_Inptrslt != "C" && utlf_isNull(vO_Inptrslt)) || (pRsltstat == pRef.getColumn(i, "rsltstat")) && ("Y" != pRef.getColumn(i, "retestyn")))
- {
- }
- else
- {
-
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) +"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(i, "reptrslt")) + "▩";
-
- }
- }
- }
- else
- {
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) +"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(i, "reptrslt")) + "▩";
- }
- }
- }
- else //Parent인데 입력 불가능한 항목들
- {
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE); // Parent 항목제외
- if(updateTF)
- {
- //vTestCDLIST = vTestCDLIST +"'"+ model.getvalue(pRef + "[" + i + "]/testcd")+"',";
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(i, "reptrslt")) + "▩";
- //trace("vTestCDLIST04="+vTestCDLIST);
- }
- }
- // trace("nGridMaxRow = " + nGridMaxRow);
- // trace("-------------------------------------------------------------")
- /* ↑↑↑↑↑↑↑↑↑ Parent항목 chile항목 ↓↓↓↓↓↓↓↓↓*/
- // trace("i = " + i);
- // trace("-------------------------------------------------------------")
- for (var j = i+1; j < nGridMaxRow; j++)
- {
- // trace("j = " + j);
- // trace("-------------------------------------------------------------")
- var vTclsscrnm_SUB = pRef.getColumn(j, "tclsscrnm");
- var vTclskind_SUB = pRef.getColumn(j, "tclskind");
- var sChildessnrsltyn = pRef.getColumn(j, "childessnrsltyn");// Child항목 결과필수 입력[default:'' or '0']
- // trace("vTclsscrnm_SUB = " + vTclsscrnm_SUB);
- // trace("-------------------------------------------------------------")
- // trace("vTclskind_SUB = " + vTclskind_SUB);
- // trace("-------------------------------------------------------------")
- if (vTclskind_SUB != "4" && vTclskind_SUB != "5" )
- {
- break;
- }
- // trace("sChildessnrsltyn.getTrim() = " + sChildessnrsltyn.getTrim());
- // trace("-------------------------------------------------------------")
- if (sChildessnrsltyn.getTrim() == "1")
- {
- // sub필수 항목은 공백입력 안됨...
- //if(pRsltstat != '10' && vReptrslt.getTrim() == "" )
- if(pRsltstat != '10' && utlf_isNull(vReptrslt.getTrim()))
- {
- sysf_messageBox("[" + vTclsscrnm_SUB + "]항목은 공백인 결과는 입력할 수 없습니다." , "I","");
- isRstErr = "true";
- break;
- }
- }
- var vTestcd = pRef.getColumn(j, "testcd");
- var vN_Inptrslt = pRef.getColumn(j, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getTestInfoCnts.lookup("testcd", vTestcd, "inptrslt");
- // trace("vN_Inptrslt = " + vN_Inptrslt);
- // trace("-------------------------------------------------------------")
- // trace("vO_Inptrslt = " + vO_Inptrslt);
- // trace("-------------------------------------------------------------")
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5") && utlf_isNull(vN_Inptrslt)) || ((pRsltstat == pRef.getColumn(j, "rsltstat")) && ("Y" != pRef.getColumn(j, "retestyn"))))
- {
- // trace("ifffffffffffffffffffffffffffffffff");
- }
- else
- {
- pRef.setRowType(j, Dataset.ROWTYPE_UPDATE);
- // trace("ellllllllllllllllllllllllllsssss");
- isUpdate = "true";
- if(updateTF)
- {
-
- vTestCDLIST = vTestCDLIST +"'" + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(j, "reptrslt")) + "▩";
- // trace("-------------------------------------------------------------")
- // trace("vTestCDLIST05="+vTestCDLIST);
- // trace("-------------------------------------------------------------")
- }
- }
- }
- else
- {
- pRef.setRowType(j, Dataset.ROWTYPE_UPDATE);
-
- isUpdate = "true";
- if(updateTF)
- {
-
- vTestCDLIST = vTestCDLIST + "'" + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(j, "reptrlst"))+ "▩";
- }
- }
- }
- if (isRstErr == "true") break;
- if(pRef.getColumn(j, "sel_value") == 1 || pRef.getColumn(i, "sel_value") == true)
- {
- if(pRef.getColumn(j, "tclskind") != "4" && pRef.getColumn(j, "tclskind") != "5")
- {
- i = --j;
- continue;
- }
- else
- {
- i = j;
- }
- }
- else
- {
- i = j;
- continue;
- }
- }
- else
- {
- //Single, Parent 항목 외.
- var vTestcd = pRef.getColumn(i, "testcd");
- var vN_Inptrslt = pRef.getColumn(i, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getTestInfoCnts.lookup("testcd", vTestcd, "inptrslt");
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5") && utlf_isNull(vN_Inptrslt)) || ((pRsltstat == pRef.getColumn(j, "rsltstat")) && ("Y" != pRef.getColumn(j, "retestyn"))))
- {
- }
- else
- {
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) +"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(j, "reptrlst"))+ "▩";
- }
- }
- }
- else
- {
- pRef.setRowType(i, Dataset.ROWTYPE_UPDATE);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) +"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(pRef.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(pRef.getColumn(j, "reptrlst"))+ "▩";
-
- }
- }
- }
- }
- }
-
- trace("isRstErr = " + isRstErr);
- trace("isSelected = " + isSelected);
- trace("pIsMsg = " + pIsMsg);
- trace("isUpdate= " + isUpdate);
-
- if (isRstErr == "true")
- {
- if (isSelected == "false")
- {
- if (pIsMsg == "true")
- {
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오." , "I","");
- }
- return "2"; // 선택한항목 없음
- }
- return "1"; // 입력결과 오류
- }
- else
- {
- if (isSelected == "false")
- {
- if (pIsMsg == "true")
- {
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오." , "I","");
- }
- return "2"; // 선택한항목 없음
- }
- if(isUpdate == "false")
- {
-
- sysf_messageBox("수정된 결과값이 없습니다." , "I","");
- return "1"; // 입력결과 오류
- }
- trace("vTestCDLIST>>>>>>>>>>>> " + vTestCDLIST);
- if(!utlf_isNull(vTestCDLIST))
- {
- ds_hidden_DJGGParrm.setColumn(0, "testcdlist", String(vTestCDLIST).substring(0, String(vTestCDLIST).length-1));
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "Y");
- ds_hidden_DJGGParrm.setColumn(0, "bufDJGG", vTestCDRsltLIST);
- }
- else
- {
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "N");
- }
- return "0"; // 정상
- }
- }
- function fCOMLIS_MicroResultValidation(pRef, pGridID, pRsltstat, pIsMsg)
- {
- var isRstErr = "false";
- var isSelected = "false";
- var nGridMaxRow = ds_grd_CultrueTestInfo.rowcount;
- var isUpdate = "false";
- var vMsg = ""
- if (pIsMsg == "true")
- {
- if (pRsltstat == "1")
- {
- var vMsg = "결과저장"
- }
- else if (pRsltstat == "2")
- {
- var vMsg = "중간(예비)보고"
- }
- else if (pRsltstat == "4")
- {
- var vMsg = "최종보고"
- }
- else
- {
- var vMsg = "추가"
- }
- }
- var vBfTestCDLIST = utlf_transNullToEmpty(ds_hidden_DJGGParrm.getColumn(0, "testcdlist"));
-
- if(vBfTestCDLIST.length > 1)
- {
- vBfTestCDLIST = vBfTestCDLIST +",";
- }
- var vTestCDLIST = vBfTestCDLIST;
- trace("vTestCDLIST = " + vTestCDLIST);
- var vTestCDRsltLIST = utlf_transNullToEmpty(ds_hidden_DJGGParrm.getColumn(0, "bufDJGG"));
-
- for (var i = 0; i < ds_grd_CultrueTestInfo.rowcount; i++)
- {
- // 선택된 항목만 Validation 체크한다.
- if(ds_grd_CultrueTestInfo.getColumn(i, "sel_value") == 1)
- {
- isSelected = "true";
- var vTclsscrnm = ds_grd_CultrueTestInfo.getColumn(i, "tclsscrnm");
- var vTclskind = ds_grd_CultrueTestInfo.getColumn(i, "tclskind");
- var vParentrsltinptyn = ds_grd_CultrueTestInfo.getColumn(i, "parentrsltinptyn"); // 타이틀 구분
- var vReptrslt = utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "reptrslt"));
- trace("pRsltstat = " + pRsltstat)
- // 결과 수정기능 체크
- // 최종보고시 이상치 결과는 최종보고권한이 있는 유저만 가능함
- // ※ 진단검사 초기 정보를 이용한 사용자 권한 가져오기( 화면오픈시 정보 조회해야함 )
-
- if (pRsltstat == "4")
- {
- var vPanicMark = ds_grd_CultrueTestInfo.getColumn(i, "panicmark");
- var vDeltaMarkvar = ds_grd_CultrueTestInfo.getColumn(i, "deltamark");
- var vCriticalMark = ds_grd_CultrueTestInfo.getColumn(i, "criticalmark");
- var vAlertMark = ds_grd_CultrueTestInfo.getColumn(i, "alertmark");
- var vRsltmark = ds_grd_CultrueTestInfo.getColumn(i, "rsltmark");
- updateTF = false;
-
- if(ds_grd_CultrueTestInfo.getColumn(i, "rsltstat") == "4" || ds_grd_CultrueTestInfo.getColumn(i, "rsltstat") == "5")
- {
- updateTF = true;
- }
- trace("updateTF = " + updateTF);
- }
- trace("vTclskind= " + vTclskind);
- if (vTclskind == "2")
- {
- // Single항목 체크
- if(utlf_isNull(vReptrslt.getTrim()))
- {
- sysf_messageBox("[" + vTclsscrnm + "]항목은 공백인 결과는 입력할 수 없습니다." , "I","");
- isRstErr = "true";
- break;
- }
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- trace("updateTF=<><><><><>>>>>> " + updateTF);
- trace("vTESTCDLIST(1) = " + vTestCDLIST);
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd")) +"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "reptrslt"))+ "▩";
- }
- }
- else if (vTclskind == "3")
- {
- // Parent항목은 조건에 따라 Child항목만 체크
- trace("vParentrsltinptyn= " + vParentrsltinptyn);
- if (vParentrsltinptyn.getTrim() != "N") //Parent인데 입력가능한 항목들
- {
- //Parent항목 결과필수 입력[default:'1']
- var vTestcd = ds_grd_CultrueTestInfo.getColumn(i, "testcd");
- var vN_Inptrslt = ds_grd_CultrueTestInfo.getColumn(i, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getCultrueTestInfo.lookup("testcd", vTestcd, "inptrslt");
- trace("vTestcd(1) = " + vTestcd);
- trace("vN_Inptrslt(1) = " + vN_Inptrslt);
- trace("vO_Inptrslt(1) = " + vO_Inptrslt);
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if((vN_Inptrslt != "C" && utlf_isNull(vO_Inptrslt)) || ((pRsltstat == ds_grd_CultrueTestInfo.getColumn(i, "rsltstat")) && ("Y" != pRef.getColumn(i, "retestyn"))))
- {
- }
- else
- {
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "reptrslt"))+ "▩";
- }
- }
- }
- else
- {
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "reptrslt"))+ "▩";
- }
- }
- trace("vTestCDLIST(1) = " +vTestCDLIST);
- trace("vTestCDRsltLIST(1) = " +vTestCDRsltLIST);
-
- }
- else //Parent인데 입력 불가능한 항목들
- {
- grdf_setStatus(pGridID, "U", [i]); // Parent 항목제외
- trace("else");
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(i, "reptrslt"))+ "▩";
- }
- }
- /* ↑↑↑↑↑↑↑↑↑ Parent항목 chile항목 ↓↓↓↓↓↓↓↓↓*/
-
- for(var j = i+1; j < nGridMaxRow; j++)
- {
- var vTclsscrnm_SUB = pRef.getColumn(j, "tclsscrnm");
- var vTclskind_SUB = pRef.getColumn(j, "tclskind");
- var sChildessnrsltyn = pRef.getColumn(j, "childessnrsltyn"); // Child항목 결과필수 입력[default:'' or '0']
- trace("vTclsscrnm_SUB = " + vTclsscrnm_SUB);
- trace("vTclskind_SUB = " + vTclskind_SUB);
- trace("sChildessnrsltyn = " + sChildessnrsltyn);
- if(vTclskind_SUB != "4" && vTclskind_SUB != "5")
- {
- //--j;
- trace("jjjjjjjjjjjjjj = " + j);
- break;
- }
- if(sChildessnrsltyn.getTrim() == "1")
- {
- // sub필수 항목은 공백입력 안됨...
- if( utlf_isNull(vReptrslt.getTrim()))
- {
- sysf_messageBox("[" + vTclsscrnm_SUB + "]항목은 공백인 결과는 입력할 수 없습니다." , "I","");
- isRstErr = "true";
- break;
- }
- }
- var vTestcd = pRef.getColumn(j, "testcd");
- var vN_Inptrslt = pRef.getColumn(j, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getCultrueTestInfo.lookup("testcd", vTestcd, "inptrslt");
- trace("vTestcd(2) = " + vTestcd);
- trace("vN_Inptrslt(2)= " +vN_Inptrslt);
- trace("vO_Inptrslt=(2) " +vO_Inptrslt);
- trace("isUpdate(2) = " + isUpdate);
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5") && utlf_isNull(vN_Inptrslt )) || ((pRsltstat == ds_grd_CultrueTestInfo.getColumn(j, "rsltstat")) && ("Y" != pRef.getColumn(j, "retestyn"))))
- {
- trace("iffffffffff");
- trace("isUpdate(3) = " + isUpdate);
- }
- else
- {
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- trace("elsssssssssssssss");
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "reptrslt"))+ "▩";
- }
- }
- }
- else
- {
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- trace("updateTF = " + updateTF);
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "reptrslt"))+ "▩";
- }
- trace("vTestCDLIST");
- }
-
- }
-
- if (isRstErr == "true") break;
-
- if(pRef.getColumn(j, "sel_value") == 1)
- {
- if(pRef.getColumn(j, "tclskind") != "4" && ds_getCultrueTestInfo.getColumn(j, "tclskind") != "5")
- {
- i = --j;
- continue;
- }
- else
- {
- i = j;
- }
- }
- else
- {
- i = j;
-
- continue;
- }
- }
- else //Single, Parent 항목 외.
- {
- trace("<<<<<<<<<<<<<<<<<<else>>>>>>>>>>>>>>>>>>");
- var vTestcd = ds_getCultrueTestInfo.getColumn(i, "testcd");
- var vN_Inptrslt = ds_getCultrueTestInfo.getColumn(i, "inptrslt");
- var vO_Inptrslt = ds_hidden_TestInfo_getCultrueTestInfo.lookup("testcd", vTestcd, "inptrslt");
- if(vN_Inptrslt == vO_Inptrslt)
- {
- if(((vTclskind_SUB != "4" && vTclskind_SUB != "5") && utlf_isNull(vN_Inptrslt)) || ((pRsltstat == ds_getCultrueTestInfo.getColumn(i, "rsltstat")) && ("Y" != pRef.getColumn(i, "retestyn"))))
- {
- }
- else
- {
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "reptrslt"))+ "▩";
- }
- }
- }
- else
- {
- // objDs.setRowType(i, Dataset.ROWTYPE_UPDATE);
- grdf_setStatus(pGridID, "U", [i]);
- isUpdate = "true";
- if(updateTF)
- {
- vTestCDLIST = vTestCDLIST +"'"+ utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd"))+"',";
- vTestCDRsltLIST = vTestCDRsltLIST + utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "testcd")) + "▦" +
- utlf_transNullToEmpty(ds_grd_CultrueTestInfo.getColumn(j, "reptrslt"))+ "▩";
- }
- }
- }
- }
- }
- if (isRstErr == "true")
- {
- if (isSelected == "false")
- {
- if (pIsMsg == "true")
- {
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오." , "I","");
- }
- return "2"; // 선택한항목 없음
- }
- return "1"; // 입력결과 오류
- }
- else
- {
-
- if(isSelected == "false")
- {
-
- if (pIsMsg == "true")
- {
- sysf_messageBox(vMsg + "할 항목을 선택해 주십시오." , "I","");
- }
- return "2"; // 선택한항목 없음
- }
- if(isUpdate == "false")
- {
- sysf_messageBox("수정된 결과값이 없습니다." , "I","");
- return "1"; // 입력결과 오류
- }
- //if(vTestCDLIST != "")
- trace("vTestCDLIST=>>>>>>>>> " + vTestCDLIST);
- if( !utlf_isNull(vTestCDLIST))
- {
- ds_hidden_DJGGParrm.setColumn(0, "testcdlist", String(vTestCDLIST).substring(0, String(vTestCDLIST).length-1));
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "Y");
- ds_hidden_DJGGParrm.setColumn(0, "bufDJGG", vTestCDRsltLIST);
- }
- else
- {
- ds_hidden_DJGGParrm.setColumn(0, "uprsltYN", "N");
- }
- return "0"; // 정상
- }
- }
- /**
- * 미생물 배지 라벨
- */
- function fLisMicroBarcodePrint(pRef)
- {
- try
- {
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- if(cntHR > 0 && sPrntKind != 0)
- {
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- trace("sCommKind =>> " + sCommKind);
- if(sCommKind == "01")
- {
- var sSetUpVal = ds_data_comm02.getColumn(0, "setupval");
- }
- else if(sCommKind == "02")
- {
- var sComm = ds_data_comm02.getColumn(0, "comm");
- var sDataBit = ds_data_comm02.getColumn(0, "databit");
- var sStopBit = ds_data_comm02.getColumn(0, "stopbit");
- var sBudRate = ds_data_comm02.getColumn(0, "baudrate");
- var sParity = ds_data_comm02.getColumn(0, "parity");
- CommAX.CommPort = sComm;
- CommAX.Settings = sBaudRate + "," + sParity + "," + sDataBit + "," + sStopBit;
- portOpenTF = CommAX.PortOpen("true");
- }
- else if(sCommKind == "03")
- {
- var sSetUpVal = ds_data_comm03.getColumn(0, "setupval");
- }
- if( (portOpenTF == "TRUE" && sCommKind == "02")|| (sCommKind == "01")|| (sCommKind == "03"))
- {
- for(i = 0 ; i < cntHR; i++)
- {
- var sSndMsg = "";
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sAcptdt = pRef.getColumn(i, "acptdt");
- var sMdialblnm = pRef.getColumn(i, "mdialblnm");
- var sWardinfo = pRef.getColumn(i, "wardinfo");
- var sWorkno = pRef.getColumn(i, "workno");
- var sBcno = pRef.getColumn(i, "bcno");
- var sPrntcnt = pRef.getColumn(i, "prntcnt");
- var flag = pRef.getColumn(i, "flag");
-
- if(utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if(utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
-
- if(sPrntKind == "1")
- {
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm); //검체명
-
- if(flag == "reprnt") // 재출력화면일때
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 5;
- sSndMsg += lzzfBP_ChangeFont("C", 15, 15); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sMdialblnm); //배지라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid); //환자등록번호
- if(flag == "reprnt") // 재출력화면일때
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 120;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += CommAX.PrtImgOut(iXPos, iYPos, sPatnm.substr(0, 20), 1, 1);
- sSndMsg += CommAX.HanImageData();
- if(flag == "reprnt") // 재출력화면일때
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 220;
- iYPos = Number(sTopBank) + 25;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage); //성별나이
- iXPos = Number(sLeftBank) + 50;
- iYPos = Number(sTopBank) + 60;
- sSndMsg += lzzfBP_FiendOrigin(iXPos, iYPos);//위치
- sSndMsg += "^BY1,2.0";//
- sSndMsg += "^B3" + "N" + ",N," + "50" + ",N,N^FD" + "*" + sBcno + "*" + "^FS";//바코드 크기
- if(flag == "reprnt") // 재출력화면일때
- {
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- sSndMsg = "";
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- sSndMsg = "";
- }
- }
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += lzzfBP_ChangeFont("C", 10, 10); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sWorkno.substr(0,12)); //작업번호(부서정보)
- iXPos = Number(sLeftBank) + 180;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += lzzfBP_ChangeFont("C", 28, 10);
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sWorkno.substr(12));//작업번호
- if(flag == "reprnt") // 재출력화면일때
- {
- sSndMsg += lzzfBP_EndFormat(sPrntcnt); // 접수바코드출력수
- if(sCommKind == "01")
- {
- CommAX.SendMessageToLPT(sSndMsg);
- }
- else if(sCommKind == "02")
- {
- CommAX.SendMessage(sSndMsg);
- }
- }
- }//end if(sPrntKind == "1")
- }//end for
- //portopen이 true이고 통신유형이 com일때 port close
- if( portOpenTF == "TRUE" && sCommKind == "02")
- {
- CommAX.PortOpen("false");
- }
- }
- else if((portOpenTF = "FALSE" && sCommKind == "02"))
- {
- sysf_messageBox("아래 사항을 확인후 재출력해주십시오."
- + " \n 1.프린트설정 화면에서 통신유형을 com 으로 선택한 경우 port 번호 확인"
- + " \n 2.케이블 확인"
- + " \n 3.먼저 출력중인 바코드 확인(모두 출력된 후 재출력하십시오.)", "I", "");
- return;
- }
- }//end if(cntHR > 0 && sPrntKind != 0)
- } //이후 2008-07-07 바코드 포트 오류 막기위해
- catch (ee)
- {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- function fLisMicroBarcodePrint2(pRef)
- {
- try
- {
- var cntHR = pRef.rowcount;
- var sPrntKind = ds_data_setupinfo.getColumn(0, "prntkind");
- var iXPos = 0;
- var iYPos = 0;
- var portOpenTF = "";
- if (cntHR > 0 && sPrntKind != 0)
- {
- var sCommKind = ds_data_setupinfo.getColumn(0, "commkind");
- var sLeftBank = ds_data_blank.getColumn(0, "left");
- var sTopBank = ds_data_blank.getColumn(0, "top");
- for(i = 0; i < cntHR; i++)
- {
- var sSndMsg = "";
- var sPid = pRef.getColumn(i, "pid");
- var sSexage = pRef.getColumn(i, "sexage");
- var sPatnm = pRef.getColumn(i, "patnm");
- var sSpclblnm = pRef.getColumn(i, "spclblnm");
- var sAcptdt = pRef.getColumn(i, "acptdt");
- var sMdialblnm = pRef.getColumn(i, "mdialblnm");
- var sWardinfo = pRef.getColumn(i, "wardinfo");
- var sWorkno = pRef.getColumn(i, "workno");
- var sBcno = pRef.getColumn(i, "bcno");
- var sPrntcnt = pRef.getColumn(i, "prntcnt");
- var flag = pRef.getColumn(i, "flag");
-
- if(utlf_isNull(sLeftBank) || sLeftBank == "-") sLeftBank = 0;
- if(utlf_isNull(sTopBank) || sTopBank == "-") sTopBank = 0;
- //EPL
- if (sPrntKind == "10")
- {
- sSndMsg += "N" + "\n";
- sSndMsg += "JF" + "\n";
- sSndMsg += "D9" + "\n";
- sSndMsg += "S2" + "\n";
- sSndMsg += "Q223,27" + "\n";
- sSndMsg += "q456" + "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sSpclblnm + "\"" + "\n";
- iXPos = Number(sLeftBank) + 300;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,4,1,1,N," + "\"" + sMdialblnm + "\"" + "\n";
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 35;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sPid + "\"" + "\n";
- iXPos = Number(sLeftBank) + 130;
- iYPos = Number(sTopBank);
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,9,2,2,N," + "\"" + sPatnm + "\"" + "\n";
- iXPos = Number(sLeftBank) + 330;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sSexage + "\"" + "\n";
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += "B" + iXPos + "," + iYPos + ",0,3,2,5,90,N," + "\"" + sBcno + "\"" + "\n";
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += "A" + iXPos + "," + iYPos + ",0,3,1,1,N," + "\"" + sBcno + "\"" + "\n";
- sSndMsg += "P1" + "\n";
- CommAX.SendMsg(sSndMsg);
- }
- else if (sPrntKind == "9")
- {
- //300dpi
- sSndMsg = "^XA^SEE:UHANGUL.DAT^FS^CWQ,E:kfont3.FNT^FS";
- sSndMsg += lzzfBP_StartFormat(0, 0); // 시작위치 셋팅
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSpclblnm);
- iXPos = Number(sLeftBank) + 430;
- iYPos = Number(sTopBank);
- sSndMsg += lzzfBP_ChangeFont("C", 30, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sMdialblnm);
- iXPos = Number(sLeftBank);
- iYPos = Number(sTopBank) + 35;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sPid);
- iXPos = Number(sLeftBank) + 250;
- iYPos = Number(sTopBank);
- sSndMsg += "^CI14^FO" + iXPos + "," + iYPos + "^AQN,40,40^FH^FD" + sPatnm + "^FS^CI1";
- iXPos = Number(sLeftBank) + 460;
- iYPos = Number(sTopBank) + 35;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sSexage);
- iXPos = Number(sLeftBank) + 30;
- iYPos = Number(sTopBank) + 75;
- sSndMsg += lzzfBP_ChangeFont("F", 10, 10);
- sSndMsg += lzzfBP_BarCode_Code39_300dpi(iXPos, iYPos, "N", 90, "*" + sBcno + "*"); // 바코드
- iXPos = Number(sLeftBank) + 40;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 20); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sWorkno.substr(0, 12) + "-");
- iXPos = Number(sLeftBank) + 350;
- iYPos = Number(sTopBank) + 175;
- sSndMsg += lzzfBP_ChangeFont("C", 30, 30); // 폰트 설정
- sSndMsg += lzzfBP_FieldDataA(iXPos, iYPos, sWorkno.substr(12));
- sSndMsg += "^XZ";
- CommAX.SendMsg(sSndMsg);
- }
- else
- {
- sSndMsg = " A A102000300"; // 시작위치 셋팅
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 2;
- sSndMsg += " V" + iYPos + " H" + iXPos + " S" + sSpclblnm;
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 1;
- sSndMsg += " V" + iYPos + " H" + iXPos + " L0202 S" + sMdialblnm; //배지라벨명
- iXPos = Number(sLeftBank) + 20;
- iYPos = Number(sTopBank) + 26;
- sSndMsg += " V" + iYPos + " H" + iXPos + " L0101 S" + sPid; //환자등록번호
- iXPos = Number(sLeftBank) + 110;
- iYPos = Number(sTopBank) + 16;
- sSndMsg += CommAX.PrtImgOut(iYPos, iXPos, sPatnm.substr(0, 20));
- iXPos = Number(sLeftBank) + 200;
- iYPos = Number(sTopBank) + 31;
- sSndMsg += " V" + iYPos + " H" + iXPos + " S" + sSexage; //성별나이
-
- iXPos = Number(sLeftBank) + 80;
- iYPos = Number(sTopBank) + 48;
- sSndMsg += " V" + iYPos + " H" + iXPos + " BG01050" + sBcno; // 바코드
- iXPos = Number(sLeftBank) + 90;
- iYPos = Number(sTopBank) + 102;
- sSndMsg += " V" + iYPos + " H" + iXPos + " S" + "*" + sBcno + "*";
- iXPos = Number(sLeftBank) + 60;
- iYPos = Number(sTopBank) + 124;
- sSndMsg += " V" + iYPos + " H" + iXPos + " S" + sWorkno.substr(0, 12) + "-";
- iXPos = Number(sLeftBank) + 190;
- iYPos = Number(sTopBank) + 120;
- sSndMsg += " V" + iYPos + " H" + iXPos + " M" + sWorkno.substr(12);
- sSndMsg += " Q" + sPrntcnt + " Z";
- CommAX.SendMsg(sSndMsg);
- }
- } //end for
- } //end if
- }
- catch (ee)
- {
- sysf_messageBox("바코드출력에", "E009");
- return;
- }
- }
- /**
- * @group :
- * @ver : 2007.09.18
- * @by : 최경용
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 한글 및 특수문자 Field정의
- * @param : pX = 시작 가로위치 (in dots)
- * @param : pY = 시작 세로위치 (in dots)
- * @param : pFont = 글자크기(1-10)
- * @param : pData = Field Data
- * @param : pReverse = 배경 기준으로 역상으로표시 ( Y:역상으로 )
- * @return :
- * @---------------------------------------------------
- */
- function fCarePrintOutH(pX, pY, pFont, pBold, pData, pReverse) {
- var sBuf = fCareFontSize(pFont, pBold);
- //sBuf += CommAX.PrtImgOut("GRAPH003", pData); //채혈자
- //sBuf += fCareFiendOrigin(pX, pY);
- //sBuf += "^XGGRAPH003," + pFont + "," + pFont + "^FS";
- sBuf += CommAX.PrtImgOut(pX, pY, pData, pFont, pFont);
- sBuf += CommAX.HanImageData();
- return sBuf;
- }
- /**
- * @group : commonweb
- * @ver : 2007.09.18
- * @by : 최경용
- * @---------------------------------------------------
- * @type : function
- * @access : public
- * @desc : 숫자 크기정의
- * @param : pFont = 폰트크기(1-10)
- * @return :
- * @---------------------------------------------------
- */
- function fCareFontSize(pFont, pBold) {
- var sBuf = "";
- var pW = 0;
- var pH = 0;
- if(pFont == 1){
- pH = 10;
- pW = 10;
- } else if(pFont == 2){
- pH = 20;
- pW = 20;
- } else if(pFont == 3){
- pH = 30;
- pW = 30;
- } else if(pFont == 4){
- pH = 40;
- pW = 40;
- } else if(pFont == 5){
- pH = 50;
- pW = 50;
- } else if(pFont == 6){
- pH = 60;
- pW = 60;
- } else if(pFont == 7){
- pH = 70;
- pW = 70;
- } else if(pFont == 8){
- pH = 80;
- pW = 80;
- } else if(pFont == 9){
- pH = 90;
- pW = 90;
- }else{
- }
- if(pBold == "Y"){
- sBuf = "^CFA,"+pH+","+pW;
- }else{
- sBuf = "^CFE"+pH+","+pW;
- }
- return sBuf;
- }]]></Script>
|