Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU Cache 13-Sep-2008 18:35:03 ZWR ^ORD(100.01,0)="ORDER STATUS^100.01I^99^16" ^ORD(100.01,1,0)="DISCONTINUED^dc" ^ORD(100.01,1,.1)="dc" ^ORD(100.01,1,1,0)="^^1^1^3070110" ^ORD(100.01,1,1,1,0)="Orders that have been stopped prior to expiration or completion." ^ORD(100.01,1,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,1,"TERMSTATUS",1,0)="3070110.100131^1" ^ORD(100.01,1,"TERMSTATUS","B",3070110.100131,1)="" ^ORD(100.01,1,"VUID")="4500704^1" ^ORD(100.01,2,0)="COMPLETE^comp" ^ORD(100.01,2,.1)="c" ^ORD(100.01,2,1,0)="^^3^3^3070110" ^ORD(100.01,2,1,1,0)="Orders that require no further action by the ancillary service. " ^ORD(100.01,2,1,2,0)=" e.g., Lab orders are completed when results are available, " ^ORD(100.01,2,1,3,0)="Radiology orders are complete when results are available." ^ORD(100.01,2,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,2,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,2,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,2,"VUID")="4501088^1" ^ORD(100.01,3,0)="HOLD^hold" ^ORD(100.01,3,.1)="h" ^ORD(100.01,3,1,0)="^^5^5^3070110" ^ORD(100.01,3,1,1,0)="Orders that are placed on hold, preventing further processing " ^ORD(100.01,3,1,2,0)="until ""unhold"" action or expiration of order. Not all packages " ^ORD(100.01,3,1,3,0)="may allow their orders to be placed on hold; Pharmacy orders " ^ORD(100.01,3,1,4,0)="may be placed on hold, but Lab orders cannot be placed " ^ORD(100.01,3,1,5,0)="on hold." ^ORD(100.01,3,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,3,"TERMSTATUS",1,0)="3070110.100131^1" ^ORD(100.01,3,"TERMSTATUS","B",3070110.100131,1)="" ^ORD(100.01,3,"VUID")="4500752^1" ^ORD(100.01,4,0)="FLAGGED^flag" ^ORD(100.01,4,.1)="""?""" ^ORD(100.01,4,1,0)="^^1^1^3070110" ^ORD(100.01,4,1,1,0)="Orders that need clarification or further instructions." ^ORD(100.01,4,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,4,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,4,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,4,"VUID")="4501095^1" ^ORD(100.01,5,0)="PENDING^pend" ^ORD(100.01,5,.1)="p" ^ORD(100.01,5,1,0)="^^3^3^3070110" ^ORD(100.01,5,1,1,0)="Orders that have been placed but not yet accepted by the service " ^ORD(100.01,5,1,2,0)="filling the order. e.g., Pharmacy orders awaiting verification, " ^ORD(100.01,5,1,3,0)="Lab orders awaiting collection." ^ORD(100.01,5,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,5,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,5,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,5,"VUID")="4501114^1" ^ORD(100.01,6,0)="ACTIVE^actv" ^ORD(100.01,6,.1)="a" ^ORD(100.01,6,1,0)="^^5^5^3070110" ^ORD(100.01,6,1,1,0)="Orders that are active or have been accepted by the service for " ^ORD(100.01,6,1,2,0)="processing. e.g., Dietetic orders are active upon being " ^ORD(100.01,6,1,3,0)="ordered, Pharmacy orders are active when the order is verified, " ^ORD(100.01,6,1,4,0)="Lab orders are active when the sample has been collected, " ^ORD(100.01,6,1,5,0)="Radiology orders are active upon registration." ^ORD(100.01,6,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,6,"TERMSTATUS",1,0)="3070110.100131^1" ^ORD(100.01,6,"TERMSTATUS","B",3070110.100131,1)="" ^ORD(100.01,6,"VUID")="4500659^1" ^ORD(100.01,7,0)="EXPIRED^exp" ^ORD(100.01,7,.1)="e" ^ORD(100.01,7,1,0)="^^4^4^3070110" ^ORD(100.01,7,1,1,0)="Orders that have a stop date which has expired. e.g., Unit Dose " ^ORD(100.01,7,1,2,0)="orders expire at some sites 14 days after the order is created, " ^ORD(100.01,7,1,3,0)="but may be renewed within a hospital designated time " ^ORD(100.01,7,1,4,0)="after the expiration date." ^ORD(100.01,7,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,7,"TERMSTATUS",1,0)="3070110.100131^1" ^ORD(100.01,7,"TERMSTATUS","B",3070110.100131,1)="" ^ORD(100.01,7,"VUID")="4500725^1" ^ORD(100.01,8,0)="SCHEDULED^schd" ^ORD(100.01,8,.1)="s" ^ORD(100.01,8,1,0)="^^3^3^3070110" ^ORD(100.01,8,1,1,0)="Orders that have a start date scheduled for some form of activity " ^ORD(100.01,8,1,2,0)="by the service. e.g., Radiology exams are scheduled, Diet " ^ORD(100.01,8,1,3,0)="modifications are scheduled." ^ORD(100.01,8,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,8,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,8,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,8,"VUID")="4501117^1" ^ORD(100.01,9,0)="PARTIAL RESULTS^part" ^ORD(100.01,9,.1)="pr" ^ORD(100.01,9,1,0)="^^1^1^3070110" ^ORD(100.01,9,1,1,0)="Orders that are only partially complete." ^ORD(100.01,9,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,9,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,9,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,9,"VUID")="4501113^1" ^ORD(100.01,10,0)="DELAYED^dlay" ^ORD(100.01,10,.1)="dly" ^ORD(100.01,10,1,0)="^^3^3^3070110" ^ORD(100.01,10,1,1,0)="Orders that have been entered and possibly signed but are not " ^ORD(100.01,10,1,2,0)="to be released to the service until the patient is either admitted, " ^ORD(100.01,10,1,3,0)="discharged, or transferred." ^ORD(100.01,10,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,10,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,10,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,10,"VUID")="4501091^1" ^ORD(100.01,11,0)="UNRELEASED^unr" ^ORD(100.01,11,.1)="u" ^ORD(100.01,11,1,0)="^^1^1^3070110" ^ORD(100.01,11,1,1,0)="Orders that have not been released to the service for action." ^ORD(100.01,11,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,11,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,11,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,11,"VUID")="4501124^1" ^ORD(100.01,12,0)="DISCONTINUED/EDIT^dc/e" ^ORD(100.01,12,.1)="dce" ^ORD(100.01,12,1,0)="^^1^1^3070110" ^ORD(100.01,12,1,1,0)="Orders that have been discontinued due to editing." ^ORD(100.01,12,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,12,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,12,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,12,"VUID")="4501094^1" ^ORD(100.01,13,0)="CANCELLED^canc" ^ORD(100.01,13,.1)="x" ^ORD(100.01,13,1,0)="^^2^2^3070110" ^ORD(100.01,13,1,1,0)="Orders that have been rejected by the ancillary service without " ^ORD(100.01,13,1,2,0)="being acted on, or terminated while still delayed." ^ORD(100.01,13,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,13,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,13,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,13,"VUID")="4501011^1" ^ORD(100.01,14,0)="LAPSED^laps" ^ORD(100.01,14,.1)="l" ^ORD(100.01,14,1,0)="^^3^3^3070110" ^ORD(100.01,14,1,1,0)="Orders that remain pending beyond their start date, by a site " ^ORD(100.01,14,1,2,0)="defined number of days; unreleased orders that meet this same " ^ORD(100.01,14,1,3,0)="criteria will be removed from the system." ^ORD(100.01,14,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,14,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,14,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,14,"VUID")="4501099^1" ^ORD(100.01,15,0)="RENEWED^rnew" ^ORD(100.01,15,.1)="rn" ^ORD(100.01,15,1,0)="^^2^2^3070110" ^ORD(100.01,15,1,1,0)="Orders that have been renewed; these are still active until they " ^ORD(100.01,15,1,2,0)="expire or are completed." ^ORD(100.01,15,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,15,"TERMSTATUS",1,0)="3070110.100131^1" ^ORD(100.01,15,"TERMSTATUS","B",3070110.100131,1)="" ^ORD(100.01,15,"VUID")="4500873^1" ^ORD(100.01,99,0)="NO STATUS^none" ^ORD(100.01,99,.1)="'" ^ORD(100.01,99,1,0)="^^2^2^3070110" ^ORD(100.01,99,1,1,0)="Orders that have no status; these orders will not be displayed " ^ORD(100.01,99,1,2,0)="on the order review screen." ^ORD(100.01,99,"TERMSTATUS",0)="^100.0199DA^1^1" ^ORD(100.01,99,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.01,99,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.01,99,"VUID")="4501102^1" ^ORD(100.01,"AMASTERVUID",4500659,1,6)="" ^ORD(100.01,"AMASTERVUID",4500704,1,1)="" ^ORD(100.01,"AMASTERVUID",4500725,1,7)="" ^ORD(100.01,"AMASTERVUID",4500752,1,3)="" ^ORD(100.01,"AMASTERVUID",4500873,1,15)="" ^ORD(100.01,"AMASTERVUID",4501011,1,13)="" ^ORD(100.01,"AMASTERVUID",4501088,1,2)="" ^ORD(100.01,"AMASTERVUID",4501091,1,10)="" ^ORD(100.01,"AMASTERVUID",4501094,1,12)="" ^ORD(100.01,"AMASTERVUID",4501095,1,4)="" ^ORD(100.01,"AMASTERVUID",4501099,1,14)="" ^ORD(100.01,"AMASTERVUID",4501102,1,99)="" ^ORD(100.01,"AMASTERVUID",4501113,1,9)="" ^ORD(100.01,"AMASTERVUID",4501114,1,5)="" ^ORD(100.01,"AMASTERVUID",4501117,1,8)="" ^ORD(100.01,"AMASTERVUID",4501124,1,11)="" ^ORD(100.01,"AVUID",4500659,6)="" ^ORD(100.01,"AVUID",4500704,1)="" ^ORD(100.01,"AVUID",4500725,7)="" ^ORD(100.01,"AVUID",4500752,3)="" ^ORD(100.01,"AVUID",4500873,15)="" ^ORD(100.01,"AVUID",4501011,13)="" ^ORD(100.01,"AVUID",4501088,2)="" ^ORD(100.01,"AVUID",4501091,10)="" ^ORD(100.01,"AVUID",4501094,12)="" ^ORD(100.01,"AVUID",4501095,4)="" ^ORD(100.01,"AVUID",4501099,14)="" ^ORD(100.01,"AVUID",4501102,99)="" ^ORD(100.01,"AVUID",4501113,9)="" ^ORD(100.01,"AVUID",4501114,5)="" ^ORD(100.01,"AVUID",4501117,8)="" ^ORD(100.01,"AVUID",4501124,11)="" ^ORD(100.01,"B","ACTIVE",6)="" ^ORD(100.01,"B","CANCELLED",13)="" ^ORD(100.01,"B","COMPLETE",2)="" ^ORD(100.01,"B","DELAYED",10)="" ^ORD(100.01,"B","DISCONTINUED",1)="" ^ORD(100.01,"B","DISCONTINUED/EDIT",12)="" ^ORD(100.01,"B","EXPIRED",7)="" ^ORD(100.01,"B","FLAGGED",4)="" ^ORD(100.01,"B","HOLD",3)="" ^ORD(100.01,"B","LAPSED",14)="" ^ORD(100.01,"B","NO STATUS",99)="" ^ORD(100.01,"B","PARTIAL RESULTS",9)="" ^ORD(100.01,"B","PENDING",5)="" ^ORD(100.01,"B","RENEWED",15)="" ^ORD(100.01,"B","SCHEDULED",8)="" ^ORD(100.01,"B","UNRELEASED",11)="" ^ORD(100.02,0)="NATURE OF ORDER^100.02I^12^12" ^ORD(100.02,1,0)="WRITTEN^W^0^^X^0" ^ORD(100.02,1,1)="1^0^1^0^^1" ^ORD(100.02,1,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,1,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,1,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,1,"VUID")="4501080^1" ^ORD(100.02,2,0)="VERBAL^V^0^^X^0" ^ORD(100.02,2,1)="1^1^1^2^^1" ^ORD(100.02,2,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,2,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,2,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,2,"VUID")="4501078^1" ^ORD(100.02,3,0)="TELEPHONED^P^0^^X^0" ^ORD(100.02,3,1)="1^1^1^2^^1" ^ORD(100.02,3,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,3,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,3,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,3,"VUID")="4501073^1" ^ORD(100.02,4,0)="SERVICE CORRECTION^S^0^^B^0" ^ORD(100.02,4,1)="0^0^0^6^^0" ^ORD(100.02,4,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,4,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,4,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,4,"VUID")="4501068^1" ^ORD(100.02,5,0)="POLICY^I^0^^X^0" ^ORD(100.02,5,1)="1^1^1^3^^1" ^ORD(100.02,5,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,5,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,5,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,5,"VUID")="4501053^1" ^ORD(100.02,6,0)="DUPLICATE^D^0^^X^1" ^ORD(100.02,6,1)="0^0^0^^^0" ^ORD(100.02,6,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,6,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,6,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,6,"VUID")="4501021^1" ^ORD(100.02,7,0)="REJECTED^X^1^^B^1" ^ORD(100.02,7,1)="0^1^0^^^1" ^ORD(100.02,7,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,7,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,7,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,7,"VUID")="4501127^1" ^ORD(100.02,8,0)="ELECTRONICALLY ENTERED^E^1^^F^0" ^ORD(100.02,8,1)="1^1^1^2^^1" ^ORD(100.02,8,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,8,"TERMSTATUS",1,0)="3070110.100132^1" ^ORD(100.02,8,"TERMSTATUS","B",3070110.100132,1)="" ^ORD(100.02,8,"VUID")="4501023^1" ^ORD(100.02,9,0)="AUTO^A^1^^X^0" ^ORD(100.02,9,1)="0^0^0^^^0" ^ORD(100.02,9,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,9,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,9,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,9,"VUID")="4501082^1" ^ORD(100.02,10,0)="CHANGED^C^1^^X^1" ^ORD(100.02,10,1)="0^0^0^^^0" ^ORD(100.02,10,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,10,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,10,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,10,"VUID")="4501087^1" ^ORD(100.02,11,0)="MAINTENANCE^M^1^^X^1" ^ORD(100.02,11,1)="0^0^0^^^0" ^ORD(100.02,11,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,11,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,11,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,11,"VUID")="4501101^1" ^ORD(100.02,12,0)="SERVICE REJECT^R^0^^B^1" ^ORD(100.02,12,1)="1^1^0^2^^1" ^ORD(100.02,12,"TERMSTATUS",0)="^100.0299DA^1^1" ^ORD(100.02,12,"TERMSTATUS",1,0)="3070110.100133^1" ^ORD(100.02,12,"TERMSTATUS","B",3070110.100133,1)="" ^ORD(100.02,12,"VUID")="4501120^1" ^ORD(100.02,"AC",0,1)="" ^ORD(100.02,"AC",0,2)="" ^ORD(100.02,"AC",0,3)="" ^ORD(100.02,"AC",0,4)="" ^ORD(100.02,"AC",0,5)="" ^ORD(100.02,"AC",0,6)="" ^ORD(100.02,"AC",0,7)="" ^ORD(100.02,"AC",0,12)="" ^ORD(100.02,"AC",1,8)="" ^ORD(100.02,"AC",1,9)="" ^ORD(100.02,"AC",1,10)="" ^ORD(100.02,"AC",1,11)="" ^ORD(100.02,"AMASTERVUID",4501021,1,6)="" ^ORD(100.02,"AMASTERVUID",4501023,1,8)="" ^ORD(100.02,"AMASTERVUID",4501053,1,5)="" ^ORD(100.02,"AMASTERVUID",4501068,1,4)="" ^ORD(100.02,"AMASTERVUID",4501073,1,3)="" ^ORD(100.02,"AMASTERVUID",4501078,1,2)="" ^ORD(100.02,"AMASTERVUID",4501080,1,1)="" ^ORD(100.02,"AMASTERVUID",4501082,1,9)="" ^ORD(100.02,"AMASTERVUID",4501087,1,10)="" ^ORD(100.02,"AMASTERVUID",4501101,1,11)="" ^ORD(100.02,"AMASTERVUID",4501120,1,12)="" ^ORD(100.02,"AMASTERVUID",4501127,1,7)="" ^ORD(100.02,"AVUID",4501021,6)="" ^ORD(100.02,"AVUID",4501023,8)="" ^ORD(100.02,"AVUID",4501053,5)="" ^ORD(100.02,"AVUID",4501068,4)="" ^ORD(100.02,"AVUID",4501073,3)="" ^ORD(100.02,"AVUID",4501078,2)="" ^ORD(100.02,"AVUID",4501080,1)="" ^ORD(100.02,"AVUID",4501082,9)="" ^ORD(100.02,"AVUID",4501087,10)="" ^ORD(100.02,"AVUID",4501101,11)="" ^ORD(100.02,"AVUID",4501120,12)="" ^ORD(100.02,"AVUID",4501127,7)="" ^ORD(100.02,"B","AUTO",9)="" ^ORD(100.02,"B","CHANGED",10)="" ^ORD(100.02,"B","DUPLICATE",6)="" ^ORD(100.02,"B","ELECTRONICALLY ENTERED",8)="" ^ORD(100.02,"B","MAINTENANCE",11)="" ^ORD(100.02,"B","POLICY",5)="" ^ORD(100.02,"B","REJECTED",7)="" ^ORD(100.02,"B","SERVICE CORRECTION",4)="" ^ORD(100.02,"B","SERVICE REJECT",12)="" ^ORD(100.02,"B","TELEPHONED",3)="" ^ORD(100.02,"B","VERBAL",2)="" ^ORD(100.02,"B","WRITTEN",1)="" ^ORD(100.02,"C","A",9)="" ^ORD(100.02,"C","C",10)="" ^ORD(100.02,"C","D",6)="" ^ORD(100.02,"C","E",8)="" ^ORD(100.02,"C","I",5)="" ^ORD(100.02,"C","M",11)="" ^ORD(100.02,"C","P",3)="" ^ORD(100.02,"C","R",12)="" ^ORD(100.02,"C","S",4)="" ^ORD(100.02,"C","V",2)="" ^ORD(100.02,"C","W",1)="" ^ORD(100.02,"C","X",7)="" ^ORD(100.03,0)="ORDER REASON^100.03^22^20" ^ORD(100.03,1,0)="DUPLICATE TESTS^^^^14^LRDUP^6" ^ORD(100.03,2,0)="REQUESTING PHYSICIAN CANCELLED^^^^14^LRPCAN^2" ^ORD(100.03,3,0)="INSUFFICIENT SPECIMEN^^^^14^LRINSUF^7^5" ^ORD(100.03,4,0)="PATIENT UNAVAILABLE^^^^14^LRUNAVAIL^7" ^ORD(100.03,5,0)="OTHER CANCEL REASON^^^^14^LROTHER^7^5" ^ORD(100.03,6,0)="SERVICE CORRECTION^^^^14^LRCORR^4" ^ORD(100.03,7,0)="Duplicate Order^^DUP^0^35^ORDUP^6" ^ORD(100.03,8,0)="Discharge^^DC^^35^ORDIS^9" ^ORD(100.03,9,0)="Transfer^^LOC^^35^ORTRANS^9" ^ORD(100.03,10,0)="Treating Specialty Change^^SPC^^35^ORSPEC^9" ^ORD(100.03,11,0)="Admit^^ADM^^35^ORADMIT^9" ^ORD(100.03,12,0)="HEMOLYZED SPECIMEN^^^^14^LRHMLZ^7^5" ^ORD(100.03,13,0)="CLOTTED SPECIMEN^^^^14^LRCLTD^7^5" ^ORD(100.03,14,0)="Requesting Physician Cancelled^^REQ^^35^ORREQ^2" ^ORD(100.03,15,0)="Obsolete Order^^OBS^^35^OROBS^11" ^ORD(100.03,16,0)="Entered in error^^ER^^35^ORERR^7" ^ORD(100.03,17,0)="Death^^^0^35^ORDEATH^9" ^ORD(100.03,20,0)="Surgery^^OR^0^35^OROR^9" ^ORD(100.03,21,0)="Pass^^^0^35^ORPASS^9" ^ORD(100.03,22,0)="ASIH^^^0^35^ORASIH^9" ^ORD(100.03,"B","ASIH",22)="" ^ORD(100.03,"B","Admit",11)="" ^ORD(100.03,"B","CLOTTED SPECIMEN",13)="" ^ORD(100.03,"B","DUPLICATE TESTS",1)="" ^ORD(100.03,"B","Death",17)="" ^ORD(100.03,"B","Discharge",8)="" ^ORD(100.03,"B","Duplicate Order",7)="" ^ORD(100.03,"B","Entered in error",16)="" ^ORD(100.03,"B","HEMOLYZED SPECIMEN",12)="" ^ORD(100.03,"B","INSUFFICIENT SPECIMEN",3)="" ^ORD(100.03,"B","OTHER CANCEL REASON",5)="" ^ORD(100.03,"B","Obsolete Order",15)="" ^ORD(100.03,"B","PATIENT UNAVAILABLE",4)="" ^ORD(100.03,"B","Pass",21)="" ^ORD(100.03,"B","REQUESTING PHYSICIAN CANCELLED",2)="" ^ORD(100.03,"B","Requesting Physician Cancelled",14)="" ^ORD(100.03,"B","SERVICE CORRECTION",6)="" ^ORD(100.03,"B","Surgery",20)="" ^ORD(100.03,"B","Transfer",9)="" ^ORD(100.03,"B","Treating Specialty Change",10)="" ^ORD(100.03,"C","LRCLTD",13)="" ^ORD(100.03,"C","LRCORR",6)="" ^ORD(100.03,"C","LRDUP",1)="" ^ORD(100.03,"C","LRHMLZ",12)="" ^ORD(100.03,"C","LRINSUF",3)="" ^ORD(100.03,"C","LROTHER",5)="" ^ORD(100.03,"C","LRPCAN",2)="" ^ORD(100.03,"C","LRUNAVAIL",4)="" ^ORD(100.03,"C","ORADMIT",11)="" ^ORD(100.03,"C","ORASIH",22)="" ^ORD(100.03,"C","ORDEATH",17)="" ^ORD(100.03,"C","ORDIS",8)="" ^ORD(100.03,"C","ORDUP",7)="" ^ORD(100.03,"C","ORERR",16)="" ^ORD(100.03,"C","OROBS",15)="" ^ORD(100.03,"C","OROR",20)="" ^ORD(100.03,"C","ORPASS",21)="" ^ORD(100.03,"C","ORREQ",14)="" ^ORD(100.03,"C","ORSPEC",10)="" ^ORD(100.03,"C","ORTRANS",9)="" ^ORD(100.03,"D","ADMIT",11)="" ^ORD(100.03,"D","ASIH",22)="" ^ORD(100.03,"D","CLOTTED SPECIMEN",13)="" ^ORD(100.03,"D","DEATH",17)="" ^ORD(100.03,"D","DISCHARGE",8)="" ^ORD(100.03,"D","DUPLICATE ORDER",7)="" ^ORD(100.03,"D","DUPLICATE TESTS",1)="" ^ORD(100.03,"D","ENTERED IN ERROR",16)="" ^ORD(100.03,"D","HEMOLYZED SPECIMEN",12)="" ^ORD(100.03,"D","INSUFFICIENT SPECIMEN",3)="" ^ORD(100.03,"D","OBSOLETE ORDER",15)="" ^ORD(100.03,"D","OTHER CANCEL REASON",5)="" ^ORD(100.03,"D","PASS",21)="" ^ORD(100.03,"D","PATIENT UNAVAILABLE",4)="" ^ORD(100.03,"D","REQUESTING PHYSICIAN CANCELLED",2)="" ^ORD(100.03,"D","REQUESTING PHYSICIAN CANCELLED",14)="" ^ORD(100.03,"D","SERVICE CORRECTION",6)="" ^ORD(100.03,"D","SURGERY",20)="" ^ORD(100.03,"D","TRANSFER",9)="" ^ORD(100.03,"D","TREATING SPECIALTY CHANGE",10)="" ^ORD(100.03,"S","ADM",11)="" ^ORD(100.03,"S","DC",8)="" ^ORD(100.03,"S","DUP",7)="" ^ORD(100.03,"S","ER",16)="" ^ORD(100.03,"S","LOC",9)="" ^ORD(100.03,"S","OBS",15)="" ^ORD(100.03,"S","OR",20)="" ^ORD(100.03,"S","REQ",14)="" ^ORD(100.03,"S","SPC",10)="" ^ORD(100.22,0)="OE/RR PRINT FIELDS^100.22^2006^78" ^ORD(100.22,1001,0)="NAME of Patient^Name: ^SMITH,JOHN^ORPNAME^NAME" ^ORD(100.22,1001,1)="S ORPNAME=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),""^""),1:"""")" ^ORD(100.22,1002,0)="SSN of Patient^SSN: ^123456789^ORPSSN^SSN" ^ORD(100.22,1002,1)="S ORPSSN=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),""^"",9),1:"""")" ^ORD(100.22,1003,0)="SEX of Patient^Sex: ^MALE^ORPSEX^SEX" ^ORD(100.22,1003,1)="S ORPSEX=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),""^"",2),1:"""")" ^ORD(100.22,1004,0)="AGE of Patient^Age: ^55^ORPAGE^AGE" ^ORD(100.22,1004,1)="S ORPAGE=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),""^"",3),1:"""")" ^ORD(100.22,1005,0)="DOB of Patient^DOB: ^May 4, 1955^ORPDOB^DOB" ^ORD(100.22,1005,1)="S ORPDOB=$S($D(^DPT(+$G(ORVP),0)):$P(^(0),""^"",3),1:"""")" ^ORD(100.22,1006,0)="REQUESTING LOCATION^LOC: ^1E ICU^ORPRLOC" ^ORD(100.22,1006,1)="S ORPRLOC="""" I $P($G(^OR(100,+$G(ORIFN),0)),""^"",10) S ORPRLOC=$P(^SC(+$P(^(0),""^"",10),0),""^"",2)" ^ORD(100.22,1007,0)="REQUESTING PHYSICIAN^PHY: ^WELBY,MARCUS^ORPRPHY^NAME" ^ORD(100.22,1007,1)="S ORPRPHY="""" I $G(ORIFN) N X S X=$$ORDOC^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPRPHY=X" ^ORD(100.22,1008,0)="ROOM/BED of Patient^RM/Bed: ^A3/1^ORPRMBED" ^ORD(100.22,1008,1)="S ORPRMBED=$S($D(^DPT(+$G(ORVP),.101)):$P(^(.101),""^""),1:"""")" ^ORD(100.22,1009,0)="LOCATION of Patient^Loc: ^2A^ORPLOC" ^ORD(100.22,1009,1)="S ORPLOC=$S($G(LOC):$P(^SC(+LOC,0),""^""),$D(^DPT(+$G(ORVP),.1)):$P(^(.1),""^""),1:"""")" ^ORD(100.22,1010,0)="ORDER TEXT^ORDER: ^TEXT^OROOT^TMPWRAP" ^ORD(100.22,1010,1)="N Y S ORPDAD=$O(^OR(100,ORIFN,2,0)) D TEXT^ORQ12(.Y,ORIFN_$S($G(OACTION):"";""_OACTION,1:"""")) M ^TMP(""ORP:"",$J)=Y S OROOT=""^TMP(""""ORP:"""",$J)""" ^ORD(100.22,1010,2,0)="^100.222^1^1^3010110^^^^" ^ORD(100.22,1010,2,1,0)="LDH BLOOD SERUM LB #123 WC ROUTINE" ^ORD(100.22,1011,0)="START DATE^Start: ^2980304.0900^ORPSTRT^DATE" ^ORD(100.22,1011,1)="S ORPSTRT="""" I $P($G(^OR(100,+$G(ORIFN),0)),""^"",8) S ORPSTRT=$P(^(0),""^"",8)" ^ORD(100.22,1012,0)="STOP DATE^STOP: ^2980308.2100^ORPSTOP^DATE" ^ORD(100.22,1012,1)="S ORPSTOP="""" I $D(^OR(100,+$G(ORIFN),0)) S ORPSTOP=$P(^(0),""^"",9)" ^ORD(100.22,1013,0)="ORDER DATE^ORD: ^2980302.0700^ORPODT^DATE" ^ORD(100.22,1013,1)="S ORPODT="""" I $D(^OR(100,+$G(ORIFN),0)) S ORPODT=$$ORDT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1))" ^ORD(100.22,1014,0)="FREE TEXT^^Free text will appear here^ORFREE" ^ORD(100.22,1015,0)="ATTENDING PHYSICIAN^ATTENDING: ^WELBY,MARCUS^ORPATEND^NAME" ^ORD(100.22,1015,1)="S ORPATEND=$S($D(^DPT(+$G(ORVP),.1041)):$P(^(.1041),""^""),1:"""") I ORPATEND S ORPATEND=$S($D(^VA(200,+ORPATEND,0)):$P(^(0),""^""),1:"""")" ^ORD(100.22,1016,0)="COLLECTION TYPE (LAB)^Collect by:^WARD COLLECT^ORPCB^^^14" ^ORD(100.22,1016,1)="S ORPCB="""" I $D(ORIFN),$D(^OR(100,ORIFN,4)) S ORPCB=$$WC^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1017,0)="LAB ORDER #^LB #^1513^ORPLB^^^14" ^ORD(100.22,1017,1)="S ORPLB="""" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPLB=+$P(^(4),""^"")" ^ORD(100.22,1018,0)="LAB TEST^Test: ^TEXT^OROOT2^TMPWRAP" ^ORD(100.22,1018,1)="N Y S ORPDAD=$O(^OR(100,ORIFN,2,0)) D TEXT^ORQ12(.Y,ORIFN_$S($G(OACTION):"";""_OACTION,1:"""")) M ^TMP(""ORP:"",$J)=Y S OROOT2=""^TMP(""""ORP:"""",$J)""" ^ORD(100.22,1018,2,0)="^100.222^1^1^3010110^^^^" ^ORD(100.22,1018,2,1,0)="LDH BLOOD SERUM LB #123 WC ROUTINE" ^ORD(100.22,1019,0)="LAB URGENCY^Urgency: ^STAT^ORPURG^^^14" ^ORD(100.22,1019,1)="S ORPURG="""" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPURG=$$LU^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1020,0)="TIME COLLECTED^Time Collected: ^2980304.0730^ORPTC^DATE" ^ORD(100.22,1020,1)="S ORPTC=""""" ^ORD(100.22,1021,0)="ENTERED BY^Entered By: ^CLERK,WENDY^ORPEB^NAME" ^ORD(100.22,1021,1)="S ORPEB="""" I $G(ORIFN) N X S X=$$ENTBY^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEB=X" ^ORD(100.22,1022,0)="STATUS OF ORDER^Status: ^p^ORPSTAT" ^ORD(100.22,1022,1)="S ORPSTAT=$P($G(^OR(100,+$G(ORIFN),8,+$G(OACTION),0)),""^"",15) S:ORPSTAT="""" ORPSTAT=$P($G(^OR(100,+$G(ORIFN),3)),""^"",3) S:ORPSTAT'="""" ORPSTAT=$P(^ORD(100.01,ORPSTAT,.1),""^"")" ^ORD(100.22,1026,0)="ELECTRONIC SIGNATURE NAME^/ES/^/es/ Marcus Welby, MD^ORPES" ^ORD(100.22,1026,1)="S ORPES="""" I $G(ORIFN) N X S X=$E($$ESNAME^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPES=X" ^ORD(100.22,1028,0)="ENTERED BY (Initials)^Entered By: ^WC^ORPEBI" ^ORD(100.22,1028,1)="S ORPEBI="""" I $G(ORIFN) N X S X=$$ENTINT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEBI=X" ^ORD(100.22,1029,0)="HORIZONTAL LINE^^-------------------------------------------------------------------------------^ORPLINE" ^ORD(100.22,1029,1)="S $P(ORPLINE,""-"",132)="""",ORPLINE=$E(ORPLINE,1,$S($D(IOM):(IOM-1),1:79))" ^ORD(100.22,1032,0)="NATURE OF ORDER^NATURE: ^VERBAL^ORPNAT" ^ORD(100.22,1032,1)="S ORPNAT="""" I $G(ORIFN) S ORPNAT=$$NAT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1))" ^ORD(100.22,1033,0)="CURRENT DATE^Date: ^2980425^ORPDT^DATE" ^ORD(100.22,1033,1)="S ORPDT=DT" ^ORD(100.22,1034,0)="REASON FOR REQUEST^REASON: ^WORD^OROOT3^WORD^^44" ^ORD(100.22,1034,1)="S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:"""") S OROOT3=""^GMR(123,""_+ORPK_"",20)""" ^ORD(100.22,1034,2,0)="^^7^7^2980618^^^^" ^ORD(100.22,1034,2,1,0)="The patient complains of severe, radiating substernal chest pain, yet" ^ORD(100.22,1034,2,2,0)="shows no sign of ST segment elevation, straightening or depression, or" ^ORD(100.22,1034,2,3,0)="T-wave peaking or inversion in either resting or stress test ECG." ^ORD(100.22,1034,2,4,0)="The ECG also shows no Q-wave, so inferior infarct is not suspected." ^ORD(100.22,1034,2,5,0)="Patient has no history of angina pectoris, or tobacco use, and claims" ^ORD(100.22,1034,2,6,0)="only moderate alcohol use. Pain is alleviated by administration of" ^ORD(100.22,1034,2,7,0)="nitroglycerin." ^ORD(100.22,1035,0)="PROVISIONAL DIAGNOSIS^PROVISIONAL DX: ^R/O ACUTE ISCHEMIC HEART DISEASE^ORPDX^^^44" ^ORD(100.22,1035,1)="S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:"""") S ORPDX=$S($D(^GMR(123,+ORPK,30)):^(30),1:"""")" ^ORD(100.22,1036,0)="CONSULTANT^TO: ^CARDIOLOGY^ORPCTO^^^44" ^ORD(100.22,1036,1)="N X S X=$G(^OR(100,+$G(ORIFN),4)),ORPCTO=$S($D(^GMR(123,+X,0)):$P($G(^GMR(123.5,+$P(^(0),U,5),0)),U),1:"""")" ^ORD(100.22,1037,0)="PLACE OF CONSULTATION^PLACE: ^BEDSIDE^ORPLACE^^^44" ^ORD(100.22,1037,1)="S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:"""") S ORPLACE="""" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,10),0)) S ORPLACE=$E($P(^(0),U,2),1,18)" ^ORD(100.22,1038,0)="CONSULT URGENCY^URG: ^EMERGENCY^ORPCURG^^^44" ^ORD(100.22,1038,1)="S ORPK=$S($D(^OR(100,+ORIFN,4)):^(4),1:""""),ORPCURG="""" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^(0),U,9),0)) S ORPCURG=$P(^(0),U,2),ORPCURG=$S(ORPCURG[""Urgency"":$P(ORPCURG,"" Urg""),ORPCURG[""Within"":$P(ORPCURG,""Within "",2),1:ORPCURG)" ^ORD(100.22,1039,0)="REQUEST TYPE^^Procedure Request:^ORPCTYPE^^^44" ^ORD(100.22,1039,1)="S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:""""),ORPCTYPE="""" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,17),0)) S ORPCTYPE=$P(^(0),U,2)_"" Request:""" ^ORD(100.22,1040,0)="LAB ACCESSION^^HE 0304 10^ORPACC^^^14" ^ORD(100.22,1040,1)="S ORPACC="""" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPACC=$$ACC^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1041,0)="PROCEDURE/CONSULT TYPE^^Catheterization^ORPCPROC^^^44" ^ORD(100.22,1041,1)="S ORPK=$S($D(^OR(100,$G(ORIFN),4)):^(4),1:""""),ORPCPROC="""" I $D(^GMR(123,+ORPK,0)),$D(^ORD(101,+$P(^GMR(123,+ORPK,0),U,8),0)) S ORPCPROC=$P(^(0),U,2)" ^ORD(100.22,1042,0)="ELECTRONIC SIGNATURE TITLE^^Chief of Surgery^ORPDOT" ^ORD(100.22,1042,1)="S ORPDOT="""" I $G(ORIFN) N X S X=$$ESTIT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPDOT=X" ^ORD(100.22,1043,0)="LAB COLLECTION w/CONTAINER^^SERUM RED TOP^ORPCOT^^^14" ^ORD(100.22,1043,1)="S ORPCOT="""" I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORPCOT=$$COL^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1044,0)="CURRENT DATE/TIME^Date/time: ^2980411.1013^ORPDTT^DATE" ^ORD(100.22,1044,1)="S ORPDTT=$$NOW^XLFDT" ^ORD(100.22,1045,0)="DC by & when^^DISCONTINUED by RALPH GRAMDOM on: JAN 3, 1998@11:04^ORPDCBY" ^ORD(100.22,1045,1)="S ORPDCBY=$$BY^ORPR07($G(ORIFN))" ^ORD(100.22,1046,0)="WARD COMMENTS ON LAB SPECIMEN^WARD COMMENTS: ^TEXT^OROOT6^TEXT^0" ^ORD(100.22,1046,1)="S OROOT6="""" I $G(ORIFN) S OROOT6=$$WARDREM^ORPR07(ORIFN)" ^ORD(100.22,1046,2,0)="^^1^1^2990128^^^^" ^ORD(100.22,1046,2,1,0)="Please call with test results." ^ORD(100.22,1047,0)="RX ADMINISTRATION TIMES^ADMIN TIMES: ^TEXT^OROOT1^TMPWRAP^^77" ^ORD(100.22,1047,1)="N Y D RX^ORPR07($G(ORIFN),""SCH"",.Y) I $O(Y(0)) M ^TMP(""ORP:"",$J)=Y S OROOT1=""^TMP(""""ORP:"""",$J)""" ^ORD(100.22,1047,2,0)="^^2^2^2980618^^^^" ^ORD(100.22,1047,2,1,0)="08-16-24" ^ORD(100.22,1047,2,2,0)="06" ^ORD(100.22,1048,0)="RX SPECIAL INSTRUCTIONS^Special Inst: ^TAKE WITH FOOD^ORSPIN^^^77" ^ORD(100.22,1048,1)="S ORSPIN="""" K Y D RX^ORPR07($G(ORIFN),""SI"",.Y) S ORSPIN=$G(Y)" ^ORD(100.22,1048,2,0)="^^1^1^2960729^^^^" ^ORD(100.22,1048,2,1,0)=" " ^ORD(100.22,1050,0)="PRIMARY CARE PHYSICIAN^PRIMARY: ^CASEY,BEN^ORPPRIM^NAME" ^ORD(100.22,1050,1)="S ORPPRIM=$S($D(^DPT(+$G(ORVP),.104)):$P(^(.104),""^""),1:"""")" ^ORD(100.22,1070,0)="DC REASON^^DC'ed >Duplicate^ORXREAS" ^ORD(100.22,1070,1)="S ORXREAS="""" I $G(ORIFN) S ORXREAS=$G(^OR(100,ORIFN,6)),ORXREAS=$S($L($P(ORXREAS,""^"",5)):$P(ORXREAS,""^"",5),$P(ORXREAS,""^"",4):$P(^ORD(100.03,$P(ORXREAS,""^"",4),0),""^""),+ORXREAS:$P(^ORD(100.02,+ORXREAS,0),""^""),1:"""")" ^ORD(100.22,1071,0)="DC PERSON^^By: BROWN, JOHN (Pharmacist)^ORXRBY" ^ORD(100.22,1071,1)="S ORXRBY="""" I $G(ORIFN),$L($P($G(^OR(100,ORIFN,6)),""^"",2)) S X=$P(^(6),""^"",2),ORXRBY=""By: ""_$P(^VA(200,X,0),""^"")_$S($P(^(0),""^"",9):"" (""_$E($P(^DIC(3.1,$P(^(0),""^"",9),0),""^""),1,10)_"")"",1:"""")" ^ORD(100.22,1072,0)="DC DATE^^4/1/1998 12:34^ORXRDT" ^ORD(100.22,1072,1)="S ORXRDT="""" I $G(ORIFN),$L($P($G(^OR(100,ORIFN,6)),""^"",3)) S X=$P(^(6),""^"",3),ORXRDT=$$DATE^ORU(X)_"" ""_$$TIME^ORU(X)" ^ORD(100.22,1074,0)="WHEN PRINTED^^Printed: 7/27/1998 11:30^ORPMAN" ^ORD(100.22,1074,1)="S ORPMAN=$S($D(ORRACT):""Manual Reprint: "",1:"" Printed: "")_$$DATE^ORU($$NOW^XLFDT,""MM/DD/CCYY HR:MIN"")" ^ORD(100.22,1075,0)="EFFECTIVE DATE^Effective date: ^2980304.0900^OREFFDT^DATE" ^ORD(100.22,1075,1)="S OREFFDT="""" I $O(^OR(100,+$G(ORIFN),4.5,""ID"",""START"",0)) S OREFFDT=$G(^OR(100,ORIFN,4.5,$O(^(0)),1))" ^ORD(100.22,1076,0)="RX LABEL-INPATIENT^^TEXT^OROOT5^TMPWRAP^1^77" ^ORD(100.22,1076,1)="D LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y=""OROOT5""" ^ORD(100.22,1076,2,0)="^^5^5^2990323^^^^" ^ORD(100.22,1076,2,1,0)="03/03 | | (F1990)|" ^ORD(100.22,1076,2,2,0)="GENTAMICIN CREAM,TOP |" ^ORD(100.22,1076,2,3,0)="Give: 1GM TOP QD |" ^ORD(100.22,1076,2,4,0)=" |" ^ORD(100.22,1076,2,5,0)=" RPH: _____RN: _____|" ^ORD(100.22,1077,0)="LAB TEST.SPECIMEN COMMENTS^TEST/SPEC COMMENT: ^TEXT^ORUT^TEXT^^14" ^ORD(100.22,1077,1)="I $G(ORIFN),$D(^OR(100,ORIFN,4)) S ORUT=$$SAMPCOM^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1077,2,0)="^^2^2^2970407^^^^" ^ORD(100.22,1077,2,1,0)="PUT ON ICE." ^ORD(100.22,1077,2,2,0)="SEND TO LAB ASAP." ^ORD(100.22,1078,0)="LAB TEST COMMENTS^TEST COMMENT: ^TEXT^OROT^TEXT^^14" ^ORD(100.22,1078,1)="I $G(ORIFN),$D(^OR(100,ORIFN,4)) S OROT=$$WARDCOM^LR7OU1(^(4),ORIFN)" ^ORD(100.22,1078,2,0)="^^2^2^2970407^^^^" ^ORD(100.22,1078,2,1,0)="PUT ON ICE." ^ORD(100.22,1078,2,2,0)="SEND TO LAB ASAP." ^ORD(100.22,1079,0)="CONSULT RESULTS^^TEXT^ORCOT^TEXT^1" ^ORD(100.22,1079,1)="Q" ^ORD(100.22,1079,2,0)="^^1^1^2990121^" ^ORD(100.22,1079,2,1,0)="This print field is currently disabled" ^ORD(100.22,1080,0)="RX ROUTING^Routing: ^MAIL^ORPROUT" ^ORD(100.22,1080,1)="S ORPROUT="""" I $G(ORIFN) S ORPROUT=$$VALUE^ORX4(ORIFN,""PICKUP"",1,""E"")" ^ORD(100.22,1081,0)="DIGITAL PAGER CLINICIAN^D.PAGER: ^6969^ORPDPAG" ^ORD(100.22,1081,1)="S ORPDPAG="""" I $G(ORIFN) N X S X=$$PHONE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1),8) S:$L(X) ORPDPAG=X" ^ORD(100.22,1082,0)="ANALOG PAGER CLINICIAN^A.PAGER: ^6969^ORPAPAG" ^ORD(100.22,1082,1)="S ORPAPAG="""" I $G(ORIFN) N X S X=$$PHONE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1),7) S:$L(X) ORPAPAG=X" ^ORD(100.22,1083,0)="RX URGENCY^Urgency: ^ASAP^ORPRXURG" ^ORD(100.22,1083,1)="S ORPRXURG="""" I $G(ORIFN) S ORPRXURG=$$VALUE^ORX4(ORIFN,""URGENCY"",1,""E"")" ^ORD(100.22,1084,0)="ENTERED BY SIGNATURE TITLE^^Nursing^ORPEST" ^ORD(100.22,1084,1)="S ORPEST="""" I $G(ORIFN) N X S X=$$ENTIT^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)) S:$L(X) ORPEST=X" ^ORD(100.22,1085,0)="VERIFYING NURSE INITIALS^Verifying Nurse: ^NN^ORPVNI" ^ORD(100.22,1085,1)="S ORPVNI=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",3)" ^ORD(100.22,1086,0)="VERIFYING NURSE NAME^Verifying Nurse: ^NURSER,NANCY^ORPVNN" ^ORD(100.22,1086,1)="S ORPVNN=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",2)" ^ORD(100.22,1087,0)="VERIFYING NURSE TITLE^Nurse Title: ^RN^ORPVNT" ^ORD(100.22,1087,1)="S ORPVNT=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",4) S:$L(ORPVNT) ORPVNT="" (""_ORPVNT_"")""" ^ORD(100.22,1088,0)="VERIFYING NURSE DATE/TIME^D/T Nurse Ver: ^2990201.0015^ORPVNDT^DATETIME" ^ORD(100.22,1088,1)="S ORPVNDT=$P($$VNURSE^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",5)" ^ORD(100.22,1089,0)="VERIFYING CLERK INITIALS^Verifying Clerk: ^BC^ORPVCI" ^ORD(100.22,1089,1)="S ORPVCI=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",3)" ^ORD(100.22,1090,0)="VERIFYING CLERK NAME^Verifying Clerk: ^CLARK,BETTY^ORPVCN" ^ORD(100.22,1090,1)="S ORPVCN=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",2)" ^ORD(100.22,1091,0)="VERIFYING CLERK TITLE^Clerk Title: ^Secretary^ORPVCT" ^ORD(100.22,1091,1)="S ORPVCT=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",4) S:$L(ORPVCT) ORPVCT="" (""_ORPVCT_"")""" ^ORD(100.22,1092,0)="VERIFYING CLERK DATE/TIME^D/T Clerk Verified: ^2990201.0015^ORPVCDT^DATETIME" ^ORD(100.22,1092,1)="S ORPVCDT=$P($$VCLERK^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",5)" ^ORD(100.22,1093,0)="CHART REVIEW BY INITIALS^Reviewer: ^NN^ORPRVI" ^ORD(100.22,1093,1)="S ORPRVI=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",3)" ^ORD(100.22,1094,0)="CHART REVIEW BY NAME^Reviewer: ^NURSER,NANCY^ORPRVN" ^ORD(100.22,1094,1)="S ORPRVN=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",2)" ^ORD(100.22,1095,0)="CHART REVIEW BY TITLE^Reviewer Title: ^RN^ORPRVT" ^ORD(100.22,1095,1)="S ORPRVT=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",4) S:$L(ORPRVT) ORPRVT="" (""_ORPRVT_"")""" ^ORD(100.22,1096,0)="CHART REVIEW BY DATE/TIME^Review D/T: ^2990201.0015^ORPRVDT^DATETIME" ^ORD(100.22,1096,1)="S ORPRVDT=$P($$RVIEW^ORPR07($G(ORIFN),$S($G(OACTION):OACTION,1:1)),""^"",5)" ^ORD(100.22,1097,0)="ELECTRONIC SIGNATURE DATE/TIME^^2990304.1214^ORPESD^DATETIME" ^ORD(100.22,1097,1)="S ORPESD="""" I $G(ORIFN) N X S X=$E($$ESDATE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPESD=X" ^ORD(100.22,1098,0)="CONSULTS SERVICE COPY^^TEXT^^^1^44" ^ORD(100.22,1098,1)="D EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.22,1099,0)="DATE/TIME SIGNED ONLINE^^2990304.1214^ORPESO^DATETIME" ^ORD(100.22,1099,1)="S ORPESO="""" I $G(ORIFN) N X S X=$E($$ESODATE^ORPR07(ORIFN,$S($G(OACTION):OACTION,1:1)),1,30) S:$L(X) ORPESO=X" ^ORD(100.22,2000,0)="CONSULT NEW BODY^^TEXT^^^1^44" ^ORD(100.22,2000,1)="D EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.22,2002,0)="FH SPEC MEAL ESIG TITLE^^Chief of Dietetics^ORPDOT^^^9" ^ORD(100.22,2002,1)="S ORPDOT="""" I ''$D(^XUSEC(""FHAUTH"",DUZ)) S X=$P($G(^VA(200,DUZ,20)),""^"",3) S:$L(X) ORPDOT=X" ^ORD(100.22,2003,0)="FH SPEC MEAL ESIG DATE^^3040404.1253^ORPESD^DATETIME^^9" ^ORD(100.22,2003,1)="S ORPESD="""" I ''$D(^XUSEC(""FHAUTH"",DUZ)) S X=DT S:$L(X) ORPESD=X" ^ORD(100.22,2004,0)="FH SPEC MEAL ESIG NAME^/ES/^/es/ Marcus Welby, MD^ORPES^^^9" ^ORD(100.22,2004,1)="S ORPES="""" I ''$D(^XUSEC(""FHAUTH"",DUZ)) S X=$P($G(^VA(200,DUZ,20)),""^"",2) S:$L(X) X=""/es/""_X S:$L(X) ORPES=X" ^ORD(100.22,2005,0)="FH SPEC MEAL LOCATION^Req Loc:^General Medicine^ORPRLOC^^^9" ^ORD(100.22,2005,1)="S ORPRLOC="""" I $P($G(^OR(100,+$G(ORIFN),0)),""^"",10) S ORPRLOC=$$NFSLOC^ORWDFH(+$P(^(0),""^"",10))" ^ORD(100.22,2006,0)="FH SPEC MEAL LAST4 SSN^^^ORPLAST4^^^9" ^ORD(100.22,2006,1)="S ORPLAST4=$S($D(^DPT(+$G(ORVP),0)):""(""_$E($P(^(0),""^""),1)_$E($P(^(0),""^"",9),6,11)_"")"",1:"""")" ^ORD(100.22,"B","AGE of Patient",1004)="" ^ORD(100.22,"B","ANALOG PAGER CLINICIAN",1082)="" ^ORD(100.22,"B","ATTENDING PHYSICIAN",1015)="" ^ORD(100.22,"B","CHART REVIEW BY DATE/TIME",1096)="" ^ORD(100.22,"B","CHART REVIEW BY INITIALS",1093)="" ^ORD(100.22,"B","CHART REVIEW BY NAME",1094)="" ^ORD(100.22,"B","CHART REVIEW BY TITLE",1095)="" ^ORD(100.22,"B","COLLECTION TYPE (LAB)",1016)="" ^ORD(100.22,"B","CONSULT NEW BODY",2000)="" ^ORD(100.22,"B","CONSULT RESULTS",1079)="" ^ORD(100.22,"B","CONSULT URGENCY",1038)="" ^ORD(100.22,"B","CONSULTANT",1036)="" ^ORD(100.22,"B","CONSULTS SERVICE COPY",1098)="" ^ORD(100.22,"B","CURRENT DATE",1033)="" ^ORD(100.22,"B","CURRENT DATE/TIME",1044)="" ^ORD(100.22,"B","DATE/TIME SIGNED ONLINE",1099)="" ^ORD(100.22,"B","DC DATE",1072)="" ^ORD(100.22,"B","DC PERSON",1071)="" ^ORD(100.22,"B","DC REASON",1070)="" ^ORD(100.22,"B","DC by & when",1045)="" ^ORD(100.22,"B","DIGITAL PAGER CLINICIAN",1081)="" ^ORD(100.22,"B","DOB of Patient",1005)="" ^ORD(100.22,"B","EFFECTIVE DATE",1075)="" ^ORD(100.22,"B","ELECTRONIC SIGNATURE DATE/TIME",1097)="" ^ORD(100.22,"B","ELECTRONIC SIGNATURE NAME",1026)="" ^ORD(100.22,"B","ELECTRONIC SIGNATURE TITLE",1042)="" ^ORD(100.22,"B","ENTERED BY",1021)="" ^ORD(100.22,"B","ENTERED BY (Initials)",1028)="" ^ORD(100.22,"B","ENTERED BY SIGNATURE TITLE",1084)="" ^ORD(100.22,"B","FH SPEC MEAL ESIG DATE",2003)="" ^ORD(100.22,"B","FH SPEC MEAL ESIG NAME",2004)="" ^ORD(100.22,"B","FH SPEC MEAL ESIG TITLE",2002)="" ^ORD(100.22,"B","FH SPEC MEAL LAST4 SSN",2006)="" ^ORD(100.22,"B","FH SPEC MEAL LOCATION",2005)="" ^ORD(100.22,"B","FREE TEXT",1014)="" ^ORD(100.22,"B","HORIZONTAL LINE",1029)="" ^ORD(100.22,"B","LAB ACCESSION",1040)="" ^ORD(100.22,"B","LAB COLLECTION w/CONTAINER",1043)="" ^ORD(100.22,"B","LAB ORDER #",1017)="" ^ORD(100.22,"B","LAB TEST",1018)="" ^ORD(100.22,"B","LAB TEST COMMENTS",1078)="" ^ORD(100.22,"B","LAB TEST.SPECIMEN COMMENTS",1077)="" ^ORD(100.22,"B","LAB URGENCY",1019)="" ^ORD(100.22,"B","LOCATION of Patient",1009)="" ^ORD(100.22,"B","NAME of Patient",1001)="" ^ORD(100.22,"B","NATURE OF ORDER",1032)="" ^ORD(100.22,"B","ORDER DATE",1013)="" ^ORD(100.22,"B","ORDER TEXT",1010)="" ^ORD(100.22,"B","PLACE OF CONSULTATION",1037)="" ^ORD(100.22,"B","PRIMARY CARE PHYSICIAN",1050)="" ^ORD(100.22,"B","PROCEDURE/CONSULT TYPE",1041)="" ^ORD(100.22,"B","PROVISIONAL DIAGNOSIS",1035)="" ^ORD(100.22,"B","REASON FOR REQUEST",1034)="" ^ORD(100.22,"B","REQUEST TYPE",1039)="" ^ORD(100.22,"B","REQUESTING LOCATION",1006)="" ^ORD(100.22,"B","REQUESTING PHYSICIAN",1007)="" ^ORD(100.22,"B","ROOM/BED of Patient",1008)="" ^ORD(100.22,"B","RX ADMINISTRATION TIMES",1047)="" ^ORD(100.22,"B","RX LABEL-INPATIENT",1076)="" ^ORD(100.22,"B","RX ROUTING",1080)="" ^ORD(100.22,"B","RX SPECIAL INSTRUCTIONS",1048)="" ^ORD(100.22,"B","RX URGENCY",1083)="" ^ORD(100.22,"B","SEX of Patient",1003)="" ^ORD(100.22,"B","SSN of Patient",1002)="" ^ORD(100.22,"B","START DATE",1011)="" ^ORD(100.22,"B","STATUS OF ORDER",1022)="" ^ORD(100.22,"B","STOP DATE",1012)="" ^ORD(100.22,"B","TIME COLLECTED",1020)="" ^ORD(100.22,"B","VERIFYING CLERK DATE/TIME",1092)="" ^ORD(100.22,"B","VERIFYING CLERK INITIALS",1089)="" ^ORD(100.22,"B","VERIFYING CLERK NAME",1090)="" ^ORD(100.22,"B","VERIFYING CLERK TITLE",1091)="" ^ORD(100.22,"B","VERIFYING NURSE DATE/TIME",1088)="" ^ORD(100.22,"B","VERIFYING NURSE INITIALS",1085)="" ^ORD(100.22,"B","VERIFYING NURSE NAME",1086)="" ^ORD(100.22,"B","VERIFYING NURSE TITLE",1087)="" ^ORD(100.22,"B","WARD COMMENTS ON LAB SPECIMEN",1046)="" ^ORD(100.22,"B","WHEN PRINTED",1074)="" ^ORD(100.23,0)="OE/RR PRINT FORMATS^100.23^1038^36" ^ORD(100.23,1002,0)="LAB ORDER LABEL^12^80^^1" ^ORD(100.23,1002,1,0)="^100.231PI^20^18" ^ORD(100.23,1002,1,1,0)="1016^2^1^NONE" ^ORD(100.23,1002,1,2,0)="1017^2^52" ^ORD(100.23,1002,1,3,0)="1017^2^52" ^ORD(100.23,1002,1,4,0)="1001^1^39^NONE^^LAST,FIRST MI" ^ORD(100.23,1002,1,5,0)="1001^1^39^NONE" ^ORD(100.23,1002,1,6,0)="1002^2^39^NONE" ^ORD(100.23,1002,1,7,0)="1009^4^60^NONE" ^ORD(100.23,1002,1,8,0)="1008^4^58^NONE" ^ORD(100.23,1002,1,9,0)="1002^2^39^NONE" ^ORD(100.23,1002,1,10,0)="1009^4^60^NONE" ^ORD(100.23,1002,1,12,0)="1007^5^1" ^ORD(100.23,1002,1,13,0)="1011^6^1^Start Date: " ^ORD(100.23,1002,1,14,0)="1014^7^39^Drawn By: ^Specimen Label: " ^ORD(100.23,1002,1,15,0)="1019^7^1^NONE" ^ORD(100.23,1002,1,16,0)="1018^8^1^^^70" ^ORD(100.23,1002,1,18,0)="1020^7^39^Collected: " ^ORD(100.23,1002,1,19,0)="1014^9^1^^**LAB SLIP** BRING TO LAB" ^ORD(100.23,1002,1,20,0)="1014^7^39^^Specimen Label: " ^ORD(100.23,1002,1,"B",1001,4)="" ^ORD(100.23,1002,1,"B",1001,5)="" ^ORD(100.23,1002,1,"B",1002,6)="" ^ORD(100.23,1002,1,"B",1002,9)="" ^ORD(100.23,1002,1,"B",1007,12)="" ^ORD(100.23,1002,1,"B",1008,8)="" ^ORD(100.23,1002,1,"B",1009,7)="" ^ORD(100.23,1002,1,"B",1009,10)="" ^ORD(100.23,1002,1,"B",1011,13)="" ^ORD(100.23,1002,1,"B",1014,14)="" ^ORD(100.23,1002,1,"B",1014,19)="" ^ORD(100.23,1002,1,"B",1014,20)="" ^ORD(100.23,1002,1,"B",1016,1)="" ^ORD(100.23,1002,1,"B",1017,2)="" ^ORD(100.23,1002,1,"B",1017,3)="" ^ORD(100.23,1002,1,"B",1018,16)="" ^ORD(100.23,1002,1,"B",1019,15)="" ^ORD(100.23,1002,1,"B",1020,18)="" ^ORD(100.23,1002,2,0)="^^18^19^3010926" ^ORD(100.23,1002,2,1,0)="W ?38,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1002,2,2,0)="W !?0,"""",$G(ORPCB)" ^ORD(100.23,1002,2,3,0)="W ?38,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1002,2,4,0)="W ?51,""LB #"",$G(ORPLB)" ^ORD(100.23,1002,2,5,0)="W !" ^ORD(100.23,1002,2,6,0)="W !?57,"""",$G(ORPRMBED)" ^ORD(100.23,1002,2,7,0)="W ?59,"""",$G(ORPLOC)" ^ORD(100.23,1002,2,8,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1002,2,9,0)="W !?0,""Start Date: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1002,2,10,0)="W !?0,"""",$G(ORPURG)" ^ORD(100.23,1002,2,11,0)="W ?38,"""",""Specimen Label: """ ^ORD(100.23,1002,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1002,2,13,0)="W !?0,"""",""**LAB SLIP** BRING TO LAB""" ^ORD(100.23,1002,2,14,0)="W !" ^ORD(100.23,1002,2,15,0)="W !" ^ORD(100.23,1002,2,16,0)="W !" ^ORD(100.23,1002,2,18,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1002,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NWDC"",""SPICWC"")" ^ORD(100.23,1002,4,0)="^^48^48^3010926" ^ORD(100.23,1002,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,2,0)="S X=$$S^ORU4(38,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1002,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,4,0)="D LN^ORU4" ^ORD(100.23,1002,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1002,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,9,0)="S X=$$S^ORU4(38,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1002,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,12,0)="S X=$$S^ORU4(51,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1002,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,14,0)="D LN^ORU4" ^ORD(100.23,1002,4,15,0)="D LN^ORU4" ^ORD(100.23,1002,4,16,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,17,0)="S X=$$S^ORU4(57,.CCNT,""""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1002,4,18,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,20,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1002,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,22,0)="D LN^ORU4" ^ORD(100.23,1002,4,23,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,24,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1002,4,25,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,26,0)="D LN^ORU4" ^ORD(100.23,1002,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,28,0)="S X=$$S^ORU4(0,.CCNT,""Start Date: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1002,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,30,0)="D LN^ORU4" ^ORD(100.23,1002,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,32,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1002,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,35,0)="S X=$$S^ORU4(38,.CCNT,""""_""Specimen Label: "",.CCNT)" ^ORD(100.23,1002,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,37,0)="D LN^ORU4" ^ORD(100.23,1002,4,38,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,39,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1002,4,40,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,41,0)="D LN^ORU4" ^ORD(100.23,1002,4,42,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1002,4,43,0)="S X=$$S^ORU4(0,.CCNT,""""_""**LAB SLIP** BRING TO LAB"",.CCNT)" ^ORD(100.23,1002,4,44,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1002,4,45,0)="D LN^ORU4" ^ORD(100.23,1002,4,46,0)="D LN^ORU4" ^ORD(100.23,1002,4,47,0)="D LN^ORU4" ^ORD(100.23,1002,4,48,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1003,0)="LAB REQUISITION^14" ^ORD(100.23,1003,1,0)="^100.231PI^17^16" ^ORD(100.23,1003,1,1,0)="1016^2^15^NONE" ^ORD(100.23,1003,1,2,0)="1013^2^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1003,1,3,0)="1017^3^15" ^ORD(100.23,1003,1,4,0)="1006^3^30" ^ORD(100.23,1003,1,5,0)="1001^4^1^NONE" ^ORD(100.23,1003,1,6,0)="1002^4^30^NONE" ^ORD(100.23,1003,1,7,0)="1021^5^1" ^ORD(100.23,1003,1,8,0)="1007^6^1" ^ORD(100.23,1003,1,9,0)="1011^6^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1003,1,11,0)="1014^10^1^^Time of Collection:_____________" ^ORD(100.23,1003,1,12,0)="1018^8^1^Test: ^^70" ^ORD(100.23,1003,1,13,0)="1019^8^50^NONE" ^ORD(100.23,1003,1,14,0)="1043^11^1^Collection Sample: " ^ORD(100.23,1003,1,15,0)="1077^12^1^NONE^^70" ^ORD(100.23,1003,1,16,0)="1078^13^1^NONE^^70" ^ORD(100.23,1003,1,17,0)="1046^14^1" ^ORD(100.23,1003,1,"B",1001,5)="" ^ORD(100.23,1003,1,"B",1002,6)="" ^ORD(100.23,1003,1,"B",1006,4)="" ^ORD(100.23,1003,1,"B",1007,8)="" ^ORD(100.23,1003,1,"B",1011,9)="" ^ORD(100.23,1003,1,"B",1013,2)="" ^ORD(100.23,1003,1,"B",1014,11)="" ^ORD(100.23,1003,1,"B",1016,1)="" ^ORD(100.23,1003,1,"B",1017,3)="" ^ORD(100.23,1003,1,"B",1018,12)="" ^ORD(100.23,1003,1,"B",1019,13)="" ^ORD(100.23,1003,1,"B",1021,7)="" ^ORD(100.23,1003,1,"B",1043,14)="" ^ORD(100.23,1003,1,"B",1046,17)="" ^ORD(100.23,1003,1,"B",1077,15)="" ^ORD(100.23,1003,1,"B",1078,16)="" ^ORD(100.23,1003,2,0)="^^21^22^3010926" ^ORD(100.23,1003,2,1,0)="W !" ^ORD(100.23,1003,2,2,0)="W !?14,"""",$G(ORPCB)" ^ORD(100.23,1003,2,3,0)="W ?29,""ORD: "",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1003,2,4,0)="W !?14,""LB #"",$G(ORPLB)" ^ORD(100.23,1003,2,5,0)="W ?29,""LOC: "",$G(ORPRLOC)" ^ORD(100.23,1003,2,6,0)="W !?0,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1003,2,7,0)="W ?29,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1003,2,8,0)="W !?0,""Entered By: "",$$NAME^ORU($G(ORPEB),"""")" ^ORD(100.23,1003,2,9,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1003,2,10,0)="W ?29,""Start: "",$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1003,2,11,0)="W !" ^ORD(100.23,1003,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1003,2,13,0)="W ?49,"""",$G(ORPURG)" ^ORD(100.23,1003,2,14,0)="W !" ^ORD(100.23,1003,2,15,0)="W !?0,"""",""Time of Collection:_____________""" ^ORD(100.23,1003,2,16,0)="W !?0,""Collection Sample: "",$G(ORPCOT)" ^ORD(100.23,1003,2,17,0)="W !?0,"""",$$TEXT^ORU($G(ORUT),""70"")" ^ORD(100.23,1003,2,18,0)="W !?0,"""",$$TEXT^ORU($G(OROT),""70"")" ^ORD(100.23,1003,2,19,0)="W !?0,""WARD COMMENTS: "",$$TEXT^ORU($G(OROOT6),"""")" ^ORD(100.23,1003,2,21,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1003,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NWDC"",""WCSPIC"")" ^ORD(100.23,1003,4,0)="^^63^63^3010926" ^ORD(100.23,1003,4,1,0)="D LN^ORU4" ^ORD(100.23,1003,4,2,0)="D LN^ORU4" ^ORD(100.23,1003,4,3,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,4,0)="S X=$$S^ORU4(14,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1003,4,5,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,6,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,7,0)="S X=$$S^ORU4(29,.CCNT,""ORD: ""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,8,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,9,0)="D LN^ORU4" ^ORD(100.23,1003,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,11,0)="S X=$$S^ORU4(14,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1003,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,14,0)="S X=$$S^ORU4(29,.CCNT,""LOC: ""_$G(ORPRLOC),.CCNT)" ^ORD(100.23,1003,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,16,0)="D LN^ORU4" ^ORD(100.23,1003,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,21,0)="S X=$$S^ORU4(29,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,23,0)="D LN^ORU4" ^ORD(100.23,1003,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,25,0)="S X=$$S^ORU4(0,.CCNT,""Entered By: ""_$$NAME^ORU4($G(ORPEB),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,27,0)="D LN^ORU4" ^ORD(100.23,1003,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,29,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,32,0)="S X=$$S^ORU4(29,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,34,0)="D LN^ORU4" ^ORD(100.23,1003,4,35,0)="D LN^ORU4" ^ORD(100.23,1003,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,37,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,39,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,40,0)="S X=$$S^ORU4(49,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1003,4,41,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,42,0)="D LN^ORU4" ^ORD(100.23,1003,4,43,0)="D LN^ORU4" ^ORD(100.23,1003,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,45,0)="S X=$$S^ORU4(0,.CCNT,""""_""Time of Collection:_____________"",.CCNT)" ^ORD(100.23,1003,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,47,0)="D LN^ORU4" ^ORD(100.23,1003,4,48,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,49,0)="S X=$$S^ORU4(0,.CCNT,""Collection Sample: ""_$G(ORPCOT),.CCNT)" ^ORD(100.23,1003,4,50,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,51,0)="D LN^ORU4" ^ORD(100.23,1003,4,52,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,53,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(ORUT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,54,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,55,0)="D LN^ORU4" ^ORD(100.23,1003,4,56,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,57,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(OROT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,58,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,59,0)="D LN^ORU4" ^ORD(100.23,1003,4,60,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1003,4,61,0)="S X=$$S^ORU4(0,.CCNT,""WARD COMMENTS: ""_$$TEXT^ORU4($G(OROOT6),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1003,4,62,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1003,4,63,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1004,0)="CHART COPY 1^5^^45" ^ORD(100.23,1004,1,0)="^100.231PI^15^8" ^ORD(100.23,1004,1,1,0)="1022^1^1^NONE" ^ORD(100.23,1004,1,3,0)="1011^1^58^Start: " ^ORD(100.23,1004,1,5,0)="1012^2^58^Stop: " ^ORD(100.23,1004,1,7,0)="1013^3^57^Ord'd: " ^ORD(100.23,1004,1,8,0)="1007^4^5" ^ORD(100.23,1004,1,9,0)="1026^4^25^NONE" ^ORD(100.23,1004,1,14,0)="1001^4" ^ORD(100.23,1004,1,15,0)="1010^1^3^NONE^^45" ^ORD(100.23,1004,1,"B",1001,14)="" ^ORD(100.23,1004,1,"B",1007,8)="" ^ORD(100.23,1004,1,"B",1010,15)="" ^ORD(100.23,1004,1,"B",1011,3)="" ^ORD(100.23,1004,1,"B",1012,5)="" ^ORD(100.23,1004,1,"B",1013,7)="" ^ORD(100.23,1004,1,"B",1022,1)="" ^ORD(100.23,1004,1,"B",1026,9)="" ^ORD(100.23,1004,2,0)="^^10^11^3010926" ^ORD(100.23,1004,2,1,0)="W ?0,"""",$G(ORPSTAT)" ^ORD(100.23,1004,2,2,0)="W ?2,"""",$$TMPWRAP^ORU($G(OROOT),""45"")" ^ORD(100.23,1004,2,3,0)="W ?57,""Start: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1004,2,4,0)="W !?57,""Stop: "",$$DATE^ORU($G(ORPSTOP),"""")" ^ORD(100.23,1004,2,5,0)="W !?56,""Ord'd: "",$$DATE^ORU($G(ORPODT),"""")" ^ORD(100.23,1004,2,6,0)="W !?4,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1004,2,7,0)="W ?24,"""",$G(ORPES)" ^ORD(100.23,1004,2,8,0)="W !" ^ORD(100.23,1004,2,10,0)="K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES" ^ORD(100.23,1004,4,0)="^^26^26^3010926" ^ORD(100.23,1004,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPSTAT),.CCNT)" ^ORD(100.23,1004,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,5,0)="S X=$$S^ORU4(2,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""45"",.ORHOOT,2,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1004,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,8,0)="S X=$$S^ORU4(57,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1004,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,10,0)="D LN^ORU4" ^ORD(100.23,1004,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,12,0)="S X=$$S^ORU4(57,.CCNT,""Stop: ""_$$DATE^ORU4($G(ORPSTOP),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1004,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,14,0)="D LN^ORU4" ^ORD(100.23,1004,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,16,0)="S X=$$S^ORU4(56,.CCNT,""Ord'd: ""_$$DATE^ORU4($G(ORPODT),"""",.ORHOOT,56,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1004,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,18,0)="D LN^ORU4" ^ORD(100.23,1004,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,20,0)="S X=$$S^ORU4(4,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,4,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1004,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1004,4,23,0)="S X=$$S^ORU4(24,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1004,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1004,4,25,0)="D LN^ORU4" ^ORD(100.23,1004,4,26,0)="K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES" ^ORD(100.23,1005,0)="CHART COPY 2^5^^60" ^ORD(100.23,1005,1,0)="^100.231PI^13^7" ^ORD(100.23,1005,1,1,0)="1013^1^1^NONE" ^ORD(100.23,1005,1,6,0)="1011^3^20^Start: " ^ORD(100.23,1005,1,7,0)="1007^3^55^Req : " ^ORD(100.23,1005,1,8,0)="1012^4^20^Stop : " ^ORD(100.23,1005,1,9,0)="1026^4^55^NONE" ^ORD(100.23,1005,1,12,0)="1032^2^4^NONE" ^ORD(100.23,1005,1,13,0)="1010^1^16^NONE^^60" ^ORD(100.23,1005,1,"B",1007,7)="" ^ORD(100.23,1005,1,"B",1010,13)="" ^ORD(100.23,1005,1,"B",1011,6)="" ^ORD(100.23,1005,1,"B",1012,8)="" ^ORD(100.23,1005,1,"B",1013,1)="" ^ORD(100.23,1005,1,"B",1026,9)="" ^ORD(100.23,1005,1,"B",1032,12)="" ^ORD(100.23,1005,2,0)="^^10^11^3010926" ^ORD(100.23,1005,2,1,0)="W ?0,"""",$$DATE^ORU($G(ORPODT),"""")" ^ORD(100.23,1005,2,2,0)="W ?15,"""",$$TMPWRAP^ORU($G(OROOT),""60"")" ^ORD(100.23,1005,2,3,0)="W !?3,"""",$G(ORPNAT)" ^ORD(100.23,1005,2,4,0)="W !?19,""Start: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1005,2,5,0)="W ?54,""Req : "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1005,2,6,0)="W !?19,""Stop : "",$$DATE^ORU($G(ORPSTOP),"""")" ^ORD(100.23,1005,2,7,0)="W ?54,"""",$G(ORPES)" ^ORD(100.23,1005,2,8,0)="W !" ^ORD(100.23,1005,2,10,0)="K X,ORPODT,OROOT,ORPNAT,ORPSTRT,ORPRPHY,ORPSTOP,ORPES" ^ORD(100.23,1005,4,0)="^^26^26^3010926" ^ORD(100.23,1005,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$DATE^ORU4($G(ORPODT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1005,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,5,0)="S X=$$S^ORU4(15,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""60"",.ORHOOT,15,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1005,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,7,0)="D LN^ORU4" ^ORD(100.23,1005,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,9,0)="S X=$$S^ORU4(3,.CCNT,""""_$G(ORPNAT),.CCNT)" ^ORD(100.23,1005,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,11,0)="D LN^ORU4" ^ORD(100.23,1005,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,13,0)="S X=$$S^ORU4(19,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,19,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1005,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,16,0)="S X=$$S^ORU4(54,.CCNT,""Req : ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,54,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1005,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,18,0)="D LN^ORU4" ^ORD(100.23,1005,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,20,0)="S X=$$S^ORU4(19,.CCNT,""Stop : ""_$$DATE^ORU4($G(ORPSTOP),"""",.ORHOOT,19,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1005,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1005,4,23,0)="S X=$$S^ORU4(54,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1005,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1005,4,25,0)="D LN^ORU4" ^ORD(100.23,1005,4,26,0)="K X,ORPODT,OROOT,ORPNAT,ORPSTRT,ORPRPHY,ORPSTOP,ORPES" ^ORD(100.23,1006,0)="CHART COPY HEADER^8" ^ORD(100.23,1006,1,0)="^100.231PI^11^8" ^ORD(100.23,1006,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1006,1,2,0)="1014^5^1^NONE^Date and time for instituting and discontinuing the orders must be recorded" ^ORD(100.23,1006,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1006,1,4,0)="1014^4^1^NONE^NOTE: Physician's signature must accompany each entry including standing orders" ^ORD(100.23,1006,1,6,0)="1029^6^1^NONE" ^ORD(100.23,1006,1,9,0)="1014^7^2^^DATE & TIME | O R D E R S | SIGNATURES" ^ORD(100.23,1006,1,10,0)="1029^8^1^NONE" ^ORD(100.23,1006,1,11,0)="1014^2^1^NONE^ MEDICAL RECORD | D O C T O R ' S O R D E R S" ^ORD(100.23,1006,1,"B",1014,2)="" ^ORD(100.23,1006,1,"B",1014,4)="" ^ORD(100.23,1006,1,"B",1014,9)="" ^ORD(100.23,1006,1,"B",1014,11)="" ^ORD(100.23,1006,1,"B",1029,1)="" ^ORD(100.23,1006,1,"B",1029,3)="" ^ORD(100.23,1006,1,"B",1029,6)="" ^ORD(100.23,1006,1,"B",1029,10)="" ^ORD(100.23,1006,2,0)="^^10^11^3010926" ^ORD(100.23,1006,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1006,2,2,0)="W !?0,"""","" MEDICAL RECORD | D O C T O R ' S O R D E R S""" ^ORD(100.23,1006,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1006,2,4,0)="W !?0,"""",""NOTE: Physician's signature must accompany each entry including standing orders""" ^ORD(100.23,1006,2,5,0)="W !?0,"""",""Date and time for instituting and discontinuing the orders must be recorded""" ^ORD(100.23,1006,2,6,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1006,2,7,0)="W !?1,"""",""DATE & TIME | O R D E R S | SIGNATURES""" ^ORD(100.23,1006,2,8,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1006,2,10,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1006,4,0)="^^32^32^3010926" ^ORD(100.23,1006,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1006,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,4,0)="D LN^ORU4" ^ORD(100.23,1006,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_"" MEDICAL RECORD | D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1006,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,8,0)="D LN^ORU4" ^ORD(100.23,1006,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1006,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,12,0)="D LN^ORU4" ^ORD(100.23,1006,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,14,0)="S X=$$S^ORU4(0,.CCNT,""""_""NOTE: Physician's signature must accompany each entry including standing orders"",.CCNT)" ^ORD(100.23,1006,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,16,0)="D LN^ORU4" ^ORD(100.23,1006,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_""Date and time for instituting and discontinuing the orders must be recorded"",.CCNT)" ^ORD(100.23,1006,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,20,0)="D LN^ORU4" ^ORD(100.23,1006,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,22,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1006,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,24,0)="D LN^ORU4" ^ORD(100.23,1006,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,26,0)="S X=$$S^ORU4(1,.CCNT,""""_""DATE & TIME | O R D E R S | SIGNATURES"",.CCNT)" ^ORD(100.23,1006,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,28,0)="D LN^ORU4" ^ORD(100.23,1006,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1006,4,30,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1006,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1006,4,32,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1007,0)="CHART COPY FOOTER^9" ^ORD(100.23,1007,1,0)="^100.231PI^16^12" ^ORD(100.23,1007,1,1,0)="1029^2^1^NONE" ^ORD(100.23,1007,1,2,0)="1001^4^2^NONE^^LAST, FIRST MI" ^ORD(100.23,1007,1,3,0)="1002^4^29^NONE" ^ORD(100.23,1007,1,4,0)="1014^5^45^NONE^|" ^ORD(100.23,1007,1,5,0)="1009^5^4^Loc: " ^ORD(100.23,1007,1,6,0)="1014^6^45^NONE^| D O C T O R ' S O R D E R S" ^ORD(100.23,1007,1,7,0)="1014^7^45^NONE^|" ^ORD(100.23,1007,1,8,0)="1014^8^45^NONE^| VA FORM 10-1158" ^ORD(100.23,1007,1,9,0)="1014^9^45^NONE^|__________________________________" ^ORD(100.23,1007,1,10,0)="1014^3^45^^|" ^ORD(100.23,1007,1,15,0)="1044^5^23^Date: ^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1007,1,16,0)="1014^4^45^^| MEDICAL RECORD" ^ORD(100.23,1007,1,"B",1001,2)="" ^ORD(100.23,1007,1,"B",1002,3)="" ^ORD(100.23,1007,1,"B",1009,5)="" ^ORD(100.23,1007,1,"B",1014,4)="" ^ORD(100.23,1007,1,"B",1014,6)="" ^ORD(100.23,1007,1,"B",1014,7)="" ^ORD(100.23,1007,1,"B",1014,8)="" ^ORD(100.23,1007,1,"B",1014,9)="" ^ORD(100.23,1007,1,"B",1014,10)="" ^ORD(100.23,1007,1,"B",1014,16)="" ^ORD(100.23,1007,1,"B",1029,1)="" ^ORD(100.23,1007,1,"B",1044,15)="" ^ORD(100.23,1007,2,0)="^^15^16^3010926" ^ORD(100.23,1007,2,1,0)="W !" ^ORD(100.23,1007,2,2,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1007,2,3,0)="W !?44,"""",""|""" ^ORD(100.23,1007,2,4,0)="W !?1,"""",$$NAME^ORU($G(ORPNAME),""LAST, FIRST MI"")" ^ORD(100.23,1007,2,5,0)="W ?28,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1007,2,6,0)="W ?44,"""",""| MEDICAL RECORD""" ^ORD(100.23,1007,2,7,0)="W !?3,""Loc: "",$G(ORPLOC)" ^ORD(100.23,1007,2,8,0)="W ?22,""Date: "",$$DATE^ORU($G(ORPDTT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1007,2,9,0)="W ?44,"""",""|""" ^ORD(100.23,1007,2,10,0)="W !?44,"""",""| D O C T O R ' S O R D E R S""" ^ORD(100.23,1007,2,11,0)="W !?44,"""",""|""" ^ORD(100.23,1007,2,12,0)="W !?44,"""",""| VA FORM 10-1158""" ^ORD(100.23,1007,2,13,0)="W !?44,"""",""|__________________________________""" ^ORD(100.23,1007,2,15,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDTT" ^ORD(100.23,1007,4,0)="^^46^46^3010926" ^ORD(100.23,1007,4,1,0)="D LN^ORU4" ^ORD(100.23,1007,4,2,0)="D LN^ORU4" ^ORD(100.23,1007,4,3,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,4,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1007,4,5,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,6,0)="D LN^ORU4" ^ORD(100.23,1007,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,8,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1007,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,10,0)="D LN^ORU4" ^ORD(100.23,1007,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,12,0)="S X=$$S^ORU4(1,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),""LAST, FIRST MI"",.ORHOOT,1,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1007,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,15,0)="S X=$$S^ORU4(28,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,28,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1007,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,18,0)="S X=$$S^ORU4(44,.CCNT,""""_""| MEDICAL RECORD"",.CCNT)" ^ORD(100.23,1007,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,20,0)="D LN^ORU4" ^ORD(100.23,1007,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,22,0)="S X=$$S^ORU4(3,.CCNT,""Loc: ""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1007,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,25,0)="S X=$$S^ORU4(22,.CCNT,""Date: ""_$$DATE^ORU4($G(ORPDTT),""MM/DD/CCYY HR:MIN"",.ORHOOT,22,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1007,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,28,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1007,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,30,0)="D LN^ORU4" ^ORD(100.23,1007,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,32,0)="S X=$$S^ORU4(44,.CCNT,""""_""| D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1007,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,34,0)="D LN^ORU4" ^ORD(100.23,1007,4,35,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,36,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1007,4,37,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,38,0)="D LN^ORU4" ^ORD(100.23,1007,4,39,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,40,0)="S X=$$S^ORU4(44,.CCNT,""""_""| VA FORM 10-1158"",.CCNT)" ^ORD(100.23,1007,4,41,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,42,0)="D LN^ORU4" ^ORD(100.23,1007,4,43,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1007,4,44,0)="S X=$$S^ORU4(44,.CCNT,""""_""|__________________________________"",.CCNT)" ^ORD(100.23,1007,4,45,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1007,4,46,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDTT" ^ORD(100.23,1008,0)="SHORT^1^^57" ^ORD(100.23,1008,1,0)="^100.231PI^4^4" ^ORD(100.23,1008,1,1,0)="1022^1^4^NONE" ^ORD(100.23,1008,1,2,0)="1010^1^8^NONE^^57" ^ORD(100.23,1008,1,3,0)="1013^1^69^NONE" ^ORD(100.23,1008,1,4,0)="1001^2^2^NAME^^LAST,FIRST MI" ^ORD(100.23,1008,1,"B",1001,4)="" ^ORD(100.23,1008,1,"B",1010,2)="" ^ORD(100.23,1008,1,"B",1013,3)="" ^ORD(100.23,1008,1,"B",1022,1)="" ^ORD(100.23,1008,2,0)="^^5^6^3010926" ^ORD(100.23,1008,2,1,0)="W ?3,"""",$G(ORPSTAT)" ^ORD(100.23,1008,2,2,0)="W ?7,"""",$$TMPWRAP^ORU($G(OROOT),""57"")" ^ORD(100.23,1008,2,3,0)="W ?68,"""",$$DATE^ORU($G(ORPODT),"""")" ^ORD(100.23,1008,2,5,0)="K X,ORPSTAT,OROOT,ORPODT" ^ORD(100.23,1008,4,0)="^^10^10^3010926" ^ORD(100.23,1008,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1008,4,2,0)="S X=$$S^ORU4(3,.CCNT,""""_$G(ORPSTAT),.CCNT)" ^ORD(100.23,1008,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1008,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1008,4,5,0)="S X=$$S^ORU4(7,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""57"",.ORHOOT,7,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1008,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1008,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1008,4,8,0)="S X=$$S^ORU4(68,.CCNT,""""_$$DATE^ORU4($G(ORPODT),"""",.ORHOOT,68,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1008,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1008,4,10,0)="K X,ORPSTAT,OROOT,ORPODT" ^ORD(100.23,1009,0)="LONG^3^^30" ^ORD(100.23,1009,1,0)="^100.231PI^12^9" ^ORD(100.23,1009,1,1,0)="1022^1^4^NONE" ^ORD(100.23,1009,1,3,0)="1013^1^37^NONE^^MM/DD/CCYY" ^ORD(100.23,1009,1,4,0)="1007^1^48^NONE^^LAST,FI" ^ORD(100.23,1009,1,5,0)="1011^1^59^NONE^^MM/DD/CCYY" ^ORD(100.23,1009,1,6,0)="1012^1^70^NONE^^MM/DD/CCYY" ^ORD(100.23,1009,1,9,0)="1013^2^40^NONE^^HR:MIN" ^ORD(100.23,1009,1,10,0)="1011^2^62^NONE^^HR:MIN" ^ORD(100.23,1009,1,11,0)="1012^2^73^NONE^^HR:MIN" ^ORD(100.23,1009,1,12,0)="1010^1^8^NONE^^30" ^ORD(100.23,1009,1,"B",1007,4)="" ^ORD(100.23,1009,1,"B",1010,12)="" ^ORD(100.23,1009,1,"B",1011,5)="" ^ORD(100.23,1009,1,"B",1011,10)="" ^ORD(100.23,1009,1,"B",1012,6)="" ^ORD(100.23,1009,1,"B",1012,11)="" ^ORD(100.23,1009,1,"B",1013,3)="" ^ORD(100.23,1009,1,"B",1013,9)="" ^ORD(100.23,1009,1,"B",1022,1)="" ^ORD(100.23,1009,2,0)="^^12^13^3010926" ^ORD(100.23,1009,2,1,0)="W ?3,"""",$G(ORPSTAT)" ^ORD(100.23,1009,2,2,0)="W ?7,"""",$$TMPWRAP^ORU($G(OROOT),""30"")" ^ORD(100.23,1009,2,3,0)="W ?36,"""",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY"")" ^ORD(100.23,1009,2,4,0)="W ?47,"""",$$NAME^ORU($G(ORPRPHY),""LAST,FI"")" ^ORD(100.23,1009,2,5,0)="W ?58,"""",$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY"")" ^ORD(100.23,1009,2,6,0)="W ?69,"""",$$DATE^ORU($G(ORPSTOP),""MM/DD/CCYY"")" ^ORD(100.23,1009,2,7,0)="W !?39,"""",$$DATE^ORU($G(ORPODT),""HR:MIN"")" ^ORD(100.23,1009,2,8,0)="W ?61,"""",$$DATE^ORU($G(ORPSTRT),""HR:MIN"")" ^ORD(100.23,1009,2,9,0)="W ?72,"""",$$DATE^ORU($G(ORPSTOP),""HR:MIN"")" ^ORD(100.23,1009,2,10,0)="W !" ^ORD(100.23,1009,2,12,0)="K X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP" ^ORD(100.23,1009,4,0)="^^30^30^3010926" ^ORD(100.23,1009,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,2,0)="S X=$$S^ORU4(3,.CCNT,""""_$G(ORPSTAT),.CCNT)" ^ORD(100.23,1009,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,5,0)="S X=$$S^ORU4(7,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""30"",.ORHOOT,7,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,8,0)="S X=$$S^ORU4(36,.CCNT,""""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY"",.ORHOOT,36,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,11,0)="S X=$$S^ORU4(47,.CCNT,""""_$$NAME^ORU4($G(ORPRPHY),""LAST,FI"",.ORHOOT,47,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,14,0)="S X=$$S^ORU4(58,.CCNT,""""_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY"",.ORHOOT,58,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,16,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,17,0)="S X=$$S^ORU4(69,.CCNT,""""_$$DATE^ORU4($G(ORPSTOP),""MM/DD/CCYY"",.ORHOOT,69,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,18,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,19,0)="D LN^ORU4" ^ORD(100.23,1009,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,21,0)="S X=$$S^ORU4(39,.CCNT,""""_$$DATE^ORU4($G(ORPODT),""HR:MIN"",.ORHOOT,39,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,23,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,24,0)="S X=$$S^ORU4(61,.CCNT,""""_$$DATE^ORU4($G(ORPSTRT),""HR:MIN"",.ORHOOT,61,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,25,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,26,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1009,4,27,0)="S X=$$S^ORU4(72,.CCNT,""""_$$DATE^ORU4($G(ORPSTOP),""HR:MIN"",.ORHOOT,72,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1009,4,28,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1009,4,29,0)="D LN^ORU4" ^ORD(100.23,1009,4,30,0)="K X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP" ^ORD(100.23,1010,0)="DOCTOR'S ORDERS^4^^33" ^ORD(100.23,1010,1,0)="^100.231PI^15^8" ^ORD(100.23,1010,1,6,0)="1013^1^1^NONE^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1010,1,8,0)="1026^1^60^NONE" ^ORD(100.23,1010,1,10,0)="1010^1^22^NONE^^33" ^ORD(100.23,1010,1,11,0)="1042^2^60^NONE" ^ORD(100.23,1010,1,12,0)="1011^2^21^^^MM/DD/CCYY HR:MIN^1" ^ORD(100.23,1010,1,13,0)="1019^4^35^^^^1" ^ORD(100.23,1010,1,14,0)="1038^4^36^^^^1" ^ORD(100.23,1010,1,15,0)="1022^1^19^NONE" ^ORD(100.23,1010,1,"B",1010,10)="" ^ORD(100.23,1010,1,"B",1011,12)="" ^ORD(100.23,1010,1,"B",1013,6)="" ^ORD(100.23,1010,1,"B",1019,13)="" ^ORD(100.23,1010,1,"B",1022,15)="" ^ORD(100.23,1010,1,"B",1026,8)="" ^ORD(100.23,1010,1,"B",1038,14)="" ^ORD(100.23,1010,1,"B",1042,11)="" ^ORD(100.23,1010,2,0)="^^11^12^3010926" ^ORD(100.23,1010,2,1,0)="W ?0,"""",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1010,2,2,0)="W ?18,"""",$G(ORPSTAT)" ^ORD(100.23,1010,2,3,0)="W ?21,"""",$$TMPWRAP^ORU($G(OROOT),""33"")" ^ORD(100.23,1010,2,4,0)="W ?59,"""",$G(ORPES)" ^ORD(100.23,1010,2,5,0)="W !?20,$S($L($G(ORPSTRT)):""Start: "",1:""""),$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1010,2,6,0)="W ?59,"""",$G(ORPDOT)" ^ORD(100.23,1010,2,7,0)="W !" ^ORD(100.23,1010,2,8,0)="W !?34,$S($L($G(ORPURG)):""Urgency: "",1:""""),$G(ORPURG)" ^ORD(100.23,1010,2,9,0)="W ?35,$S($L($G(ORPCURG)):""URG: "",1:""""),$G(ORPCURG)" ^ORD(100.23,1010,2,11,0)="K X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG" ^ORD(100.23,1010,4,0)="^^28^28^3010926" ^ORD(100.23,1010,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1010,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,5,0)="S X=$$S^ORU4(18,.CCNT,""""_$G(ORPSTAT),.CCNT)" ^ORD(100.23,1010,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,8,0)="S X=$$S^ORU4(21,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""33"",.ORHOOT,21,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1010,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,11,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1010,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,13,0)="D LN^ORU4" ^ORD(100.23,1010,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,15,0)="S X=$$S^ORU4(20,.CCNT,$S($L($G(ORPSTRT)):""Start: "",1:"""")_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY HR:MIN"",.ORHOOT,20,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1010,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,18,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPDOT),.CCNT)" ^ORD(100.23,1010,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,20,0)="D LN^ORU4" ^ORD(100.23,1010,4,21,0)="D LN^ORU4" ^ORD(100.23,1010,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,23,0)="S X=$$S^ORU4(34,.CCNT,$S($L($G(ORPURG)):""Urgency: "",1:"""")_$G(ORPURG),.CCNT)" ^ORD(100.23,1010,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1010,4,26,0)="S X=$$S^ORU4(35,.CCNT,$S($L($G(ORPCURG)):""URG: "",1:"""")_$G(ORPCURG),.CCNT)" ^ORD(100.23,1010,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1010,4,28,0)="K X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG" ^ORD(100.23,1011,0)="CONSULTATION FOOTER^13" ^ORD(100.23,1011,1,0)="^100.231PI^25^18" ^ORD(100.23,1011,1,8,0)="1001^9^1^PATIENT'S ID.: ^^LAST, FIRST MI" ^ORD(100.23,1011,1,9,0)="1014^9^52^^CONSULTATION SHEET" ^ORD(100.23,1011,1,10,0)="1002^10^16^NONE" ^ORD(100.23,1011,1,11,0)="1014^10^52^^STANDARD FORM 513 (Rev 9-77)" ^ORD(100.23,1011,1,12,0)="1009^11^16^NONE" ^ORD(100.23,1011,1,13,0)="1008^11^26^NONE" ^ORD(100.23,1011,1,14,0)="1014^11^52^^Prescribed by GSA/ICMR" ^ORD(100.23,1011,1,15,0)="1014^12^52^^FIRNIR (41 CFR) 201-45.505" ^ORD(100.23,1011,1,16,0)="1014^13^52^^513-108" ^ORD(100.23,1011,1,17,0)="1029^4^1^NONE" ^ORD(100.23,1011,1,18,0)="1014^5^1^^SIGNATURE & TITLE:" ^ORD(100.23,1011,1,19,0)="1014^5^63^^| DATE:" ^ORD(100.23,1011,1,20,0)="1029^6^1^NONE" ^ORD(100.23,1011,1,21,0)="1029^8^1^NONE" ^ORD(100.23,1011,1,22,0)="1014^7^1^^ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________" ^ORD(100.23,1011,1,23,0)="1014^1^1^^The patient was examined Yes___ No___" ^ORD(100.23,1011,1,24,0)="1014^2^1^^The patient's medical record was reviewed Yes___ No___" ^ORD(100.23,1011,1,25,0)="1014^3^1^^Significant findings Yes___ No___" ^ORD(100.23,1011,1,"B",1001,8)="" ^ORD(100.23,1011,1,"B",1002,10)="" ^ORD(100.23,1011,1,"B",1008,13)="" ^ORD(100.23,1011,1,"B",1009,12)="" ^ORD(100.23,1011,1,"B",1014,9)="" ^ORD(100.23,1011,1,"B",1014,11)="" ^ORD(100.23,1011,1,"B",1014,14)="" ^ORD(100.23,1011,1,"B",1014,15)="" ^ORD(100.23,1011,1,"B",1014,16)="" ^ORD(100.23,1011,1,"B",1014,18)="" ^ORD(100.23,1011,1,"B",1014,19)="" ^ORD(100.23,1011,1,"B",1014,22)="" ^ORD(100.23,1011,1,"B",1014,23)="" ^ORD(100.23,1011,1,"B",1014,24)="" ^ORD(100.23,1011,1,"B",1014,25)="" ^ORD(100.23,1011,1,"B",1029,17)="" ^ORD(100.23,1011,1,"B",1029,20)="" ^ORD(100.23,1011,1,"B",1029,21)="" ^ORD(100.23,1011,2,0)="^^20^21^3010926" ^ORD(100.23,1011,2,1,0)="W ?0,"""",""The patient was examined Yes___ No___""" ^ORD(100.23,1011,2,2,0)="W !?0,"""",""The patient's medical record was reviewed Yes___ No___""" ^ORD(100.23,1011,2,3,0)="W !?0,"""",""Significant findings Yes___ No___""" ^ORD(100.23,1011,2,4,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1011,2,5,0)="W !?0,"""",""SIGNATURE & TITLE:""" ^ORD(100.23,1011,2,6,0)="W ?62,"""",""| DATE:""" ^ORD(100.23,1011,2,7,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1011,2,8,0)="W !?0,"""",""ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________""" ^ORD(100.23,1011,2,9,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1011,2,10,0)="W !?0,""PATIENT'S ID.: "",$$NAME^ORU($G(ORPNAME),""LAST, FIRST MI"")" ^ORD(100.23,1011,2,11,0)="W ?51,"""",""CONSULTATION SHEET""" ^ORD(100.23,1011,2,12,0)="W !?15,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1011,2,13,0)="W ?51,"""",""STANDARD FORM 513 (Rev 9-77)""" ^ORD(100.23,1011,2,14,0)="W !?15,"""",$G(ORPLOC)" ^ORD(100.23,1011,2,15,0)="W ?25,"""",$G(ORPRMBED)" ^ORD(100.23,1011,2,16,0)="W ?51,"""",""Prescribed by GSA/ICMR""" ^ORD(100.23,1011,2,17,0)="W !?51,"""",""FIRNIR (41 CFR) 201-45.505""" ^ORD(100.23,1011,2,18,0)="W !?51,"""",""513-108""" ^ORD(100.23,1011,2,20,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED" ^ORD(100.23,1011,4,0)="^^67^67^3010926" ^ORD(100.23,1011,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_""The patient was examined Yes___ No___"",.CCNT)" ^ORD(100.23,1011,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,4,0)="D LN^ORU4" ^ORD(100.23,1011,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_""The patient's medical record was reviewed Yes___ No___"",.CCNT)" ^ORD(100.23,1011,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,8,0)="D LN^ORU4" ^ORD(100.23,1011,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_""Significant findings Yes___ No___"",.CCNT)" ^ORD(100.23,1011,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,12,0)="D LN^ORU4" ^ORD(100.23,1011,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,14,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1011,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,16,0)="D LN^ORU4" ^ORD(100.23,1011,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_""SIGNATURE & TITLE:"",.CCNT)" ^ORD(100.23,1011,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,21,0)="S X=$$S^ORU4(62,.CCNT,""""_""| DATE:"",.CCNT)" ^ORD(100.23,1011,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,23,0)="D LN^ORU4" ^ORD(100.23,1011,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,25,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1011,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,27,0)="D LN^ORU4" ^ORD(100.23,1011,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,29,0)="S X=$$S^ORU4(0,.CCNT,""""_""ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________"",.CCNT)" ^ORD(100.23,1011,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,31,0)="D LN^ORU4" ^ORD(100.23,1011,4,32,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,33,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1011,4,34,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,35,0)="D LN^ORU4" ^ORD(100.23,1011,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,37,0)="S X=$$S^ORU4(0,.CCNT,""PATIENT'S ID.: ""_$$NAME^ORU4($G(ORPNAME),""LAST, FIRST MI"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1011,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,39,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,40,0)="S X=$$S^ORU4(51,.CCNT,""""_""CONSULTATION SHEET"",.CCNT)" ^ORD(100.23,1011,4,41,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,42,0)="D LN^ORU4" ^ORD(100.23,1011,4,43,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,44,0)="S X=$$S^ORU4(15,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,15,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1011,4,45,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,46,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,47,0)="S X=$$S^ORU4(51,.CCNT,""""_""STANDARD FORM 513 (Rev 9-77)"",.CCNT)" ^ORD(100.23,1011,4,48,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,49,0)="D LN^ORU4" ^ORD(100.23,1011,4,50,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,51,0)="S X=$$S^ORU4(15,.CCNT,""""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1011,4,52,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,53,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,54,0)="S X=$$S^ORU4(25,.CCNT,""""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1011,4,55,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,56,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,57,0)="S X=$$S^ORU4(51,.CCNT,""""_""Prescribed by GSA/ICMR"",.CCNT)" ^ORD(100.23,1011,4,58,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,59,0)="D LN^ORU4" ^ORD(100.23,1011,4,60,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,61,0)="S X=$$S^ORU4(51,.CCNT,""""_""FIRNIR (41 CFR) 201-45.505"",.CCNT)" ^ORD(100.23,1011,4,62,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,63,0)="D LN^ORU4" ^ORD(100.23,1011,4,64,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1011,4,65,0)="S X=$$S^ORU4(51,.CCNT,""""_""513-108"",.CCNT)" ^ORD(100.23,1011,4,66,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1011,4,67,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED" ^ORD(100.23,1012,0)="CONSULTATION HEADER^3" ^ORD(100.23,1012,1,0)="^100.231PI^3^3" ^ORD(100.23,1012,1,1,0)="1014^2^1^^ MEDICAL RECORD | CONSULTATION SHEET" ^ORD(100.23,1012,1,2,0)="1029^1^1^NONE" ^ORD(100.23,1012,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1012,1,"B",1014,1)="" ^ORD(100.23,1012,1,"B",1029,2)="" ^ORD(100.23,1012,1,"B",1029,3)="" ^ORD(100.23,1012,2,0)="^^5^6^3010926" ^ORD(100.23,1012,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1012,2,2,0)="W !?0,"""","" MEDICAL RECORD | CONSULTATION SHEET""" ^ORD(100.23,1012,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1012,2,5,0)="K X,ORPLINE,ORPLINE" ^ORD(100.23,1012,4,0)="^^12^12^3010926" ^ORD(100.23,1012,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1012,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1012,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1012,4,4,0)="D LN^ORU4" ^ORD(100.23,1012,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1012,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_"" MEDICAL RECORD | CONSULTATION SHEET"",.CCNT)" ^ORD(100.23,1012,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1012,4,8,0)="D LN^ORU4" ^ORD(100.23,1012,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1012,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1012,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1012,4,12,0)="K X,ORPLINE,ORPLINE" ^ORD(100.23,1013,0)="CONSULTATION BODY^18" ^ORD(100.23,1013,1,0)="^100.231PI^43^24" ^ORD(100.23,1013,1,2,0)="1039^1^1^NONE" ^ORD(100.23,1013,1,5,0)="1013^3^58^| REQUESTED: ^^MM/DD/CCYY" ^ORD(100.23,1013,1,8,0)="1006^3^29^| FROM: " ^ORD(100.23,1013,1,10,0)="1036^3^1^TO: " ^ORD(100.23,1013,1,13,0)="1014^13^30^^CONSULTATION REPORT" ^ORD(100.23,1013,1,15,0)="1014^10^1^^REQUESTED BY:" ^ORD(100.23,1013,1,16,0)="1014^10^32^^| APPROVED:" ^ORD(100.23,1013,1,22,0)="1026^11^1^NONE" ^ORD(100.23,1013,1,25,0)="1014^10^44^^| PLACE:" ^ORD(100.23,1013,1,26,0)="1014^10^64^^| URGENCY:" ^ORD(100.23,1013,1,28,0)="1014^11^32^^| _________" ^ORD(100.23,1013,1,30,0)="1034^6^1^NONE^^78" ^ORD(100.23,1013,1,32,0)="1014^5^1^^REASON FOR REQUEST (Complaints and findings)" ^ORD(100.23,1013,1,33,0)="1029^2^1^NONE" ^ORD(100.23,1013,1,34,0)="1029^4^1^NONE" ^ORD(100.23,1013,1,35,0)="1029^7^1^NONE" ^ORD(100.23,1013,1,36,0)="1035^8^1^PROVISIONAL DIAG: " ^ORD(100.23,1013,1,37,0)="1029^9^1^NONE" ^ORD(100.23,1013,1,38,0)="1029^12^1^NONE" ^ORD(100.23,1013,1,39,0)="1029^14^1^NONE" ^ORD(100.23,1013,1,40,0)="1037^11^44^| " ^ORD(100.23,1013,1,41,0)="1038^11^64^| " ^ORD(100.23,1013,1,42,0)="1007^10^15^NONE^^LAST, FI MI" ^ORD(100.23,1013,1,43,0)="1041^1^20^NONE" ^ORD(100.23,1013,1,"B",1006,8)="" ^ORD(100.23,1013,1,"B",1007,42)="" ^ORD(100.23,1013,1,"B",1013,5)="" ^ORD(100.23,1013,1,"B",1014,13)="" ^ORD(100.23,1013,1,"B",1014,15)="" ^ORD(100.23,1013,1,"B",1014,16)="" ^ORD(100.23,1013,1,"B",1014,25)="" ^ORD(100.23,1013,1,"B",1014,26)="" ^ORD(100.23,1013,1,"B",1014,28)="" ^ORD(100.23,1013,1,"B",1014,32)="" ^ORD(100.23,1013,1,"B",1026,22)="" ^ORD(100.23,1013,1,"B",1029,33)="" ^ORD(100.23,1013,1,"B",1029,34)="" ^ORD(100.23,1013,1,"B",1029,35)="" ^ORD(100.23,1013,1,"B",1029,37)="" ^ORD(100.23,1013,1,"B",1029,38)="" ^ORD(100.23,1013,1,"B",1029,39)="" ^ORD(100.23,1013,1,"B",1034,30)="" ^ORD(100.23,1013,1,"B",1035,36)="" ^ORD(100.23,1013,1,"B",1036,10)="" ^ORD(100.23,1013,1,"B",1037,40)="" ^ORD(100.23,1013,1,"B",1038,41)="" ^ORD(100.23,1013,1,"B",1039,2)="" ^ORD(100.23,1013,1,"B",1041,43)="" ^ORD(100.23,1013,2,0)="^^30^31^3010926" ^ORD(100.23,1013,2,1,0)="W ?0,"""",$G(ORPCTYPE)" ^ORD(100.23,1013,2,2,0)="W ?19,"""",$G(ORPCPROC)" ^ORD(100.23,1013,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,4,0)="W !?0,""TO: "",$G(ORPCTO)" ^ORD(100.23,1013,2,5,0)="W ?28,""| FROM: "",$G(ORPRLOC)" ^ORD(100.23,1013,2,6,0)="W ?57,""| REQUESTED: "",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY"")" ^ORD(100.23,1013,2,7,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,8,0)="W !?0,"""",""REASON FOR REQUEST (Complaints and findings)""" ^ORD(100.23,1013,2,9,0)="W !?0,"""",$$WORD^ORU($G(OROOT3),""78"")" ^ORD(100.23,1013,2,10,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,11,0)="W !?0,""PROVISIONAL DIAG: "",$G(ORPDX)" ^ORD(100.23,1013,2,12,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,13,0)="W !?0,"""",""REQUESTED BY:""" ^ORD(100.23,1013,2,14,0)="W ?14,"""",$$NAME^ORU($G(ORPRPHY),""LAST, FI MI"")" ^ORD(100.23,1013,2,15,0)="W ?31,"""",""| APPROVED:""" ^ORD(100.23,1013,2,16,0)="W ?43,"""",""| PLACE:""" ^ORD(100.23,1013,2,17,0)="W ?63,"""",""| URGENCY:""" ^ORD(100.23,1013,2,18,0)="W !?0,"""",$G(ORPES)" ^ORD(100.23,1013,2,19,0)="W ?31,"""",""| _________""" ^ORD(100.23,1013,2,20,0)="W ?43,""| "",$G(ORPLACE)" ^ORD(100.23,1013,2,21,0)="W ?63,""| "",$G(ORPCURG)" ^ORD(100.23,1013,2,22,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,23,0)="W !?29,"""",""CONSULTATION REPORT""" ^ORD(100.23,1013,2,24,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1013,2,25,0)="W !" ^ORD(100.23,1013,2,26,0)="W !" ^ORD(100.23,1013,2,27,0)="W !" ^ORD(100.23,1013,2,28,0)="W !" ^ORD(100.23,1013,2,30,0)="K X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE" ^ORD(100.23,1013,4,0)="^^90^90^3010926" ^ORD(100.23,1013,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPCTYPE),.CCNT)" ^ORD(100.23,1013,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,5,0)="S X=$$S^ORU4(19,.CCNT,""""_$G(ORPCPROC),.CCNT)" ^ORD(100.23,1013,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,7,0)="D LN^ORU4" ^ORD(100.23,1013,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,9,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,11,0)="D LN^ORU4" ^ORD(100.23,1013,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,13,0)="S X=$$S^ORU4(0,.CCNT,""TO: ""_$G(ORPCTO),.CCNT)" ^ORD(100.23,1013,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,16,0)="S X=$$S^ORU4(28,.CCNT,""| FROM: ""_$G(ORPRLOC),.CCNT)" ^ORD(100.23,1013,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,18,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,19,0)="S X=$$S^ORU4(57,.CCNT,""| REQUESTED: ""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1013,4,20,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,21,0)="D LN^ORU4" ^ORD(100.23,1013,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,23,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,25,0)="D LN^ORU4" ^ORD(100.23,1013,4,26,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,27,0)="S X=$$S^ORU4(0,.CCNT,""""_""REASON FOR REQUEST (Complaints and findings)"",.CCNT)" ^ORD(100.23,1013,4,28,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,29,0)="D LN^ORU4" ^ORD(100.23,1013,4,30,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,31,0)="S X=$$S^ORU4(0,.CCNT,""""_$$WORD^ORU4($G(OROOT3),""78"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1013,4,32,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,33,0)="D LN^ORU4" ^ORD(100.23,1013,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,35,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,37,0)="D LN^ORU4" ^ORD(100.23,1013,4,38,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,39,0)="S X=$$S^ORU4(0,.CCNT,""PROVISIONAL DIAG: ""_$G(ORPDX),.CCNT)" ^ORD(100.23,1013,4,40,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,41,0)="D LN^ORU4" ^ORD(100.23,1013,4,42,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,43,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,44,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,45,0)="D LN^ORU4" ^ORD(100.23,1013,4,46,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,47,0)="S X=$$S^ORU4(0,.CCNT,""""_""REQUESTED BY:"",.CCNT)" ^ORD(100.23,1013,4,48,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,49,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,50,0)="S X=$$S^ORU4(14,.CCNT,""""_$$NAME^ORU4($G(ORPRPHY),""LAST, FI MI"",.ORHOOT,14,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1013,4,51,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,52,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,53,0)="S X=$$S^ORU4(31,.CCNT,""""_""| APPROVED:"",.CCNT)" ^ORD(100.23,1013,4,54,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,55,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,56,0)="S X=$$S^ORU4(43,.CCNT,""""_""| PLACE:"",.CCNT)" ^ORD(100.23,1013,4,57,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,58,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,59,0)="S X=$$S^ORU4(63,.CCNT,""""_""| URGENCY:"",.CCNT)" ^ORD(100.23,1013,4,60,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,61,0)="D LN^ORU4" ^ORD(100.23,1013,4,62,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,63,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1013,4,64,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,65,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,66,0)="S X=$$S^ORU4(31,.CCNT,""""_""| _________"",.CCNT)" ^ORD(100.23,1013,4,67,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,68,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,69,0)="S X=$$S^ORU4(43,.CCNT,""| ""_$G(ORPLACE),.CCNT)" ^ORD(100.23,1013,4,70,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,71,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,72,0)="S X=$$S^ORU4(63,.CCNT,""| ""_$G(ORPCURG),.CCNT)" ^ORD(100.23,1013,4,73,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,74,0)="D LN^ORU4" ^ORD(100.23,1013,4,75,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,76,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,77,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,78,0)="D LN^ORU4" ^ORD(100.23,1013,4,79,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,80,0)="S X=$$S^ORU4(29,.CCNT,""""_""CONSULTATION REPORT"",.CCNT)" ^ORD(100.23,1013,4,81,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,82,0)="D LN^ORU4" ^ORD(100.23,1013,4,83,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1013,4,84,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1013,4,85,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1013,4,86,0)="D LN^ORU4" ^ORD(100.23,1013,4,87,0)="D LN^ORU4" ^ORD(100.23,1013,4,88,0)="D LN^ORU4" ^ORD(100.23,1013,4,89,0)="D LN^ORU4" ^ORD(100.23,1013,4,90,0)="K X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE" ^ORD(100.23,1015,0)="CHART COPY BODY^2" ^ORD(100.23,1015,1,0)="^100.231PI^8^3" ^ORD(100.23,1015,1,6,0)="1013^1^1^NONE^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1015,1,7,0)="1014^1^60^NONE^____________________" ^ORD(100.23,1015,1,8,0)="1010^1^19^NONE^^36" ^ORD(100.23,1015,1,"B",1010,8)="" ^ORD(100.23,1015,1,"B",1013,6)="" ^ORD(100.23,1015,1,"B",1014,7)="" ^ORD(100.23,1015,2,0)="^^6^7^3010926" ^ORD(100.23,1015,2,1,0)="W ?0,"""",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1015,2,2,0)="W ?18,"""",$$TMPWRAP^ORU($G(OROOT),""36"")" ^ORD(100.23,1015,2,3,0)="W ?59,"""",""____________________""" ^ORD(100.23,1015,2,4,0)="W !" ^ORD(100.23,1015,2,6,0)="K X,ORPODT,OROOT" ^ORD(100.23,1015,4,0)="^^11^11^3010926" ^ORD(100.23,1015,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1015,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1015,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1015,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1015,4,5,0)="S X=$$S^ORU4(18,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""36"",.ORHOOT,18,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1015,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1015,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1015,4,8,0)="S X=$$S^ORU4(59,.CCNT,""""_""____________________"",.CCNT)" ^ORD(100.23,1015,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1015,4,10,0)="D LN^ORU4" ^ORD(100.23,1015,4,11,0)="K X,ORPODT,OROOT" ^ORD(100.23,1016,0)="DOCTORS ORDERS FOOTER^8" ^ORD(100.23,1016,1,0)="^100.231PI^18^14" ^ORD(100.23,1016,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1016,1,2,0)="1001^3^2^NONE^^LAST, FIRST MI" ^ORD(100.23,1016,1,3,0)="1002^3^29^NONE" ^ORD(100.23,1016,1,4,0)="1014^4^45^NONE^|" ^ORD(100.23,1016,1,5,0)="1009^4^4^Loc: " ^ORD(100.23,1016,1,6,0)="1014^5^45^NONE^| D O C T O R ' S O R D E R S" ^ORD(100.23,1016,1,7,0)="1014^6^45^NONE^|" ^ORD(100.23,1016,1,8,0)="1014^7^45^NONE^| VA FORM 10-1158" ^ORD(100.23,1016,1,9,0)="1014^8^45^NONE^|__________________________________" ^ORD(100.23,1016,1,10,0)="1014^2^45^^|" ^ORD(100.23,1016,1,15,0)="1033^4^28^^^MM/DD/CCYY" ^ORD(100.23,1016,1,16,0)="1014^3^45^^| MEDICAL RECORD" ^ORD(100.23,1016,1,17,0)="1074^7^3" ^ORD(100.23,1016,1,18,0)="1008^5^4^Room/Bed:^^^0" ^ORD(100.23,1016,1,"B",1001,2)="" ^ORD(100.23,1016,1,"B",1002,3)="" ^ORD(100.23,1016,1,"B",1008,18)="" ^ORD(100.23,1016,1,"B",1009,5)="" ^ORD(100.23,1016,1,"B",1014,4)="" ^ORD(100.23,1016,1,"B",1014,6)="" ^ORD(100.23,1016,1,"B",1014,7)="" ^ORD(100.23,1016,1,"B",1014,8)="" ^ORD(100.23,1016,1,"B",1014,9)="" ^ORD(100.23,1016,1,"B",1014,10)="" ^ORD(100.23,1016,1,"B",1014,16)="" ^ORD(100.23,1016,1,"B",1029,1)="" ^ORD(100.23,1016,1,"B",1033,15)="" ^ORD(100.23,1016,1,"B",1074,17)="" ^ORD(100.23,1016,2,0)="^^16^17^3010926" ^ORD(100.23,1016,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1016,2,2,0)="W !?44,"""",""|""" ^ORD(100.23,1016,2,3,0)="W !?1,"""",$$NAME^ORU($G(ORPNAME),""LAST, FIRST MI"")" ^ORD(100.23,1016,2,4,0)="W ?28,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1016,2,5,0)="W ?44,"""",""| MEDICAL RECORD""" ^ORD(100.23,1016,2,6,0)="W !?3,""Loc: "",$G(ORPLOC)" ^ORD(100.23,1016,2,7,0)="W ?27,""Date: "",$$DATE^ORU($G(ORPDT),""MM/DD/CCYY"")" ^ORD(100.23,1016,2,8,0)="W ?44,"""",""|""" ^ORD(100.23,1016,2,9,0)="W !?3,""Room/Bed:"",$G(ORPRMBED)" ^ORD(100.23,1016,2,10,0)="W ?44,"""",""| D O C T O R ' S O R D E R S""" ^ORD(100.23,1016,2,11,0)="W !?44,"""",""|""" ^ORD(100.23,1016,2,12,0)="W !?2,"""",$G(ORPMAN)" ^ORD(100.23,1016,2,13,0)="W ?44,"""",""| VA FORM 10-1158""" ^ORD(100.23,1016,2,14,0)="W !?44,"""",""|__________________________________""" ^ORD(100.23,1016,2,16,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN" ^ORD(100.23,1016,4,0)="^^50^50^3010926" ^ORD(100.23,1016,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1016,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,4,0)="D LN^ORU4" ^ORD(100.23,1016,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,6,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1016,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,8,0)="D LN^ORU4" ^ORD(100.23,1016,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,10,0)="S X=$$S^ORU4(1,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),""LAST, FIRST MI"",.ORHOOT,1,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1016,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,13,0)="S X=$$S^ORU4(28,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,28,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1016,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,16,0)="S X=$$S^ORU4(44,.CCNT,""""_""| MEDICAL RECORD"",.CCNT)" ^ORD(100.23,1016,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,18,0)="D LN^ORU4" ^ORD(100.23,1016,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,20,0)="S X=$$S^ORU4(3,.CCNT,""Loc: ""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1016,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,23,0)="S X=$$S^ORU4(27,.CCNT,""Date: ""_$$DATE^ORU4($G(ORPDT),""MM/DD/CCYY"",.ORHOOT,27,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1016,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,26,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1016,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,28,0)="D LN^ORU4" ^ORD(100.23,1016,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,30,0)="S X=$$S^ORU4(3,.CCNT,""Room/Bed:""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1016,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,32,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,33,0)="S X=$$S^ORU4(44,.CCNT,""""_""| D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1016,4,34,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,35,0)="D LN^ORU4" ^ORD(100.23,1016,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,37,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1016,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,39,0)="D LN^ORU4" ^ORD(100.23,1016,4,40,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,41,0)="S X=$$S^ORU4(2,.CCNT,""""_$G(ORPMAN),.CCNT)" ^ORD(100.23,1016,4,42,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,43,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,44,0)="S X=$$S^ORU4(44,.CCNT,""""_""| VA FORM 10-1158"",.CCNT)" ^ORD(100.23,1016,4,45,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,46,0)="D LN^ORU4" ^ORD(100.23,1016,4,47,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1016,4,48,0)="S X=$$S^ORU4(44,.CCNT,""""_""|__________________________________"",.CCNT)" ^ORD(100.23,1016,4,49,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1016,4,50,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN" ^ORD(100.23,1017,0)="DOCTOR'S ORDERS HEADER^8" ^ORD(100.23,1017,1,0)="^100.231PI^11^8" ^ORD(100.23,1017,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1017,1,2,0)="1014^5^1^NONE^Date and time for instituting and discontinuing the orders must be recorded" ^ORD(100.23,1017,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1017,1,4,0)="1014^4^1^NONE^NOTE: Physician's signature must accompany each entry including standing orders" ^ORD(100.23,1017,1,6,0)="1029^6^1^NONE" ^ORD(100.23,1017,1,9,0)="1014^7^2^^DATE & TIME | O R D E R S | SIGNATURES" ^ORD(100.23,1017,1,10,0)="1029^8^1^NONE" ^ORD(100.23,1017,1,11,0)="1014^2^1^NONE^ MEDICAL RECORD | D O C T O R ' S O R D E R S" ^ORD(100.23,1017,1,"B",1014,2)="" ^ORD(100.23,1017,1,"B",1014,4)="" ^ORD(100.23,1017,1,"B",1014,9)="" ^ORD(100.23,1017,1,"B",1014,11)="" ^ORD(100.23,1017,1,"B",1029,1)="" ^ORD(100.23,1017,1,"B",1029,3)="" ^ORD(100.23,1017,1,"B",1029,6)="" ^ORD(100.23,1017,1,"B",1029,10)="" ^ORD(100.23,1017,2,0)="^^10^11^3010926" ^ORD(100.23,1017,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1017,2,2,0)="W !?0,"""","" MEDICAL RECORD | D O C T O R ' S O R D E R S""" ^ORD(100.23,1017,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1017,2,4,0)="W !?0,"""",""NOTE: Physician's signature must accompany each entry including standing orders""" ^ORD(100.23,1017,2,5,0)="W !?0,"""",""Date and time for instituting and discontinuing the orders must be recorded""" ^ORD(100.23,1017,2,6,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1017,2,7,0)="W !?1,"""",""DATE & TIME | O R D E R S | SIGNATURES""" ^ORD(100.23,1017,2,8,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1017,2,10,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1017,4,0)="^^32^32^3010926" ^ORD(100.23,1017,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1017,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,4,0)="D LN^ORU4" ^ORD(100.23,1017,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_"" MEDICAL RECORD | D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1017,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,8,0)="D LN^ORU4" ^ORD(100.23,1017,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1017,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,12,0)="D LN^ORU4" ^ORD(100.23,1017,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,14,0)="S X=$$S^ORU4(0,.CCNT,""""_""NOTE: Physician's signature must accompany each entry including standing orders"",.CCNT)" ^ORD(100.23,1017,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,16,0)="D LN^ORU4" ^ORD(100.23,1017,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_""Date and time for instituting and discontinuing the orders must be recorded"",.CCNT)" ^ORD(100.23,1017,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,20,0)="D LN^ORU4" ^ORD(100.23,1017,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,22,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1017,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,24,0)="D LN^ORU4" ^ORD(100.23,1017,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,26,0)="S X=$$S^ORU4(1,.CCNT,""""_""DATE & TIME | O R D E R S | SIGNATURES"",.CCNT)" ^ORD(100.23,1017,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,28,0)="D LN^ORU4" ^ORD(100.23,1017,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1017,4,30,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1017,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1017,4,32,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1018,0)="LAB SERVICE COPY HEADER^5" ^ORD(100.23,1018,1,0)="^100.231PI^5^5" ^ORD(100.23,1018,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1018,1,2,0)="1014^2^2^NONE^SERVICE COPY | L A B O R A T O R Y S E R V I C E" ^ORD(100.23,1018,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1018,1,4,0)="1014^4^2^NONE^Status Item Ordered Ord'd Requestor Start" ^ORD(100.23,1018,1,5,0)="1029^5^1^NONE" ^ORD(100.23,1018,1,"B",1014,2)="" ^ORD(100.23,1018,1,"B",1014,4)="" ^ORD(100.23,1018,1,"B",1029,1)="" ^ORD(100.23,1018,1,"B",1029,3)="" ^ORD(100.23,1018,1,"B",1029,5)="" ^ORD(100.23,1018,2,0)="^^7^8^3010926" ^ORD(100.23,1018,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1018,2,2,0)="W !?1,"""",""SERVICE COPY | L A B O R A T O R Y S E R V I C E""" ^ORD(100.23,1018,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1018,2,4,0)="W !?1,"""",""Status Item Ordered Ord'd Requestor Start""" ^ORD(100.23,1018,2,5,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1018,2,7,0)="K X,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1018,4,0)="^^20^20^3010926" ^ORD(100.23,1018,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1018,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1018,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1018,4,4,0)="D LN^ORU4" ^ORD(100.23,1018,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1018,4,6,0)="S X=$$S^ORU4(1,.CCNT,""""_""SERVICE COPY | L A B O R A T O R Y S E R V I C E"",.CCNT)" ^ORD(100.23,1018,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1018,4,8,0)="D LN^ORU4" ^ORD(100.23,1018,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1018,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1018,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1018,4,12,0)="D LN^ORU4" ^ORD(100.23,1018,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1018,4,14,0)="S X=$$S^ORU4(1,.CCNT,""""_""Status Item Ordered Ord'd Requestor Start"",.CCNT)" ^ORD(100.23,1018,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1018,4,16,0)="D LN^ORU4" ^ORD(100.23,1018,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1018,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1018,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1018,4,20,0)="K X,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1019,0)="RX HEADER^9" ^ORD(100.23,1019,1,0)="^100.231PI^11^8" ^ORD(100.23,1019,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1019,1,2,0)="1014^5^1^NONE^Date and time for instituting and discontinuing the orders must be recorded" ^ORD(100.23,1019,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1019,1,4,0)="1014^4^1^NONE^NOTE: Physician's signature must accompany each entry including standing orders" ^ORD(100.23,1019,1,6,0)="1029^6^1^NONE" ^ORD(100.23,1019,1,9,0)="1014^7^1^^DATE & TIME | O R D E R S | SIGNATURES" ^ORD(100.23,1019,1,10,0)="1029^8^1^NONE" ^ORD(100.23,1019,1,11,0)="1014^2^4^NONE^PHARMACY COPY | D O C T O R ' S O R D E R S" ^ORD(100.23,1019,1,"B",1014,2)="" ^ORD(100.23,1019,1,"B",1014,4)="" ^ORD(100.23,1019,1,"B",1014,9)="" ^ORD(100.23,1019,1,"B",1014,11)="" ^ORD(100.23,1019,1,"B",1029,1)="" ^ORD(100.23,1019,1,"B",1029,3)="" ^ORD(100.23,1019,1,"B",1029,6)="" ^ORD(100.23,1019,1,"B",1029,10)="" ^ORD(100.23,1019,2,0)="^^11^12^3010926" ^ORD(100.23,1019,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1019,2,2,0)="W !?3,"""",""PHARMACY COPY | D O C T O R ' S O R D E R S""" ^ORD(100.23,1019,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1019,2,4,0)="W !?0,"""",""NOTE: Physician's signature must accompany each entry including standing orders""" ^ORD(100.23,1019,2,5,0)="W !?0,"""",""Date and time for instituting and discontinuing the orders must be recorded""" ^ORD(100.23,1019,2,6,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1019,2,7,0)="W !?0,"""",""DATE & TIME | O R D E R S | SIGNATURES""" ^ORD(100.23,1019,2,8,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1019,2,9,0)="W !" ^ORD(100.23,1019,2,11,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1019,4,0)="^^33^33^3010926" ^ORD(100.23,1019,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1019,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,4,0)="D LN^ORU4" ^ORD(100.23,1019,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,6,0)="S X=$$S^ORU4(3,.CCNT,""""_""PHARMACY COPY | D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1019,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,8,0)="D LN^ORU4" ^ORD(100.23,1019,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1019,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,12,0)="D LN^ORU4" ^ORD(100.23,1019,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,14,0)="S X=$$S^ORU4(0,.CCNT,""""_""NOTE: Physician's signature must accompany each entry including standing orders"",.CCNT)" ^ORD(100.23,1019,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,16,0)="D LN^ORU4" ^ORD(100.23,1019,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_""Date and time for instituting and discontinuing the orders must be recorded"",.CCNT)" ^ORD(100.23,1019,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,20,0)="D LN^ORU4" ^ORD(100.23,1019,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,22,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1019,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,24,0)="D LN^ORU4" ^ORD(100.23,1019,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,26,0)="S X=$$S^ORU4(0,.CCNT,""""_""DATE & TIME | O R D E R S | SIGNATURES"",.CCNT)" ^ORD(100.23,1019,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,28,0)="D LN^ORU4" ^ORD(100.23,1019,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1019,4,30,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1019,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1019,4,32,0)="D LN^ORU4" ^ORD(100.23,1019,4,33,0)="K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1020,0)="LAB LABEL (Buffalo)^6^^^1" ^ORD(100.23,1020,1,0)="^100.231PI^14^14" ^ORD(100.23,1020,1,1,0)="1001^1^1^NONE" ^ORD(100.23,1020,1,2,0)="1001^1^58^NONE" ^ORD(100.23,1020,1,3,0)="1002^2^1^NONE" ^ORD(100.23,1020,1,4,0)="1002^2^58^NONE" ^ORD(100.23,1020,1,5,0)="1007^3^1" ^ORD(100.23,1020,1,6,0)="1014^5^58^Drawn By:^Date/time:" ^ORD(100.23,1020,1,7,0)="1019^4^1" ^ORD(100.23,1020,1,8,0)="1008^1^35" ^ORD(100.23,1020,1,9,0)="1009^3^35^LOC:" ^ORD(100.23,1020,1,10,0)="1018^3^58^^^70" ^ORD(100.23,1020,1,11,0)="1018^5^1^^^70" ^ORD(100.23,1020,1,12,0)="1017^2^22" ^ORD(100.23,1020,1,13,0)="1017^2^80" ^ORD(100.23,1020,1,14,0)="1014^4^58^^DRAWN BY:" ^ORD(100.23,1020,1,"B",1001,1)="" ^ORD(100.23,1020,1,"B",1001,2)="" ^ORD(100.23,1020,1,"B",1002,3)="" ^ORD(100.23,1020,1,"B",1002,4)="" ^ORD(100.23,1020,1,"B",1007,5)="" ^ORD(100.23,1020,1,"B",1008,8)="" ^ORD(100.23,1020,1,"B",1009,9)="" ^ORD(100.23,1020,1,"B",1014,6)="" ^ORD(100.23,1020,1,"B",1014,14)="" ^ORD(100.23,1020,1,"B",1017,12)="" ^ORD(100.23,1020,1,"B",1017,13)="" ^ORD(100.23,1020,1,"B",1018,10)="" ^ORD(100.23,1020,1,"B",1018,11)="" ^ORD(100.23,1020,1,"B",1019,7)="" ^ORD(100.23,1020,2,0)="^^17^18^3010926" ^ORD(100.23,1020,2,1,0)="W ?0,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1020,2,2,0)="W ?34,""RM/Bed: "",$G(ORPRMBED)" ^ORD(100.23,1020,2,3,0)="W ?57,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1020,2,4,0)="W !?0,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1020,2,5,0)="W ?21,""LB #"",$G(ORPLB)" ^ORD(100.23,1020,2,6,0)="W ?57,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1020,2,7,0)="W ?79,""LB #"",$G(ORPLB)" ^ORD(100.23,1020,2,8,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1020,2,9,0)="W ?34,""LOC:"",$G(ORPLOC)" ^ORD(100.23,1020,2,10,0)="W ?57,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1020,2,11,0)="W !?0,""Urgency: "",$G(ORPURG)" ^ORD(100.23,1020,2,12,0)="W ?57,"""",""DRAWN BY:""" ^ORD(100.23,1020,2,13,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1020,2,14,0)="W ?57,"""",""Date/time:""" ^ORD(100.23,1020,2,15,0)="W !" ^ORD(100.23,1020,2,17,0)="K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2" ^ORD(100.23,1020,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NWDC"",""WCSPIC"")" ^ORD(100.23,1020,4,0)="^^48^48^3010926" ^ORD(100.23,1020,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,5,0)="S X=$$S^ORU4(34,.CCNT,""RM/Bed: ""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1020,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,8,0)="S X=$$S^ORU4(57,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,10,0)="D LN^ORU4" ^ORD(100.23,1020,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,12,0)="S X=$$S^ORU4(0,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,15,0)="S X=$$S^ORU4(21,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1020,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,18,0)="S X=$$S^ORU4(57,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,21,0)="S X=$$S^ORU4(79,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1020,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,23,0)="D LN^ORU4" ^ORD(100.23,1020,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,25,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,28,0)="S X=$$S^ORU4(34,.CCNT,""LOC:""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1020,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,30,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,31,0)="S X=$$S^ORU4(57,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,32,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,33,0)="D LN^ORU4" ^ORD(100.23,1020,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,35,0)="S X=$$S^ORU4(0,.CCNT,""Urgency: ""_$G(ORPURG),.CCNT)" ^ORD(100.23,1020,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,37,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,38,0)="S X=$$S^ORU4(57,.CCNT,""""_""DRAWN BY:"",.CCNT)" ^ORD(100.23,1020,4,39,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,40,0)="D LN^ORU4" ^ORD(100.23,1020,4,41,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,42,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1020,4,43,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1020,4,45,0)="S X=$$S^ORU4(57,.CCNT,""""_""Date/time:"",.CCNT)" ^ORD(100.23,1020,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1020,4,47,0)="D LN^ORU4" ^ORD(100.23,1020,4,48,0)="K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2" ^ORD(100.23,1021,0)="RX FOOTER^8" ^ORD(100.23,1021,1,0)="^100.231PI^18^13" ^ORD(100.23,1021,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1021,1,2,0)="1001^3^2^NONE^^LAST, FIRST MI" ^ORD(100.23,1021,1,3,0)="1002^3^29^NONE" ^ORD(100.23,1021,1,4,0)="1014^4^45^NONE^|" ^ORD(100.23,1021,1,5,0)="1009^4^4^Loc: " ^ORD(100.23,1021,1,6,0)="1014^5^45^NONE^| D O C T O R ' S O R D E R S" ^ORD(100.23,1021,1,7,0)="1014^6^45^NONE^|" ^ORD(100.23,1021,1,8,0)="1014^7^45^NONE^| VA FORM 10-1158" ^ORD(100.23,1021,1,9,0)="1014^8^45^NONE^|__________________________________" ^ORD(100.23,1021,1,10,0)="1014^2^45^^|" ^ORD(100.23,1021,1,16,0)="1014^3^45^^| PHARMACY COPY" ^ORD(100.23,1021,1,17,0)="1008^5^4^Room/Bed: " ^ORD(100.23,1021,1,18,0)="1033^4^28" ^ORD(100.23,1021,1,"B",1001,2)="" ^ORD(100.23,1021,1,"B",1002,3)="" ^ORD(100.23,1021,1,"B",1008,17)="" ^ORD(100.23,1021,1,"B",1009,5)="" ^ORD(100.23,1021,1,"B",1014,4)="" ^ORD(100.23,1021,1,"B",1014,6)="" ^ORD(100.23,1021,1,"B",1014,7)="" ^ORD(100.23,1021,1,"B",1014,8)="" ^ORD(100.23,1021,1,"B",1014,9)="" ^ORD(100.23,1021,1,"B",1014,10)="" ^ORD(100.23,1021,1,"B",1014,16)="" ^ORD(100.23,1021,1,"B",1029,1)="" ^ORD(100.23,1021,1,"B",1033,18)="" ^ORD(100.23,1021,2,0)="^^15^16^3010926" ^ORD(100.23,1021,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1021,2,2,0)="W !?44,"""",""|""" ^ORD(100.23,1021,2,3,0)="W !?1,"""",$$NAME^ORU($G(ORPNAME),""LAST, FIRST MI"")" ^ORD(100.23,1021,2,4,0)="W ?28,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1021,2,5,0)="W ?44,"""",""| PHARMACY COPY""" ^ORD(100.23,1021,2,6,0)="W !?3,""Loc: "",$G(ORPLOC)" ^ORD(100.23,1021,2,7,0)="W ?27,""Date: "",$$DATE^ORU($G(ORPDT),"""")" ^ORD(100.23,1021,2,8,0)="W ?44,"""",""|""" ^ORD(100.23,1021,2,9,0)="W !?3,""Room/Bed: "",$G(ORPRMBED)" ^ORD(100.23,1021,2,10,0)="W ?44,"""",""| D O C T O R ' S O R D E R S""" ^ORD(100.23,1021,2,11,0)="W !?44,"""",""|""" ^ORD(100.23,1021,2,12,0)="W !?44,"""",""| VA FORM 10-1158""" ^ORD(100.23,1021,2,13,0)="W !?44,"""",""|__________________________________""" ^ORD(100.23,1021,2,15,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED" ^ORD(100.23,1021,4,0)="^^47^47^3010926" ^ORD(100.23,1021,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1021,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,4,0)="D LN^ORU4" ^ORD(100.23,1021,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,6,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1021,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,8,0)="D LN^ORU4" ^ORD(100.23,1021,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,10,0)="S X=$$S^ORU4(1,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),""LAST, FIRST MI"",.ORHOOT,1,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1021,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,13,0)="S X=$$S^ORU4(28,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,28,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1021,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,16,0)="S X=$$S^ORU4(44,.CCNT,""""_""| PHARMACY COPY"",.CCNT)" ^ORD(100.23,1021,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,18,0)="D LN^ORU4" ^ORD(100.23,1021,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,20,0)="S X=$$S^ORU4(3,.CCNT,""Loc: ""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1021,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,23,0)="S X=$$S^ORU4(27,.CCNT,""Date: ""_$$DATE^ORU4($G(ORPDT),"""",.ORHOOT,27,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1021,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,26,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1021,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,28,0)="D LN^ORU4" ^ORD(100.23,1021,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,30,0)="S X=$$S^ORU4(3,.CCNT,""Room/Bed: ""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1021,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,32,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,33,0)="S X=$$S^ORU4(44,.CCNT,""""_""| D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1021,4,34,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,35,0)="D LN^ORU4" ^ORD(100.23,1021,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,37,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1021,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,39,0)="D LN^ORU4" ^ORD(100.23,1021,4,40,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,41,0)="S X=$$S^ORU4(44,.CCNT,""""_""| VA FORM 10-1158"",.CCNT)" ^ORD(100.23,1021,4,42,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,43,0)="D LN^ORU4" ^ORD(100.23,1021,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1021,4,45,0)="S X=$$S^ORU4(44,.CCNT,""""_""|__________________________________"",.CCNT)" ^ORD(100.23,1021,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1021,4,47,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED" ^ORD(100.23,1022,0)="GENERIC ORDER LABEL^6^80" ^ORD(100.23,1022,1,0)="^100.231PI^22^9" ^ORD(100.23,1022,1,4,0)="1001^1^41^NONE^^LAST,FIRST MI" ^ORD(100.23,1022,1,6,0)="1002^2^41^NONE" ^ORD(100.23,1022,1,7,0)="1009^4^58^NONE" ^ORD(100.23,1022,1,8,0)="1008^3^58^NONE" ^ORD(100.23,1022,1,12,0)="1007^4^1^^^^1" ^ORD(100.23,1022,1,13,0)="1011^1^1^Start Date: ^^MM/DD/CCYY^1" ^ORD(100.23,1022,1,20,0)="1010^2^1^NONE^^38^1" ^ORD(100.23,1022,1,21,0)="1005^2^55^NONE" ^ORD(100.23,1022,1,22,0)="1004^2^66^NONE" ^ORD(100.23,1022,1,"B",1001,4)="" ^ORD(100.23,1022,1,"B",1002,6)="" ^ORD(100.23,1022,1,"B",1004,22)="" ^ORD(100.23,1022,1,"B",1005,21)="" ^ORD(100.23,1022,1,"B",1007,12)="" ^ORD(100.23,1022,1,"B",1008,8)="" ^ORD(100.23,1022,1,"B",1009,7)="" ^ORD(100.23,1022,1,"B",1010,20)="" ^ORD(100.23,1022,1,"B",1011,13)="" ^ORD(100.23,1022,2,0)="^^13^14^3010926" ^ORD(100.23,1022,2,1,0)="W ?0,$S($L($G(ORPSTRT)):""Start Date: "",1:""""),$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY"")" ^ORD(100.23,1022,2,2,0)="W ?40,"""",$$NAME^ORU($G(ORPNAME),""LAST,FIRST MI"")" ^ORD(100.23,1022,2,3,0)="W !?0,$S($L($G(OROOT)):"""",1:""""),$$TMPWRAP^ORU($G(OROOT),""38"")" ^ORD(100.23,1022,2,4,0)="W ?40,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1022,2,5,0)="W ?54,"""",$$DOB^ORU($G(ORPDOB),"""")" ^ORD(100.23,1022,2,6,0)="W ?65,"""",$$AGE^ORU($G(ORPAGE),"""")" ^ORD(100.23,1022,2,7,0)="W !?57,"""",$G(ORPRMBED)" ^ORD(100.23,1022,2,8,0)="W !?0,$S($L($G(ORPRPHY)):""PHY: "",1:""""),$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1022,2,9,0)="W ?57,"""",$G(ORPLOC)" ^ORD(100.23,1022,2,10,0)="W !" ^ORD(100.23,1022,2,11,0)="W !" ^ORD(100.23,1022,2,13,0)="K X,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC" ^ORD(100.23,1022,4,0)="^^33^33^3010926" ^ORD(100.23,1022,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,2,0)="S X=$$S^ORU4(0,.CCNT,$S($L($G(ORPSTRT)):""Start Date: "",1:"""")_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,5,0)="S X=$$S^ORU4(40,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),""LAST,FIRST MI"",.ORHOOT,40,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,7,0)="D LN^ORU4" ^ORD(100.23,1022,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,9,0)="S X=$$S^ORU4(0,.CCNT,$S($L($G(OROOT)):"""",1:"""")_$$TMPWRAP^ORU4($G(OROOT),""38"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,12,0)="S X=$$S^ORU4(40,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,40,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,15,0)="S X=$$S^ORU4(54,.CCNT,""""_$$DOB^ORU4($G(ORPDOB),"""",.ORHOOT,54,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,18,0)="S X=$$S^ORU4(65,.CCNT,""""_$$AGE^ORU4($G(ORPAGE),"""",.ORHOOT,65,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,20,0)="D LN^ORU4" ^ORD(100.23,1022,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,22,0)="S X=$$S^ORU4(57,.CCNT,""""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1022,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,24,0)="D LN^ORU4" ^ORD(100.23,1022,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,26,0)="S X=$$S^ORU4(0,.CCNT,$S($L($G(ORPRPHY)):""PHY: "",1:"""")_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1022,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1022,4,29,0)="S X=$$S^ORU4(57,.CCNT,""""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1022,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1022,4,31,0)="D LN^ORU4" ^ORD(100.23,1022,4,32,0)="D LN^ORU4" ^ORD(100.23,1022,4,33,0)="K X,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC" ^ORD(100.23,1023,0)="WORK COPY FORMAT^4^^36" ^ORD(100.23,1023,1,0)="^100.231PI^12^5" ^ORD(100.23,1023,1,6,0)="1013^1^1^NONE^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1023,1,8,0)="1026^1^60^NONE" ^ORD(100.23,1023,1,10,0)="1010^1^19^NONE^^36" ^ORD(100.23,1023,1,11,0)="1042^2^60^NONE" ^ORD(100.23,1023,1,12,0)="1011^2^20^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1023,1,"B",1010,10)="" ^ORD(100.23,1023,1,"B",1011,12)="" ^ORD(100.23,1023,1,"B",1013,6)="" ^ORD(100.23,1023,1,"B",1026,8)="" ^ORD(100.23,1023,1,"B",1042,11)="" ^ORD(100.23,1023,2,0)="^^9^10^3010926" ^ORD(100.23,1023,2,1,0)="W ?0,"""",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1023,2,2,0)="W ?18,"""",$$TMPWRAP^ORU($G(OROOT),""36"")" ^ORD(100.23,1023,2,3,0)="W ?59,"""",$G(ORPES)" ^ORD(100.23,1023,2,4,0)="W !?19,""Start: "",$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1023,2,5,0)="W ?59,"""",$G(ORPDOT)" ^ORD(100.23,1023,2,6,0)="W !" ^ORD(100.23,1023,2,7,0)="W !" ^ORD(100.23,1023,2,9,0)="K X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT" ^ORD(100.23,1023,4,0)="^^19^19^3010926" ^ORD(100.23,1023,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1023,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1023,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1023,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1023,4,5,0)="S X=$$S^ORU4(18,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""36"",.ORHOOT,18,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1023,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1023,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1023,4,8,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1023,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1023,4,10,0)="D LN^ORU4" ^ORD(100.23,1023,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1023,4,12,0)="S X=$$S^ORU4(19,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY HR:MIN"",.ORHOOT,19,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1023,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1023,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1023,4,15,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPDOT),.CCNT)" ^ORD(100.23,1023,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1023,4,17,0)="D LN^ORU4" ^ORD(100.23,1023,4,18,0)="D LN^ORU4" ^ORD(100.23,1023,4,19,0)="K X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT" ^ORD(100.23,1024,0)="WORK COPY HEADER^6" ^ORD(100.23,1024,1,0)="^100.231PI^11^5" ^ORD(100.23,1024,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1024,1,3,0)="1029^3^1^NONE" ^ORD(100.23,1024,1,9,0)="1014^4^2^^DATE & TIME | O R D E R S | SIGNATURES" ^ORD(100.23,1024,1,10,0)="1029^5^1^NONE" ^ORD(100.23,1024,1,11,0)="1014^2^1^NONE^ WORK COPY | D O C T O R ' S O R D E R S" ^ORD(100.23,1024,1,"B",1014,9)="" ^ORD(100.23,1024,1,"B",1014,11)="" ^ORD(100.23,1024,1,"B",1029,1)="" ^ORD(100.23,1024,1,"B",1029,3)="" ^ORD(100.23,1024,1,"B",1029,10)="" ^ORD(100.23,1024,2,0)="^^8^9^3010926" ^ORD(100.23,1024,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1024,2,2,0)="W !?0,"""","" WORK COPY | D O C T O R ' S O R D E R S""" ^ORD(100.23,1024,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1024,2,4,0)="W !?1,"""",""DATE & TIME | O R D E R S | SIGNATURES""" ^ORD(100.23,1024,2,5,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1024,2,6,0)="W !" ^ORD(100.23,1024,2,8,0)="K X,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1024,4,0)="^^21^21^3010926" ^ORD(100.23,1024,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1024,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1024,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1024,4,4,0)="D LN^ORU4" ^ORD(100.23,1024,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1024,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_"" WORK COPY | D O C T O R ' S O R D E R S"",.CCNT)" ^ORD(100.23,1024,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1024,4,8,0)="D LN^ORU4" ^ORD(100.23,1024,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1024,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1024,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1024,4,12,0)="D LN^ORU4" ^ORD(100.23,1024,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1024,4,14,0)="S X=$$S^ORU4(1,.CCNT,""""_""DATE & TIME | O R D E R S | SIGNATURES"",.CCNT)" ^ORD(100.23,1024,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1024,4,16,0)="D LN^ORU4" ^ORD(100.23,1024,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1024,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1024,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1024,4,20,0)="D LN^ORU4" ^ORD(100.23,1024,4,21,0)="K X,ORPLINE,ORPLINE,ORPLINE" ^ORD(100.23,1025,0)="WORK COPY FOOTER^8" ^ORD(100.23,1025,1,0)="^100.231PI^17^11" ^ORD(100.23,1025,1,1,0)="1029^1^1^NONE" ^ORD(100.23,1025,1,2,0)="1001^3^2^NONE^^LAST, FIRST MI" ^ORD(100.23,1025,1,3,0)="1002^3^29^NONE" ^ORD(100.23,1025,1,4,0)="1014^4^45^NONE^|" ^ORD(100.23,1025,1,5,0)="1009^4^4^Loc: " ^ORD(100.23,1025,1,6,0)="1014^5^45^NONE^| **** W O R K C O P Y ****" ^ORD(100.23,1025,1,7,0)="1014^6^45^NONE^|" ^ORD(100.23,1025,1,9,0)="1014^7^45^NONE^|__________________________________" ^ORD(100.23,1025,1,10,0)="1014^2^45^^|" ^ORD(100.23,1025,1,16,0)="1014^3^45^^|" ^ORD(100.23,1025,1,17,0)="1008^5^4^Room/Bed:" ^ORD(100.23,1025,1,"B",1001,2)="" ^ORD(100.23,1025,1,"B",1002,3)="" ^ORD(100.23,1025,1,"B",1008,17)="" ^ORD(100.23,1025,1,"B",1009,5)="" ^ORD(100.23,1025,1,"B",1014,4)="" ^ORD(100.23,1025,1,"B",1014,6)="" ^ORD(100.23,1025,1,"B",1014,7)="" ^ORD(100.23,1025,1,"B",1014,9)="" ^ORD(100.23,1025,1,"B",1014,10)="" ^ORD(100.23,1025,1,"B",1014,16)="" ^ORD(100.23,1025,1,"B",1029,1)="" ^ORD(100.23,1025,2,0)="^^14^15^3010926" ^ORD(100.23,1025,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1025,2,2,0)="W !?44,"""",""|""" ^ORD(100.23,1025,2,3,0)="W !?1,"""",$$NAME^ORU($G(ORPNAME),""LAST, FIRST MI"")" ^ORD(100.23,1025,2,4,0)="W ?28,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1025,2,5,0)="W ?44,"""",""|""" ^ORD(100.23,1025,2,6,0)="W !?3,""Loc: "",$G(ORPLOC)" ^ORD(100.23,1025,2,7,0)="W ?44,"""",""|""" ^ORD(100.23,1025,2,8,0)="W !?3,""Room/Bed:"",$G(ORPRMBED)" ^ORD(100.23,1025,2,9,0)="W ?44,"""",""| **** W O R K C O P Y ****""" ^ORD(100.23,1025,2,10,0)="W !?44,"""",""|""" ^ORD(100.23,1025,2,11,0)="W !?44,"""",""|__________________________________""" ^ORD(100.23,1025,2,12,0)="W !" ^ORD(100.23,1025,2,14,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED" ^ORD(100.23,1025,4,0)="^^41^41^3010926" ^ORD(100.23,1025,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1025,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,4,0)="D LN^ORU4" ^ORD(100.23,1025,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,6,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1025,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,8,0)="D LN^ORU4" ^ORD(100.23,1025,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,10,0)="S X=$$S^ORU4(1,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),""LAST, FIRST MI"",.ORHOOT,1,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1025,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,13,0)="S X=$$S^ORU4(28,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,28,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1025,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,16,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1025,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,18,0)="D LN^ORU4" ^ORD(100.23,1025,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,20,0)="S X=$$S^ORU4(3,.CCNT,""Loc: ""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1025,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,23,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1025,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,25,0)="D LN^ORU4" ^ORD(100.23,1025,4,26,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,27,0)="S X=$$S^ORU4(3,.CCNT,""Room/Bed:""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1025,4,28,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,29,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,30,0)="S X=$$S^ORU4(44,.CCNT,""""_""| **** W O R K C O P Y ****"",.CCNT)" ^ORD(100.23,1025,4,31,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,32,0)="D LN^ORU4" ^ORD(100.23,1025,4,33,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,34,0)="S X=$$S^ORU4(44,.CCNT,""""_""|"",.CCNT)" ^ORD(100.23,1025,4,35,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,36,0)="D LN^ORU4" ^ORD(100.23,1025,4,37,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1025,4,38,0)="S X=$$S^ORU4(44,.CCNT,""""_""|__________________________________"",.CCNT)" ^ORD(100.23,1025,4,39,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1025,4,40,0)="D LN^ORU4" ^ORD(100.23,1025,4,41,0)="K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED" ^ORD(100.23,1026,0)="RX LABEL FORMAT^1^^^1" ^ORD(100.23,1026,1,0)="^100.231PI^1^1" ^ORD(100.23,1026,1,1,0)="1076^1^1" ^ORD(100.23,1026,1,"B",1076,1)="" ^ORD(100.23,1026,2,0)="^^2^3^3010926" ^ORD(100.23,1026,2,1,0)="D LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y=""OROOT5""" ^ORD(100.23,1026,4,0)="^^1^1^3010926" ^ORD(100.23,1026,4,1,0)="D LABEL^ORPR07(.OROOT5,$G(ORIFN),$G(ORSILENT),$G(OACTION)) S Y=""OROOT5""" ^ORD(100.23,1027,0)="CHART COPY 3^6^^60" ^ORD(100.23,1027,1,0)="^100.231PI^15^9" ^ORD(100.23,1027,1,1,0)="1013^1^1^NONE" ^ORD(100.23,1027,1,6,0)="1011^3^20^Start: " ^ORD(100.23,1027,1,7,0)="1007^3^55^Req : " ^ORD(100.23,1027,1,8,0)="1012^4^20^Stop : " ^ORD(100.23,1027,1,9,0)="1026^4^55^NONE" ^ORD(100.23,1027,1,12,0)="1032^2^4^NONE" ^ORD(100.23,1027,1,13,0)="1010^1^16^NONE^^60" ^ORD(100.23,1027,1,14,0)="1085^3^4^Nurse: " ^ORD(100.23,1027,1,15,0)="1089^4^4^Clerk: " ^ORD(100.23,1027,1,"B",1007,7)="" ^ORD(100.23,1027,1,"B",1010,13)="" ^ORD(100.23,1027,1,"B",1011,6)="" ^ORD(100.23,1027,1,"B",1012,8)="" ^ORD(100.23,1027,1,"B",1013,1)="" ^ORD(100.23,1027,1,"B",1026,9)="" ^ORD(100.23,1027,1,"B",1032,12)="" ^ORD(100.23,1027,1,"B",1085,14)="" ^ORD(100.23,1027,1,"B",1089,15)="" ^ORD(100.23,1027,2,0)="^^13^14^3010926" ^ORD(100.23,1027,2,1,0)="W ?0,"""",$$DATE^ORU($G(ORPODT),"""")" ^ORD(100.23,1027,2,2,0)="W ?15,"""",$$TMPWRAP^ORU($G(OROOT),""60"")" ^ORD(100.23,1027,2,3,0)="W !?3,"""",$G(ORPNAT)" ^ORD(100.23,1027,2,4,0)="W !?3,""Nurse: "",$G(ORPVNI)" ^ORD(100.23,1027,2,5,0)="W ?19,""Start: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1027,2,6,0)="W ?54,""Req : "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1027,2,7,0)="W !?3,""Clerk: "",$G(ORPVCI)" ^ORD(100.23,1027,2,8,0)="W ?19,""Stop : "",$$DATE^ORU($G(ORPSTOP),"""")" ^ORD(100.23,1027,2,9,0)="W ?54,"""",$G(ORPES)" ^ORD(100.23,1027,2,10,0)="W !" ^ORD(100.23,1027,2,11,0)="W !" ^ORD(100.23,1027,2,13,0)="K X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES" ^ORD(100.23,1027,4,0)="^^33^33^3010926" ^ORD(100.23,1027,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$DATE^ORU4($G(ORPODT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1027,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,5,0)="S X=$$S^ORU4(15,.CCNT,""""_$$TMPWRAP^ORU4($G(OROOT),""60"",.ORHOOT,15,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1027,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,7,0)="D LN^ORU4" ^ORD(100.23,1027,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,9,0)="S X=$$S^ORU4(3,.CCNT,""""_$G(ORPNAT),.CCNT)" ^ORD(100.23,1027,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,11,0)="D LN^ORU4" ^ORD(100.23,1027,4,12,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,13,0)="S X=$$S^ORU4(3,.CCNT,""Nurse: ""_$G(ORPVNI),.CCNT)" ^ORD(100.23,1027,4,14,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,15,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,16,0)="S X=$$S^ORU4(19,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,19,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1027,4,17,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,18,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,19,0)="S X=$$S^ORU4(54,.CCNT,""Req : ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,54,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1027,4,20,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,21,0)="D LN^ORU4" ^ORD(100.23,1027,4,22,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,23,0)="S X=$$S^ORU4(3,.CCNT,""Clerk: ""_$G(ORPVCI),.CCNT)" ^ORD(100.23,1027,4,24,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,25,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,26,0)="S X=$$S^ORU4(19,.CCNT,""Stop : ""_$$DATE^ORU4($G(ORPSTOP),"""",.ORHOOT,19,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1027,4,27,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1027,4,29,0)="S X=$$S^ORU4(54,.CCNT,""""_$G(ORPES),.CCNT)" ^ORD(100.23,1027,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1027,4,31,0)="D LN^ORU4" ^ORD(100.23,1027,4,32,0)="D LN^ORU4" ^ORD(100.23,1027,4,33,0)="K X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES" ^ORD(100.23,1028,0)="CONSULTS SERVICE COPY^1^^^1" ^ORD(100.23,1028,1,0)="^100.231PI^1^1" ^ORD(100.23,1028,1,1,0)="1098^1^1" ^ORD(100.23,1028,1,"B",1098,1)="" ^ORD(100.23,1028,2,0)="^^2^3^3010926" ^ORD(100.23,1028,2,1,0)="D EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.23,1028,4,0)="^^1^1^3010926" ^ORD(100.23,1028,4,1,0)="D EN^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.23,1029,0)="CONSULT NEW BODY^1^^^1" ^ORD(100.23,1029,1,0)="^100.231PI^1^1" ^ORD(100.23,1029,1,1,0)="2000^1^1" ^ORD(100.23,1029,1,"B",2000,1)="" ^ORD(100.23,1029,2,0)="^^2^3^3010926" ^ORD(100.23,1029,2,1,0)="D EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.23,1029,4,0)="^^1^1^3010926" ^ORD(100.23,1029,4,1,0)="D EN1^ORPR09(.Y,$G(ORIFN),$G(ORSILENT))" ^ORD(100.23,1030,0)="LAB LABEL (Buffalo)-WC New Orders & Reprint^6^^^1" ^ORD(100.23,1030,1,0)="^100.231PI^14^14" ^ORD(100.23,1030,1,1,0)="1001^1^1^NONE" ^ORD(100.23,1030,1,2,0)="1001^1^58^NONE" ^ORD(100.23,1030,1,3,0)="1002^2^1^NONE" ^ORD(100.23,1030,1,4,0)="1002^2^58^NONE" ^ORD(100.23,1030,1,5,0)="1007^3^1" ^ORD(100.23,1030,1,6,0)="1014^5^58^Drawn By:^Date/time:" ^ORD(100.23,1030,1,7,0)="1019^4^1" ^ORD(100.23,1030,1,8,0)="1008^1^35" ^ORD(100.23,1030,1,9,0)="1009^3^35^LOC:" ^ORD(100.23,1030,1,10,0)="1018^3^58^^^70" ^ORD(100.23,1030,1,11,0)="1018^5^1^^^70" ^ORD(100.23,1030,1,12,0)="1017^2^22" ^ORD(100.23,1030,1,13,0)="1017^2^80" ^ORD(100.23,1030,1,14,0)="1014^4^58^^DRAWN BY:" ^ORD(100.23,1030,1,"B",1001,1)="" ^ORD(100.23,1030,1,"B",1001,2)="" ^ORD(100.23,1030,1,"B",1002,3)="" ^ORD(100.23,1030,1,"B",1002,4)="" ^ORD(100.23,1030,1,"B",1007,5)="" ^ORD(100.23,1030,1,"B",1008,8)="" ^ORD(100.23,1030,1,"B",1009,9)="" ^ORD(100.23,1030,1,"B",1014,6)="" ^ORD(100.23,1030,1,"B",1014,14)="" ^ORD(100.23,1030,1,"B",1017,12)="" ^ORD(100.23,1030,1,"B",1017,13)="" ^ORD(100.23,1030,1,"B",1018,10)="" ^ORD(100.23,1030,1,"B",1018,11)="" ^ORD(100.23,1030,1,"B",1019,7)="" ^ORD(100.23,1030,2,0)="^^17^18^3010926" ^ORD(100.23,1030,2,1,0)="W ?0,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1030,2,2,0)="W ?34,""RM/Bed: "",$G(ORPRMBED)" ^ORD(100.23,1030,2,3,0)="W ?57,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1030,2,4,0)="W !?0,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1030,2,5,0)="W ?21,""LB #"",$G(ORPLB)" ^ORD(100.23,1030,2,6,0)="W ?57,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1030,2,7,0)="W ?79,""LB #"",$G(ORPLB)" ^ORD(100.23,1030,2,8,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1030,2,9,0)="W ?34,""LOC:"",$G(ORPLOC)" ^ORD(100.23,1030,2,10,0)="W ?57,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1030,2,11,0)="W !?0,""Urgency: "",$G(ORPURG)" ^ORD(100.23,1030,2,12,0)="W ?57,"""",""DRAWN BY:""" ^ORD(100.23,1030,2,13,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1030,2,14,0)="W ?57,"""",""Date/time:""" ^ORD(100.23,1030,2,15,0)="W !" ^ORD(100.23,1030,2,17,0)="K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2" ^ORD(100.23,1030,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"",""WC"")" ^ORD(100.23,1030,4,0)="^^48^48^3010926" ^ORD(100.23,1030,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,5,0)="S X=$$S^ORU4(34,.CCNT,""RM/Bed: ""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1030,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,8,0)="S X=$$S^ORU4(57,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,10,0)="D LN^ORU4" ^ORD(100.23,1030,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,12,0)="S X=$$S^ORU4(0,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,15,0)="S X=$$S^ORU4(21,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1030,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,18,0)="S X=$$S^ORU4(57,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,21,0)="S X=$$S^ORU4(79,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1030,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,23,0)="D LN^ORU4" ^ORD(100.23,1030,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,25,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,28,0)="S X=$$S^ORU4(34,.CCNT,""LOC:""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1030,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,30,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,31,0)="S X=$$S^ORU4(57,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,32,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,33,0)="D LN^ORU4" ^ORD(100.23,1030,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,35,0)="S X=$$S^ORU4(0,.CCNT,""Urgency: ""_$G(ORPURG),.CCNT)" ^ORD(100.23,1030,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,37,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,38,0)="S X=$$S^ORU4(57,.CCNT,""""_""DRAWN BY:"",.CCNT)" ^ORD(100.23,1030,4,39,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,40,0)="D LN^ORU4" ^ORD(100.23,1030,4,41,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,42,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1030,4,43,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1030,4,45,0)="S X=$$S^ORU4(57,.CCNT,""""_""Date/time:"",.CCNT)" ^ORD(100.23,1030,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1030,4,47,0)="D LN^ORU4" ^ORD(100.23,1030,4,48,0)="K X,ORPNAME,ORPRMBED,ORPNAME,ORPSSN,ORPLB,ORPSSN,ORPLB,ORPRPHY,ORPLOC,OROOT2,ORPURG,OROOT2" ^ORD(100.23,1031,0)="LAB LABEL/INTERMEC-WC New Orders & Reprint^1^1^^1" ^ORD(100.23,1031,1,0)="^100.231PI^1^1" ^ORD(100.23,1031,1,1,0)="1" ^ORD(100.23,1031,1,"B",1,1)="" ^ORD(100.23,1031,2,0)="^^2^3^3010926" ^ORD(100.23,1031,2,1,0)="W !" ^ORD(100.23,1031,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"",""WC"")" ^ORD(100.23,1031,4,0)="^^1^1^3010926" ^ORD(100.23,1031,4,1,0)="D LN^ORU4" ^ORD(100.23,1032,0)="LAB ORDER LABEL-WC New Orders & Reprint^12^80^^1" ^ORD(100.23,1032,1,0)="^100.231PI^20^18" ^ORD(100.23,1032,1,1,0)="1016^2^1^NONE" ^ORD(100.23,1032,1,2,0)="1017^2^52" ^ORD(100.23,1032,1,3,0)="1017^2^52" ^ORD(100.23,1032,1,4,0)="1001^1^39^NONE^^LAST,FIRST MI" ^ORD(100.23,1032,1,5,0)="1001^1^39^NONE" ^ORD(100.23,1032,1,6,0)="1002^2^39^NONE" ^ORD(100.23,1032,1,7,0)="1009^4^60^NONE" ^ORD(100.23,1032,1,8,0)="1008^4^58^NONE" ^ORD(100.23,1032,1,9,0)="1002^2^39^NONE" ^ORD(100.23,1032,1,10,0)="1009^4^60^NONE" ^ORD(100.23,1032,1,12,0)="1007^5^1" ^ORD(100.23,1032,1,13,0)="1011^6^1^Start Date: " ^ORD(100.23,1032,1,14,0)="1014^7^39^Drawn By: ^Specimen Label: " ^ORD(100.23,1032,1,15,0)="1019^7^1^NONE" ^ORD(100.23,1032,1,16,0)="1018^8^1^^^70" ^ORD(100.23,1032,1,18,0)="1020^7^39^Collected: " ^ORD(100.23,1032,1,19,0)="1014^9^1^^**LAB SLIP** BRING TO LAB" ^ORD(100.23,1032,1,20,0)="1014^7^39^^Specimen Label: " ^ORD(100.23,1032,1,"B",1001,4)="" ^ORD(100.23,1032,1,"B",1001,5)="" ^ORD(100.23,1032,1,"B",1002,6)="" ^ORD(100.23,1032,1,"B",1002,9)="" ^ORD(100.23,1032,1,"B",1007,12)="" ^ORD(100.23,1032,1,"B",1008,8)="" ^ORD(100.23,1032,1,"B",1009,7)="" ^ORD(100.23,1032,1,"B",1009,10)="" ^ORD(100.23,1032,1,"B",1011,13)="" ^ORD(100.23,1032,1,"B",1014,14)="" ^ORD(100.23,1032,1,"B",1014,19)="" ^ORD(100.23,1032,1,"B",1014,20)="" ^ORD(100.23,1032,1,"B",1016,1)="" ^ORD(100.23,1032,1,"B",1017,2)="" ^ORD(100.23,1032,1,"B",1017,3)="" ^ORD(100.23,1032,1,"B",1018,16)="" ^ORD(100.23,1032,1,"B",1019,15)="" ^ORD(100.23,1032,1,"B",1020,18)="" ^ORD(100.23,1032,2,0)="^^18^19^3010926" ^ORD(100.23,1032,2,1,0)="W ?38,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1032,2,2,0)="W !?0,"""",$G(ORPCB)" ^ORD(100.23,1032,2,3,0)="W ?38,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1032,2,4,0)="W ?51,""LB #"",$G(ORPLB)" ^ORD(100.23,1032,2,5,0)="W !" ^ORD(100.23,1032,2,6,0)="W !?57,"""",$G(ORPRMBED)" ^ORD(100.23,1032,2,7,0)="W ?59,"""",$G(ORPLOC)" ^ORD(100.23,1032,2,8,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1032,2,9,0)="W !?0,""Start Date: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1032,2,10,0)="W !?0,"""",$G(ORPURG)" ^ORD(100.23,1032,2,11,0)="W ?38,"""",""Specimen Label: """ ^ORD(100.23,1032,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1032,2,13,0)="W !?0,"""",""**LAB SLIP** BRING TO LAB""" ^ORD(100.23,1032,2,14,0)="W !" ^ORD(100.23,1032,2,15,0)="W !" ^ORD(100.23,1032,2,16,0)="W !" ^ORD(100.23,1032,2,18,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1032,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"",""WC"")" ^ORD(100.23,1032,4,0)="^^48^48^3010926" ^ORD(100.23,1032,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,2,0)="S X=$$S^ORU4(38,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1032,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,4,0)="D LN^ORU4" ^ORD(100.23,1032,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1032,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,9,0)="S X=$$S^ORU4(38,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1032,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,12,0)="S X=$$S^ORU4(51,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1032,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,14,0)="D LN^ORU4" ^ORD(100.23,1032,4,15,0)="D LN^ORU4" ^ORD(100.23,1032,4,16,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,17,0)="S X=$$S^ORU4(57,.CCNT,""""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1032,4,18,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,20,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1032,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,22,0)="D LN^ORU4" ^ORD(100.23,1032,4,23,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,24,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1032,4,25,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,26,0)="D LN^ORU4" ^ORD(100.23,1032,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,28,0)="S X=$$S^ORU4(0,.CCNT,""Start Date: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1032,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,30,0)="D LN^ORU4" ^ORD(100.23,1032,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,32,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1032,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,35,0)="S X=$$S^ORU4(38,.CCNT,""""_""Specimen Label: "",.CCNT)" ^ORD(100.23,1032,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,37,0)="D LN^ORU4" ^ORD(100.23,1032,4,38,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,39,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1032,4,40,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,41,0)="D LN^ORU4" ^ORD(100.23,1032,4,42,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1032,4,43,0)="S X=$$S^ORU4(0,.CCNT,""""_""**LAB SLIP** BRING TO LAB"",.CCNT)" ^ORD(100.23,1032,4,44,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1032,4,45,0)="D LN^ORU4" ^ORD(100.23,1032,4,46,0)="D LN^ORU4" ^ORD(100.23,1032,4,47,0)="D LN^ORU4" ^ORD(100.23,1032,4,48,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1033,0)="LAB REQUISITION New & reprint,WC,SP^14" ^ORD(100.23,1033,1,0)="^100.231PI^17^16" ^ORD(100.23,1033,1,1,0)="1016^2^15^NONE" ^ORD(100.23,1033,1,2,0)="1013^2^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1033,1,3,0)="1017^3^15" ^ORD(100.23,1033,1,4,0)="1006^3^30" ^ORD(100.23,1033,1,5,0)="1001^4^1^NONE" ^ORD(100.23,1033,1,6,0)="1002^4^30^NONE" ^ORD(100.23,1033,1,7,0)="1021^5^1" ^ORD(100.23,1033,1,8,0)="1007^6^1" ^ORD(100.23,1033,1,9,0)="1011^6^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1033,1,11,0)="1014^10^1^^Time of Collection:_____________" ^ORD(100.23,1033,1,12,0)="1018^8^1^Test: ^^70" ^ORD(100.23,1033,1,13,0)="1019^8^50^NONE" ^ORD(100.23,1033,1,14,0)="1043^11^1^Collection Sample: " ^ORD(100.23,1033,1,15,0)="1077^12^1^NONE^^70" ^ORD(100.23,1033,1,16,0)="1078^13^1^NONE^^70" ^ORD(100.23,1033,1,17,0)="1046^14^1" ^ORD(100.23,1033,1,"B",1001,5)="" ^ORD(100.23,1033,1,"B",1002,6)="" ^ORD(100.23,1033,1,"B",1006,4)="" ^ORD(100.23,1033,1,"B",1007,8)="" ^ORD(100.23,1033,1,"B",1011,9)="" ^ORD(100.23,1033,1,"B",1013,2)="" ^ORD(100.23,1033,1,"B",1014,11)="" ^ORD(100.23,1033,1,"B",1016,1)="" ^ORD(100.23,1033,1,"B",1017,3)="" ^ORD(100.23,1033,1,"B",1018,12)="" ^ORD(100.23,1033,1,"B",1019,13)="" ^ORD(100.23,1033,1,"B",1021,7)="" ^ORD(100.23,1033,1,"B",1043,14)="" ^ORD(100.23,1033,1,"B",1046,17)="" ^ORD(100.23,1033,1,"B",1077,15)="" ^ORD(100.23,1033,1,"B",1078,16)="" ^ORD(100.23,1033,2,0)="^^21^22^3010926" ^ORD(100.23,1033,2,1,0)="W !" ^ORD(100.23,1033,2,2,0)="W !?14,"""",$G(ORPCB)" ^ORD(100.23,1033,2,3,0)="W ?29,""ORD: "",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1033,2,4,0)="W !?14,""LB #"",$G(ORPLB)" ^ORD(100.23,1033,2,5,0)="W ?29,""LOC: "",$G(ORPRLOC)" ^ORD(100.23,1033,2,6,0)="W !?0,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1033,2,7,0)="W ?29,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1033,2,8,0)="W !?0,""Entered By: "",$$NAME^ORU($G(ORPEB),"""")" ^ORD(100.23,1033,2,9,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1033,2,10,0)="W ?29,""Start: "",$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1033,2,11,0)="W !" ^ORD(100.23,1033,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1033,2,13,0)="W ?49,"""",$G(ORPURG)" ^ORD(100.23,1033,2,14,0)="W !" ^ORD(100.23,1033,2,15,0)="W !?0,"""",""Time of Collection:_____________""" ^ORD(100.23,1033,2,16,0)="W !?0,""Collection Sample: "",$G(ORPCOT)" ^ORD(100.23,1033,2,17,0)="W !?0,"""",$$TEXT^ORU($G(ORUT),""70"")" ^ORD(100.23,1033,2,18,0)="W !?0,"""",$$TEXT^ORU($G(OROT),""70"")" ^ORD(100.23,1033,2,19,0)="W !?0,""WARD COMMENTS: "",$$TEXT^ORU($G(OROOT6),"""")" ^ORD(100.23,1033,2,21,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1033,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"",""WCSP"")" ^ORD(100.23,1033,4,0)="^^63^63^3010926" ^ORD(100.23,1033,4,1,0)="D LN^ORU4" ^ORD(100.23,1033,4,2,0)="D LN^ORU4" ^ORD(100.23,1033,4,3,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,4,0)="S X=$$S^ORU4(14,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1033,4,5,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,6,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,7,0)="S X=$$S^ORU4(29,.CCNT,""ORD: ""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,8,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,9,0)="D LN^ORU4" ^ORD(100.23,1033,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,11,0)="S X=$$S^ORU4(14,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1033,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,14,0)="S X=$$S^ORU4(29,.CCNT,""LOC: ""_$G(ORPRLOC),.CCNT)" ^ORD(100.23,1033,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,16,0)="D LN^ORU4" ^ORD(100.23,1033,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,21,0)="S X=$$S^ORU4(29,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,23,0)="D LN^ORU4" ^ORD(100.23,1033,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,25,0)="S X=$$S^ORU4(0,.CCNT,""Entered By: ""_$$NAME^ORU4($G(ORPEB),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,27,0)="D LN^ORU4" ^ORD(100.23,1033,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,29,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,32,0)="S X=$$S^ORU4(29,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,34,0)="D LN^ORU4" ^ORD(100.23,1033,4,35,0)="D LN^ORU4" ^ORD(100.23,1033,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,37,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,39,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,40,0)="S X=$$S^ORU4(49,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1033,4,41,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,42,0)="D LN^ORU4" ^ORD(100.23,1033,4,43,0)="D LN^ORU4" ^ORD(100.23,1033,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,45,0)="S X=$$S^ORU4(0,.CCNT,""""_""Time of Collection:_____________"",.CCNT)" ^ORD(100.23,1033,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,47,0)="D LN^ORU4" ^ORD(100.23,1033,4,48,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,49,0)="S X=$$S^ORU4(0,.CCNT,""Collection Sample: ""_$G(ORPCOT),.CCNT)" ^ORD(100.23,1033,4,50,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,51,0)="D LN^ORU4" ^ORD(100.23,1033,4,52,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,53,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(ORUT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,54,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,55,0)="D LN^ORU4" ^ORD(100.23,1033,4,56,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,57,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(OROT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,58,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,59,0)="D LN^ORU4" ^ORD(100.23,1033,4,60,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1033,4,61,0)="S X=$$S^ORU4(0,.CCNT,""WARD COMMENTS: ""_$$TEXT^ORU4($G(OROOT6),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1033,4,62,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1033,4,63,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1034,0)="LAB REQUISITION New & reprint only^14" ^ORD(100.23,1034,1,0)="^100.231PI^17^16" ^ORD(100.23,1034,1,1,0)="1016^2^15^NONE" ^ORD(100.23,1034,1,2,0)="1013^2^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1034,1,3,0)="1017^3^15" ^ORD(100.23,1034,1,4,0)="1006^3^30" ^ORD(100.23,1034,1,5,0)="1001^4^1^NONE" ^ORD(100.23,1034,1,6,0)="1002^4^30^NONE" ^ORD(100.23,1034,1,7,0)="1021^5^1" ^ORD(100.23,1034,1,8,0)="1007^6^1" ^ORD(100.23,1034,1,9,0)="1011^6^30^^^MM/DD/CCYY HR:MIN" ^ORD(100.23,1034,1,11,0)="1014^10^1^^Time of Collection:_____________" ^ORD(100.23,1034,1,12,0)="1018^8^1^Test: ^^70" ^ORD(100.23,1034,1,13,0)="1019^8^50^NONE" ^ORD(100.23,1034,1,14,0)="1043^11^1^Collection Sample: " ^ORD(100.23,1034,1,15,0)="1077^12^1^NONE^^70" ^ORD(100.23,1034,1,16,0)="1078^13^1^NONE^^70" ^ORD(100.23,1034,1,17,0)="1046^14^1" ^ORD(100.23,1034,1,"B",1001,5)="" ^ORD(100.23,1034,1,"B",1002,6)="" ^ORD(100.23,1034,1,"B",1006,4)="" ^ORD(100.23,1034,1,"B",1007,8)="" ^ORD(100.23,1034,1,"B",1011,9)="" ^ORD(100.23,1034,1,"B",1013,2)="" ^ORD(100.23,1034,1,"B",1014,11)="" ^ORD(100.23,1034,1,"B",1016,1)="" ^ORD(100.23,1034,1,"B",1017,3)="" ^ORD(100.23,1034,1,"B",1018,12)="" ^ORD(100.23,1034,1,"B",1019,13)="" ^ORD(100.23,1034,1,"B",1021,7)="" ^ORD(100.23,1034,1,"B",1043,14)="" ^ORD(100.23,1034,1,"B",1046,17)="" ^ORD(100.23,1034,1,"B",1077,15)="" ^ORD(100.23,1034,1,"B",1078,16)="" ^ORD(100.23,1034,2,0)="^^21^22^3010926" ^ORD(100.23,1034,2,1,0)="W !" ^ORD(100.23,1034,2,2,0)="W !?14,"""",$G(ORPCB)" ^ORD(100.23,1034,2,3,0)="W ?29,""ORD: "",$$DATE^ORU($G(ORPODT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1034,2,4,0)="W !?14,""LB #"",$G(ORPLB)" ^ORD(100.23,1034,2,5,0)="W ?29,""LOC: "",$G(ORPRLOC)" ^ORD(100.23,1034,2,6,0)="W !?0,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1034,2,7,0)="W ?29,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1034,2,8,0)="W !?0,""Entered By: "",$$NAME^ORU($G(ORPEB),"""")" ^ORD(100.23,1034,2,9,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1034,2,10,0)="W ?29,""Start: "",$$DATE^ORU($G(ORPSTRT),""MM/DD/CCYY HR:MIN"")" ^ORD(100.23,1034,2,11,0)="W !" ^ORD(100.23,1034,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1034,2,13,0)="W ?49,"""",$G(ORPURG)" ^ORD(100.23,1034,2,14,0)="W !" ^ORD(100.23,1034,2,15,0)="W !?0,"""",""Time of Collection:_____________""" ^ORD(100.23,1034,2,16,0)="W !?0,""Collection Sample: "",$G(ORPCOT)" ^ORD(100.23,1034,2,17,0)="W !?0,"""",$$TEXT^ORU($G(ORUT),""70"")" ^ORD(100.23,1034,2,18,0)="W !?0,"""",$$TEXT^ORU($G(OROT),""70"")" ^ORD(100.23,1034,2,19,0)="W !?0,""WARD COMMENTS: "",$$TEXT^ORU($G(OROOT6),"""")" ^ORD(100.23,1034,2,21,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1034,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"")" ^ORD(100.23,1034,4,0)="^^63^63^3010926" ^ORD(100.23,1034,4,1,0)="D LN^ORU4" ^ORD(100.23,1034,4,2,0)="D LN^ORU4" ^ORD(100.23,1034,4,3,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,4,0)="S X=$$S^ORU4(14,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1034,4,5,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,6,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,7,0)="S X=$$S^ORU4(29,.CCNT,""ORD: ""_$$DATE^ORU4($G(ORPODT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,8,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,9,0)="D LN^ORU4" ^ORD(100.23,1034,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,11,0)="S X=$$S^ORU4(14,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1034,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,14,0)="S X=$$S^ORU4(29,.CCNT,""LOC: ""_$G(ORPRLOC),.CCNT)" ^ORD(100.23,1034,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,16,0)="D LN^ORU4" ^ORD(100.23,1034,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,20,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,21,0)="S X=$$S^ORU4(29,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,22,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,23,0)="D LN^ORU4" ^ORD(100.23,1034,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,25,0)="S X=$$S^ORU4(0,.CCNT,""Entered By: ""_$$NAME^ORU4($G(ORPEB),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,27,0)="D LN^ORU4" ^ORD(100.23,1034,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,29,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,32,0)="S X=$$S^ORU4(29,.CCNT,""Start: ""_$$DATE^ORU4($G(ORPSTRT),""MM/DD/CCYY HR:MIN"",.ORHOOT,29,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,34,0)="D LN^ORU4" ^ORD(100.23,1034,4,35,0)="D LN^ORU4" ^ORD(100.23,1034,4,36,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,37,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,38,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,39,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,40,0)="S X=$$S^ORU4(49,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1034,4,41,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,42,0)="D LN^ORU4" ^ORD(100.23,1034,4,43,0)="D LN^ORU4" ^ORD(100.23,1034,4,44,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,45,0)="S X=$$S^ORU4(0,.CCNT,""""_""Time of Collection:_____________"",.CCNT)" ^ORD(100.23,1034,4,46,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,47,0)="D LN^ORU4" ^ORD(100.23,1034,4,48,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,49,0)="S X=$$S^ORU4(0,.CCNT,""Collection Sample: ""_$G(ORPCOT),.CCNT)" ^ORD(100.23,1034,4,50,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,51,0)="D LN^ORU4" ^ORD(100.23,1034,4,52,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,53,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(ORUT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,54,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,55,0)="D LN^ORU4" ^ORD(100.23,1034,4,56,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,57,0)="S X=$$S^ORU4(0,.CCNT,""""_$$TEXT^ORU4($G(OROT),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,58,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,59,0)="D LN^ORU4" ^ORD(100.23,1034,4,60,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1034,4,61,0)="S X=$$S^ORU4(0,.CCNT,""WARD COMMENTS: ""_$$TEXT^ORU4($G(OROOT6),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1034,4,62,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1034,4,63,0)="K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6" ^ORD(100.23,1035,0)="LAB ORDER LABEL New & reprint,WC,SP^12^80^^1" ^ORD(100.23,1035,1,0)="^100.231PI^20^18" ^ORD(100.23,1035,1,1,0)="1016^2^1^NONE" ^ORD(100.23,1035,1,2,0)="1017^2^52" ^ORD(100.23,1035,1,3,0)="1017^2^52" ^ORD(100.23,1035,1,4,0)="1001^1^39^NONE^^LAST,FIRST MI" ^ORD(100.23,1035,1,5,0)="1001^1^39^NONE" ^ORD(100.23,1035,1,6,0)="1002^2^39^NONE" ^ORD(100.23,1035,1,7,0)="1009^4^60^NONE" ^ORD(100.23,1035,1,8,0)="1008^4^58^NONE" ^ORD(100.23,1035,1,9,0)="1002^2^39^NONE" ^ORD(100.23,1035,1,10,0)="1009^4^60^NONE" ^ORD(100.23,1035,1,12,0)="1007^5^1" ^ORD(100.23,1035,1,13,0)="1011^6^1^Start Date: " ^ORD(100.23,1035,1,14,0)="1014^7^39^Drawn By: ^Specimen Label: " ^ORD(100.23,1035,1,15,0)="1019^7^1^NONE" ^ORD(100.23,1035,1,16,0)="1018^8^1^^^70" ^ORD(100.23,1035,1,18,0)="1020^7^39^Collected: " ^ORD(100.23,1035,1,19,0)="1014^9^1^^**LAB SLIP** BRING TO LAB" ^ORD(100.23,1035,1,20,0)="1014^7^39^^Specimen Label: " ^ORD(100.23,1035,1,"B",1001,4)="" ^ORD(100.23,1035,1,"B",1001,5)="" ^ORD(100.23,1035,1,"B",1002,6)="" ^ORD(100.23,1035,1,"B",1002,9)="" ^ORD(100.23,1035,1,"B",1007,12)="" ^ORD(100.23,1035,1,"B",1008,8)="" ^ORD(100.23,1035,1,"B",1009,7)="" ^ORD(100.23,1035,1,"B",1009,10)="" ^ORD(100.23,1035,1,"B",1011,13)="" ^ORD(100.23,1035,1,"B",1014,14)="" ^ORD(100.23,1035,1,"B",1014,19)="" ^ORD(100.23,1035,1,"B",1014,20)="" ^ORD(100.23,1035,1,"B",1016,1)="" ^ORD(100.23,1035,1,"B",1017,2)="" ^ORD(100.23,1035,1,"B",1017,3)="" ^ORD(100.23,1035,1,"B",1018,16)="" ^ORD(100.23,1035,1,"B",1019,15)="" ^ORD(100.23,1035,1,"B",1020,18)="" ^ORD(100.23,1035,2,0)="^^18^19^3010926" ^ORD(100.23,1035,2,1,0)="W ?38,"""",$$NAME^ORU($G(ORPNAME),"""")" ^ORD(100.23,1035,2,2,0)="W !?0,"""",$G(ORPCB)" ^ORD(100.23,1035,2,3,0)="W ?38,"""",$$SSN^ORU($G(ORPSSN),"""")" ^ORD(100.23,1035,2,4,0)="W ?51,""LB #"",$G(ORPLB)" ^ORD(100.23,1035,2,5,0)="W !" ^ORD(100.23,1035,2,6,0)="W !?57,"""",$G(ORPRMBED)" ^ORD(100.23,1035,2,7,0)="W ?59,"""",$G(ORPLOC)" ^ORD(100.23,1035,2,8,0)="W !?0,""PHY: "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1035,2,9,0)="W !?0,""Start Date: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1035,2,10,0)="W !?0,"""",$G(ORPURG)" ^ORD(100.23,1035,2,11,0)="W ?38,"""",""Specimen Label: """ ^ORD(100.23,1035,2,12,0)="W !?0,""Test: "",$$TMPWRAP^ORU($G(OROOT2),""70"")" ^ORD(100.23,1035,2,13,0)="W !?0,"""",""**LAB SLIP** BRING TO LAB""" ^ORD(100.23,1035,2,14,0)="W !" ^ORD(100.23,1035,2,15,0)="W !" ^ORD(100.23,1035,2,16,0)="W !" ^ORD(100.23,1035,2,18,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1035,3)="I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),""NW"",""WCSP"")" ^ORD(100.23,1035,4,0)="^^48^48^3010926" ^ORD(100.23,1035,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,2,0)="S X=$$S^ORU4(38,.CCNT,""""_$$NAME^ORU4($G(ORPNAME),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1035,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,4,0)="D LN^ORU4" ^ORD(100.23,1035,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPCB),.CCNT)" ^ORD(100.23,1035,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,9,0)="S X=$$S^ORU4(38,.CCNT,""""_$$SSN^ORU4($G(ORPSSN),"""",.ORHOOT,38,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1035,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,11,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,12,0)="S X=$$S^ORU4(51,.CCNT,""LB #""_$G(ORPLB),.CCNT)" ^ORD(100.23,1035,4,13,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,14,0)="D LN^ORU4" ^ORD(100.23,1035,4,15,0)="D LN^ORU4" ^ORD(100.23,1035,4,16,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,17,0)="S X=$$S^ORU4(57,.CCNT,""""_$G(ORPRMBED),.CCNT)" ^ORD(100.23,1035,4,18,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,19,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,20,0)="S X=$$S^ORU4(59,.CCNT,""""_$G(ORPLOC),.CCNT)" ^ORD(100.23,1035,4,21,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,22,0)="D LN^ORU4" ^ORD(100.23,1035,4,23,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,24,0)="S X=$$S^ORU4(0,.CCNT,""PHY: ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1035,4,25,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,26,0)="D LN^ORU4" ^ORD(100.23,1035,4,27,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,28,0)="S X=$$S^ORU4(0,.CCNT,""Start Date: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1035,4,29,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,30,0)="D LN^ORU4" ^ORD(100.23,1035,4,31,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,32,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPURG),.CCNT)" ^ORD(100.23,1035,4,33,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,34,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,35,0)="S X=$$S^ORU4(38,.CCNT,""""_""Specimen Label: "",.CCNT)" ^ORD(100.23,1035,4,36,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,37,0)="D LN^ORU4" ^ORD(100.23,1035,4,38,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,39,0)="S X=$$S^ORU4(0,.CCNT,""Test: ""_$$TMPWRAP^ORU4($G(OROOT2),""70"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1035,4,40,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,41,0)="D LN^ORU4" ^ORD(100.23,1035,4,42,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1035,4,43,0)="S X=$$S^ORU4(0,.CCNT,""""_""**LAB SLIP** BRING TO LAB"",.CCNT)" ^ORD(100.23,1035,4,44,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1035,4,45,0)="D LN^ORU4" ^ORD(100.23,1035,4,46,0)="D LN^ORU4" ^ORD(100.23,1035,4,47,0)="D LN^ORU4" ^ORD(100.23,1035,4,48,0)="K X,ORPNAME,ORPCB,ORPSSN,ORPLB,ORPRMBED,ORPLOC,ORPRPHY,ORPSTRT,ORPURG,OROOT2" ^ORD(100.23,1036,0)="FH OUTPT MEAL TICKET^40^^50^0" ^ORD(100.23,1036,1,0)="^100.231PI^14^11" ^ORD(100.23,1036,1,1,0)="1001^3^1^Name of Pt: ^^FIRST LAST" ^ORD(100.23,1036,1,2,0)="2005^3^40^Req Loc : " ^ORD(100.23,1036,1,3,0)="1007^4^40^Req Phys : " ^ORD(100.23,1036,1,4,0)="1011^4^1^Start Date: " ^ORD(100.23,1036,1,5,0)="1012^5^1^Stop Date : " ^ORD(100.23,1036,1,9,0)="1010^10^1^Pt Authorized a: " ^ORD(100.23,1036,1,10,0)="1014^30^1^^ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED." ^ORD(100.23,1036,1,11,0)="2004^5^40^E/S Name : " ^ORD(100.23,1036,1,12,0)="2002^6^40^E/S Title: " ^ORD(100.23,1036,1,13,0)="2003^7^40^E/S Date : " ^ORD(100.23,1036,1,14,0)="2006^3^30^^^^1" ^ORD(100.23,1036,1,"B",1001,1)="" ^ORD(100.23,1036,1,"B",1007,3)="" ^ORD(100.23,1036,1,"B",1010,9)="" ^ORD(100.23,1036,1,"B",1011,4)="" ^ORD(100.23,1036,1,"B",1012,5)="" ^ORD(100.23,1036,1,"B",1014,10)="" ^ORD(100.23,1036,1,"B",2002,12)="" ^ORD(100.23,1036,1,"B",2003,13)="" ^ORD(100.23,1036,1,"B",2004,11)="" ^ORD(100.23,1036,1,"B",2005,2)="" ^ORD(100.23,1036,1,"B",2006,14)="" ^ORD(100.23,1036,2,0)="^^46^47^3050818" ^ORD(100.23,1036,2,1,0)="W !" ^ORD(100.23,1036,2,2,0)="W !" ^ORD(100.23,1036,2,3,0)="W !?0,""Name of Pt: "",$$NAME^ORU($G(ORPNAME),""FIRST LAST"")" ^ORD(100.23,1036,2,4,0)="W ?29,$S($L($G(ORPLAST4)):"""",1:""""),$G(ORPLAST4)" ^ORD(100.23,1036,2,5,0)="W ?39,""Req Loc : "",$G(ORPRLOC)" ^ORD(100.23,1036,2,6,0)="W !?0,""Start Date: "",$$DATE^ORU($G(ORPSTRT),"""")" ^ORD(100.23,1036,2,7,0)="W ?39,""Req Phys : "",$$NAME^ORU($G(ORPRPHY),"""")" ^ORD(100.23,1036,2,8,0)="W !?0,""Stop Date : "",$$DATE^ORU($G(ORPSTOP),"""")" ^ORD(100.23,1036,2,9,0)="W ?39,""E/S Name : "",$G(ORPES)" ^ORD(100.23,1036,2,10,0)="W !?39,""E/S Title: "",$G(ORPDOT)" ^ORD(100.23,1036,2,11,0)="W !?39,""E/S Date : "",$$DATETIME^ORU($G(ORPESD),"""")" ^ORD(100.23,1036,2,12,0)="W !" ^ORD(100.23,1036,2,13,0)="W !" ^ORD(100.23,1036,2,14,0)="W !?0,""Pt Authorized a: "",$$TMPWRAP^ORU($G(OROOT),"""")" ^ORD(100.23,1036,2,15,0)="W !" ^ORD(100.23,1036,2,16,0)="W !" ^ORD(100.23,1036,2,17,0)="W !" ^ORD(100.23,1036,2,18,0)="W !" ^ORD(100.23,1036,2,19,0)="W !" ^ORD(100.23,1036,2,20,0)="W !" ^ORD(100.23,1036,2,21,0)="W !" ^ORD(100.23,1036,2,22,0)="W !" ^ORD(100.23,1036,2,23,0)="W !" ^ORD(100.23,1036,2,24,0)="W !" ^ORD(100.23,1036,2,25,0)="W !" ^ORD(100.23,1036,2,26,0)="W !" ^ORD(100.23,1036,2,27,0)="W !" ^ORD(100.23,1036,2,28,0)="W !" ^ORD(100.23,1036,2,29,0)="W !" ^ORD(100.23,1036,2,30,0)="W !" ^ORD(100.23,1036,2,31,0)="W !" ^ORD(100.23,1036,2,32,0)="W !" ^ORD(100.23,1036,2,33,0)="W !" ^ORD(100.23,1036,2,34,0)="W !?0,"""",""ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED.""" ^ORD(100.23,1036,2,35,0)="W !" ^ORD(100.23,1036,2,36,0)="W !" ^ORD(100.23,1036,2,37,0)="W !" ^ORD(100.23,1036,2,38,0)="W !" ^ORD(100.23,1036,2,39,0)="W !" ^ORD(100.23,1036,2,40,0)="W !" ^ORD(100.23,1036,2,41,0)="W !" ^ORD(100.23,1036,2,42,0)="W !" ^ORD(100.23,1036,2,43,0)="W !" ^ORD(100.23,1036,2,44,0)="W !" ^ORD(100.23,1036,2,46,0)="K X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT" ^ORD(100.23,1036,4,0)="^^74^74^3050818" ^ORD(100.23,1036,4,1,0)="D LN^ORU4" ^ORD(100.23,1036,4,2,0)="D LN^ORU4" ^ORD(100.23,1036,4,3,0)="D LN^ORU4" ^ORD(100.23,1036,4,4,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,5,0)="S X=$$S^ORU4(0,.CCNT,""Name of Pt: ""_$$NAME^ORU4($G(ORPNAME),""FIRST LAST"",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,6,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,7,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,8,0)="S X=$$S^ORU4(29,.CCNT,$S($L($G(ORPLAST4)):"""",1:"""")_$G(ORPLAST4),.CCNT)" ^ORD(100.23,1036,4,9,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,10,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,11,0)="S X=$$S^ORU4(39,.CCNT,""Req Loc : ""_$G(ORPRLOC),.CCNT)" ^ORD(100.23,1036,4,12,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,13,0)="D LN^ORU4" ^ORD(100.23,1036,4,14,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,15,0)="S X=$$S^ORU4(0,.CCNT,""Start Date: ""_$$DATE^ORU4($G(ORPSTRT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,16,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,18,0)="S X=$$S^ORU4(39,.CCNT,""Req Phys : ""_$$NAME^ORU4($G(ORPRPHY),"""",.ORHOOT,39,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,20,0)="D LN^ORU4" ^ORD(100.23,1036,4,21,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,22,0)="S X=$$S^ORU4(0,.CCNT,""Stop Date : ""_$$DATE^ORU4($G(ORPSTOP),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,23,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,24,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,25,0)="S X=$$S^ORU4(39,.CCNT,""E/S Name : ""_$G(ORPES),.CCNT)" ^ORD(100.23,1036,4,26,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,27,0)="D LN^ORU4" ^ORD(100.23,1036,4,28,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,29,0)="S X=$$S^ORU4(39,.CCNT,""E/S Title: ""_$G(ORPDOT),.CCNT)" ^ORD(100.23,1036,4,30,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,31,0)="D LN^ORU4" ^ORD(100.23,1036,4,32,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,33,0)="S X=$$S^ORU4(39,.CCNT,""E/S Date : ""_$$DATETIME^ORU4($G(ORPESD),"""",.ORHOOT,39,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,34,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,35,0)="D LN^ORU4" ^ORD(100.23,1036,4,36,0)="D LN^ORU4" ^ORD(100.23,1036,4,37,0)="D LN^ORU4" ^ORD(100.23,1036,4,38,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,39,0)="S X=$$S^ORU4(0,.CCNT,""Pt Authorized a: ""_$$TMPWRAP^ORU4($G(OROOT),"""",.ORHOOT,0,.GCNT,.CCNT),.CCNT)" ^ORD(100.23,1036,4,40,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,41,0)="D LN^ORU4" ^ORD(100.23,1036,4,42,0)="D LN^ORU4" ^ORD(100.23,1036,4,43,0)="D LN^ORU4" ^ORD(100.23,1036,4,44,0)="D LN^ORU4" ^ORD(100.23,1036,4,45,0)="D LN^ORU4" ^ORD(100.23,1036,4,46,0)="D LN^ORU4" ^ORD(100.23,1036,4,47,0)="D LN^ORU4" ^ORD(100.23,1036,4,48,0)="D LN^ORU4" ^ORD(100.23,1036,4,49,0)="D LN^ORU4" ^ORD(100.23,1036,4,50,0)="D LN^ORU4" ^ORD(100.23,1036,4,51,0)="D LN^ORU4" ^ORD(100.23,1036,4,52,0)="D LN^ORU4" ^ORD(100.23,1036,4,53,0)="D LN^ORU4" ^ORD(100.23,1036,4,54,0)="D LN^ORU4" ^ORD(100.23,1036,4,55,0)="D LN^ORU4" ^ORD(100.23,1036,4,56,0)="D LN^ORU4" ^ORD(100.23,1036,4,57,0)="D LN^ORU4" ^ORD(100.23,1036,4,58,0)="D LN^ORU4" ^ORD(100.23,1036,4,59,0)="D LN^ORU4" ^ORD(100.23,1036,4,60,0)="D LN^ORU4" ^ORD(100.23,1036,4,61,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1036,4,62,0)="S X=$$S^ORU4(0,.CCNT,""""_""ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED."",.CCNT)" ^ORD(100.23,1036,4,63,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1036,4,64,0)="D LN^ORU4" ^ORD(100.23,1036,4,65,0)="D LN^ORU4" ^ORD(100.23,1036,4,66,0)="D LN^ORU4" ^ORD(100.23,1036,4,67,0)="D LN^ORU4" ^ORD(100.23,1036,4,68,0)="D LN^ORU4" ^ORD(100.23,1036,4,69,0)="D LN^ORU4" ^ORD(100.23,1036,4,70,0)="D LN^ORU4" ^ORD(100.23,1036,4,71,0)="D LN^ORU4" ^ORD(100.23,1036,4,72,0)="D LN^ORU4" ^ORD(100.23,1036,4,73,0)="D LN^ORU4" ^ORD(100.23,1036,4,74,0)="K X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT" ^ORD(100.23,1037,0)="FH OUTPT MEAL HEADER^3" ^ORD(100.23,1037,1,0)="^100.231PI^5^3" ^ORD(100.23,1037,1,1,0)="1029^1^1" ^ORD(100.23,1037,1,2,0)="1029^3^1" ^ORD(100.23,1037,1,5,0)="1014^2^1^^ A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R" ^ORD(100.23,1037,1,"B",1014,5)="" ^ORD(100.23,1037,1,"B",1029,1)="" ^ORD(100.23,1037,1,"B",1029,2)="" ^ORD(100.23,1037,2,0)="^100.232^4^4^3040407^" ^ORD(100.23,1037,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1037,2,2,0)="W !?0,"""","" A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R""" ^ORD(100.23,1037,2,3,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1037,2,4,0)="K X,ORPLINE,ORPLINE" ^ORD(100.23,1037,4,0)="^^12^12^3040407^" ^ORD(100.23,1037,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1037,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1037,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1037,4,4,0)="D LN^ORU4" ^ORD(100.23,1037,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1037,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_"" A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R"",.CCNT)" ^ORD(100.23,1037,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1037,4,8,0)="D LN^ORU4" ^ORD(100.23,1037,4,9,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1037,4,10,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1037,4,11,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1037,4,12,0)="K X,ORPLINE,ORPLINE" ^ORD(100.23,1038,0)="FH OUTPT MEAL FOOTER^5" ^ORD(100.23,1038,1,0)="^100.231PI^6^5" ^ORD(100.23,1038,1,1,0)="1014^2^1^^In lieu of VA Form 10-2817" ^ORD(100.23,1038,1,3,0)="1029^1^1" ^ORD(100.23,1038,1,4,0)="1029^5^1" ^ORD(100.23,1038,1,5,0)="1014^4^1^^NAME OF FACILITY COULD PRINT HERE" ^ORD(100.23,1038,1,6,0)="1074^2^39" ^ORD(100.23,1038,1,"B",1014,1)="" ^ORD(100.23,1038,1,"B",1014,5)="" ^ORD(100.23,1038,1,"B",1029,3)="" ^ORD(100.23,1038,1,"B",1029,4)="" ^ORD(100.23,1038,1,"B",1074,6)="" ^ORD(100.23,1038,2,0)="^100.232^7^7^3040526^^^" ^ORD(100.23,1038,2,1,0)="W ?0,"""",$G(ORPLINE)" ^ORD(100.23,1038,2,2,0)="W !?0,"""",""In lieu of VA FORM 10-2817""" ^ORD(100.23,1038,2,3,0)="W ?39,"""",$G(ORPMAN)" ^ORD(100.23,1038,2,4,0)="W !" ^ORD(100.23,1038,2,5,0)="W !?0,"""",""Facility: ""_$P($$SITE^VASITE,U,2)" ^ORD(100.23,1038,2,6,0)="W !?0,"""",$G(ORPLINE)" ^ORD(100.23,1038,2,7,0)="K X,ORPLINE,ORPMAN,ORPLINE" ^ORD(100.23,1038,4,0)="^100.234^20^20^3040526^^^" ^ORD(100.23,1038,4,1,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1038,4,2,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1038,4,3,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1038,4,4,0)="D LN^ORU4" ^ORD(100.23,1038,4,5,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1038,4,6,0)="S X=$$S^ORU4(0,.CCNT,""""_""In lieu of VA FORM 10-2817"",.CCNT)" ^ORD(100.23,1038,4,7,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1038,4,8,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1038,4,9,0)="S X=$$S^ORU4(39,.CCNT,""""_$G(ORPMAN),.CCNT)" ^ORD(100.23,1038,4,10,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1038,4,11,0)="D LN^ORU4" ^ORD(100.23,1038,4,12,0)="D LN^ORU4" ^ORD(100.23,1038,4,13,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1038,4,14,0)="S X=$$S^ORU4(0,.CCNT,""""""Facility: ""_$P($$SITE^VASITE,U,2),.CCNT)" ^ORD(100.23,1038,4,15,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1038,4,16,0)="D LN^ORU4" ^ORD(100.23,1038,4,17,0)="S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""""" ^ORD(100.23,1038,4,18,0)="S X=$$S^ORU4(0,.CCNT,""""_$G(ORPLINE),.CCNT)" ^ORD(100.23,1038,4,19,0)="I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X" ^ORD(100.23,1038,4,20,0)="K X,ORPLINE,ORPMAN,ORPLINE" ^ORD(100.23,"B","CHART COPY 1",1004)="" ^ORD(100.23,"B","CHART COPY 2",1005)="" ^ORD(100.23,"B","CHART COPY 3",1027)="" ^ORD(100.23,"B","CHART COPY BODY",1015)="" ^ORD(100.23,"B","CHART COPY FOOTER",1007)="" ^ORD(100.23,"B","CHART COPY HEADER",1006)="" ^ORD(100.23,"B","CONSULT NEW BODY",1029)="" ^ORD(100.23,"B","CONSULTATION BODY",1013)="" ^ORD(100.23,"B","CONSULTATION FOOTER",1011)="" ^ORD(100.23,"B","CONSULTATION HEADER",1012)="" ^ORD(100.23,"B","CONSULTS SERVICE COPY",1028)="" ^ORD(100.23,"B","DOCTOR'S ORDERS",1010)="" ^ORD(100.23,"B","DOCTOR'S ORDERS HEADER",1017)="" ^ORD(100.23,"B","DOCTORS ORDERS FOOTER",1016)="" ^ORD(100.23,"B","FH OUTPT MEAL FOOTER",1038)="" ^ORD(100.23,"B","FH OUTPT MEAL HEADER",1037)="" ^ORD(100.23,"B","FH OUTPT MEAL TICKET",1036)="" ^ORD(100.23,"B","GENERIC ORDER LABEL",1022)="" ^ORD(100.23,"B","LAB LABEL (Buffalo)",1020)="" ^ORD(100.23,"B","LAB LABEL (Buffalo)-WC New Ord",1030)="" ^ORD(100.23,"B","LAB LABEL/INTERMEC-WC New Orde",1031)="" ^ORD(100.23,"B","LAB ORDER LABEL",1002)="" ^ORD(100.23,"B","LAB ORDER LABEL New & reprint,",1035)="" ^ORD(100.23,"B","LAB ORDER LABEL-WC New Orders ",1032)="" ^ORD(100.23,"B","LAB REQUISITION",1003)="" ^ORD(100.23,"B","LAB REQUISITION New & reprint ",1034)="" ^ORD(100.23,"B","LAB REQUISITION New & reprint,",1033)="" ^ORD(100.23,"B","LAB SERVICE COPY HEADER",1018)="" ^ORD(100.23,"B","LONG",1009)="" ^ORD(100.23,"B","RX FOOTER",1021)="" ^ORD(100.23,"B","RX HEADER",1019)="" ^ORD(100.23,"B","RX LABEL FORMAT",1026)="" ^ORD(100.23,"B","SHORT",1008)="" ^ORD(100.23,"B","WORK COPY FOOTER",1025)="" ^ORD(100.23,"B","WORK COPY FORMAT",1023)="" ^ORD(100.23,"B","WORK COPY HEADER",1024)="" ^ORD(100.5,0)="OE/RR RELEASE EVENTS^100.5I^^" ^ORD(100.6,0)="OE/RR AUTO-DC RULES^100.6I^10^10" ^ORD(100.6,1,0)="ADMISSION^A^1^11^ADMISSION" ^ORD(100.6,1,1)="3020724.150458" ^ORD(100.6,1,3,0)="^100.63P^9^9" ^ORD(100.6,1,3,1,0)="8" ^ORD(100.6,1,3,2,0)="9" ^ORD(100.6,1,3,3,0)="15" ^ORD(100.6,1,3,4,0)="18" ^ORD(100.6,1,3,5,0)="28" ^ORD(100.6,1,3,6,0)="29" ^ORD(100.6,1,3,7,0)="30" ^ORD(100.6,1,3,8,0)="36" ^ORD(100.6,1,3,9,0)="39" ^ORD(100.6,1,3,"B",8,1)="" ^ORD(100.6,1,3,"B",9,2)="" ^ORD(100.6,1,3,"B",15,3)="" ^ORD(100.6,1,3,"B",18,4)="" ^ORD(100.6,1,3,"B",28,5)="" ^ORD(100.6,1,3,"B",29,6)="" ^ORD(100.6,1,3,"B",30,7)="" ^ORD(100.6,1,3,"B",36,8)="" ^ORD(100.6,1,3,"B",39,9)="" ^ORD(100.6,1,7,0)="^100.67P^1^1" ^ORD(100.6,1,7,1,0)="35" ^ORD(100.6,1,7,"B",35,1)="" ^ORD(100.6,1,9,0)="^100.681DA^1^1" ^ORD(100.6,1,9,1,0)="3020724.150458^1^N" ^ORD(100.6,1,9,"B",3020724.150458,1)="" ^ORD(100.6,2,0)="SPECIALTY CHANGE^S^1^10^SPECIALTY CHANGE" ^ORD(100.6,2,1)="3020724.150458" ^ORD(100.6,2,3,0)="^100.63P^1^1" ^ORD(100.6,2,3,1,0)="20" ^ORD(100.6,2,3,"B",20,1)="" ^ORD(100.6,2,7,0)="^100.67P^0^0" ^ORD(100.6,2,9,0)="^100.681DA^1^1" ^ORD(100.6,2,9,1,0)="3020724.150458^1^N" ^ORD(100.6,2,9,"B",3020724.150458,1)="" ^ORD(100.6,3,0)="WARD TRANSFER^T^1^9^WARD TRANSFER" ^ORD(100.6,3,1)="3020724.150458" ^ORD(100.6,3,3,0)="^100.63P^1^1" ^ORD(100.6,3,3,1,0)="4" ^ORD(100.6,3,3,"B",4,1)="" ^ORD(100.6,3,7,0)="^100.67P^1^1" ^ORD(100.6,3,7,1,0)="35" ^ORD(100.6,3,7,"B",35,1)="" ^ORD(100.6,3,9,0)="^100.681DA^1^1" ^ORD(100.6,3,9,1,0)="3020724.150458^1^N" ^ORD(100.6,3,9,"B",3020724.150458,1)="" ^ORD(100.6,4,0)="DISCHARGE^D^1^8^DISCHARGE" ^ORD(100.6,4,2,0)="^100.61DA^1^1" ^ORD(100.6,4,2,1,0)="3020724.150458" ^ORD(100.6,4,2,"ACT",1)="" ^ORD(100.6,4,2,"B",3020724.150458,1)="" ^ORD(100.6,4,3,0)="^100.63P^15^15" ^ORD(100.6,4,3,1,0)="10" ^ORD(100.6,4,3,2,0)="11" ^ORD(100.6,4,3,3,0)="16" ^ORD(100.6,4,3,4,0)="17" ^ORD(100.6,4,3,5,0)="21" ^ORD(100.6,4,3,6,0)="27" ^ORD(100.6,4,3,7,0)="31" ^ORD(100.6,4,3,8,0)="32" ^ORD(100.6,4,3,9,0)="33" ^ORD(100.6,4,3,10,0)="34" ^ORD(100.6,4,3,11,0)="35" ^ORD(100.6,4,3,12,0)="37" ^ORD(100.6,4,3,13,0)="42" ^ORD(100.6,4,3,14,0)="46" ^ORD(100.6,4,3,15,0)="47" ^ORD(100.6,4,3,"B",10,1)="" ^ORD(100.6,4,3,"B",11,2)="" ^ORD(100.6,4,3,"B",16,3)="" ^ORD(100.6,4,3,"B",17,4)="" ^ORD(100.6,4,3,"B",21,5)="" ^ORD(100.6,4,3,"B",27,6)="" ^ORD(100.6,4,3,"B",31,7)="" ^ORD(100.6,4,3,"B",32,8)="" ^ORD(100.6,4,3,"B",33,9)="" ^ORD(100.6,4,3,"B",34,10)="" ^ORD(100.6,4,3,"B",35,11)="" ^ORD(100.6,4,3,"B",37,12)="" ^ORD(100.6,4,3,"B",42,13)="" ^ORD(100.6,4,3,"B",46,14)="" ^ORD(100.6,4,3,"B",47,15)="" ^ORD(100.6,4,7,0)="^100.67P^2^2" ^ORD(100.6,4,7,1,0)="35" ^ORD(100.6,4,7,2,0)="9" ^ORD(100.6,4,7,"B",9,2)="" ^ORD(100.6,4,7,"B",35,1)="" ^ORD(100.6,4,9,0)="^100.681DA^1^1" ^ORD(100.6,4,9,1,0)="3020724.150458^1^N" ^ORD(100.6,4,9,"B",3020724.150458,1)="" ^ORD(100.6,5,0)="DEATH^D^1^17^DEATH" ^ORD(100.6,5,2,0)="^100.61DA^1^1" ^ORD(100.6,5,2,1,0)="3020724.150458" ^ORD(100.6,5,2,"ACT",1)="" ^ORD(100.6,5,2,"B",3020724.150458,1)="" ^ORD(100.6,5,3,0)="^100.63P^2^2" ^ORD(100.6,5,3,1,0)="12" ^ORD(100.6,5,3,2,0)="38" ^ORD(100.6,5,3,"B",12,1)="" ^ORD(100.6,5,3,"B",38,2)="" ^ORD(100.6,5,7,0)="^100.67P^4^4" ^ORD(100.6,5,7,1,0)="35" ^ORD(100.6,5,7,2,0)="9" ^ORD(100.6,5,7,3,0)="44" ^ORD(100.6,5,7,4,0)="115" ^ORD(100.6,5,7,"B",9,2)="" ^ORD(100.6,5,7,"B",35,1)="" ^ORD(100.6,5,7,"B",44,3)="" ^ORD(100.6,5,7,"B",115,4)="" ^ORD(100.6,5,9,0)="^100.681DA^1^1" ^ORD(100.6,5,9,1,0)="3020724.150458^1^N" ^ORD(100.6,5,9,"B",3020724.150458,1)="" ^ORD(100.6,6,0)="SURGERY^O^1^20^SURGERY" ^ORD(100.6,6,1)="3020724.150458" ^ORD(100.6,6,7,0)="^100.67P^1^1" ^ORD(100.6,6,7,1,0)="35" ^ORD(100.6,6,7,"B",35,1)="" ^ORD(100.6,6,9,0)="^100.681DA^1^1" ^ORD(100.6,6,9,1,0)="3020724.150458^1^N" ^ORD(100.6,6,9,"B",3020724.150458,1)="" ^ORD(100.6,7,0)="ON PASS^T^1^21^ON PASS" ^ORD(100.6,7,1)="3020724.150458" ^ORD(100.6,7,3,0)="^100.63P^3^3" ^ORD(100.6,7,3,1,0)="1" ^ORD(100.6,7,3,2,0)="2" ^ORD(100.6,7,3,3,0)="3" ^ORD(100.6,7,3,"B",1,1)="" ^ORD(100.6,7,3,"B",2,2)="" ^ORD(100.6,7,3,"B",3,3)="" ^ORD(100.6,7,9,0)="^100.681DA^1^1" ^ORD(100.6,7,9,1,0)="3020724.150458^1^N" ^ORD(100.6,7,9,"B",3020724.150458,1)="" ^ORD(100.6,8,0)="FROM PASS^T^1^21^FROM PASS" ^ORD(100.6,8,1)="3020724.150458" ^ORD(100.6,8,3,0)="^100.63P^5^5" ^ORD(100.6,8,3,1,0)="22" ^ORD(100.6,8,3,2,0)="23" ^ORD(100.6,8,3,3,0)="24" ^ORD(100.6,8,3,4,0)="25" ^ORD(100.6,8,3,5,0)="26" ^ORD(100.6,8,3,"B",22,1)="" ^ORD(100.6,8,3,"B",23,2)="" ^ORD(100.6,8,3,"B",24,3)="" ^ORD(100.6,8,3,"B",25,4)="" ^ORD(100.6,8,3,"B",26,5)="" ^ORD(100.6,8,9,0)="^100.681DA^1^1" ^ORD(100.6,8,9,1,0)="3020724.150458^1^N" ^ORD(100.6,8,9,"B",3020724.150458,1)="" ^ORD(100.6,9,0)="TO ASIH^T^1^22^TO ASIH" ^ORD(100.6,9,1)="3020724.150458" ^ORD(100.6,9,3,0)="^100.63P^1^1" ^ORD(100.6,9,3,1,0)="13" ^ORD(100.6,9,3,"B",13,1)="" ^ORD(100.6,9,9,0)="^100.681DA^1^1" ^ORD(100.6,9,9,1,0)="3020724.150458^1^N" ^ORD(100.6,9,9,"B",3020724.150458,1)="" ^ORD(100.6,10,0)="FROM ASIH^T^1^22^FROM ASIH" ^ORD(100.6,10,1)="3020724.150458" ^ORD(100.6,10,3,0)="^100.63P^1^1" ^ORD(100.6,10,3,1,0)="14" ^ORD(100.6,10,3,"B",14,1)="" ^ORD(100.6,10,9,0)="^100.681DA^1^1" ^ORD(100.6,10,9,1,0)="3020724.150458^1^N" ^ORD(100.6,10,9,"B",3020724.150458,1)="" ^ORD(100.6,"AC",1,10,4)="" ^ORD(100.6,"AC",1,11,4)="" ^ORD(100.6,"AC",1,12,5)="" ^ORD(100.6,"AC",1,16,4)="" ^ORD(100.6,"AC",1,17,4)="" ^ORD(100.6,"AC",1,21,4)="" ^ORD(100.6,"AC",1,27,4)="" ^ORD(100.6,"AC",1,31,4)="" ^ORD(100.6,"AC",1,32,4)="" ^ORD(100.6,"AC",1,33,4)="" ^ORD(100.6,"AC",1,34,4)="" ^ORD(100.6,"AC",1,35,4)="" ^ORD(100.6,"AC",1,37,4)="" ^ORD(100.6,"AC",1,38,5)="" ^ORD(100.6,"AC",1,42,4)="" ^ORD(100.6,"AC",1,46,4)="" ^ORD(100.6,"AC",1,47,4)="" ^ORD(100.6,"AE",1,"D",4)="" ^ORD(100.6,"AE",1,"D",5)="" ^ORD(100.6,"B","ADMISSION",1)="" ^ORD(100.6,"B","DEATH",5)="" ^ORD(100.6,"B","DISCHARGE",4)="" ^ORD(100.6,"B","FROM ASIH",10)="" ^ORD(100.6,"B","FROM PASS",8)="" ^ORD(100.6,"B","ON PASS",7)="" ^ORD(100.6,"B","SPECIALTY CHANGE",2)="" ^ORD(100.6,"B","SURGERY",6)="" ^ORD(100.6,"B","TO ASIH",9)="" ^ORD(100.6,"B","WARD TRANSFER",3)="" ^ORD(100.6,"D",1,1)="" ^ORD(100.6,"D",1,2)="" ^ORD(100.6,"D",1,3)="" ^ORD(100.6,"D",1,4)="" ^ORD(100.6,"D",1,5)="" ^ORD(100.6,"D",1,6)="" ^ORD(100.6,"D",1,7)="" ^ORD(100.6,"D",1,8)="" ^ORD(100.6,"D",1,9)="" ^ORD(100.6,"D",1,10)="" ^ORD(100.8,0)="ORDER CHECKS^100.8^33^27" ^ORD(100.8,1,0)="ESTIMATED CREATININE CLEARANCE" ^ORD(100.8,1,1,0)="^^4^4^3010429^" ^ORD(100.8,1,1,1,0)="Triggered upon entry into a pharmacy ordering dialog. CPRS" ^ORD(100.8,1,1,2,0)="calculates the creatinine clearance based on the most recent serum" ^ORD(100.8,1,1,3,0)="creatinine results. If the value is less than 50 or it cannot be " ^ORD(100.8,1,1,4,0)="calculated, the order check occurs." ^ORD(100.8,2,0)="ORDER CHECKING NOT AVAILABLE" ^ORD(100.8,2,1,0)="^^4^4^3010429^" ^ORD(100.8,2,1,1,0)="Triggered upon entry of any ordering dialog. If the parameter" ^ORD(100.8,2,1,2,0)="indicating the order checking system is disabled rather than enabled, the" ^ORD(100.8,2,1,3,0)="warning message occurs. [Note: this order check is currently not" ^ORD(100.8,2,1,4,0)="triggered.]" ^ORD(100.8,3,0)="ALLERGY-DRUG INTERACTION" ^ORD(100.8,3,1,0)="^^4^4^3010429^" ^ORD(100.8,3,1,1,0)="Triggered by acceptance of a medication order. The Allergy" ^ORD(100.8,3,1,2,0)="Tracking System checks to determine if the patient has an allergy to the" ^ORD(100.8,3,1,3,0)="medication or medication's ingredients/VA drug class. If so, the order " ^ORD(100.8,3,1,4,0)="check occurs." ^ORD(100.8,4,0)="ALLERGY-CONTRAST MEDIA INTERACTION" ^ORD(100.8,4,1,0)="^100.82^4^4^3010429^^" ^ORD(100.8,4,1,1,0)="Triggered by selection of Imaging orderable items. CPRS checks to see if " ^ORD(100.8,4,1,2,0)="the imaging orderable item uses a contrast media. If so, and the" ^ORD(100.8,4,1,3,0)="patient has an Allergy Tracking System entry indicating allergy to contrast " ^ORD(100.8,4,1,4,0)="medias, the order check occurs." ^ORD(100.8,8,0)="CT & MRI PHYSICAL LIMITATIONS" ^ORD(100.8,8,1,0)="^^4^4^3010429^" ^ORD(100.8,8,1,1,0)="Triggered by selection of Imaging orderable items. CPRS" ^ORD(100.8,8,1,2,0)="compares patient height and weight with parameter values related to the" ^ORD(100.8,8,1,3,0)="maximum height and weight tolerances of CT and MRI devices at the site. If" ^ORD(100.8,8,1,4,0)="patient exceed limits, the order check occurs." ^ORD(100.8,9,0)="BIOCHEM ABNORMALITY FOR CONTRAST MEDIA" ^ORD(100.8,9,1,0)="^^4^4^3010429^" ^ORD(100.8,9,1,1,0)="Triggered by selection of Imaging orderable items. CPRS checks" ^ORD(100.8,9,1,2,0)="to see if the imaging orderable item uses a contrast media. If so and the" ^ORD(100.8,9,1,3,0)="patient's BUN and/or creatinine results are abnormal or critical, the order" ^ORD(100.8,9,1,4,0)="check occurs." ^ORD(100.8,11,0)="DUPLICATE ORDER" ^ORD(100.8,11,1,0)="^^4^4^3010429^" ^ORD(100.8,11,1,1,0)="Triggered at acceptance of non-pharmacy orderable items. If the" ^ORD(100.8,11,1,2,0)="order is placed within duplicate hour values set by order check parameters " ^ORD(100.8,11,1,3,0)="for that orderable item or order type (Lab, Imaging, Consults), the order " ^ORD(100.8,11,1,4,0)="check occurs." ^ORD(100.8,14,0)="RECENT BARIUM STUDY" ^ORD(100.8,14,1,0)="^^4^4^3010429^" ^ORD(100.8,14,1,1,0)="Triggered by selection of Imaging orderable items. If the" ^ORD(100.8,14,1,2,0)="imaging procedure ordered uses a barium contrast media and the patient has" ^ORD(100.8,14,1,3,0)="another barium-using procedure ordered within the past 48 hours, the order" ^ORD(100.8,14,1,4,0)="check occurs." ^ORD(100.8,15,0)="RECENT ORAL CHOLECYSTOGRAM" ^ORD(100.8,15,1,0)="^100.82^3^3^3010429^^" ^ORD(100.8,15,1,1,0)="Triggered by acceptance of Imaging orderable items. If the" ^ORD(100.8,15,1,2,0)="imaging procedure ordered is a cholecystogram and the patient has another " ^ORD(100.8,15,1,3,0)="cholecystogram order within the past 7 days, the order check occurs." ^ORD(100.8,16,0)="DUPLICATE DRUG ORDER" ^ORD(100.8,16,1,0)="^^4^4^3010429^" ^ORD(100.8,16,1,1,0)="Triggered at order acceptance for existing meds and at" ^ORD(100.8,16,1,2,0)="conclusion of ordering session against meds ordered within that session. If" ^ORD(100.8,16,1,3,0)="the patient is receiving a med that matches the ordered med in the local " ^ORD(100.8,16,1,4,0)="drug file (formulary), the order check occurs." ^ORD(100.8,17,0)="DUPLICATE DRUG CLASS ORDER" ^ORD(100.8,17,1,0)="^^4^4^3010429^" ^ORD(100.8,17,1,1,0)="Triggered at order acceptance for existing meds and at" ^ORD(100.8,17,1,2,0)="conclusion of ordering session against meds ordered within that session. If" ^ORD(100.8,17,1,3,0)="the patient is currently receiving a med that belongs to the ordered med's " ^ORD(100.8,17,1,4,0)="VA Drug Class, the order check occurs." ^ORD(100.8,18,0)="CRITICAL DRUG INTERACTION" ^ORD(100.8,18,1,0)="^^4^4^3010429^" ^ORD(100.8,18,1,1,0)="Triggered at order acceptance for existing meds and at" ^ORD(100.8,18,1,2,0)="conclusion of ordering session against meds ordered within that session." ^ORD(100.8,18,1,3,0)="Pharmacy is asked if patient is currently receiving a critically " ^ORD(100.8,18,1,4,0)="interacting medication. If so, the order check occurs." ^ORD(100.8,19,0)="CLOZAPINE APPROPRIATENESS" ^ORD(100.8,19,1,0)="^^3^3^3010429^" ^ORD(100.8,19,1,1,0)="Triggered by ordering Clozapine. CPRS asks Pharmacy if the" ^ORD(100.8,19,1,2,0)="medication is clozapine. If so, it checks for WBC and/or ANC results. " ^ORD(100.8,19,1,3,0)="If lab results are abnormal or unavailable, the order check occurs." ^ORD(100.8,20,0)="AMINOGLYCOSIDE ORDERED" ^ORD(100.8,20,1,0)="^^4^4^3010429^" ^ORD(100.8,20,1,1,0)="Triggered at completion of the ordering session. For each" ^ORD(100.8,20,1,2,0)="medication order placed during the ordering session, CPRS requests the" ^ORD(100.8,20,1,3,0)="pharmacy package to determine if it belongs to the VA Drug Class" ^ORD(100.8,20,1,4,0)="'Aminoglycosides'. If so, the order check occurs." ^ORD(100.8,21,0)="RENAL FUNCTIONS OVER AGE 65" ^ORD(100.8,21,1,0)="^^2^2^3010429^" ^ORD(100.8,21,1,1,0)="Triggered upon entry into a pharmacy ordering dialog. If the" ^ORD(100.8,21,1,2,0)="patient's age is greater than 65, the order check occurs." ^ORD(100.8,22,0)="MISSING LAB TESTS FOR ANGIOGRAM PROCEDURE" ^ORD(100.8,22,1,0)="^^4^4^3010429^" ^ORD(100.8,22,1,1,0)="Triggered at conclusion of ordering session. If the Imaging" ^ORD(100.8,22,1,2,0)="order is linked to CPRS national term ANGIOGRAM (PERIPHERAL) and required " ^ORD(100.8,22,1,3,0)="concurrent lab tests prothrombin time and thromboplastin were not ordered in" ^ORD(100.8,22,1,4,0)="this session, the order check occurs." ^ORD(100.8,23,0)="GLUCOPHAGE-CONTRAST MEDIA" ^ORD(100.8,23,1,0)="^^3^3^3010429^" ^ORD(100.8,23,1,1,0)="Triggered by selection of Imaging orderable items. If the" ^ORD(100.8,23,1,2,0)="orderable item uses a non-barium contrast media, and patient is currently" ^ORD(100.8,23,1,3,0)="taking glucophage/metformin, the order check occurs." ^ORD(100.8,24,0)="LAB ORDER FREQ RESTRICTIONS" ^ORD(100.8,24,1,0)="^^4^4^3010429^" ^ORD(100.8,24,1,1,0)="Triggered by acceptance of a Lab orderable item. Lab file" ^ORD(100.8,24,1,2,0)="fields Max Order Freq and Single Day Max Order Freq are checked for values " ^ORD(100.8,24,1,3,0)="and equated with the lab procedure. If either value is exceeded by the " ^ORD(100.8,24,1,4,0)="current lab order, the order check occurs." ^ORD(100.8,25,0)="ERROR MESSAGE" ^ORD(100.8,25,1,0)="^^3^3^3010429^" ^ORD(100.8,25,1,1,0)="Triggered any time the Order Check system is running. If the" ^ORD(100.8,25,1,2,0)="CPRS Expert System is recompiling rules and is momentarily disabled, the" ^ORD(100.8,25,1,3,0)="warning message is displayed." ^ORD(100.8,26,0)="POLYPHARMACY" ^ORD(100.8,26,1,0)="^^3^3^3010429^" ^ORD(100.8,26,1,1,0)="Triggered upon entry into a pharmacy ordering dialog. If the" ^ORD(100.8,26,1,2,0)="patient's number of active medications exceeds the limit set in a parameter," ^ORD(100.8,26,1,3,0)="the order check occurs." ^ORD(100.8,27,0)="DISPENSE DRUG NOT SELECTED" ^ORD(100.8,27,1,0)="^^2^2^3010429^" ^ORD(100.8,27,1,1,0)="Triggered when the person entering the order does not select a" ^ORD(100.8,27,1,2,0)="entry from the local Dispense Drug file (formulary)." ^ORD(100.8,28,0)="GLUCOPHAGE-LAB RESULTS" ^ORD(100.8,28,1,0)="^^4^4^3010429^" ^ORD(100.8,28,1,1,0)="Triggered by selection of Imaging orderable items. If the" ^ORD(100.8,28,1,2,0)="patient is taking glucophage/metformin and the serum creatinine result " ^ORD(100.8,28,1,3,0)="within x number of days (determined by parameter) is greater than 1.5 or " ^ORD(100.8,28,1,4,0)="does not exist, the order check occurs." ^ORD(100.8,29,0)="GENERIC RESULTS" ^ORD(100.8,29,1,0)="^^1^1^3010429^" ^ORD(100.8,29,1,1,0)="Place holder for future enhancements to CPRS Order Checks." ^ORD(100.8,30,0)="DANGEROUS MEDS FOR PT > 64" ^ORD(100.8,30,1,0)="^^3^3^3010429^" ^ORD(100.8,30,1,1,0)="Triggered by acceptance of a medication order. CPRS determines" ^ORD(100.8,30,1,2,0)="if the patient is older than 64. If so and the medication is mapped to the " ^ORD(100.8,30,1,3,0)="national term DANGEROUS MEDS FOR PTS > 64, the order check occurs." ^ORD(100.8,31,0)="SIGNIFICANT DRUG INTERACTION" ^ORD(100.8,31,1,0)="^^4^4^3010429^" ^ORD(100.8,31,1,1,0)="Triggered at order acceptance for existing meds and at" ^ORD(100.8,31,1,2,0)="conclusion of ordering session against meds ordered within that session." ^ORD(100.8,31,1,3,0)="Pharmacy is asked if patient is receiving a significantly interacting" ^ORD(100.8,31,1,4,0)="medication. If so, the order check occurs." ^ORD(100.8,32,0)="NO ALLERGY ASSESSMENT" ^ORD(100.8,32,1,0)="^^4^4^3011129^" ^ORD(100.8,32,1,1,0)="This order check is triggered when any order is placed. If the " ^ORD(100.8,32,1,2,0)="patient has no allergy assessment on file, the order check message is " ^ORD(100.8,32,1,3,0)="presented. If the patient has an allergy assessment or no known " ^ORD(100.8,32,1,4,0)="allergies (NKA), the order check message is not presented." ^ORD(100.8,33,0)="DUPLICATE OPIOID MEDICATIONS" ^ORD(100.8,33,1,0)="^^2^2^3011217^" ^ORD(100.8,33,1,1,0)="This order check occurs when an opioid medication is ordered and the " ^ORD(100.8,33,1,2,0)="patient is already receiving an opioid medication." ^ORD(100.8,"B","ALLERGY-CONTRAST MEDIA INTERAC",4)="" ^ORD(100.8,"B","ALLERGY-DRUG INTERACTION",3)="" ^ORD(100.8,"B","AMINOGLYCOSIDE ORDERED",20)="" ^ORD(100.8,"B","BIOCHEM ABNORMALITY FOR CONTRA",9)="" ^ORD(100.8,"B","CLOZAPINE APPROPRIATENESS",19)="" ^ORD(100.8,"B","CRITICAL DRUG INTERACTION",18)="" ^ORD(100.8,"B","CT & MRI PHYSICAL LIMITATIONS",8)="" ^ORD(100.8,"B","DANGEROUS MEDS FOR PT > 64",30)="" ^ORD(100.8,"B","DISPENSE DRUG NOT SELECTED",27)="" ^ORD(100.8,"B","DUPLICATE DRUG CLASS ORDER",17)="" ^ORD(100.8,"B","DUPLICATE DRUG ORDER",16)="" ^ORD(100.8,"B","DUPLICATE OPIOID MEDICATIONS",33)="" ^ORD(100.8,"B","DUPLICATE ORDER",11)="" ^ORD(100.8,"B","ERROR MESSAGE",25)="" ^ORD(100.8,"B","ESTIMATED CREATININE CLEARANCE",1)="" ^ORD(100.8,"B","GENERIC RESULTS",29)="" ^ORD(100.8,"B","GLUCOPHAGE-CONTRAST MEDIA",23)="" ^ORD(100.8,"B","GLUCOPHAGE-LAB RESULTS",28)="" ^ORD(100.8,"B","LAB ORDER FREQ RESTRICTIONS",24)="" ^ORD(100.8,"B","MISSING LAB TESTS FOR ANGIOGRA",22)="" ^ORD(100.8,"B","NO ALLERGY ASSESSMENT",32)="" ^ORD(100.8,"B","ORDER CHECKING NOT AVAILABLE",2)="" ^ORD(100.8,"B","POLYPHARMACY",26)="" ^ORD(100.8,"B","RECENT BARIUM STUDY",14)="" ^ORD(100.8,"B","RECENT ORAL CHOLECYSTOGRAM",15)="" ^ORD(100.8,"B","RENAL FUNCTIONS OVER AGE 65",21)="" ^ORD(100.8,"B","SIGNIFICANT DRUG INTERACTION",31)="" ^ORD(100.9,0)="OE/RR NOTIFICATIONS^100.9^72^54" ^ORD(100.9,3,0)="LAB RESULTS^OR^Lab results available.^PKG^R^RPTLAB^ORB3FUP2^" ^ORD(100.9,3,1)="^LR" ^ORD(100.9,3,3)="^0" ^ORD(100.9,3,4)="display lab results" ^ORD(100.9,5,0)="ORDER REQUIRES CHART SIGNATURE^OR^Order released-requires chart signature.^NOT^R^INFODEL^ORB3FUP2^" ^ORD(100.9,5,1)="^OR" ^ORD(100.9,5,3)="" ^ORD(100.9,5,4)="Triggered when an order is entered by someone without signature authority. Recipients include ordering provider, attending physician, primary provider and teams. Deletion occurs for each recipient upon review of the notification." ^ORD(100.9,6,0)="FLAG ORDER FOR CLARIFICATION^OR^Orders needing clarification.^NOT^R^FLORD^ORB3FUP1^" ^ORD(100.9,6,1)="^OR" ^ORD(100.9,6,3)="^3" ^ORD(100.9,6,4)="Triggered when an order is flagged within OE/RR. Recipients include ordering provider, attending physician, primary physician and teams. Deletion occurs for all recipients when all flagged orders for the patient have been unflagged." ^ORD(100.9,12,0)="ORDER REQUIRES ELEC SIGNATURE^OR^Order requires electronic signature.^NOT^R^ESORD^ORB3FUP1^" ^ORD(100.9,12,1)="^OR" ^ORD(100.9,12,3)="^9" ^ORD(100.9,12,4)="Triggered when an order is placed which requires an electronic signature for completion. Recipients include ordering provider, attending, primary provider and teams. Deletion occurs when all unsigned orders are signed." ^ORD(100.9,14,0)="ABNORMAL LAB RESULTS (ACTION)^OR^Abnormal lab results.^PKG^R^RPTLAB^ORB3FUP2^" ^ORD(100.9,14,1)="^LR" ^ORD(100.9,14,3)="^0" ^ORD(100.9,14,4)="Triggered when an final lab result is tagged as abnormal. Recipients usually include ordering provider, attending physician, primary provider and teams. Deletion occurs when each recipient reviews the notification." ^ORD(100.9,18,0)="ADMISSION^OR^Patient admitted.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,18,1)="^DG" ^ORD(100.9,18,3)="" ^ORD(100.9,18,4)="Triggered when a patient is admitted. Recipients include attending physician, primary provider and teams. Deletion occurs for each recipient when they review the notification." ^ORD(100.9,19,0)="UNSCHEDULED VISIT^OR^Unscheduled visit.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,19,1)="^DG" ^ORD(100.9,19,3)="" ^ORD(100.9,19,4)="Triggered when a patient is admitted unexpectedly. Recipients include attending physician, primary provider and teams. Deletion occurs when each recipient reviews the notification." ^ORD(100.9,20,0)="DECEASED PATIENT^OR^Deceased patient.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,20,1)="^DG" ^ORD(100.9,20,3)="" ^ORD(100.9,20,4)="Triggered when a patient dies. Recipients include attending physician, primary provider and teams. Deletion occurs for each recipient when they review the notification." ^ORD(100.9,21,0)="IMAGING PATIENT EXAMINED^OR^Imaging patient examined.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,21,1)="^RA" ^ORD(100.9,21,3)="" ^ORD(100.9,21,4)="Triggered when a patient is examined in the Imaging service in conjuntion with an order/request. Recipients restricted to ordering provider. Deletion occurs when notification is reviewed." ^ORD(100.9,22,0)="IMAGING RESULTS^OR^Imaging results.^PKG^R^RPTRAD2^ORB3FUP2^" ^ORD(100.9,22,1)="^RA" ^ORD(100.9,22,3)="^0" ^ORD(100.9,22,4)="Triggered when a final Imaging result is verified and available. Recipients include ordering provider, attending, primary provider and teams. Deletion occurs upon individual review of the results via follow-up action." ^ORD(100.9,23,0)="CONSULT/REQUEST RESOLUTION^OR^Consult/request resolution.^PKG^R^RPTCON^ORB3FUP2^" ^ORD(100.9,23,1)="^GMRC" ^ORD(100.9,23,3)="^0" ^ORD(100.9,23,4)="Triggered when a consult/request has been resolved with final results. It is typically sent to the ordering provider, attending physician and primary provider. It is deleted for each recipient when the results have been reviewed." ^ORD(100.9,24,0)="CRITICAL LAB RESULT (INFO)^OR^Critical lab result.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,24,1)="^LR" ^ORD(100.9,24,3)="" ^ORD(100.9,24,4)="Triggered when a final lab result is flagged as critically abnormal. Recipients typically include ordering provider, attending phycisian, primary provider and teams. It is deleted for each recipient when they review the notification." ^ORD(100.9,25,0)="ABNORMAL IMAGING RESULTS^OR^Abnormal Imaging results.^PKG^R^RPTRAD2^ORB3FUP2^" ^ORD(100.9,25,1)="^RA" ^ORD(100.9,25,3)="^0" ^ORD(100.9,25,4)="Triggered when a final Imaging result is abnormal. Recipients include teams and package-defined recipients. Deletion occurs upon individual review of the results via follow-up action." ^ORD(100.9,26,0)="IMAGING REQUEST CANCEL/HELD^OR^Imaging request canceled/held.^PKG^R^NUMORD^ORB3FUP1^" ^ORD(100.9,26,1)="^RA" ^ORD(100.9,26,3)="^4" ^ORD(100.9,26,4)="Triggered when an Imaging request/order is canceled or held. Recipients restricted to ordering provider. Deletion occurs upon review of reason canceled/held via follow-up action." ^ORD(100.9,27,0)="NEW SERVICE CONSULT/REQUEST^OR^New service consult/request.^PKG^R^NEWCON^ORB3FUP2^" ^ORD(100.9,27,1)="^GMRC" ^ORD(100.9,27,3)="^6" ^ORD(100.9,27,4)="Triggered when a new service request for a consult is entered via order entry. Typically recipients are the consulting physicians. It is deleted for each recipient when the new consult request is reviewed." ^ORD(100.9,28,0)="SERVICE ORDER REQ CHART SIGN^OR^Service order-requires chart signature.^NOT^R^INFODEL^ORB3FUP2^" ^ORD(100.9,28,1)="^OR" ^ORD(100.9,28,3)="" ^ORD(100.9,28,4)="Triggered when an order is placed from a service option - requiring a chart signature. Recipients include ordering provider, attending, primary provider. Deletion occurs upon notification review by each recipient." ^ORD(100.9,30,0)="CONSULT/REQUEST CANCEL/HOLD^OR^Consult/Request canceled/held.^PKG^R^DCCON^ORB3FUP2^" ^ORD(100.9,30,1)="^GMRC" ^ORD(100.9,30,3)="" ^ORD(100.9,30,4)="Triggered when a consult/request is canceled or held by by the consulting service. Recipient is the ordering/requesting provider. It is deleted upon completion of the follow-up action." ^ORD(100.9,31,0)="NPO DIET MORE THAN 72 HRS^OR^NPO diet for more than 72 hours.^NOT^R^INFODEL^ORB3FUP2^" ^ORD(100.9,31,1)="^FH" ^ORD(100.9,31,4)="Triggered when a patient has been on a NPO diet for more than 72 hours. It is typically sent to the ordering provider, attending physician, primary provider, and teams. It is deleted for each recipient when they review the notification." ^ORD(100.9,32,0)="FLAGGED OI RESULTS - INPT^OR^Site-flagged result(s) available.^PKG^R^RESULT^ORB3FUP2^" ^ORD(100.9,32,1)="^OR" ^ORD(100.9,32,3)="^0" ^ORD(100.9,32,4)="Triggered when final results for a specific, site-flagged orderable item are available. Recipients include those identified when the item was flagged. Deletion occurs for each recipient as they take the follow-up action." ^ORD(100.9,33,0)="ORDERER-FLAGGED RESULTS^OR^Orderer-flagged result(s) available.^PKG^R^RESULT^ORB3FUP2^" ^ORD(100.9,33,1)="^OR" ^ORD(100.9,33,3)="^0" ^ORD(100.9,33,4)="Triggered when final result(s) of an orderable item flagged when the order was placed are available. Recipients are limited to the ordering provider. Deletion occurs when the recipient reviews the result(s)." ^ORD(100.9,35,0)="DISCHARGE^OR^Patient discharged.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,35,1)="^DG" ^ORD(100.9,35,3)="" ^ORD(100.9,35,4)="Triggered when a patient is discharged. Recipients include attending physician, primary provider and teams. Deletion occurs for each recipient when they review the notification." ^ORD(100.9,36,0)="TRANSFER FROM PSYCHIATRY^OR^Patient transferred from psychiatry.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,36,1)="^DG" ^ORD(100.9,36,4)="Triggered when a patient is transferred from psychiatry to another unit. Recipients include attending physician, primary provider and teams. Deletion occurs for each recipient when they review the notification." ^ORD(100.9,37,0)="ORDER REQUIRES CO-SIGNATURE^OR^Order(s) require co-signature.^NOT^R^CSORD^ORB3FUP1^" ^ORD(100.9,37,1)="^OR" ^ORD(100.9,37,3)="^8" ^ORD(100.9,37,4)="Triggered when an order is placed which requires co-signature for completion. Recipients include ordering provider, attending, primary provider and teams. Deletion occurs when orders requiring co-signature are co-signed." ^ORD(100.9,41,0)="FLAGGED OI ORDER - INPT^OR^Flagged inpatient order placed.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,41,1)="^OR" ^ORD(100.9,41,3)="" ^ORD(100.9,41,4)="Triggered when a flagged orderable item is ordered for an inpatient. Recipients are those identified at time of flagging. Deletion occurs upon individual review." ^ORD(100.9,42,0)="LAB ORDER CANCELED^OR^Lab order canceled.^PKG^R^NUMORD^ORB3FUP1^" ^ORD(100.9,42,1)="^LR" ^ORD(100.9,42,3)="^4" ^ORD(100.9,42,4)="Triggered when a lab order has been canceled by the lab service. Recipients include ordering provider and teams. Deletion occurs upon individual follow-up action." ^ORD(100.9,43,0)="STAT ORDER^OR^STAT order placed.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,43,1)="^OR" ^ORD(100.9,43,4)="Triggered when a STAT order is placed. Recipients restricted to nurses on teams. Deleted upon notification review by each recipient." ^ORD(100.9,44,0)="STAT RESULTS^OR^STAT results available.^PKG^R^RESULT^ORB3FUP2^" ^ORD(100.9,44,1)="^OR" ^ORD(100.9,44,3)="^0" ^ORD(100.9,44,4)="Triggered when STAT results are available. Recipients restricted to ordering provider. Deletion occurs when recipient reviews the notification." ^ORD(100.9,45,0)="DNR EXPIRING^OR^DNR order nearing expiration.^NOT^R^EXDNR^ORB3FUP1^" ^ORD(100.9,45,1)="^OR" ^ORD(100.9,45,3)="^2" ^ORD(100.9,45,4)="Triggered when a DNR order is about to expire. Recipients include ordering provider, attending physician, primary provider and teams. Deletion occurs for all recipients when the order is renewed or DCed." ^ORD(100.9,46,0)="FREE TEXT^OR^Free text notification.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,46,1)="^OR" ^ORD(100.9,46,3)="" ^ORD(100.9,46,4)="Triggered when a user forwards a patient posting (other uses may occur in the future.) Recipients are restricted to those identified by the user. Deletion occurs upon notification review by each recipient." ^ORD(100.9,47,0)="MEDICATIONS EXPIRING - INPT^OR^Medications nearing expiration.^NOT^R^EXMED^ORB3FUP2^" ^ORD(100.9,47,1)="^RX" ^ORD(100.9,47,3)="^2" ^ORD(100.9,47,4)="Triggered when medications are nearing expiration. Recipients include ordering provider(s), attending physician, primary provider and teams. Deletion occur when all expiring meds are renewed or DCed." ^ORD(100.9,48,0)="UNVERIFIED MEDICATION ORDER^OR^Medication order(s) unverified by nurse.^NOT^R^UVMED^ORB3FUP2^" ^ORD(100.9,48,1)="^OR" ^ORD(100.9,48,3)="^11" ^ORD(100.9,48,4)="Triggered when a medication order has not been verified by pharmacy within a certain period of time. Recipients include nurses on teams. Deletion occurs upon verification." ^ORD(100.9,50,0)="NEW ORDER^OR^New order(s) placed.^NOT^R^NEWORD^ORB3FUP1^" ^ORD(100.9,50,1)="^OR" ^ORD(100.9,50,3)="^7" ^ORD(100.9,50,4)="This notification is triggered when a new order is placed on a patient. Follow-up action displays all active orders for a patient. " ^ORD(100.9,51,0)="STAT IMAGING REQUEST^OR^STAT Imaging request.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,51,1)="^RA" ^ORD(100.9,51,4)="Triggered when a STAT Imaging request is made. Recipients include Imaging team responsible for processing request. Deleted when one recipient reviews the notification." ^ORD(100.9,52,0)="URGENT IMAGING REQUEST^OR^URGENT Imaging request.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,52,1)="^RA" ^ORD(100.9,52,4)="Triggered when an URGENT (ASAP) Imaging request is made. Recipients include Imaging team responsible for processing request. Deleted when on recipient reviews the notification." ^ORD(100.9,53,0)="IMAGING RESULTS AMENDED^OR^Imaging results amended.^PKG^R^RPTRAD2^ORB3FUP2^" ^ORD(100.9,53,1)="^RA" ^ORD(100.9,53,3)="^0" ^ORD(100.9,53,4)="Triggered when a final, verified Imaging result is amended. Recipients include ordering provider, attending, primary provider and teams. Deletion occurs upon individual review of the results via follow-up actions." ^ORD(100.9,54,0)="ORDER CHECK^OR^Order check message.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,54,1)="^OR" ^ORD(100.9,54,4)="Triggered when an order check cannot be delivered real-time. Recipients include the ordering provider (when the order number is available) or the primary provider. Deletion occurs for the recipient when the review the notification." ^ORD(100.9,55,0)="FOOD/DRUG INTERACTION^OR^Food/drug interaction.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,55,1)="^OR" ^ORD(100.9,55,3)="" ^ORD(100.9,55,4)="Triggered when a medication which interacts with food is ordered for a patient. It is typically sent to a default recipient team of dieticians. Deletion occurs upon notification review by each recipient." ^ORD(100.9,56,0)="ERROR MESSAGE^OR^Error Occurred.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,56,1)="^OR" ^ORD(100.9,56,3)="" ^ORD(100.9,56,4)="This notification is used to send error messages." ^ORD(100.9,57,0)="CRITICAL LAB RESULTS (ACTION)^OR^Critical lab results.^PKG^R^RPTLAB^ORB3FUP2^" ^ORD(100.9,57,1)="^LR" ^ORD(100.9,57,3)="^0" ^ORD(100.9,57,4)="Triggered when a final lab result is critically abnormal. Recipients typically include ordering provider, attending physician, primary provider and teams. It is deleted for each recipient when they review the notification." ^ORD(100.9,58,0)="ABNORMAL LAB RESULT (INFO)^OR^Abnormal lab result.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,58,1)="^LR" ^ORD(100.9,58,3)="" ^ORD(100.9,58,4)="Triggered when a lab result is tagged as abnormal. Recipients usually include ordering provider, attending physician, primary provider and teams. Deletion occurs when each recipient reviews the notification." ^ORD(100.9,59,0)="UNVERIFIED ORDER^OR^Order(s) unverified by nurse.^NOT^R^UNVER^ORB3FUP2^" ^ORD(100.9,59,1)="^OR" ^ORD(100.9,59,3)="" ^ORD(100.9,59,4)="Triggered when an order has not been verifeid by nursing within a certain period of time. Recipients include OE/RR teams. Deletion occurs when all unverified orders for the patient are verified." ^ORD(100.9,60,0)="FLAGGED OI RESULTS - OUTPT^OR^Flagged outpatient result(s) available.^PKG^R^RESULT^ORB3FUP2^" ^ORD(100.9,60,1)="^OR" ^ORD(100.9,60,3)="" ^ORD(100.9,60,4)="Triggered when final results for a specific, outpatient flagged orderable item are available. Recipients include those identified when the item was flagged. Deletion occurs for each recipient as they take the follow-up action." ^ORD(100.9,61,0)="FLAGGED OI ORDER - OUTPT^OR^Flagged outpatient order placed.^PKG^R^INFODEL^ORB3FUP2^" ^ORD(100.9,61,1)="^OR" ^ORD(100.9,61,3)="" ^ORD(100.9,61,4)="Triggered when a flagged orderable item is ordered for an outpatient. Recipients are those identified at the time of flagging. Deletion occurs upon individual review." ^ORD(100.9,62,0)="DC ORDER^OR^DC order(s) placed.^NOT^R^DCORD^ORB3FUP1^" ^ORD(100.9,62,1)="^OR" ^ORD(100.9,62,3)="" ^ORD(100.9,62,4)="This notification is triggered when a DC order is placed on a patient. Follow-up action displays all recent order activity for the patient." ^ORD(100.9,63,0)="CONSULT/REQUEST UPDATED^OR^Consult/request updated.^PKG^R^UPCON^ORB3FUP2^" ^ORD(100.9,63,1)="^OR" ^ORD(100.9,63,3)="" ^ORD(100.9,63,4)="Triggered within the Consult/Request package when a consult/requesthas been updated. Typical recipients are determined by the Consult/Request package. It is deleted upon completion of the follow-up action." ^ORD(100.9,64,0)="FLAGGED OI EXPIRING - INPT^OR^Flagged inpatient order expiring.^PKG^R^EXOI^ORB3FUP2^" ^ORD(100.9,64,1)="^OR" ^ORD(100.9,64,3)="" ^ORD(100.9,64,4)="Triggered when a flagged orderable item is expiring for an inpatient. Recipients are those identified at the time of flagging. Deletion occurs upon individual review." ^ORD(100.9,65,0)="FLAGGED OI EXPIRING - OUTPT^OR^Flagged outpatient order expiring.^PKG^R^EXOI^ORB3FUP2^" ^ORD(100.9,65,1)="^OR" ^ORD(100.9,65,3)="" ^ORD(100.9,65,4)="Triggered when a flagged orderable item is expiring for an outpatient. Recipients are those identified at the time of flagging. Deletion occurs upon individual review." ^ORD(100.9,66,0)="CONSULT/PROC INTERPRETATION^OR^Consult ready for interpretation.^PKG^R^INTCON^ORB3FUP2" ^ORD(100.9,66,1)="^GMRC" ^ORD(100.9,66,4)="Triggered when a consult/request procedure is ready for interpretation. It is typically sent to the ordering provider, attending physician and primary provider. It is deleted for each recipient when the interpretation is completed." ^ORD(100.9,67,0)="IMAGING REQUEST CHANGED^OR^Imaging request changed.^PKG^R^CHGRAD^ORB3FUP2" ^ORD(100.9,67,1)="^RA" ^ORD(100.9,67,4)="Triggered when an Imaging request/order is changed." ^ORD(100.9,68,0)="LAB THRESHOLD EXCEEDED^OR^Lab threshold exceeded.^PKG^R^RPTLAB^ORB3FUP2" ^ORD(100.9,68,1)="^OR" ^ORD(100.9,68,4)="Triggered when a final lab result exceeds a threshold value. Recipients typically include person setting threshold value. It is deleted for each recipient when they review the notification. " ^ORD(100.9,69,0)="MAMMOGRAM RESULTS^OR^Mammogram results available.^PKG^R^INFODEL^ORB3FUP2" ^ORD(100.9,69,1)="^OR" ^ORD(100.9,69,4)="Triggered when mammogram results are available." ^ORD(100.9,70,0)="PAP SMEAR RESULTS^OR^Pap smear results available.^PKG^R^INFODEL^ORB3FUP2" ^ORD(100.9,70,1)="^OR" ^ORD(100.9,70,4)="Triggered when pap smear results are available." ^ORD(100.9,71,0)="ANATOMIC PATHOLOGY RESULTS^OR^Anatomic Pathology results available.^PKG^R^INFODEL^ORB3FUP2" ^ORD(100.9,71,1)="^OR" ^ORD(100.9,71,4)="Triggered when anatomic pathology results are available." ^ORD(100.9,72,0)="MEDICATIONS EXPIRING - OUTPT^OR^Medications nearing expiration.^NOT^R^EXMED^ORB3FUP2" ^ORD(100.9,72,1)="^OR" ^ORD(100.9,72,4)="Triggered when medications are nearing expiration." ^ORD(100.9,"B","ABNORMAL IMAGING RESULTS",25)="" ^ORD(100.9,"B","ABNORMAL LAB RESULT (INFO)",58)="" ^ORD(100.9,"B","ABNORMAL LAB RESULTS (ACTION)",14)="" ^ORD(100.9,"B","ADMISSION",18)="" ^ORD(100.9,"B","ANATOMIC PATHOLOGY RESULTS",71)="" ^ORD(100.9,"B","CONSULT/PROC INTERPRETATION",66)="" ^ORD(100.9,"B","CONSULT/REQUEST CANCEL/HOLD",30)="" ^ORD(100.9,"B","CONSULT/REQUEST RESOLUTION",23)="" ^ORD(100.9,"B","CONSULT/REQUEST UPDATED",63)="" ^ORD(100.9,"B","CRITICAL LAB RESULT (INFO)",24)="" ^ORD(100.9,"B","CRITICAL LAB RESULTS (ACTION)",57)="" ^ORD(100.9,"B","DC ORDER",62)="" ^ORD(100.9,"B","DECEASED PATIENT",20)="" ^ORD(100.9,"B","DISCHARGE",35)="" ^ORD(100.9,"B","DNR EXPIRING",45)="" ^ORD(100.9,"B","ERROR MESSAGE",56)="" ^ORD(100.9,"B","FLAG ORDER FOR CLARIFICATION",6)="" ^ORD(100.9,"B","FLAGGED OI EXPIRING - INPT",64)="" ^ORD(100.9,"B","FLAGGED OI EXPIRING - OUTPT",65)="" ^ORD(100.9,"B","FLAGGED OI ORDER - INPT",41)="" ^ORD(100.9,"B","FLAGGED OI ORDER - OUTPT",61)="" ^ORD(100.9,"B","FLAGGED OI RESULTS - INPT",32)="" ^ORD(100.9,"B","FLAGGED OI RESULTS - OUTPT",60)="" ^ORD(100.9,"B","FOOD/DRUG INTERACTION",55)="" ^ORD(100.9,"B","FREE TEXT",46)="" ^ORD(100.9,"B","IMAGING PATIENT EXAMINED",21)="" ^ORD(100.9,"B","IMAGING REQUEST CANCEL/HELD",26)="" ^ORD(100.9,"B","IMAGING REQUEST CHANGED",67)="" ^ORD(100.9,"B","IMAGING RESULTS",22)="" ^ORD(100.9,"B","IMAGING RESULTS AMENDED",53)="" ^ORD(100.9,"B","LAB ORDER CANCELED",42)="" ^ORD(100.9,"B","LAB RESULTS",3)="" ^ORD(100.9,"B","LAB THRESHOLD EXCEEDED",68)="" ^ORD(100.9,"B","MAMMOGRAM RESULTS",69)="" ^ORD(100.9,"B","MEDICATIONS EXPIRING - INPT",47)="" ^ORD(100.9,"B","MEDICATIONS EXPIRING - OUTPT",72)="" ^ORD(100.9,"B","NEW ORDER",50)="" ^ORD(100.9,"B","NEW SERVICE CONSULT/REQUEST",27)="" ^ORD(100.9,"B","NPO DIET MORE THAN 72 HRS",31)="" ^ORD(100.9,"B","ORDER CHECK",54)="" ^ORD(100.9,"B","ORDER REQUIRES CHART SIGNATURE",5)="" ^ORD(100.9,"B","ORDER REQUIRES CO-SIGNATURE",37)="" ^ORD(100.9,"B","ORDER REQUIRES ELEC SIGNATURE",12)="" ^ORD(100.9,"B","ORDERER-FLAGGED RESULTS",33)="" ^ORD(100.9,"B","PAP SMEAR RESULTS",70)="" ^ORD(100.9,"B","SERVICE ORDER REQ CHART SIGN",28)="" ^ORD(100.9,"B","STAT IMAGING REQUEST",51)="" ^ORD(100.9,"B","STAT ORDER",43)="" ^ORD(100.9,"B","STAT RESULTS",44)="" ^ORD(100.9,"B","TRANSFER FROM PSYCHIATRY",36)="" ^ORD(100.9,"B","UNSCHEDULED VISIT",19)="" ^ORD(100.9,"B","UNVERIFIED MEDICATION ORDER",48)="" ^ORD(100.9,"B","UNVERIFIED ORDER",59)="" ^ORD(100.9,"B","URGENT IMAGING REQUEST",52)="" ^ORD(100.9,"C","ANATOMIC PATHOLOGY RESULTS",71)="" ^ORD(100.9,"C","LAB THRESHOLD EXCEEDED",68)="" ^ORD(100.9,"C","MAMMOGRAM RESULTS",69)="" ^ORD(100.9,"C","MEDICATIONS EXPIRING - OUTPT",72)="" ^ORD(100.9,"C","OR",3)="" ^ORD(100.9,"C","OR",5)="" ^ORD(100.9,"C","OR",6)="" ^ORD(100.9,"C","OR",12)="" ^ORD(100.9,"C","OR",14)="" ^ORD(100.9,"C","OR",18)="" ^ORD(100.9,"C","OR",19)="" ^ORD(100.9,"C","OR",20)="" ^ORD(100.9,"C","OR",21)="" ^ORD(100.9,"C","OR",22)="" ^ORD(100.9,"C","OR",23)="" ^ORD(100.9,"C","OR",24)="" ^ORD(100.9,"C","OR",25)="" ^ORD(100.9,"C","OR",26)="" ^ORD(100.9,"C","OR",27)="" ^ORD(100.9,"C","OR",28)="" ^ORD(100.9,"C","OR",30)="" ^ORD(100.9,"C","OR",31)="" ^ORD(100.9,"C","OR",32)="" ^ORD(100.9,"C","OR",33)="" ^ORD(100.9,"C","OR",35)="" ^ORD(100.9,"C","OR",36)="" ^ORD(100.9,"C","OR",37)="" ^ORD(100.9,"C","OR",41)="" ^ORD(100.9,"C","OR",42)="" ^ORD(100.9,"C","OR",43)="" ^ORD(100.9,"C","OR",44)="" ^ORD(100.9,"C","OR",45)="" ^ORD(100.9,"C","OR",46)="" ^ORD(100.9,"C","OR",47)="" ^ORD(100.9,"C","OR",48)="" ^ORD(100.9,"C","OR",50)="" ^ORD(100.9,"C","OR",51)="" ^ORD(100.9,"C","OR",52)="" ^ORD(100.9,"C","OR",53)="" ^ORD(100.9,"C","OR",54)="" ^ORD(100.9,"C","OR",55)="" ^ORD(100.9,"C","OR",56)="" ^ORD(100.9,"C","OR",57)="" ^ORD(100.9,"C","OR",58)="" ^ORD(100.9,"C","OR",59)="" ^ORD(100.9,"C","OR",60)="" ^ORD(100.9,"C","OR",61)="" ^ORD(100.9,"C","OR",62)="" ^ORD(100.9,"C","OR",63)="" ^ORD(100.9,"C","OR",64)="" ^ORD(100.9,"C","OR",65)="" ^ORD(100.9,"C","OR",66)="" ^ORD(100.9,"C","OR",67)="" ^ORD(100.9,"C","OR",68)="" ^ORD(100.9,"C","OR",69)="" ^ORD(100.9,"C","OR",70)="" ^ORD(100.9,"C","OR",71)="" ^ORD(100.9,"C","OR",72)="" ^ORD(100.9,"C","PAP SMEAR RESULTS",70)="" ^ORD(100.9,"D","Abnormal Imaging results.",25)="" ^ORD(100.9,"D","Abnormal lab result.",58)="" ^ORD(100.9,"D","Abnormal lab results.",14)="" ^ORD(100.9,"D","Anatomic Pathology results ava",71)="" ^ORD(100.9,"D","Consult ready for interpretati",66)="" ^ORD(100.9,"D","Consult/Request canceled/held.",30)="" ^ORD(100.9,"D","Consult/request resolution.",23)="" ^ORD(100.9,"D","Consult/request updated.",63)="" ^ORD(100.9,"D","Critical lab result.",24)="" ^ORD(100.9,"D","Critical lab results.",57)="" ^ORD(100.9,"D","DC order(s) placed.",62)="" ^ORD(100.9,"D","DNR order nearing expiration.",45)="" ^ORD(100.9,"D","Deceased patient.",20)="" ^ORD(100.9,"D","Error Occurred.",56)="" ^ORD(100.9,"D","Flagged inpatient order expiri",64)="" ^ORD(100.9,"D","Flagged inpatient order placed",41)="" ^ORD(100.9,"D","Flagged outpatient order expir",65)="" ^ORD(100.9,"D","Flagged outpatient order place",61)="" ^ORD(100.9,"D","Flagged outpatient result(s) a",60)="" ^ORD(100.9,"D","Food/drug interaction.",55)="" ^ORD(100.9,"D","Free text notification.",46)="" ^ORD(100.9,"D","Imaging patient examined.",21)="" ^ORD(100.9,"D","Imaging request canceled/held.",26)="" ^ORD(100.9,"D","Imaging request changed.",67)="" ^ORD(100.9,"D","Imaging results amended.",53)="" ^ORD(100.9,"D","Imaging results.",22)="" ^ORD(100.9,"D","Lab order canceled.",42)="" ^ORD(100.9,"D","Lab results available.",3)="" ^ORD(100.9,"D","Lab threshold exceeded.",68)="" ^ORD(100.9,"D","Mammogram results available.",69)="" ^ORD(100.9,"D","Medication order(s) unverified",48)="" ^ORD(100.9,"D","Medications nearing expiration",47)="" ^ORD(100.9,"D","Medications nearing expiration",72)="" ^ORD(100.9,"D","NPO diet for more than 72 hour",31)="" ^ORD(100.9,"D","New order(s) placed.",50)="" ^ORD(100.9,"D","New service consult/request.",27)="" ^ORD(100.9,"D","Order check message.",54)="" ^ORD(100.9,"D","Order released-requires chart ",5)="" ^ORD(100.9,"D","Order requires electronic sign",12)="" ^ORD(100.9,"D","Order(s) require co-signature.",37)="" ^ORD(100.9,"D","Order(s) unverified by nurse.",59)="" ^ORD(100.9,"D","Orderer-flagged result(s) avai",33)="" ^ORD(100.9,"D","Orders needing clarification.",6)="" ^ORD(100.9,"D","Pap smear results available.",70)="" ^ORD(100.9,"D","Patient admitted.",18)="" ^ORD(100.9,"D","Patient discharged.",35)="" ^ORD(100.9,"D","Patient transferred from psych",36)="" ^ORD(100.9,"D","STAT Imaging request.",51)="" ^ORD(100.9,"D","STAT order placed.",43)="" ^ORD(100.9,"D","STAT results available.",44)="" ^ORD(100.9,"D","Service order-requires chart s",28)="" ^ORD(100.9,"D","Site-flagged result(s) availab",32)="" ^ORD(100.9,"D","URGENT Imaging request.",52)="" ^ORD(100.9,"D","Unscheduled visit.",19)="" ^ORD(100.98,0)="DISPLAY GROUP^100.98I^49^51" ^ORD(100.98,1,0)="ALL SERVICES^All^ALL" ^ORD(100.98,1,1,0)="^100.981P^14^14" ^ORD(100.98,1,1,1,0)="2" ^ORD(100.98,1,1,2,0)="5" ^ORD(100.98,1,1,3,0)="29" ^ORD(100.98,1,1,4,0)="10" ^ORD(100.98,1,1,5,0)="11" ^ORD(100.98,1,1,6,0)="12" ^ORD(100.98,1,1,7,0)="13" ^ORD(100.98,1,1,8,0)="15" ^ORD(100.98,1,1,9,0)="17" ^ORD(100.98,1,1,10,0)="18" ^ORD(100.98,1,1,11,0)="42" ^ORD(100.98,1,1,12,0)="43" ^ORD(100.98,1,1,13,0)="20" ^ORD(100.98,1,1,14,0)="62" ^ORD(100.98,1,1,"B",2,1)="" ^ORD(100.98,1,1,"B",5,2)="" ^ORD(100.98,1,1,"B",10,4)="" ^ORD(100.98,1,1,"B",11,5)="" ^ORD(100.98,1,1,"B",12,6)="" ^ORD(100.98,1,1,"B",13,7)="" ^ORD(100.98,1,1,"B",15,8)="" ^ORD(100.98,1,1,"B",17,9)="" ^ORD(100.98,1,1,"B",18,10)="" ^ORD(100.98,1,1,"B",20,13)="" ^ORD(100.98,1,1,"B",29,3)="" ^ORD(100.98,1,1,"B",42,11)="" ^ORD(100.98,1,1,"B",43,12)="" ^ORD(100.98,1,1,"B",62,14)="" ^ORD(100.98,2,0)="PHARMACY^Meds^RX" ^ORD(100.98,2,1,0)="^100.981P^4^4" ^ORD(100.98,2,1,1,0)="3" ^ORD(100.98,2,1,2,0)="4" ^ORD(100.98,2,1,3,0)="48" ^ORD(100.98,2,1,4,0)="62" ^ORD(100.98,2,1,"B",3,1)="" ^ORD(100.98,2,1,"B",4,2)="" ^ORD(100.98,2,1,"B",48,3)="" ^ORD(100.98,2,1,"B",62,4)="" ^ORD(100.98,3,0)="INPATIENT MEDICATIONS^Inpt. Meds^I RX^129" ^ORD(100.98,3,1,0)="^100.981P^2^2" ^ORD(100.98,3,1,1,0)="21" ^ORD(100.98,3,1,2,0)="22" ^ORD(100.98,3,1,"B",21,1)="" ^ORD(100.98,3,1,"B",22,2)="" ^ORD(100.98,4,0)="OUTPATIENT MEDICATIONS^Out. Meds^O RX^147" ^ORD(100.98,5,0)="LABORATORY^Lab^LAB^2" ^ORD(100.98,5,1,0)="^100.981P^9^9" ^ORD(100.98,5,1,1,0)="6" ^ORD(100.98,5,1,2,0)="7" ^ORD(100.98,5,1,3,0)="8" ^ORD(100.98,5,1,4,0)="23" ^ORD(100.98,5,1,5,0)="24" ^ORD(100.98,5,1,6,0)="25" ^ORD(100.98,5,1,7,0)="26" ^ORD(100.98,5,1,8,0)="27" ^ORD(100.98,5,1,9,0)="28" ^ORD(100.98,5,1,"B",6,1)="" ^ORD(100.98,5,1,"B",7,2)="" ^ORD(100.98,5,1,"B",8,3)="" ^ORD(100.98,5,1,"B",23,4)="" ^ORD(100.98,5,1,"B",24,5)="" ^ORD(100.98,5,1,"B",25,6)="" ^ORD(100.98,5,1,"B",26,7)="" ^ORD(100.98,5,1,"B",27,8)="" ^ORD(100.98,5,1,"B",28,9)="" ^ORD(100.98,6,0)="CHEMISTRY^Chemistry^CH" ^ORD(100.98,7,0)="HEMATOLOGY^Hematology^HEMA" ^ORD(100.98,8,0)="MICROBIOLOGY^Microbiology^MI" ^ORD(100.98,9,0)="GENERAL RADIOLOGY^Radiology^RAD^1" ^ORD(100.98,10,0)="DIETETICS^Diet^DIET" ^ORD(100.98,10,1,0)="^100.981P^6^6" ^ORD(100.98,10,1,1,0)="38" ^ORD(100.98,10,1,2,0)="39" ^ORD(100.98,10,1,3,0)="40" ^ORD(100.98,10,1,4,0)="41" ^ORD(100.98,10,1,5,0)="46" ^ORD(100.98,10,1,6,0)="49" ^ORD(100.98,10,1,"B",38,1)="" ^ORD(100.98,10,1,"B",39,2)="" ^ORD(100.98,10,1,"B",40,3)="" ^ORD(100.98,10,1,"B",41,4)="" ^ORD(100.98,10,1,"B",46,5)="" ^ORD(100.98,10,1,"B",49,6)="" ^ORD(100.98,11,0)="CONSULTS^Consults^CSLT^51" ^ORD(100.98,12,0)="VITALS/MEASUREMENTS^Vitals^V/M^48" ^ORD(100.98,13,0)="NURSING^Nursing^NURS^179" ^ORD(100.98,13,1,0)="^100.981P^1^1" ^ORD(100.98,13,1,1,0)="14" ^ORD(100.98,13,1,"B",14,1)="" ^ORD(100.98,14,0)="ACTIVITY^Activity^ACT^60" ^ORD(100.98,15,0)="SURGERY^Surgery^SURG" ^ORD(100.98,16,0)="SUMMARY ORDER^^SUM" ^ORD(100.98,16,1,0)="^100.981P^18^18" ^ORD(100.98,16,1,1,0)="17" ^ORD(100.98,16,1,2,0)="12" ^ORD(100.98,16,1,3,0)="10" ^ORD(100.98,16,1,4,0)="3" ^ORD(100.98,16,1,5,0)="6" ^ORD(100.98,16,1,6,0)="7" ^ORD(100.98,16,1,7,0)="8" ^ORD(100.98,16,1,8,0)="5" ^ORD(100.98,16,1,9,0)="29" ^ORD(100.98,16,1,10,0)="11" ^ORD(100.98,16,1,11,0)="18" ^ORD(100.98,16,1,12,0)="38" ^ORD(100.98,16,1,13,0)="40" ^ORD(100.98,16,1,14,0)="39" ^ORD(100.98,16,1,15,0)="41" ^ORD(100.98,16,1,16,0)="21" ^ORD(100.98,16,1,17,0)="22" ^ORD(100.98,16,1,18,0)="47" ^ORD(100.98,16,1,"B",3,4)="" ^ORD(100.98,16,1,"B",5,8)="" ^ORD(100.98,16,1,"B",6,5)="" ^ORD(100.98,16,1,"B",7,6)="" ^ORD(100.98,16,1,"B",8,7)="" ^ORD(100.98,16,1,"B",10,3)="" ^ORD(100.98,16,1,"B",11,10)="" ^ORD(100.98,16,1,"B",12,2)="" ^ORD(100.98,16,1,"B",17,1)="" ^ORD(100.98,16,1,"B",18,11)="" ^ORD(100.98,16,1,"B",21,16)="" ^ORD(100.98,16,1,"B",22,17)="" ^ORD(100.98,16,1,"B",29,9)="" ^ORD(100.98,16,1,"B",38,12)="" ^ORD(100.98,16,1,"B",39,14)="" ^ORD(100.98,16,1,"B",40,13)="" ^ORD(100.98,16,1,"B",41,15)="" ^ORD(100.98,16,1,"B",47,18)="" ^ORD(100.98,17,0)="M.A.S.^A/D/T^ADT" ^ORD(100.98,17,1,0)="^100.981P^2^2" ^ORD(100.98,17,1,1,0)="44" ^ORD(100.98,17,1,2,0)="45" ^ORD(100.98,17,1,"B",44,1)="" ^ORD(100.98,17,1,"B",45,2)="" ^ORD(100.98,18,0)="OTHER HOSPITAL SERVICES^Other^OTHER" ^ORD(100.98,19,0)="ORDER ENTRY/RESULTS REPORTING^OE/RR^OE/RR" ^ORD(100.98,20,0)="SUPPLIES/DEVICES^Supplies^SPLY^171" ^ORD(100.98,21,0)="UNIT DOSE MEDICATIONS^Inpt. Meds^UD RX^129" ^ORD(100.98,22,0)="IV MEDICATIONS^Infusion^IV RX^130" ^ORD(100.98,22,1,0)="^100.981P^1^1" ^ORD(100.98,22,1,1,0)="61" ^ORD(100.98,22,1,"B",61,1)="" ^ORD(100.98,23,0)="BLOOD BANK^Blood Bank^BB" ^ORD(100.98,24,0)="ANATOMIC PATHOLOGY^Anat. Path.^AP" ^ORD(100.98,25,0)="ELECTRON MICROSCOPY^Electron Microscopy^EM" ^ORD(100.98,26,0)="SURGICAL PATHOLOGY^Surg. Path.^SP" ^ORD(100.98,27,0)="AUTOPSY^Autopsy^AU" ^ORD(100.98,28,0)="CYTOLOGY^Cytology^CY" ^ORD(100.98,29,0)="IMAGING^Imaging^XRAY^1" ^ORD(100.98,29,1,0)="^100.981P^9^9" ^ORD(100.98,29,1,1,0)="9" ^ORD(100.98,29,1,2,0)="30" ^ORD(100.98,29,1,3,0)="31" ^ORD(100.98,29,1,4,0)="32" ^ORD(100.98,29,1,5,0)="33" ^ORD(100.98,29,1,6,0)="34" ^ORD(100.98,29,1,7,0)="35" ^ORD(100.98,29,1,8,0)="36" ^ORD(100.98,29,1,9,0)="37" ^ORD(100.98,29,1,"B",9,1)="" ^ORD(100.98,29,1,"B",30,2)="" ^ORD(100.98,29,1,"B",31,3)="" ^ORD(100.98,29,1,"B",32,4)="" ^ORD(100.98,29,1,"B",33,5)="" ^ORD(100.98,29,1,"B",34,6)="" ^ORD(100.98,29,1,"B",35,7)="" ^ORD(100.98,29,1,"B",36,8)="" ^ORD(100.98,29,1,"B",37,9)="" ^ORD(100.98,30,0)="CT SCAN^CT Scan^CT" ^ORD(100.98,31,0)="MAGNETIC RESONANCE IMAGING^MRI^MRI" ^ORD(100.98,32,0)="ANGIO/NEURO/INTERVENTIONAL^Angio/Neuro^ANI" ^ORD(100.98,33,0)="CARDIOLOGY STUDIES (NUC MED)^Cardiology^CARD" ^ORD(100.98,34,0)="NUCLEAR MEDICINE^Nuclear Med^NM" ^ORD(100.98,35,0)="ULTRASOUND^Ultrasound^US" ^ORD(100.98,36,0)="VASCULAR LAB^Vascular Lab^VAS" ^ORD(100.98,37,0)="MAMMOGRAPHY^Mammography^MAM" ^ORD(100.98,38,0)="DIET ORDERS^Diet^DO^23" ^ORD(100.98,39,0)="TUBEFEEDINGS^Tubefeeding^TF^33" ^ORD(100.98,40,0)="DIET ADDITIONAL ORDERS^Diet Add'l^D AO^31" ^ORD(100.98,41,0)="EARLY/LATE TRAYS^Early/Late Trays^E/L T^32" ^ORD(100.98,42,0)="PROCEDURES^Procedures^PROC^52" ^ORD(100.98,43,0)="ALLERGIES^Allergy^ALG^" ^ORD(100.98,44,0)="DIAGNOSIS^Diagnosis^DX^125" ^ORD(100.98,45,0)="CONDITION^Condition^COND^124" ^ORD(100.98,46,0)="PRECAUTIONS^Precautions^PREC^163" ^ORD(100.98,47,0)="DIETETIC CONSULTS^Diet Consult^D CON" ^ORD(100.98,48,0)="NON-VA MEDICATIONS^Non-VA Meds^NV RX^173" ^ORD(100.98,49,0)="OUTPATIENT MEALS^Outpt Meal^MEAL^622" ^ORD(100.98,61,0)="PARENTERAL NUTRITION^TPN^TPN" ^ORD(100.98,62,0)="CLINIC ORDERS^Clinic Orders^C RX" ^ORD(100.98,"AD",2,1,1)="" ^ORD(100.98,"AD",3,2,1)="" ^ORD(100.98,"AD",3,16,4)="" ^ORD(100.98,"AD",4,2,2)="" ^ORD(100.98,"AD",5,1,2)="" ^ORD(100.98,"AD",5,16,8)="" ^ORD(100.98,"AD",6,5,1)="" ^ORD(100.98,"AD",6,16,5)="" ^ORD(100.98,"AD",7,5,2)="" ^ORD(100.98,"AD",7,16,6)="" ^ORD(100.98,"AD",8,5,3)="" ^ORD(100.98,"AD",8,16,7)="" ^ORD(100.98,"AD",9,29,1)="" ^ORD(100.98,"AD",10,1,4)="" ^ORD(100.98,"AD",10,16,3)="" ^ORD(100.98,"AD",11,1,5)="" ^ORD(100.98,"AD",11,16,10)="" ^ORD(100.98,"AD",12,1,6)="" ^ORD(100.98,"AD",12,16,2)="" ^ORD(100.98,"AD",13,1,7)="" ^ORD(100.98,"AD",14,13,1)="" ^ORD(100.98,"AD",15,1,8)="" ^ORD(100.98,"AD",17,1,9)="" ^ORD(100.98,"AD",17,16,1)="" ^ORD(100.98,"AD",18,1,10)="" ^ORD(100.98,"AD",18,16,11)="" ^ORD(100.98,"AD",20,1,13)="" ^ORD(100.98,"AD",21,3,1)="" ^ORD(100.98,"AD",21,16,16)="" ^ORD(100.98,"AD",22,3,2)="" ^ORD(100.98,"AD",22,16,17)="" ^ORD(100.98,"AD",23,5,4)="" ^ORD(100.98,"AD",24,5,5)="" ^ORD(100.98,"AD",25,5,6)="" ^ORD(100.98,"AD",26,5,7)="" ^ORD(100.98,"AD",27,5,8)="" ^ORD(100.98,"AD",28,5,9)="" ^ORD(100.98,"AD",29,1,3)="" ^ORD(100.98,"AD",29,16,9)="" ^ORD(100.98,"AD",30,29,2)="" ^ORD(100.98,"AD",31,29,3)="" ^ORD(100.98,"AD",32,29,4)="" ^ORD(100.98,"AD",33,29,5)="" ^ORD(100.98,"AD",34,29,6)="" ^ORD(100.98,"AD",35,29,7)="" ^ORD(100.98,"AD",36,29,8)="" ^ORD(100.98,"AD",37,29,9)="" ^ORD(100.98,"AD",38,10,1)="" ^ORD(100.98,"AD",38,16,12)="" ^ORD(100.98,"AD",39,10,2)="" ^ORD(100.98,"AD",39,16,14)="" ^ORD(100.98,"AD",40,10,3)="" ^ORD(100.98,"AD",40,16,13)="" ^ORD(100.98,"AD",41,10,4)="" ^ORD(100.98,"AD",41,16,15)="" ^ORD(100.98,"AD",42,1,11)="" ^ORD(100.98,"AD",43,1,12)="" ^ORD(100.98,"AD",44,17,1)="" ^ORD(100.98,"AD",45,17,2)="" ^ORD(100.98,"AD",46,10,5)="" ^ORD(100.98,"AD",47,16,18)="" ^ORD(100.98,"AD",48,2,3)="" ^ORD(100.98,"AD",49,10,6)="" ^ORD(100.98,"AD",61,22,1)="" ^ORD(100.98,"AD",62,1,14)="" ^ORD(100.98,"AD",62,2,4)="" ^ORD(100.98,"B","ACT",14)="1" ^ORD(100.98,"B","ACTIVITY",14)="" ^ORD(100.98,"B","ADT",17)="1" ^ORD(100.98,"B","ALG",43)="1" ^ORD(100.98,"B","ALL",1)="1" ^ORD(100.98,"B","ALL SERVICES",1)="" ^ORD(100.98,"B","ALLERGIES",43)="" ^ORD(100.98,"B","ANATOMIC PATHOLOGY",24)="" ^ORD(100.98,"B","ANGIO/NEURO/INTERVENTIONAL",32)="" ^ORD(100.98,"B","ANI",32)="1" ^ORD(100.98,"B","AP",24)="1" ^ORD(100.98,"B","AU",27)="1" ^ORD(100.98,"B","AUTOPSY",27)="" ^ORD(100.98,"B","BB",23)="1" ^ORD(100.98,"B","BLOOD BANK",23)="" ^ORD(100.98,"B","C RX",62)="1" ^ORD(100.98,"B","CARD",33)="1" ^ORD(100.98,"B","CARDIOLOGY STUDIES (NUC MED)",33)="" ^ORD(100.98,"B","CH",6)="1" ^ORD(100.98,"B","CHEMISTRY",6)="" ^ORD(100.98,"B","CLINIC ORDERS",62)="" ^ORD(100.98,"B","COND",45)="1" ^ORD(100.98,"B","CONDITION",45)="" ^ORD(100.98,"B","CONSULTS",11)="" ^ORD(100.98,"B","CSLT",11)="1" ^ORD(100.98,"B","CT",30)="1" ^ORD(100.98,"B","CT SCAN",30)="" ^ORD(100.98,"B","CY",28)="1" ^ORD(100.98,"B","CYTOLOGY",28)="" ^ORD(100.98,"B","D AO",40)="1" ^ORD(100.98,"B","D CON",47)="1" ^ORD(100.98,"B","DIAGNOSIS",44)="" ^ORD(100.98,"B","DIET",10)="1" ^ORD(100.98,"B","DIET ADDITIONAL ORDERS",40)="" ^ORD(100.98,"B","DIET ORDERS",38)="" ^ORD(100.98,"B","DIETETIC CONSULTS",47)="" ^ORD(100.98,"B","DIETETICS",10)="" ^ORD(100.98,"B","DO",38)="1" ^ORD(100.98,"B","DX",44)="1" ^ORD(100.98,"B","E/L T",41)="1" ^ORD(100.98,"B","EARLY/LATE TRAYS",41)="" ^ORD(100.98,"B","ELECTRON MICROSCOPY",25)="" ^ORD(100.98,"B","EM",25)="1" ^ORD(100.98,"B","GENERAL RADIOLOGY",9)="" ^ORD(100.98,"B","HEMA",7)="1" ^ORD(100.98,"B","HEMATOLOGY",7)="" ^ORD(100.98,"B","I RX",3)="1" ^ORD(100.98,"B","IMAGING",29)="" ^ORD(100.98,"B","INPATIENT MEDICATIONS",3)="" ^ORD(100.98,"B","IV MEDICATIONS",22)="" ^ORD(100.98,"B","IV RX",22)="1" ^ORD(100.98,"B","LAB",5)="1" ^ORD(100.98,"B","LABORATORY",5)="" ^ORD(100.98,"B","M.A.S.",17)="" ^ORD(100.98,"B","MAGNETIC RESONANCE IMAGING",31)="" ^ORD(100.98,"B","MAM",37)="1" ^ORD(100.98,"B","MAMMOGRAPHY",37)="" ^ORD(100.98,"B","MEAL",49)="1" ^ORD(100.98,"B","MI",8)="1" ^ORD(100.98,"B","MICROBIOLOGY",8)="" ^ORD(100.98,"B","MRI",31)="1" ^ORD(100.98,"B","NM",34)="1" ^ORD(100.98,"B","NON-VA MEDICATIONS",48)="" ^ORD(100.98,"B","NUCLEAR MEDICINE",34)="" ^ORD(100.98,"B","NURS",13)="1" ^ORD(100.98,"B","NURSING",13)="" ^ORD(100.98,"B","NV RX",48)="1" ^ORD(100.98,"B","O RX",4)="1" ^ORD(100.98,"B","OE/RR",19)="1" ^ORD(100.98,"B","ORDER ENTRY/RESULTS REPORTING",19)="" ^ORD(100.98,"B","OTHER",18)="1" ^ORD(100.98,"B","OTHER HOSPITAL SERVICES",18)="" ^ORD(100.98,"B","OUTPATIENT MEALS",49)="" ^ORD(100.98,"B","OUTPATIENT MEDICATIONS",4)="" ^ORD(100.98,"B","PARENTERAL NUTRITION",61)="" ^ORD(100.98,"B","PHARMACY",2)="" ^ORD(100.98,"B","PREC",46)="1" ^ORD(100.98,"B","PRECAUTIONS",46)="" ^ORD(100.98,"B","PROC",42)="1" ^ORD(100.98,"B","PROCEDURES",42)="" ^ORD(100.98,"B","RAD",9)="1" ^ORD(100.98,"B","RX",2)="1" ^ORD(100.98,"B","SP",26)="1" ^ORD(100.98,"B","SPLY",20)="1" ^ORD(100.98,"B","SUM",16)="1" ^ORD(100.98,"B","SUMMARY ORDER",16)="" ^ORD(100.98,"B","SUPPLIES/DEVICES",20)="" ^ORD(100.98,"B","SURG",15)="1" ^ORD(100.98,"B","SURGERY",15)="" ^ORD(100.98,"B","SURGICAL PATHOLOGY",26)="" ^ORD(100.98,"B","TF",39)="1" ^ORD(100.98,"B","TPN",61)="1" ^ORD(100.98,"B","TUBEFEEDINGS",39)="" ^ORD(100.98,"B","UD RX",21)="1" ^ORD(100.98,"B","ULTRASOUND",35)="" ^ORD(100.98,"B","UNIT DOSE MEDICATIONS",21)="" ^ORD(100.98,"B","US",35)="1" ^ORD(100.98,"B","V/M",12)="1" ^ORD(100.98,"B","VAS",36)="1" ^ORD(100.98,"B","VASCULAR LAB",36)="" ^ORD(100.98,"B","VITALS/MEASUREMENTS",12)="" ^ORD(100.98,"B","XRAY",29)="1" ^ORD(100.99,0)="ORDER PARAMETERS^100.99^1^1" ^ORD(100.99,1,0)="HOSPITAL^^^^^^^^^^^^^^^" ^ORD(100.99,1,5,0)="^100.995P^93^44" ^ORD(100.99,1,5,9,0)="9^^1^10^1" ^ORD(100.99,1,5,14,0)="14^LRX^^5^" ^ORD(100.99,1,5,14,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,14,1,1,0)="334" ^ORD(100.99,1,5,14,2)="D EN^LRO6" ^ORD(100.99,1,5,14,3)="K ^XUTL(""OR"",$J,""LROT"")" ^ORD(100.99,1,5,14,4)="D CLEAN^LROR3" ^ORD(100.99,1,5,14,5,0)="^100.9955^1^1" ^ORD(100.99,1,5,14,5,1,0)="LAB^60^333" ^ORD(100.99,1,5,14,5,"B","LAB",1)="" ^ORD(100.99,1,5,33,0)="33^HL" ^ORD(100.99,1,5,34,0)="34^GMRP^1^^" ^ORD(100.99,1,5,35,0)="35^OR^1^1^^^" ^ORD(100.99,1,5,35,1,0)="^100.9951PA^3^2" ^ORD(100.99,1,5,35,1,2,0)="83" ^ORD(100.99,1,5,35,1,2,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,35,1,2,1,1,0)="33" ^ORD(100.99,1,5,35,1,2,1,2,0)="581" ^ORD(100.99,1,5,35,1,3,0)="84" ^ORD(100.99,1,5,35,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,35,1,3,1,1,0)="33" ^ORD(100.99,1,5,35,5,0)="^100.9955^^0" ^ORD(100.99,1,5,42,0)="42^GMTS^0^^" ^ORD(100.99,1,5,42,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,42,1,1,0)="2025" ^ORD(100.99,1,5,42,1,1,1,0)="^100.99511PA^3^3" ^ORD(100.99,1,5,42,1,1,1,1,0)="231" ^ORD(100.99,1,5,42,1,1,1,2,0)="229" ^ORD(100.99,1,5,42,1,1,1,3,0)="230" ^ORD(100.99,1,5,43,0)="43^VALM^^^" ^ORD(100.99,1,5,44,0)="44^GMRC^1^11^" ^ORD(100.99,1,5,44,1,0)="^100.9951PA^7^7" ^ORD(100.99,1,5,44,1,1,0)="1441" ^ORD(100.99,1,5,44,1,1,1,0)="^100.99511PA^3^3" ^ORD(100.99,1,5,44,1,1,1,1,0)="1248" ^ORD(100.99,1,5,44,1,1,1,2,0)="1246" ^ORD(100.99,1,5,44,1,1,1,3,0)="1247" ^ORD(100.99,1,5,44,1,2,0)="20" ^ORD(100.99,1,5,44,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,2,1,1,0)="1442" ^ORD(100.99,1,5,44,1,3,0)="21" ^ORD(100.99,1,5,44,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,3,1,1,0)="1442" ^ORD(100.99,1,5,44,1,4,0)="22" ^ORD(100.99,1,5,44,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,4,1,1,0)="1442" ^ORD(100.99,1,5,44,1,5,0)="23" ^ORD(100.99,1,5,44,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,5,1,1,0)="1442" ^ORD(100.99,1,5,44,1,6,0)="25" ^ORD(100.99,1,5,44,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,6,1,1,0)="1442" ^ORD(100.99,1,5,44,1,7,0)="1289" ^ORD(100.99,1,5,44,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,44,1,7,1,1,0)="1133" ^ORD(100.99,1,5,44,5,0)="^100.9955^2^2" ^ORD(100.99,1,5,44,5,1,0)="GMRCT^123.5^1443" ^ORD(100.99,1,5,44,5,1,1)="D ^GMRC101" ^ORD(100.99,1,5,44,5,2,0)="GMRCR^123.5^1444" ^ORD(100.99,1,5,44,5,2,1)="D ^GMRC101" ^ORD(100.99,1,5,44,5,"B","GMRCR",2)="" ^ORD(100.99,1,5,44,5,"B","GMRCT",1)="" ^ORD(100.99,1,5,47,0)="47^DG^^17^" ^ORD(100.99,1,5,47,1,0)="^100.9951PA^21^11" ^ORD(100.99,1,5,47,1,10,0)="102" ^ORD(100.99,1,5,47,1,10,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,10,1,1,0)="101" ^ORD(100.99,1,5,47,1,11,0)="104" ^ORD(100.99,1,5,47,1,11,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,11,1,1,0)="101" ^ORD(100.99,1,5,47,1,12,0)="112" ^ORD(100.99,1,5,47,1,12,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,12,1,1,0)="101" ^ORD(100.99,1,5,47,1,13,0)="482" ^ORD(100.99,1,5,47,1,13,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,13,1,1,0)="457" ^ORD(100.99,1,5,47,1,14,0)="565" ^ORD(100.99,1,5,47,1,14,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,14,1,1,0)="101" ^ORD(100.99,1,5,47,1,15,0)="647" ^ORD(100.99,1,5,47,1,15,1,0)="^100.99511PA^3^3" ^ORD(100.99,1,5,47,1,15,1,1,0)="602" ^ORD(100.99,1,5,47,1,15,1,2,0)="594" ^ORD(100.99,1,5,47,1,15,1,3,0)="788" ^ORD(100.99,1,5,47,1,16,0)="649" ^ORD(100.99,1,5,47,1,16,1,0)="^100.99511PA^4^4" ^ORD(100.99,1,5,47,1,16,1,1,0)="594" ^ORD(100.99,1,5,47,1,16,1,2,0)="602" ^ORD(100.99,1,5,47,1,16,1,3,0)="582" ^ORD(100.99,1,5,47,1,16,1,4,0)="788" ^ORD(100.99,1,5,47,1,17,0)="650" ^ORD(100.99,1,5,47,1,17,1,0)="^100.99511PA^4^4" ^ORD(100.99,1,5,47,1,17,1,1,0)="582" ^ORD(100.99,1,5,47,1,17,1,2,0)="602" ^ORD(100.99,1,5,47,1,17,1,3,0)="594" ^ORD(100.99,1,5,47,1,17,1,4,0)="788" ^ORD(100.99,1,5,47,1,19,0)="781" ^ORD(100.99,1,5,47,1,19,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,19,1,1,0)="414" ^ORD(100.99,1,5,47,1,20,0)="837" ^ORD(100.99,1,5,47,1,20,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,20,1,1,0)="101" ^ORD(100.99,1,5,47,1,21,0)="838" ^ORD(100.99,1,5,47,1,21,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,47,1,21,1,1,0)="414" ^ORD(100.99,1,5,48,0)="48^SD^^17^" ^ORD(100.99,1,5,48,1,0)="^100.9951PA^2^2" ^ORD(100.99,1,5,48,1,1,0)="103" ^ORD(100.99,1,5,48,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,48,1,1,1,1,0)="101" ^ORD(100.99,1,5,48,1,2,0)="645" ^ORD(100.99,1,5,48,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,48,1,2,1,1,0)="121" ^ORD(100.99,1,5,49,0)="49^IB^^18^" ^ORD(100.99,1,5,49,1,0)="^100.9951PA^42^15" ^ORD(100.99,1,5,49,1,1,0)="446" ^ORD(100.99,1,5,49,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,1,1,1,0)="101" ^ORD(100.99,1,5,49,1,2,0)="463" ^ORD(100.99,1,5,49,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,2,1,1,0)="457" ^ORD(100.99,1,5,49,1,3,0)="435" ^ORD(100.99,1,5,49,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,3,1,1,0)="445" ^ORD(100.99,1,5,49,1,4,0)="440" ^ORD(100.99,1,5,49,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,4,1,1,0)="435" ^ORD(100.99,1,5,49,1,17,0)="437" ^ORD(100.99,1,5,49,1,17,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,17,1,1,0)="445" ^ORD(100.99,1,5,49,1,18,0)="442" ^ORD(100.99,1,5,49,1,18,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,18,1,1,0)="437" ^ORD(100.99,1,5,49,1,21,0)="441" ^ORD(100.99,1,5,49,1,21,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,21,1,1,0)="414" ^ORD(100.99,1,5,49,1,22,0)="421" ^ORD(100.99,1,5,49,1,22,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,22,1,1,0)="445" ^ORD(100.99,1,5,49,1,23,0)="438" ^ORD(100.99,1,5,49,1,23,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,23,1,1,0)="445" ^ORD(100.99,1,5,49,1,24,0)="443" ^ORD(100.99,1,5,49,1,24,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,24,1,1,0)="438" ^ORD(100.99,1,5,49,1,25,0)="420" ^ORD(100.99,1,5,49,1,25,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,25,1,1,0)="445" ^ORD(100.99,1,5,49,1,39,0)="562" ^ORD(100.99,1,5,49,1,39,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,39,1,1,0)="445" ^ORD(100.99,1,5,49,1,40,0)="876" ^ORD(100.99,1,5,49,1,40,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,40,1,1,0)="460" ^ORD(100.99,1,5,49,1,41,0)="877" ^ORD(100.99,1,5,49,1,41,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,49,1,41,1,1,0)="460" ^ORD(100.99,1,5,49,1,42,0)="460" ^ORD(100.99,1,5,50,0)="50^IBDE^^1" ^ORD(100.99,1,5,51,0)="51^PRCP^1" ^ORD(100.99,1,5,52,0)="52^DGYD" ^ORD(100.99,1,5,52,1,0)="^100.9951PA^10^10" ^ORD(100.99,1,5,52,1,1,0)="609" ^ORD(100.99,1,5,52,1,2,0)="606" ^ORD(100.99,1,5,52,1,3,0)="608" ^ORD(100.99,1,5,52,1,4,0)="709" ^ORD(100.99,1,5,52,1,5,0)="584" ^ORD(100.99,1,5,52,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,5,1,1,0)="709" ^ORD(100.99,1,5,52,1,6,0)="452" ^ORD(100.99,1,5,52,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,6,1,1,0)="709" ^ORD(100.99,1,5,52,1,7,0)="585" ^ORD(100.99,1,5,52,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,7,1,1,0)="709" ^ORD(100.99,1,5,52,1,8,0)="612" ^ORD(100.99,1,5,52,1,8,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,8,1,1,0)="709" ^ORD(100.99,1,5,52,1,9,0)="455" ^ORD(100.99,1,5,52,1,9,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,9,1,1,0)="709" ^ORD(100.99,1,5,52,1,10,0)="457" ^ORD(100.99,1,5,52,1,10,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,52,1,10,1,1,0)="709" ^ORD(100.99,1,5,60,0)="60^IBYA" ^ORD(100.99,1,5,60,1,0)="^100.9951PA^6^6" ^ORD(100.99,1,5,60,1,1,0)="1074" ^ORD(100.99,1,5,60,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,1,1,1,0)="1075" ^ORD(100.99,1,5,60,1,2,0)="1076" ^ORD(100.99,1,5,60,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,2,1,1,0)="855" ^ORD(100.99,1,5,60,1,3,0)="1077" ^ORD(100.99,1,5,60,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,3,1,1,0)="855" ^ORD(100.99,1,5,60,1,4,0)="822" ^ORD(100.99,1,5,60,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,4,1,1,0)="855" ^ORD(100.99,1,5,60,1,5,0)="1078" ^ORD(100.99,1,5,60,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,5,1,1,0)="854" ^ORD(100.99,1,5,60,1,6,0)="1006" ^ORD(100.99,1,5,60,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,60,1,6,1,1,0)="854" ^ORD(100.99,1,5,67,0)="67^IBYH" ^ORD(100.99,1,5,67,1,0)="^100.9951PA^19^16" ^ORD(100.99,1,5,67,1,1,0)="1079" ^ORD(100.99,1,5,67,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,1,1,1,0)="1080" ^ORD(100.99,1,5,67,1,2,0)="1081" ^ORD(100.99,1,5,67,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,2,1,1,0)="1080" ^ORD(100.99,1,5,67,1,3,0)="1082" ^ORD(100.99,1,5,67,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,3,1,1,0)="855" ^ORD(100.99,1,5,67,1,4,0)="1083" ^ORD(100.99,1,5,67,1,5,0)="1084" ^ORD(100.99,1,5,67,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,5,1,1,0)="1083" ^ORD(100.99,1,5,67,1,7,0)="1085" ^ORD(100.99,1,5,67,1,7,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,67,1,7,1,1,0)="1080" ^ORD(100.99,1,5,67,1,7,1,2,0)="1083" ^ORD(100.99,1,5,67,1,8,0)="1086" ^ORD(100.99,1,5,67,1,8,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,67,1,8,1,1,0)="1080" ^ORD(100.99,1,5,67,1,8,1,2,0)="1083" ^ORD(100.99,1,5,67,1,9,0)="1080" ^ORD(100.99,1,5,67,1,10,0)="1087" ^ORD(100.99,1,5,67,1,10,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,10,1,1,0)="1080" ^ORD(100.99,1,5,67,1,11,0)="1088" ^ORD(100.99,1,5,67,1,11,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,11,1,1,0)="854" ^ORD(100.99,1,5,67,1,14,0)="1006" ^ORD(100.99,1,5,67,1,14,1,0)="^100.99511PA^3^3" ^ORD(100.99,1,5,67,1,14,1,1,0)="854" ^ORD(100.99,1,5,67,1,14,1,2,0)="1080" ^ORD(100.99,1,5,67,1,14,1,3,0)="1083" ^ORD(100.99,1,5,67,1,15,0)="1076" ^ORD(100.99,1,5,67,1,15,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,15,1,1,0)="855" ^ORD(100.99,1,5,67,1,16,0)="827" ^ORD(100.99,1,5,67,1,16,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,16,1,1,0)="855" ^ORD(100.99,1,5,67,1,17,0)="849" ^ORD(100.99,1,5,67,1,17,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,17,1,1,0)="855" ^ORD(100.99,1,5,67,1,18,0)="1089" ^ORD(100.99,1,5,67,1,18,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,18,1,1,0)="1080" ^ORD(100.99,1,5,67,1,19,0)="1090" ^ORD(100.99,1,5,67,1,19,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,67,1,19,1,1,0)="1080" ^ORD(100.99,1,5,68,0)="68^PRXK^1" ^ORD(100.99,1,5,69,0)="69^PRXK^1" ^ORD(100.99,1,5,71,0)="71^GMRA^1^^" ^ORD(100.99,1,5,71,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,71,1,1,0)="45" ^ORD(100.99,1,5,71,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,71,1,1,1,1,0)="40" ^ORD(100.99,1,5,76,0)="76^IBD" ^ORD(100.99,1,5,76,1,0)="^100.9951PA^13^13" ^ORD(100.99,1,5,76,1,1,0)="635" ^ORD(100.99,1,5,76,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,1,1,1,0)="1228" ^ORD(100.99,1,5,76,1,2,0)="634" ^ORD(100.99,1,5,76,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,2,1,1,0)="1228" ^ORD(100.99,1,5,76,1,3,0)="639" ^ORD(100.99,1,5,76,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,3,1,1,0)="1228" ^ORD(100.99,1,5,76,1,4,0)="640" ^ORD(100.99,1,5,76,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,4,1,1,0)="1228" ^ORD(100.99,1,5,76,1,5,0)="636" ^ORD(100.99,1,5,76,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,5,1,1,0)="1228" ^ORD(100.99,1,5,76,1,6,0)="644" ^ORD(100.99,1,5,76,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,6,1,1,0)="1228" ^ORD(100.99,1,5,76,1,7,0)="659" ^ORD(100.99,1,5,76,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,7,1,1,0)="1228" ^ORD(100.99,1,5,76,1,8,0)="660" ^ORD(100.99,1,5,76,1,8,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,8,1,1,0)="1228" ^ORD(100.99,1,5,76,1,9,0)="637" ^ORD(100.99,1,5,76,1,9,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,9,1,1,0)="1228" ^ORD(100.99,1,5,76,1,10,0)="638" ^ORD(100.99,1,5,76,1,10,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,10,1,1,0)="1228" ^ORD(100.99,1,5,76,1,11,0)="642" ^ORD(100.99,1,5,76,1,11,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,11,1,1,0)="1228" ^ORD(100.99,1,5,76,1,12,0)="663" ^ORD(100.99,1,5,76,1,12,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,76,1,12,1,1,0)="1228" ^ORD(100.99,1,5,76,1,13,0)="1665" ^ORD(100.99,1,5,76,1,13,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,76,1,13,1,1,0)="1707" ^ORD(100.99,1,5,76,1,13,1,2,0)="1110" ^ORD(100.99,1,5,76,5,0)="^100.9955^^0" ^ORD(100.99,1,5,77,0)="77^PSJ^1^3^1" ^ORD(100.99,1,5,77,2)="D ENREL^PSJORA" ^ORD(100.99,1,5,83,0)="83^PSD" ^ORD(100.99,1,5,83,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,83,1,1,0)="988" ^ORD(100.99,1,5,83,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,83,1,1,1,1,0)="46" ^ORD(100.99,1,5,85,0)="85^VAQ" ^ORD(100.99,1,5,85,1,0)="^100.9951PA^^0" ^ORD(100.99,1,5,85,5,0)="^100.9955^1^1" ^ORD(100.99,1,5,85,5,1,0)="VAQ" ^ORD(100.99,1,5,85,5,"B","VAQ",1)="" ^ORD(100.99,1,5,86,0)="86^GMRD" ^ORD(100.99,1,5,86,1,0)="^100.9951PA^10^9" ^ORD(100.99,1,5,86,1,1,0)="455" ^ORD(100.99,1,5,86,1,1,1,0)="^100.99511PA^4^4" ^ORD(100.99,1,5,86,1,1,1,1,0)="1302" ^ORD(100.99,1,5,86,1,1,1,2,0)="1303" ^ORD(100.99,1,5,86,1,1,1,3,0)="1304" ^ORD(100.99,1,5,86,1,1,1,4,0)="1305" ^ORD(100.99,1,5,86,1,2,0)="447" ^ORD(100.99,1,5,86,1,2,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,86,1,2,1,1,0)="1306" ^ORD(100.99,1,5,86,1,2,1,2,0)="1307" ^ORD(100.99,1,5,86,1,3,0)="448" ^ORD(100.99,1,5,86,1,3,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,86,1,3,1,1,0)="1306" ^ORD(100.99,1,5,86,1,3,1,2,0)="1307" ^ORD(100.99,1,5,86,1,4,0)="444" ^ORD(100.99,1,5,86,1,4,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,86,1,4,1,1,0)="1306" ^ORD(100.99,1,5,86,1,4,1,2,0)="1307" ^ORD(100.99,1,5,86,1,5,0)="452" ^ORD(100.99,1,5,86,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,86,1,5,1,1,0)="1306" ^ORD(100.99,1,5,86,1,6,0)="463" ^ORD(100.99,1,5,86,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,86,1,6,1,1,0)="1306" ^ORD(100.99,1,5,86,1,7,0)="464" ^ORD(100.99,1,5,86,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,86,1,7,1,1,0)="1306" ^ORD(100.99,1,5,86,1,8,0)="454" ^ORD(100.99,1,5,86,1,8,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,86,1,8,1,1,0)="1306" ^ORD(100.99,1,5,86,1,8,1,2,0)="1307" ^ORD(100.99,1,5,86,1,10,0)="466" ^ORD(100.99,1,5,86,1,10,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,86,1,10,1,1,0)="1306" ^ORD(100.99,1,5,86,1,10,1,2,0)="1307" ^ORD(100.99,1,5,88,0)="88^VAMP^^^" ^ORD(100.99,1,5,88,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,88,1,1,0)="474" ^ORD(100.99,1,5,88,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,88,1,1,1,1,0)="508" ^ORD(100.99,1,5,88,5,0)="^100.9955^1^1" ^ORD(100.99,1,5,88,5,1,0)="VAMP" ^ORD(100.99,1,5,88,5,"B","VAMP",1)="" ^ORD(100.99,1,5,89,0)="89^PPP" ^ORD(100.99,1,5,89,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,89,1,1,0)="426" ^ORD(100.99,1,5,89,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,89,1,1,1,1,0)="861" ^ORD(100.99,1,5,89,5,0)="^100.9955^1^1" ^ORD(100.99,1,5,89,5,1,0)="PPP" ^ORD(100.99,1,5,89,5,"B","PPP",1)="" ^ORD(100.99,1,5,91,0)="91" ^ORD(100.99,1,5,91,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,91,1,1,0)="835" ^ORD(100.99,1,5,91,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,91,1,1,1,1,0)="101" ^ORD(100.99,1,5,93,0)="93^DVBA" ^ORD(100.99,1,5,93,1,0)="^100.9951PA^5^5" ^ORD(100.99,1,5,93,1,1,0)="634" ^ORD(100.99,1,5,93,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,93,1,1,1,1,0)="1106" ^ORD(100.99,1,5,93,1,2,0)="635" ^ORD(100.99,1,5,93,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,93,1,2,1,1,0)="1106" ^ORD(100.99,1,5,93,1,3,0)="644" ^ORD(100.99,1,5,93,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,93,1,3,1,1,0)="1106" ^ORD(100.99,1,5,93,1,4,0)="642" ^ORD(100.99,1,5,93,1,4,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,93,1,4,1,1,0)="1106" ^ORD(100.99,1,5,93,1,4,1,2,0)="1303" ^ORD(100.99,1,5,93,1,5,0)="1305" ^ORD(100.99,1,5,93,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,93,1,5,1,1,0)="414" ^ORD(100.99,1,5,98,0)="98^EDR^1^EVENT DRIVEN REPORTING^" ^ORD(100.99,1,5,98,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,98,1,1,0)="1387" ^ORD(100.99,1,5,98,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,98,1,1,1,1,0)="2" ^ORD(100.99,1,5,100,0)="100^^^^" ^ORD(100.99,1,5,100,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,100,1,1,0)="2007" ^ORD(100.99,1,5,100,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,100,1,1,1,1,0)="1054" ^ORD(100.99,1,5,101,0)="101^GMRA^1^" ^ORD(100.99,1,5,101,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,101,1,1,0)="46" ^ORD(100.99,1,5,101,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,101,1,1,1,1,0)="41" ^ORD(100.99,1,5,102,0)="102^GMRA^1^^" ^ORD(100.99,1,5,102,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,102,1,1,0)="1388" ^ORD(100.99,1,5,102,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,102,1,1,1,1,0)="2" ^ORD(100.99,1,5,103,0)="103^GMRA^1^^" ^ORD(100.99,1,5,103,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,103,1,1,0)="1388" ^ORD(100.99,1,5,103,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,103,1,1,1,1,0)="2" ^ORD(100.99,1,5,104,0)="104^GMRV^1^12^" ^ORD(100.99,1,5,104,1,0)="^100.9951PA^^0" ^ORD(100.99,1,5,104,5,0)="^100.9955" ^ORD(100.99,1,5,110,0)="110^VSIT" ^ORD(100.99,1,5,110,1,0)="^100.9951PA^^0" ^ORD(100.99,1,5,111,0)="111^" ^ORD(100.99,1,5,111,1,0)="^100.9951PA^45^45" ^ORD(100.99,1,5,111,1,1,0)="3155" ^ORD(100.99,1,5,111,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,111,1,1,1,1,0)="3" ^ORD(100.99,1,5,111,1,2,0)="3156" ^ORD(100.99,1,5,111,1,3,0)="3157" ^ORD(100.99,1,5,111,1,4,0)="3158" ^ORD(100.99,1,5,111,1,5,0)="3159" ^ORD(100.99,1,5,111,1,6,0)="3160" ^ORD(100.99,1,5,111,1,7,0)="3161" ^ORD(100.99,1,5,111,1,8,0)="3162" ^ORD(100.99,1,5,111,1,9,0)="3163" ^ORD(100.99,1,5,111,1,10,0)="3164" ^ORD(100.99,1,5,111,1,11,0)="3165" ^ORD(100.99,1,5,111,1,12,0)="3166" ^ORD(100.99,1,5,111,1,13,0)="3167" ^ORD(100.99,1,5,111,1,14,0)="3168" ^ORD(100.99,1,5,111,1,15,0)="3169" ^ORD(100.99,1,5,111,1,16,0)="3170" ^ORD(100.99,1,5,111,1,17,0)="3171" ^ORD(100.99,1,5,111,1,18,0)="3172" ^ORD(100.99,1,5,111,1,19,0)="3173" ^ORD(100.99,1,5,111,1,20,0)="3174" ^ORD(100.99,1,5,111,1,21,0)="3175" ^ORD(100.99,1,5,111,1,22,0)="3176" ^ORD(100.99,1,5,111,1,23,0)="3177" ^ORD(100.99,1,5,111,1,24,0)="3178" ^ORD(100.99,1,5,111,1,25,0)="3179" ^ORD(100.99,1,5,111,1,26,0)="3180" ^ORD(100.99,1,5,111,1,27,0)="3181" ^ORD(100.99,1,5,111,1,28,0)="3182" ^ORD(100.99,1,5,111,1,29,0)="3183" ^ORD(100.99,1,5,111,1,30,0)="3184" ^ORD(100.99,1,5,111,1,31,0)="3185" ^ORD(100.99,1,5,111,1,32,0)="3186" ^ORD(100.99,1,5,111,1,33,0)="3187" ^ORD(100.99,1,5,111,1,34,0)="3188" ^ORD(100.99,1,5,111,1,35,0)="3189" ^ORD(100.99,1,5,111,1,36,0)="3190" ^ORD(100.99,1,5,111,1,37,0)="3191" ^ORD(100.99,1,5,111,1,38,0)="3192" ^ORD(100.99,1,5,111,1,39,0)="3193" ^ORD(100.99,1,5,111,1,40,0)="3194" ^ORD(100.99,1,5,111,1,41,0)="3195" ^ORD(100.99,1,5,111,1,42,0)="3196" ^ORD(100.99,1,5,111,1,43,0)="3197" ^ORD(100.99,1,5,111,1,44,0)="3198" ^ORD(100.99,1,5,111,1,45,0)="3199" ^ORD(100.99,1,5,111,1,45,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,111,1,45,1,1,0)="3200" ^ORD(100.99,1,5,111,5,0)="^100.9955^^0" ^ORD(100.99,1,5,114,0)="114^FB" ^ORD(100.99,1,5,114,1,0)="^100.9951PA^11^11" ^ORD(100.99,1,5,114,1,1,0)="1152" ^ORD(100.99,1,5,114,1,2,0)="1151" ^ORD(100.99,1,5,114,1,3,0)="1153" ^ORD(100.99,1,5,114,1,4,0)="791" ^ORD(100.99,1,5,114,1,5,0)="1154" ^ORD(100.99,1,5,114,1,6,0)="792" ^ORD(100.99,1,5,114,1,7,0)="1167" ^ORD(100.99,1,5,114,1,8,0)="1166" ^ORD(100.99,1,5,114,1,9,0)="1171" ^ORD(100.99,1,5,114,1,10,0)="1165" ^ORD(100.99,1,5,114,1,11,0)="1176" ^ORD(100.99,1,5,114,5,0)="^100.9955" ^ORD(100.99,1,5,115,0)="115^RA^1^9^1" ^ORD(100.99,1,5,115,1,0)="^100.9951PA^3^3" ^ORD(100.99,1,5,115,1,1,0)="98" ^ORD(100.99,1,5,115,1,2,0)="53" ^ORD(100.99,1,5,115,1,2,1,0)="^100.99511PA^2^1" ^ORD(100.99,1,5,115,1,2,1,2,0)="46" ^ORD(100.99,1,5,115,1,3,0)="27" ^ORD(100.99,1,5,115,1,3,1,0)="^100.99511PA^2^1" ^ORD(100.99,1,5,115,1,3,1,2,0)="41" ^ORD(100.99,1,5,115,5,0)="^100.9955^1^1" ^ORD(100.99,1,5,115,5,1,0)="RA^75.1^480" ^ORD(100.99,1,5,115,5,"B","RA",1)="" ^ORD(100.99,1,5,120,0)="120^IVM^^1" ^ORD(100.99,1,5,120,1,0)="^100.9951PA^7^7" ^ORD(100.99,1,5,120,1,1,0)="677" ^ORD(100.99,1,5,120,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,120,1,1,1,1,0)="531" ^ORD(100.99,1,5,120,1,2,0)="1142" ^ORD(100.99,1,5,120,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,120,1,2,1,1,0)="1013" ^ORD(100.99,1,5,120,1,3,0)="1143" ^ORD(100.99,1,5,120,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,120,1,3,1,1,0)="1144" ^ORD(100.99,1,5,120,1,4,0)="1145" ^ORD(100.99,1,5,120,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,120,1,4,1,1,0)="1144" ^ORD(100.99,1,5,120,1,5,0)="1144" ^ORD(100.99,1,5,120,1,6,0)="1146" ^ORD(100.99,1,5,120,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,120,1,6,1,1,0)="1147" ^ORD(100.99,1,5,120,1,7,0)="1147" ^ORD(100.99,1,5,120,5,0)="^100.9955^^0" ^ORD(100.99,1,5,124,0)="124^^1^^" ^ORD(100.99,1,5,124,4)="K MCGLO,MCNAM" ^ORD(100.99,1,5,125,0)="125^^1^MEDICINE^" ^ORD(100.99,1,5,125,4)="K MCGLO,MCNAM" ^ORD(100.99,1,5,126,0)="126^GMRA^1^" ^ORD(100.99,1,5,126,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,126,1,1,0)="46" ^ORD(100.99,1,5,126,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,126,1,1,1,1,0)="41" ^ORD(100.99,1,5,127,0)="127^SRH^1^15" ^ORD(100.99,1,5,127,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,127,1,1,0)="453" ^ORD(100.99,1,5,128,0)="128^GMRA^1^" ^ORD(100.99,1,5,128,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,128,1,1,0)="115" ^ORD(100.99,1,5,128,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,128,1,1,1,1,0)="110" ^ORD(100.99,1,5,135,0)="135^GMPL^^1" ^ORD(100.99,1,5,135,1,0)="^100.9951PA^15^15" ^ORD(100.99,1,5,135,1,1,0)="2759" ^ORD(100.99,1,5,135,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,1,1,1,0)="2972" ^ORD(100.99,1,5,135,1,2,0)="2760" ^ORD(100.99,1,5,135,1,2,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,2,1,1,0)="2972" ^ORD(100.99,1,5,135,1,3,0)="2764" ^ORD(100.99,1,5,135,1,3,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,3,1,1,0)="2972" ^ORD(100.99,1,5,135,1,4,0)="2765" ^ORD(100.99,1,5,135,1,4,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,4,1,1,0)="2972" ^ORD(100.99,1,5,135,1,5,0)="2783" ^ORD(100.99,1,5,135,1,5,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,5,1,1,0)="2972" ^ORD(100.99,1,5,135,1,6,0)="2763" ^ORD(100.99,1,5,135,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,6,1,1,0)="2972" ^ORD(100.99,1,5,135,1,7,0)="2762" ^ORD(100.99,1,5,135,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,7,1,1,0)="2972" ^ORD(100.99,1,5,135,1,8,0)="2761" ^ORD(100.99,1,5,135,1,8,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,8,1,1,0)="2972" ^ORD(100.99,1,5,135,1,9,0)="2768" ^ORD(100.99,1,5,135,1,9,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,9,1,1,0)="2972" ^ORD(100.99,1,5,135,1,10,0)="2769" ^ORD(100.99,1,5,135,1,10,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,10,1,1,0)="2972" ^ORD(100.99,1,5,135,1,11,0)="2773" ^ORD(100.99,1,5,135,1,11,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,11,1,1,0)="2972" ^ORD(100.99,1,5,135,1,12,0)="2771" ^ORD(100.99,1,5,135,1,12,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,12,1,1,0)="2972" ^ORD(100.99,1,5,135,1,13,0)="2767" ^ORD(100.99,1,5,135,1,13,1,0)="^100.99511PA^10^10" ^ORD(100.99,1,5,135,1,13,1,1,0)="2972" ^ORD(100.99,1,5,135,1,13,1,2,0)="2973" ^ORD(100.99,1,5,135,1,13,1,3,0)="2974" ^ORD(100.99,1,5,135,1,13,1,4,0)="2975" ^ORD(100.99,1,5,135,1,13,1,5,0)="2976" ^ORD(100.99,1,5,135,1,13,1,6,0)="2977" ^ORD(100.99,1,5,135,1,13,1,7,0)="2978" ^ORD(100.99,1,5,135,1,13,1,8,0)="2979" ^ORD(100.99,1,5,135,1,13,1,9,0)="2980" ^ORD(100.99,1,5,135,1,13,1,10,0)="2981" ^ORD(100.99,1,5,135,1,14,0)="2774" ^ORD(100.99,1,5,135,1,14,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,14,1,1,0)="2972" ^ORD(100.99,1,5,135,1,15,0)="2775" ^ORD(100.99,1,5,135,1,15,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,135,1,15,1,1,0)="2972" ^ORD(100.99,1,5,136,0)="136^GMP1" ^ORD(100.99,1,5,136,1,0)="^100.9951PA^5^5" ^ORD(100.99,1,5,136,1,1,0)="1551" ^ORD(100.99,1,5,136,1,2,0)="1546" ^ORD(100.99,1,5,136,1,3,0)="1556" ^ORD(100.99,1,5,136,1,4,0)="1558" ^ORD(100.99,1,5,136,1,5,0)="1545" ^ORD(100.99,1,5,136,5,0)="^100.9955^^0" ^ORD(100.99,1,5,140,0)="140^^0^19" ^ORD(100.99,1,5,160,0)="160^^0^17^" ^ORD(100.99,1,5,163,0)="163^TIU" ^ORD(100.99,1,5,163,1,0)="^100.9951PA^9^9" ^ORD(100.99,1,5,163,1,1,0)="2783" ^ORD(100.99,1,5,163,1,1,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,163,1,1,1,1,0)="3486" ^ORD(100.99,1,5,163,1,1,1,2,0)="3487" ^ORD(100.99,1,5,163,1,2,0)="2772" ^ORD(100.99,1,5,163,1,2,1,0)="^100.99511PA^4^4" ^ORD(100.99,1,5,163,1,2,1,1,0)="3488" ^ORD(100.99,1,5,163,1,2,1,2,0)="3489" ^ORD(100.99,1,5,163,1,2,1,3,0)="3490" ^ORD(100.99,1,5,163,1,2,1,4,0)="3491" ^ORD(100.99,1,5,163,1,3,0)="2764" ^ORD(100.99,1,5,163,1,3,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,163,1,3,1,1,0)="3486" ^ORD(100.99,1,5,163,1,3,1,2,0)="3487" ^ORD(100.99,1,5,163,1,4,0)="2765" ^ORD(100.99,1,5,163,1,4,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,163,1,4,1,1,0)="3486" ^ORD(100.99,1,5,163,1,4,1,2,0)="3487" ^ORD(100.99,1,5,163,1,5,0)="2761" ^ORD(100.99,1,5,163,1,5,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,163,1,5,1,1,0)="3486" ^ORD(100.99,1,5,163,1,5,1,2,0)="3487" ^ORD(100.99,1,5,163,1,6,0)="2769" ^ORD(100.99,1,5,163,1,6,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,163,1,6,1,1,0)="3486" ^ORD(100.99,1,5,163,1,7,0)="2780" ^ORD(100.99,1,5,163,1,7,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,163,1,7,1,1,0)="3486" ^ORD(100.99,1,5,163,1,8,0)="2781" ^ORD(100.99,1,5,163,1,8,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,163,1,8,1,1,0)="3486" ^ORD(100.99,1,5,163,1,9,0)="2771" ^ORD(100.99,1,5,163,1,9,1,0)="^100.99511PA^2^2" ^ORD(100.99,1,5,163,1,9,1,1,0)="3486" ^ORD(100.99,1,5,163,1,9,1,2,0)="3487" ^ORD(100.99,1,5,165,0)="165^EDR^1^EVENT DRIVEN REPORTING^" ^ORD(100.99,1,5,165,1,0)="^100.9951PA^1^1" ^ORD(100.99,1,5,165,1,1,0)="1387" ^ORD(100.99,1,5,165,1,1,1,0)="^100.99511PA^1^1" ^ORD(100.99,1,5,165,1,1,1,1,0)="2" ^ORD(100.99,1,20,0)="^100.9901P^35^1" ^ORD(100.99,1,20,35,0)="35^1" ^ORD(100.99,1,200)="-1^1" ^ORD(100.99,1,"CONV")="1^2990416.155227^2990416.155227^^^2990416.155227^2990416.155227^^^^0" ^ORD(100.99,1,"PTCONV",0)="^100.9903PA^^0" ^ORD(100.99,"B","HOSPITAL",1)="" ^ORD(101,0)="PROTOCOL^101I^4255^3765" ^ORD(101,1,0)="ORU PATIENT MOVMT^Review Orders on Patient Movement^^A^1^^^^^^^" ^ORD(101,1,1,0)="^^2^2^2960720^^^^" ^ORD(101,1,1,1,0)="This is the option used to review orders when a patient is discharged or" ^ORD(101,1,1,2,0)="transferred." ^ORD(101,1,1,"B","This is the option used to rev",1)="" ^ORD(101,1,1,"B","transferred.",2)="" ^ORD(101,1,20)="I '$D(ORACTION) D REV^ORCHART(DFN)" ^ORD(101,1,99)="59147,62797" ^ORD(101,2,0)="DGPM MOVEMENT EVENTS^MOVEMENT EVENTS v 5.0^^X^1^^^^^^^5" ^ORD(101,2,1,0)="32^^32^32^2990824^^^^" ^ORD(101,2,1,1,0)=" At the completion of a patient movement the following events" ^ORD(101,2,1,2,0)=" take place through this option:" ^ORD(101,2,1,3,0)=" " ^ORD(101,2,1,4,0)=" 1. The PTF record is updated when a patient is admitted," ^ORD(101,2,1,5,0)=" discharged or transfered." ^ORD(101,2,1,6,0)=" " ^ORD(101,2,1,7,0)=" 2. The appointment status for a patient is updated to 'inpatient'" ^ORD(101,2,1,8,0)=" for admissions and 'outpatient' for discharges. Admissions" ^ORD(101,2,1,9,0)=" to the domicilliary have an 'outpatient' appointment status." ^ORD(101,2,1,10,0)=" " ^ORD(101,2,1,11,0)=" 3. When a patient is admitted, dietetics creates a dietetic" ^ORD(101,2,1,12,0)=" patient file entry and creates an admission diet order." ^ORD(101,2,1,13,0)=" When a patient is discharged, all active diet" ^ORD(101,2,1,14,0)=" orders are discontinued. If a patient is absent or on" ^ORD(101,2,1,15,0)=" pass, the diet orders are suspended." ^ORD(101,2,1,16,0)=" " ^ORD(101,2,1,17,0)=" 4. Inpatient Pharmacy cancels all active orders when a" ^ORD(101,2,1,18,0)=" patient is admitted, discharged or on unauthorized absence." ^ORD(101,2,1,19,0)=" A patient can not be given Unit Dose meds unless s/he is" ^ORD(101,2,1,20,0)=" admitted to a ward. The patient can receive IV meds; however." ^ORD(101,2,1,21,0)=" When a patient is transferred, an inpatient system parameter" ^ORD(101,2,1,22,0)=" is used to determine whether or not the orders should be" ^ORD(101,2,1,23,0)=" cancelled. When a patient goes on authorized absence, the" ^ORD(101,2,1,24,0)=" inpatient system parameter is used to determine whether the" ^ORD(101,2,1,25,0)=" orders should be cancelled, placed on hold or no action taken." ^ORD(101,2,1,26,0)=" When a patient returns from authorized absence any orders" ^ORD(101,2,1,27,0)=" placed on hold will no longer be on hold." ^ORD(101,2,1,28,0)=" " ^ORD(101,2,1,29,0)=" 5. With ORDER ENTRY/RESULTS REPORTING v2.2, " ^ORD(101,2,1,30,0)=" MAS OE/RR NOTIFICATIONS may be displayed to" ^ORD(101,2,1,31,0)=" USERS defined in an OE/RR LIST for the patient. These notifications are" ^ORD(101,2,1,32,0)=" displayed for admissions and death discharges." ^ORD(101,2,5)="2910720.13257;DIC(19," ^ORD(101,2,10,0)="^101.01PA^43^43" ^ORD(101,2,10,1,0)="4^^2" ^ORD(101,2,10,2,0)="1^^1" ^ORD(101,2,10,3,0)="566^^8" ^ORD(101,2,10,4,0)="562^^6" ^ORD(101,2,10,5,0)="563^^7" ^ORD(101,2,10,6,0)="561^^1" ^ORD(101,2,10,7,0)="2341" ^ORD(101,2,10,8,0)="617^^2" ^ORD(101,2,10,9,0)="723^^10" ^ORD(101,2,10,10,0)="1163" ^ORD(101,2,10,11,0)="1171" ^ORD(101,2,10,12,0)="1263" ^ORD(101,2,10,13,0)="1389" ^ORD(101,2,10,14,0)="1390^^3" ^ORD(101,2,10,15,0)="1392" ^ORD(101,2,10,16,0)="1172" ^ORD(101,2,10,17,0)="1595" ^ORD(101,2,10,19,0)="1986^^3" ^ORD(101,2,10,20,0)="2024^^4" ^ORD(101,2,10,21,0)="2345^^999" ^ORD(101,2,10,22,0)="2774" ^ORD(101,2,10,37,0)="2860^^^" ^ORD(101,2,10,39,0)="2944^^5" ^ORD(101,2,10,40,0)="3051" ^ORD(101,2,10,41,0)="3282" ^ORD(101,2,10,42,0)="3416" ^ORD(101,2,10,43,0)="3452^^100" ^ORD(101,2,10,"B",1,2)="" ^ORD(101,2,10,"B",4,1)="" ^ORD(101,2,10,"B",26,24)="" ^ORD(101,2,10,"B",28,25)="" ^ORD(101,2,10,"B",31,26)="" ^ORD(101,2,10,"B",32,27)="" ^ORD(101,2,10,"B",561,6)="" ^ORD(101,2,10,"B",562,4)="" ^ORD(101,2,10,"B",563,5)="" ^ORD(101,2,10,"B",566,3)="" ^ORD(101,2,10,"B",617,8)="" ^ORD(101,2,10,"B",723,9)="" ^ORD(101,2,10,"B",1163,10)="" ^ORD(101,2,10,"B",1171,11)="" ^ORD(101,2,10,"B",1172,16)="" ^ORD(101,2,10,"B",1263,12)="" ^ORD(101,2,10,"B",1389,13)="" ^ORD(101,2,10,"B",1390,14)="" ^ORD(101,2,10,"B",1392,15)="" ^ORD(101,2,10,"B",1400,23)="" ^ORD(101,2,10,"B",1401,2)="" ^ORD(101,2,10,"B",1402,3)="" ^ORD(101,2,10,"B",1425,4)="" ^ORD(101,2,10,"B",1428,5)="" ^ORD(101,2,10,"B",1429,6)="" ^ORD(101,2,10,"B",1446,17)="" ^ORD(101,2,10,"B",1476,8)="" ^ORD(101,2,10,"B",1477,7)="" ^ORD(101,2,10,"B",1595,17)="" ^ORD(101,2,10,"B",1913,9)="" ^ORD(101,2,10,"B",1984,10)="" ^ORD(101,2,10,"B",1986,19)="" ^ORD(101,2,10,"B",2024,20)="" ^ORD(101,2,10,"B",2053,18)="" ^ORD(101,2,10,"B",2180,21)="" ^ORD(101,2,10,"B",2341,7)="" ^ORD(101,2,10,"B",2345,21)="" ^ORD(101,2,10,"B",2504,22)="" ^ORD(101,2,10,"B",2774,22)="" ^ORD(101,2,10,"B",2860,37)="" ^ORD(101,2,10,"B",2944,39)="" ^ORD(101,2,10,"B",3051,40)="" ^ORD(101,2,10,"B",3278,28)="" ^ORD(101,2,10,"B",3282,41)="" ^ORD(101,2,10,"B",3286,29)="" ^ORD(101,2,10,"B",3294,30)="" ^ORD(101,2,10,"B",3415,31)="" ^ORD(101,2,10,"B",3416,42)="" ^ORD(101,2,10,"B",3452,43)="" ^ORD(101,2,10,"B",3613,32)="" ^ORD(101,2,10,"B",3700,33)="" ^ORD(101,2,10,"B",3738,34)="" ^ORD(101,2,10,"B",4398,1)="" ^ORD(101,2,10,"B",4402,35)="" ^ORD(101,2,10,"B",4403,36)="" ^ORD(101,2,10,"B",4814,37)="" ^ORD(101,2,10,"B",4844,38)="" ^ORD(101,2,99)="60332,49903" ^ORD(101,3,0)="SDAM APPOINTMENT EVENTS^Appointment Event Driver^^X^1^^^^^^^48" ^ORD(101,3,1,0)="^^4^4^2970829^^^^" ^ORD(101,3,1,1,0)="This extended action contains all the actions that" ^ORD(101,3,1,2,0)="need to be performed when an action is taken upon" ^ORD(101,3,1,3,0)="an appointment, such as checking in." ^ORD(101,3,1,4,0)=" " ^ORD(101,3,2,0)="^101.02A^^0" ^ORD(101,3,10,0)="^101.01PA^19^18" ^ORD(101,3,10,1,0)="1" ^ORD(101,3,10,2,0)="571" ^ORD(101,3,10,5,0)="730^^4" ^ORD(101,3,10,6,0)="1380^^8" ^ORD(101,3,10,7,0)="1393" ^ORD(101,3,10,10,0)="1987" ^ORD(101,3,10,11,0)="2025" ^ORD(101,3,10,12,0)="2170" ^ORD(101,3,10,13,0)="2768" ^ORD(101,3,10,15,0)="3052" ^ORD(101,3,10,16,0)="3415" ^ORD(101,3,10,18,0)="3980" ^ORD(101,3,10,19,0)="3987^^99" ^ORD(101,3,10,"B",1,1)="" ^ORD(101,3,10,"B",571,2)="" ^ORD(101,3,10,"B",730,5)="" ^ORD(101,3,10,"B",1380,6)="" ^ORD(101,3,10,"B",1393,7)="" ^ORD(101,3,10,"B",1987,10)="" ^ORD(101,3,10,"B",2025,11)="" ^ORD(101,3,10,"B",2170,12)="" ^ORD(101,3,10,"B",2768,13)="" ^ORD(101,3,10,"B",3052,15)="" ^ORD(101,3,10,"B",3415,16)="" ^ORD(101,3,10,"B",3980,18)="" ^ORD(101,3,10,"B",3987,19)="" ^ORD(101,3,15)="D EN^SCDXHLDR" ^ORD(101,3,20)="" ^ORD(101,3,99)="60976,76875" ^ORD(101,4,0)="ORU AUTOLIST^Update OE/RR Team Lists^^A^1^^^^^^^35" ^ORD(101,4,1,0)="^^3^3^2980519^" ^ORD(101,4,1,1,0)="This protocol is used to automatically update OE/RR Team Lists. It" ^ORD(101,4,1,2,0)="is triggered by the protocol DGPM MOVEMENT EVENTS and must be an item in" ^ORD(101,4,1,3,0)="that protocol. " ^ORD(101,4,20)="D EN^ORLP3AUT" ^ORD(101,4,99)="57814,55672" ^ORD(101,5,0)="XU USER SIGN-ON^User sign-on event^^X^1" ^ORD(101,5,1,0)="^^8^8^2950519^^^" ^ORD(101,5,1,1,0)="This is a protocol option to link other packages that want to know about" ^ORD(101,5,1,2,0)="a user sign-on event." ^ORD(101,5,1,3,0)="The protocols must not read/write to the screen because we may be doing a" ^ORD(101,5,1,4,0)="GUI sign-on. They can set Text that will be displayed to the user by" ^ORD(101,5,1,5,0)="calling SET^XUS1A(string) The first character should be a ""!"" to cause the" ^ORD(101,5,1,6,0)="text to be placed on a new line. DUZ will be defined but other variables" ^ORD(101,5,1,7,0)="may not be." ^ORD(101,5,1,8,0)="It is called from XUS1A." ^ORD(101,5,5)="173;DIC(19," ^ORD(101,5,99)="56777,35780" ^ORD(101,6,0)="XU USER TERMINATE^User terminate event^^X^1" ^ORD(101,6,1,0)="^^7^7^2940912^" ^ORD(101,6,1,1,0)="This is a protocol to link other packages that want to know about" ^ORD(101,6,1,2,0)="a USER TERMINATE event. Other pachages can attach to this protocol option" ^ORD(101,6,1,3,0)="and they will be called when a USER is Terminated. DUZ will be the person" ^ORD(101,6,1,4,0)="that is running the terminate option. XUIFN will point to the NEW PERSON" ^ORD(101,6,1,5,0)="file entry that is being terminated." ^ORD(101,6,1,6,0)=" " ^ORD(101,6,1,7,0)="It is called from XUSTERM2." ^ORD(101,6,5)="239;DIC(19," ^ORD(101,6,99)="56777,35780" ^ORD(101,29,0)="ORB BLANK LINE^ ^^A^1^^^^^^^" ^ORD(101,29,1,0)="^^2^2^2911218^^^" ^ORD(101,29,1,1,0)=" " ^ORD(101,29,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,29,1,"B","Displays a blank line. (Item ",1)="" ^ORD(101,29,2,0)="^101.02A^1^1" ^ORD(101,29,2,1,0)="BLANK" ^ORD(101,29,2,"B","BLANK",1)="" ^ORD(101,29,99)="57814,55680" ^ORD(101,30,0)="ORRP ALL^All Orders^^A^1^^^^^^^" ^ORD(101,30,1,0)="^^1^1^2901024^^^^" ^ORD(101,30,1,1,0)="Display all orders for this patient" ^ORD(101,30,1,"B","Display all orders for this pa",1)="" ^ORD(101,30,20)="S ORPRES=""1;ALL ORDERS""" ^ORD(101,30,99)="57814,55355" ^ORD(101,31,0)="ORRP CURRENT^Active Orders^^A^1^^^^^^^" ^ORD(101,31,1,0)="^^1^1^2951213^^^^" ^ORD(101,31,1,1,0)="Display active orders for this patient" ^ORD(101,31,1,"B","Display current orders for thi",1)="" ^ORD(101,31,20)="S ORPRES=""2;ACTIVE ORDERS""" ^ORD(101,31,99)="57814,55355" ^ORD(101,32,0)="ORRP DC^Discontinued Orders^^A^1^^^^^^^" ^ORD(101,32,1,0)="^^1^1^2901024^^^^" ^ORD(101,32,1,1,0)="Display discontinued orders" ^ORD(101,32,1,"B","Display discontinued orders",1)="" ^ORD(101,32,20)="S ORPRES=""3;DISCONTINUED ORDERS""" ^ORD(101,32,99)="57814,55355" ^ORD(101,33,0)="ORRP C/E^Completed/Expired Orders^^A^1^^^^^^^" ^ORD(101,33,1,0)="^^1^1^2920218^^^^" ^ORD(101,33,1,1,0)="Display orders completed or expired" ^ORD(101,33,1,"B","Display orders which have expi",1)="" ^ORD(101,33,20)="S ORPRES=""4;COMPLETED/EXPIRED ORDERS""" ^ORD(101,33,99)="57814,55355" ^ORD(101,34,0)="ORRP EXPIRING^Expiring Orders^^A^1^^^^^^^" ^ORD(101,34,1,0)="^^1^1^2901024^^^^" ^ORD(101,34,1,1,0)="Display orders about to expire" ^ORD(101,34,1,"B","Display orders about to expire",1)="" ^ORD(101,34,20)="S ORPRES=""5;EXPIRING ORDERS""" ^ORD(101,34,99)="57814,55355" ^ORD(101,36,0)="ORRP PENDING^Pending Orders^^A^1^^^^^^^" ^ORD(101,36,1,0)="^^1^1^2901024^^^^" ^ORD(101,36,1,1,0)="Display pending orders " ^ORD(101,36,1,"B","Display pending orders ",1)="" ^ORD(101,36,20)="S ORPRES=""7;PENDING ORDERS""" ^ORD(101,36,99)="57814,55355" ^ORD(101,38,0)="ORRP STATUS MENU^Order Status^^M^1^^^^^^^" ^ORD(101,38,1,0)="^^1^1^2960813^^^^" ^ORD(101,38,1,1,0)="This is the menu of order status groupings that may be selected for display." ^ORD(101,38,1,"B","This is the menu of order stat",1)="" ^ORD(101,38,4)="80^^" ^ORD(101,38,10,0)="^101.01PA^17^17" ^ORD(101,38,10,1,0)="30^AL^1^" ^ORD(101,38,10,2,0)="31^CU^2^" ^ORD(101,38,10,3,0)="32^DC^3^" ^ORD(101,38,10,4,0)="33^CE^4^" ^ORD(101,38,10,5,0)="34^EG^5^" ^ORD(101,38,10,6,0)="36^PD^7^" ^ORD(101,38,10,8,0)="58^US^10^" ^ORD(101,38,10,9,0)="707^VS^12^" ^ORD(101,38,10,10,0)="708^VU^13^" ^ORD(101,38,10,11,0)="2365^NU^8^" ^ORD(101,38,10,12,0)="2366^KU^9^" ^ORD(101,38,10,13,0)="2367^FL^11^" ^ORD(101,38,10,14,0)="2382^LK^^" ^ORD(101,38,10,15,0)="2383^IN^^" ^ORD(101,38,10,16,0)="2384^OT^^" ^ORD(101,38,10,17,0)="2385^TR^^" ^ORD(101,38,10,"B",30,1)="" ^ORD(101,38,10,"B",31,2)="" ^ORD(101,38,10,"B",32,3)="" ^ORD(101,38,10,"B",33,4)="" ^ORD(101,38,10,"B",34,5)="" ^ORD(101,38,10,"B",36,6)="" ^ORD(101,38,10,"B",58,8)="" ^ORD(101,38,10,"B",707,9)="" ^ORD(101,38,10,"B",708,10)="" ^ORD(101,38,10,"B",2365,11)="" ^ORD(101,38,10,"B",2366,12)="" ^ORD(101,38,10,"B",2367,13)="" ^ORD(101,38,10,"B",2382,14)="" ^ORD(101,38,10,"B",2383,15)="" ^ORD(101,38,10,"B",2384,16)="" ^ORD(101,38,10,"B",2385,17)="" ^ORD(101,38,21,0)="^101.021A^1^1" ^ORD(101,38,21,1,0)="ORBUF" ^ORD(101,38,21,"B","ORBUF",1)="" ^ORD(101,38,26)="S XQORM(0)=""1A"",XQORM(""??"")=""D HSTS^ORPRS01(X)""" ^ORD(101,38,28)="Select Order Status: " ^ORD(101,38,29)="Active Orders" ^ORD(101,38,99)="57814,55358" ^ORD(101,46,0)="ORB BLANK LINE1^ ^^A^1^^^^^^^" ^ORD(101,46,1,0)="^^2^2^2950706^^^^" ^ORD(101,46,1,1,0)=" " ^ORD(101,46,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,46,99)="57814,55355" ^ORD(101,47,0)="ORB BLANK LINE2^ ^^A^1^^^^^^^" ^ORD(101,47,1,0)="^^2^2^2960719^^^^" ^ORD(101,47,1,1,0)=" " ^ORD(101,47,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,47,99)="57814,55355" ^ORD(101,48,0)="ORB BLANK LINE3^ ^^A^1^^^^^^^" ^ORD(101,48,1,0)="^^2^2^2910307^^^" ^ORD(101,48,1,1,0)=" " ^ORD(101,48,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,48,99)="57814,55355" ^ORD(101,49,0)="ORB BLANK LINE4^ ^^A^1^^^^^^^" ^ORD(101,49,1,0)="^^2^2^2950706^^^^" ^ORD(101,49,1,1,0)=" " ^ORD(101,49,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,49,99)="57814,55355" ^ORD(101,58,0)="ORRP UNSIGNED^Unsigned Orders^^A^1^^^^^^^" ^ORD(101,58,1,0)="^^1^1^2910625^" ^ORD(101,58,1,1,0)="Display unsigned orders." ^ORD(101,58,20)="S ORPRES=""11;UNSIGNED ORDERS""" ^ORD(101,58,99)="57814,55355" ^ORD(101,61,0)="ORS 24HR SUMMARY^Daily Order Summary^^A^1^^^^^^^35" ^ORD(101,61,1,0)="^^2^2^2910828^^^^" ^ORD(101,61,1,1,0)="This protocol allows users to generate a 24 hour summary of orders placed" ^ORD(101,61,1,2,0)="on a user-specified date." ^ORD(101,61,20)="D DAY^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP" ^ORD(101,61,99)="57814,55355" ^ORD(101,61,101.05,0)="^101.05I^20^1" ^ORD(101,61,101.05,20,0)="20" ^ORD(101,61,101.05,20,1)="D DAY^ORPRS02" ^ORD(101,62,0)="ORS RNG SUMMARY^Order Summary for Date/time Range^^A^1^^^^^^^35" ^ORD(101,62,1,0)="^^2^2^2910828^^^" ^ORD(101,62,1,1,0)="This protocol allows the user to print a summary of orders placed during" ^ORD(101,62,1,2,0)="a user-specified date/time range." ^ORD(101,62,20)="D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP" ^ORD(101,62,99)="57814,55355" ^ORD(101,62,101.05,0)="^101.05I^20^1" ^ORD(101,62,101.05,20,0)="20" ^ORD(101,62,101.05,20,1)="D RANGE^ORPRS02" ^ORD(101,63,0)="ORS CUSTOM SUMMARY^Customized Order Summary^^A^1^^^^^^^35" ^ORD(101,63,1,0)="^^2^2^2910828^^" ^ORD(101,63,1,1,0)="This protocol allows the user to generate summaries of orders placed during" ^ORD(101,63,1,2,0)="a user-specified date/time range by service and order status." ^ORD(101,63,20)="D CUSTOM^ORPRS01 Q:$G(OREND) S ORSDG(+XQORNOD)=ORDG,ORPRES(+XQORNOD)=ORPRES D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP" ^ORD(101,63,99)="57814,55355" ^ORD(101,63,101.05,0)="^101.05I^20^1" ^ORD(101,63,101.05,20,0)="20" ^ORD(101,63,101.05,20,1)="D CUSTOM^ORPRS02" ^ORD(101,64,0)="ORS CHART SUMMARY^Print Chart Copy Summary^^A^1^^^^^^^35" ^ORD(101,64,1,0)="^^3^3^2910905^^" ^ORD(101,64,1,1,0)="This protocol allows printing of chart copy summaries for patients selected" ^ORD(101,64,1,2,0)="from the user's preferred list of orders released during a user-specified" ^ORD(101,64,1,3,0)="date/time interval." ^ORD(101,64,20)="D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=ORSSTRT,ORSSTOP(+XQORNOD)=ORSSTOP" ^ORD(101,64,99)="57814,55355" ^ORD(101,64,101.05,0)="^101.05I^20^1" ^ORD(101,64,101.05,20,0)="20" ^ORD(101,64,101.05,20,1)="D CHART^ORPRS02" ^ORD(101,65,0)="ORS HEALTH SUMMARY^Health Summary^^A^1^^^^^^^35" ^ORD(101,65,1,0)="^^2^2^2910828^^^" ^ORD(101,65,1,1,0)="This protocol allows printing of Health Summaries for patients selected from" ^ORD(101,65,1,2,0)="the user's preferred list." ^ORD(101,65,2,0)="^101.02A^^0" ^ORD(101,65,20)="D SELTYP^ORPRS13" ^ORD(101,65,99)="57814,55355" ^ORD(101,65,101.05,0)="^101.05I^20^1" ^ORD(101,65,101.05,20,0)="20" ^ORD(101,65,101.05,20,1)="D PQ^ORPRS13" ^ORD(101,66,0)="ORS GRAPH LABS^Graph Lab Tests^^A^1^^^^^^^35" ^ORD(101,66,1,0)="^^2^2^2910906^" ^ORD(101,66,1,1,0)="This action type protocol allows graphing of lab results by collection" ^ORD(101,66,1,2,0)="sample, and test for any time interval and # of data points." ^ORD(101,66,20)="S LRCW=8,LRFLAG="""",LRCTRL=0,(LRNSET,N)=80 D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP D L2^LRDIST4 S:$D(LRSPEC) ORLRSPEC(+XQORNOD)=LRSPEC S:'$D(LRTEST) OREND=1 I X=""^"" S DUOUT=1 S:X=""^^"" DIROUT=1" ^ORD(101,66,99)="57814,55355" ^ORD(101,66,101.05,0)="^101.05I^20^1" ^ORD(101,66,101.05,20,0)="20" ^ORD(101,66,101.05,20,1)="S DFN=+ORVP,LRSS=""CH"",LRCW=8,LRFLAG="""",LREDT=ORSSTRT(XQORNOD),LRSDT=ORSSTOP(XQORNOD),LRSPEC=ORLRSPEC(+XQORNOD) W:$E(IOST)=""C"" @IOF D OERR^LRDIST4 D:$G(ORSI)=$G(ORSCPAT) CLEAN^LRDIST4" ^ORD(101,67,0)="ORS LAB INTERIM^Lab Results (Interim)^^A^1^^^^^^^35" ^ORD(101,67,1,0)="^^1^1^2910906^" ^ORD(101,67,1,1,0)="This protocol prints interim labs for a user-specified time interval" ^ORD(101,67,20)="D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP" ^ORD(101,67,99)="57814,55355" ^ORD(101,67,101.05,0)="^101.05I^20^1" ^ORD(101,67,101.05,20,0)="20" ^ORD(101,67,101.05,20,1)="D SET^LRRP4 S:$D(ORSSTRT(+XQORNOD)) LREDT=9999999-ORSSTRT(+XQORNOD) S:$D(ORSSTOP(+XQORNOD)) LRIDT=9999999-ORSSTOP(+XQORNOD) S DFN=+ORVP,OORVP=ORVP D OERR^LRRP4,CLEAN^LRRP4 S ORVP=OORVP K OORVP,LRACC,LRAD,LRAN,LRLLT,LRPG,LRSB" ^ORD(101,68,0)="ORS VITALS REPORT^Vitals SF511 Report^^A^1^^^^^^^35" ^ORD(101,68,1,0)="^^1^1^2910906^^" ^ORD(101,68,1,1,0)="This protocol prints the SF511 vitals report for a time range" ^ORD(101,68,20)="D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP" ^ORD(101,68,26)="" ^ORD(101,68,99)="57814,55355" ^ORD(101,68,101.05,0)="^101.05I^20^1" ^ORD(101,68,101.05,20,0)="20" ^ORD(101,68,101.05,20,1)="D VIT511^ORPRS14 S ORSSTFLG=1" ^ORD(101,69,0)="ORS VITALS CUM REPORT^Vitals Cumulative Report^^A^1^^^^^^^35" ^ORD(101,69,1,0)="^^1^1^2910906^" ^ORD(101,69,1,1,0)="This protocol prints the vitals cumulative report for a time interval." ^ORD(101,69,20)="D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP" ^ORD(101,69,99)="57814,55355" ^ORD(101,69,101.05,0)="^101.05I^20^1" ^ORD(101,69,101.05,20,0)="20" ^ORD(101,69,101.05,20,1)="D VITCUM^ORPRS14 S ORSSTFLG=1" ^ORD(101,70,0)="ORS BLOOD BANK^Blood Bank Report^^A^1^^^^^^^35" ^ORD(101,70,1,0)="^101.06^1^1^3030116^^^" ^ORD(101,70,1,1,0)="This protocol prints blood bank reports for the patient" ^ORD(101,70,20)="W !!,""Gets Patient Blood Bank Report.""" ^ORD(101,70,99)="59624,66030" ^ORD(101,70,101.05,0)="^101.05I^20^1" ^ORD(101,70,101.05,20,0)="20" ^ORD(101,70,101.05,20,1)="D REPORT^ORWLR1 S ORSSTFLG=1" ^ORD(101,71,0)="ORS ANATOMIC PATH REPORT^Anatomic Pathology Report^^A^1^^^^^^^35" ^ORD(101,71,1,0)="^^1^1^2910906^" ^ORD(101,71,1,1,0)="This protocol prints the anatomic pathology report for a patient" ^ORD(101,71,20)="W !!,""Gets ALL Anatomic Pathology Tests for Patient.""" ^ORD(101,71,99)="57814,55355" ^ORD(101,71,101.05,0)="^101.05I^20^1" ^ORD(101,71,101.05,20,0)="20" ^ORD(101,71,101.05,20,1)="D SET^LRAPS3 S DFN=+ORVP,OORVP=ORVP D OERR^LRAPS3,CLEAN^LRAPS3 S ORVP=OORVP,ORSSTFLG=1" ^ORD(101,85,0)="ORB BLANK LINE11^ ^^L^1^^^^^^^35" ^ORD(101,85,99)="56777,35878" ^ORD(101,86,0)="ORB BLANK LINE12^ ^^L^1^^^^^^^35" ^ORD(101,86,99)="56777,35878" ^ORD(101,87,0)="ORB BLANK LINE13^ ^^L^1^^^^^^^35" ^ORD(101,87,99)="56777,35878" ^ORD(101,90,0)="ORB BLANK LINE14^ ^^L^1^^^^^^^35" ^ORD(101,90,99)="56777,35878" ^ORD(101,91,0)="ORB BLANK LINE15^ ^^L^1^^^^^^^35" ^ORD(101,91,99)="56777,35878" ^ORD(101,95,0)="ORB BLANK LINE16^ ^^L^1^^^^^^^35" ^ORD(101,95,99)="56777,35878" ^ORD(101,103,0)="ORB BLANK LINE17^ ^^L^1^^^^^^^35" ^ORD(101,103,99)="56777,35878" ^ORD(101,106,0)="ORB BLANK LINE18^ ^^L^1^^^^^^^35" ^ORD(101,106,99)="56777,35878" ^ORD(101,109,0)="ORB BLANK LINE19^ ^^L^1^^^^^^^35" ^ORD(101,109,99)="56777,35878" ^ORD(101,111,0)="ORB BLANK LINE20^ ^^L^1^^^^^^^35" ^ORD(101,111,99)="56777,35878" ^ORD(101,114,0)="ORB BLANK LINE21^ ^^L^1^^^^^^^35" ^ORD(101,114,99)="56777,35878" ^ORD(101,187,0)="ORS AD HOC HEALTH SUMMARY^Ad Hoc Health Summary^^A^1^^^^^^^35" ^ORD(101,187,1,0)="^^2^2^2910913^" ^ORD(101,187,1,1,0)="This protocol allows generation of Ad Hoc Health Summaries for multiple" ^ORD(101,187,1,2,0)="patients from the Results Reporting menu." ^ORD(101,187,20)="S X=""GMTS HS ADHOC"",DIC=142,DIC(0)=""ZF"" D ^DIC K DIC Q:+Y'>0 S GMTSTYP=+Y,GMTSTITL=""AD HOC"" D BUILD^GMTSADOR" ^ORD(101,187,99)="57814,55355" ^ORD(101,187,101.05,0)="^101.05I^20^1" ^ORD(101,187,101.05,20,0)="20" ^ORD(101,187,101.05,20,1)="S DFN=+ORVP D EN^GMTS1 K GMTSEG,GMTSEGI" ^ORD(101,226,0)="ORS RX ACTION PROFILE^Outpatient RX Profile^^A^1^^^^^^^35" ^ORD(101,226,1,0)="^^1^1^2980601^^^" ^ORD(101,226,1,1,0)="This protocol allows the user to print action profiles for selected patients." ^ORD(101,226,99)="57965,59381" ^ORD(101,226,101.05,0)="^101.05I^20^1" ^ORD(101,226,101.05,20,0)="20" ^ORD(101,226,101.05,20,1)="I $D(ORVP) N DFN,PSTYPE,PSONOPG S DFN=+ORVP,(PSTYPE,PSONOPG)=1,PSORM=0 D DFN^PSOSD1 S ORSSTFLG=1" ^ORD(101,227,0)="ORS REPORT MENU^Results Reporting menu^^M^1^^^^^^^35" ^ORD(101,227,1,0)="^^2^2^2911216^^^^" ^ORD(101,227,1,1,0)="This is a menu of OE/RR reports that can be given to ward users to produce" ^ORD(101,227,1,2,0)="various patient reports." ^ORD(101,227,4)="40" ^ORD(101,227,10,0)="^101.01PA^12^12" ^ORD(101,227,10,1,0)="61^8^8" ^ORD(101,227,10,2,0)="62^9^9" ^ORD(101,227,10,3,0)="63^10^10" ^ORD(101,227,10,4,0)="64^11^11" ^ORD(101,227,10,5,0)="65^1^1" ^ORD(101,227,10,6,0)="66^3^3" ^ORD(101,227,10,7,0)="67^2^2" ^ORD(101,227,10,8,0)="68^6^6" ^ORD(101,227,10,9,0)="69^7^7" ^ORD(101,227,10,10,0)="70^4^4" ^ORD(101,227,10,11,0)="71^5^5" ^ORD(101,227,10,12,0)="226^12^12" ^ORD(101,227,10,"B",61,1)="" ^ORD(101,227,10,"B",62,2)="" ^ORD(101,227,10,"B",63,3)="" ^ORD(101,227,10,"B",64,4)="" ^ORD(101,227,10,"B",65,5)="" ^ORD(101,227,10,"B",66,6)="" ^ORD(101,227,10,"B",67,7)="" ^ORD(101,227,10,"B",68,8)="" ^ORD(101,227,10,"B",69,9)="" ^ORD(101,227,10,"B",70,10)="" ^ORD(101,227,10,"B",71,11)="" ^ORD(101,227,10,"B",226,12)="" ^ORD(101,227,15)="D EXIT^ORPRS07" ^ORD(101,227,20)="S ORANSI=0,XQORFLG(""SH"")=1" ^ORD(101,227,26)="S ORTIT=""RESULTS REPORTING"",OREND=0 D TIT^ORUHDR S ORSTIT=""Main Results Menu"" D STIT3^ORUHDR W !" ^ORD(101,227,99)="59624,66030" ^ORD(101,227,101.05,0)="^101.05I" ^ORD(101,257,0)="ORB BLANK LINE5^ ^^A^1^^^^^^^" ^ORD(101,257,1,0)="^^2^2^2910307^^^" ^ORD(101,257,1,1,0)=" " ^ORD(101,257,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,257,99)="57814,55355" ^ORD(101,258,0)="ORB BLANK LINE6^ ^^A^1^^^^^^^" ^ORD(101,258,1,0)="^^2^2^2910307^^^" ^ORD(101,258,1,1,0)=" " ^ORD(101,258,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,258,99)="56777,35878" ^ORD(101,259,0)="ORB BLANK LINE7^ ^^A^1^^^^^^^" ^ORD(101,259,1,0)="^^2^2^2910307^^^" ^ORD(101,259,1,1,0)=" " ^ORD(101,259,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,259,99)="56777,35878" ^ORD(101,260,0)="ORB BLANK LINE8^ ^^A^1^^^^^^^" ^ORD(101,260,1,0)="^^2^2^2910307^^^" ^ORD(101,260,1,1,0)=" " ^ORD(101,260,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,260,99)="56777,35878" ^ORD(101,261,0)="ORB BLANK LINE9^ ^^A^1^^^^^^^" ^ORD(101,261,1,0)="^^2^2^2910307^^^" ^ORD(101,261,1,1,0)=" " ^ORD(101,261,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,261,99)="56777,35878" ^ORD(101,262,0)="ORB BLANK LINE10^ ^^A^1^^^^^^^" ^ORD(101,262,1,0)="^^2^2^2910307^^^" ^ORD(101,262,1,1,0)=" " ^ORD(101,262,1,2,0)="Displays a blank line. (Item text is 3 spaces.) Use to get whitespace." ^ORD(101,262,99)="56777,35878" ^ORD(101,275,0)="OR GUA DC GENERIC ORDERS^DC Generic Orders on Discharge^^A^1^^^^^^^35" ^ORD(101,275,1,0)="^^8^8^2921119^^^" ^ORD(101,275,1,1,0)="This protocol will discontinue all generic orders for a patient when the" ^ORD(101,275,1,2,0)="patient is discharged. The protocol should be set up as an item on the" ^ORD(101,275,1,3,0)="DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is" ^ORD(101,275,1,4,0)="a discharge and then discontinue all generic orders (orders created by the" ^ORD(101,275,1,5,0)="Order Entry/Results Reporting package itself). The actual DC process" ^ORD(101,275,1,6,0)="is tasked, to reduce the wait for the person doing the discharge." ^ORD(101,275,1,7,0)="Therefore, the order review screen may not immediately reflect the DC'd" ^ORD(101,275,1,8,0)="orders." ^ORD(101,275,15)="" ^ORD(101,275,20)="Q:$G(DGPMT)'=3 D EN1^ORMEVNT" ^ORD(101,275,99)="57814,55355" ^ORD(101,276,0)="OR GUA DC GENERIC ORDERS NOTASK^DC Generic Orders on Discharge (Untasked)^^A^1^^^^^^^35" ^ORD(101,276,1,0)="^^9^9^2921119^^^" ^ORD(101,276,1,1,0)="This protocol will discontinue all generic orders for a patient when the" ^ORD(101,276,1,2,0)="patient is discharged. The protocol should be set up as an item on the" ^ORD(101,276,1,3,0)="DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is" ^ORD(101,276,1,4,0)="a discharge and then discontinue all generic orders (orders created by the" ^ORD(101,276,1,5,0)="Order Entry/Results Reporting package itself). The DC process is done" ^ORD(101,276,1,6,0)="interactively, which may sometimes result in a wait. If this protocol" ^ORD(101,276,1,7,0)="is placed before the ORU PATIENT MOVMT protocol in the item multiple" ^ORD(101,276,1,8,0)="of the DGPM MOVEMENT EVENTS protocol, the review screen will reflect" ^ORD(101,276,1,9,0)="active orders AFTER the generic orders are DC'd." ^ORD(101,276,20)="Q:$G(DGPMT)'=3 D EN^ORMEVNT" ^ORD(101,276,99)="57814,55355" ^ORD(101,277,0)="OR GUA DC GEN ORD ON TRANS^DC Generic Orders on Transfer^^A^1^^^^^^^35" ^ORD(101,277,1,0)="^^6^6^2921119^^^" ^ORD(101,277,1,1,0)="This protocol will discontinue all generic orders for a patient when the" ^ORD(101,277,1,2,0)="patient is transferred. The protocol should be set up as an item on the" ^ORD(101,277,1,3,0)="DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is" ^ORD(101,277,1,4,0)="a transfer and then discontinue all generic orders (orders created by the" ^ORD(101,277,1,5,0)="Order Entry/Results Reporting package itself). The actual DC process is" ^ORD(101,277,1,6,0)="tasked, to reduce the wait for the person doing the transfer." ^ORD(101,277,10,0)="^101.01PA^1^1" ^ORD(101,277,10,1,0)="48^^99^" ^ORD(101,277,10,"B",48,1)="" ^ORD(101,277,20)="Q:$G(DGPMT)'=2 D EN1^ORMEVNT" ^ORD(101,277,99)="57814,55355" ^ORD(101,278,0)="OR GUA DC GEN ORD ON TRANS NOTASK^DC Generic Orders on Transfer (Untasked)^^A^1^^^^^^^35" ^ORD(101,278,1,0)="^^9^9^2921119^^^" ^ORD(101,278,1,1,0)="This protocol will discontinue all generic orders for a patient when the" ^ORD(101,278,1,2,0)="patient is transferred. The protocol should be set up as an item on the" ^ORD(101,278,1,3,0)="DGPM MOVEMENT EVENTS protocol. It will check to see if the movement is" ^ORD(101,278,1,4,0)="a transfer and then discontinue all generic orders (orders created by the" ^ORD(101,278,1,5,0)="Order Entry/Results Reporting package itself). The DC process is done" ^ORD(101,278,1,6,0)="interactively, which may sometimes result in a wait. If this protocol" ^ORD(101,278,1,7,0)="is placed before the ORU PATIENT MOVMT protocol in the item multiple of" ^ORD(101,278,1,8,0)="the DGPM MOVEMENT EVENTS protocol, the review screen will reflect active" ^ORD(101,278,1,9,0)="orders AFTER the generic orders are DC'd." ^ORD(101,278,20)="Q:$G(DGPMT)'=2 D EN^ORMEVNT" ^ORD(101,278,99)="57814,55355" ^ORD(101,344,0)="HL CS/RQ - SELECT MESSAGES^Select Messages^^A^1^^^^^^^33" ^ORD(101,344,1,0)="^^1^1^2950710^^" ^ORD(101,344,1,1,0)="Protocol used by the HL7 Message Requeuer to flag messages for requeueing." ^ORD(101,344,2,0)="^101.02A^^0" ^ORD(101,344,4)="^^^SM" ^ORD(101,344,10,0)="^101.01PA^0^0" ^ORD(101,344,20)="D SELECT^HLCSRE1(1)" ^ORD(101,344,99)="56777,43026" ^ORD(101,345,0)="HL CS/RQ MENU - SCREEN 2^HL-7 Message Requuer screen # 2^^M^1^^^^^^^33" ^ORD(101,345,1,0)="^^2^2^2950710^^^^" ^ORD(101,345,1,1,0)="Protocol menu for screen number 2 (Message Select) of the HL7 Message" ^ORD(101,345,1,2,0)="Requeuer." ^ORD(101,345,4)="26^4" ^ORD(101,345,10,0)="^101.01PA^3^3" ^ORD(101,345,10,1,0)="344^SE^11^^H" ^ORD(101,345,10,1,1)="Enter list to select" ^ORD(101,345,10,2,0)="346^DE^21" ^ORD(101,345,10,2,1)="Enter list to deselect" ^ORD(101,345,10,3,0)="365^VM^31" ^ORD(101,345,10,"B",344,1)="" ^ORD(101,345,10,"B",346,2)="" ^ORD(101,345,10,"B",365,3)="" ^ORD(101,345,20)="" ^ORD(101,345,26)="D SHOW^VALM" ^ORD(101,345,99)="56777,43028" ^ORD(101,346,0)="HL CS/RQ - DESELECT MESSAGES^Deselect Messages^^A^1^^^^^^^33" ^ORD(101,346,1,0)="^^2^2^2950710^^" ^ORD(101,346,1,1,0)="Protocol used by the HL7 Message Requeuer to deselect messages that have" ^ORD(101,346,1,2,0)="been flag for requeueing." ^ORD(101,346,4)="^^^DE" ^ORD(101,346,20)="D SELECT^HLCSRE1(0)" ^ORD(101,346,99)="56777,43026" ^ORD(101,365,0)="HL CS/RQ - VIEW MESSAGE^View Message^^A^1^^^^^^^33" ^ORD(101,365,1,0)="^^1^1^2950710^^" ^ORD(101,365,1,1,0)="Protocol used by the HL7 Message Requeuer to view an HL7 message." ^ORD(101,365,2,0)="^101.02A^^0" ^ORD(101,365,4)="^^^VM" ^ORD(101,365,20)="D EXPND^HLCSRES" ^ORD(101,365,99)="56777,43026" ^ORD(101,366,0)="GMTS HS ADHOC^Health Summary Ad Hoc^^A^1^^^^^^^42" ^ORD(101,366,1,0)="^^5^5^2930825^^^" ^ORD(101,366,1,1,0)="Generates an 'Ad Hoc' Health Summary for specified patients. Instead of " ^ORD(101,366,1,2,0)="selecting a pre-defined Health Summary Type, the user defines his own ad hoc" ^ORD(101,366,1,3,0)="Health Summary structure for temporary use while using this option. The user" ^ORD(101,366,1,4,0)="selects Health Summary components, time and occurrence limits when" ^ORD(101,366,1,5,0)="applicable, and selection items when applicable. " ^ORD(101,366,2,0)="^101.02A^1^1" ^ORD(101,366,2,1,0)="HS AD HOC" ^ORD(101,366,2,"B","HS AD HOC",1)="" ^ORD(101,366,3,0)="^101.03PA^57^1" ^ORD(101,366,3,1,0)="57" ^ORD(101,366,3,"B",57,1)="" ^ORD(101,366,20)="W ! D MAIN^GMTSADOR" ^ORD(101,366,99)="56777,49406" ^ORD(101,367,0)="GMTS COMP DESC LIST^List Health Summary Component Descriptions^^A^1^^^^^^^42" ^ORD(101,367,1,0)="^^2^2^2910301^" ^ORD(101,367,1,1,0)="Lists all components which may be used to define Health Summary Types, along" ^ORD(101,367,1,2,0)="with the abbreviation and a brief description of each. " ^ORD(101,367,2,0)="^101.02A^1^1" ^ORD(101,367,2,1,0)="HS COMP DESC LIST" ^ORD(101,367,2,"B","HS COMP DESC LIST",1)="" ^ORD(101,367,3,0)="^101.03PA^0^0" ^ORD(101,367,20)="W ! S DIC=""^GMT(142.1,"",L=0,FLDS=""[GMTS COMP DESC LIST]"",BY=.01,FR=""A"",TO=""zzzz"" D EN1^DIP S DIR(0)=""E"" D ^DIR" ^ORD(101,367,99)="56777,49406" ^ORD(101,368,0)="GMTS HS BY PATIENT^Patient Health Summary^^A^1^^^^^^^42" ^ORD(101,368,1,0)="^^2^2^2910301^" ^ORD(101,368,1,1,0)="Generates a Health Summary of a specified pre-defined Health Summary Type for" ^ORD(101,368,1,2,0)="a specified patient. " ^ORD(101,368,2,0)="^101.02A^1^1" ^ORD(101,368,2,1,0)="HS PRINT BY PATIENT" ^ORD(101,368,2,"B","HS PRINT BY PATIENT",1)="" ^ORD(101,368,3,0)="^101.03PA^0^0" ^ORD(101,368,15)="" ^ORD(101,368,20)="W ! S DIC(""B"")=$P($G(^GMT(142,+$G(^DISV(+$G(DUZ),""^GMT(142,"")),0)),U),GMTSTYP=0 S:'$D(DFN) DFN=$S($D(ORVP):$P(ORVP,"";""),1:"""") D SELPT^GMTS:+DFN'>0,SELTYP^GMTS Q:GMTSTYP'>0 D HSOUT^GMTS" ^ORD(101,368,26)="" ^ORD(101,368,99)="56777,49408" ^ORD(101,369,0)="GMTS HS BY LOC^Hospital Location Health Summary^^A^1^^^^^^^42" ^ORD(101,369,1,0)="^^3^3^2910301^" ^ORD(101,369,1,1,0)="Allows user to print health summaries interactively for all patients on a" ^ORD(101,369,1,2,0)="specified ward or for all patients with appointments at a specified " ^ORD(101,369,1,3,0)="outpatient clinic on a selected day. " ^ORD(101,369,2,0)="^101.02A^2^1" ^ORD(101,369,2,2,0)="HS PRINT BY LOCATION" ^ORD(101,369,2,"B","HS PRINT BY LOCATION",2)="" ^ORD(101,369,3,0)="^101.03PA^0^0" ^ORD(101,369,20)="D MAIN^GMTSPD" ^ORD(101,369,99)="56777,49408" ^ORD(101,370,0)="GMTS USER^Health Summary User Menu^^M^1^^^^^^^42" ^ORD(101,370,1,0)="^^8^8^2910301^" ^ORD(101,370,1,1,0)="This menu allows the user to print Health Summaries by Patient or Hospital " ^ORD(101,370,1,2,0)="Location with a pre-defined Health Summary Type, or print Health Summaries " ^ORD(101,370,1,3,0)="for patients, based on ad hoc Health Summary definitions. The user may also" ^ORD(101,370,1,4,0)="use the Information Menu to list and inquire about Health Summary Types and" ^ORD(101,370,1,5,0)="Health Summary Components. " ^ORD(101,370,1,6,0)=" " ^ORD(101,370,1,7,0)="This menu does not contain the options which allow the user to create or " ^ORD(101,370,1,8,0)="delete his/her own Health Summary Types. " ^ORD(101,370,2,0)="^101.02A^2^1" ^ORD(101,370,2,2,0)="HS USER MENU" ^ORD(101,370,2,"B","HS USER MENU",2)="" ^ORD(101,370,3,0)="^101.03PA^^1" ^ORD(101,370,3,1,0)="57" ^ORD(101,370,3,"B",57,1)="" ^ORD(101,370,4)="^^Y" ^ORD(101,370,10,0)="^101.01PA^4^4" ^ORD(101,370,10,1,0)="366^2^2" ^ORD(101,370,10,2,0)="369^3^3" ^ORD(101,370,10,3,0)="368^1^1" ^ORD(101,370,10,4,0)="371^4^4" ^ORD(101,370,10,"B",366,1)="" ^ORD(101,370,10,"B",368,3)="" ^ORD(101,370,10,"B",369,2)="" ^ORD(101,370,10,"B",371,4)="" ^ORD(101,370,26)="S ORUIEN=XQORNOD D OE^ORUHDR K ORUIEN" ^ORD(101,370,99)="56777,49411" ^ORD(101,371,0)="GMTS INFO ONLY MENU^Health Summary Information Menu^^M^1^^^^^^^42" ^ORD(101,371,1,0)="^^2^2^2910301^" ^ORD(101,371,1,1,0)="This menu contains options which provide information only about Health" ^ORD(101,371,1,2,0)="Summary Types and Health Summary Components. " ^ORD(101,371,2,0)="^101.02A^2^1" ^ORD(101,371,2,2,0)="HS INFO MENU" ^ORD(101,371,2,"B","HS INFO MENU",2)="" ^ORD(101,371,3,0)="^101.03PA^57^1" ^ORD(101,371,3,1,0)="57" ^ORD(101,371,3,"B",57,1)="" ^ORD(101,371,4)="^^Y" ^ORD(101,371,10,0)="^101.01PA^5^5" ^ORD(101,371,10,1,0)="367^5^5" ^ORD(101,371,10,2,0)="372^3^3" ^ORD(101,371,10,3,0)="412^4^4" ^ORD(101,371,10,4,0)="373^1^1" ^ORD(101,371,10,5,0)="413^2^2" ^ORD(101,371,10,"B",367,1)="" ^ORD(101,371,10,"B",372,2)="" ^ORD(101,371,10,"B",373,4)="" ^ORD(101,371,10,"B",412,3)="" ^ORD(101,371,10,"B",413,5)="" ^ORD(101,371,26)="S ORUIEN=XQORNOD D OE^ORUHDR K ORUIEN" ^ORD(101,371,99)="56777,49410" ^ORD(101,372,0)="GMTS COMP INQ^Inquire about a Health Summary Component^^A^1^^^^^^^42" ^ORD(101,372,1,0)="^^2^2^2910301^" ^ORD(101,372,1,1,0)="This allows the user to display the characteristics of a Health Summary " ^ORD(101,372,1,2,0)="Component. " ^ORD(101,372,2,0)="^101.02A^2^1" ^ORD(101,372,2,2,0)="HS COMPONENT INQUIRE" ^ORD(101,372,2,"B","HS COMPONENT INQUIRE",2)="" ^ORD(101,372,3,0)="^101.03PA^0^0" ^ORD(101,372,20)="W ! D ^GMTSCI S DIR(0)=""E"" D ^DIR" ^ORD(101,372,99)="56777,49406" ^ORD(101,373,0)="GMTS TYPE INQUIRE^Inquire about a Health Summary Type^^A^1^^^^^^^42" ^ORD(101,373,20)="W ! D ^GMTSRI W ! S DIR(0)=""E"" D ^DIR" ^ORD(101,373,99)="56777,49410" ^ORD(101,374,0)="GMTS BLO^Health Summary Brief Lab Orders^^A^1^^^^^^^42" ^ORD(101,374,1,0)="^^4^4^2910301^" ^ORD(101,374,1,1,0)="This component contains information extracted from the Lab package. Time and" ^ORD(101,374,1,2,0)="maximum occurrence limits apply.Data presented include: collection date/time," ^ORD(101,374,1,3,0)="lab test name, specimen, urgency, and order status (e.g., ORDERED, COLLECTED," ^ORD(101,374,1,4,0)="PROCESSING, COMPLETE). " ^ORD(101,374,2,0)="^101.02A^1^1" ^ORD(101,374,2,1,0)="HS LAB ORDERS BRIEF" ^ORD(101,374,2,"B","HS LAB ORDERS BRIEF",1)="" ^ORD(101,374,3,0)="^101.03P^57^1" ^ORD(101,374,3,1,0)="57" ^ORD(101,374,3,"B",57,1)="" ^ORD(101,374,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BLO"",GMTSTITL=""BRIEF LAB ORDERS"" D ENCWA^GMTS" ^ORD(101,374,99)="56777,49405" ^ORD(101,375,0)="GMTS ADR^Health Summary Adverse Reactions/Allergies^^A^1^^^^^^^42" ^ORD(101,375,1,0)="^^3^3^2950513^^" ^ORD(101,375,1,1,0)="This component contains information from MAS, Pharmacy, and Dietetics " ^ORD(101,375,1,2,0)="packages. It provides a list of all known food, drug and environmental " ^ORD(101,375,1,3,0)="allergies or adverse reactions (e.g., hay fever). " ^ORD(101,375,2,0)="^101.02A^2^1" ^ORD(101,375,2,2,0)="HS ADVERSE REACTIONS/ALLERGIES" ^ORD(101,375,2,3,0)="ADR" ^ORD(101,375,2,"B","ADR",3)="" ^ORD(101,375,2,"B","HS ADVERSE REACTIONS/ALLERGIES",2)="" ^ORD(101,375,3,0)="^101.03P^57^1" ^ORD(101,375,3,1,0)="57" ^ORD(101,375,3,"B",57,1)="" ^ORD(101,375,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ADR"",GMTSTITL=""ADVERSE REACTIONS/ALLERGIES"" D ENCWA^GMTS" ^ORD(101,375,99)="56777,49405" ^ORD(101,376,0)="GMTS CW^Health Summary Clinical Warnings^^A^1^^^^^^^42" ^ORD(101,376,1,0)="^^11^11^2910301^^" ^ORD(101,376,1,1,0)="This component contains clinical warning notes entered using the Generic " ^ORD(101,376,1,2,0)="Progress Note package. No time or maximum occurrence limits apply to this " ^ORD(101,376,1,3,0)="component. " ^ORD(101,376,1,4,0)=" " ^ORD(101,376,1,5,0)="Clinical Warnings are a type of progress note which includes clinical " ^ORD(101,376,1,6,0)="information which clinicians need to be alerted to. " ^ORD(101,376,1,7,0)=" " ^ORD(101,376,1,8,0)="If this component is printed out on a CRT, information will include title, " ^ORD(101,376,1,9,0)="text of note, electronic signature block, and date posted. If the printout " ^ORD(101,376,1,10,0)="is to another device type, information will include electronic signature " ^ORD(101,376,1,11,0)="block and date posted to ensure security of information. " ^ORD(101,376,2,0)="^101.02A^1^1" ^ORD(101,376,2,1,0)="HS CLINICAL WARNINGS" ^ORD(101,376,2,2,0)="CW" ^ORD(101,376,2,"B","CW",2)="" ^ORD(101,376,2,"B","HS CLINICAL WARNINGS",1)="" ^ORD(101,376,3,0)="^101.03P^57^1" ^ORD(101,376,3,1,0)="57" ^ORD(101,376,3,"B",57,1)="" ^ORD(101,376,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CW"",GMTSTITL=""CLINICAL WARNINGS"" D ENCWA^GMTS" ^ORD(101,376,99)="56777,49406" ^ORD(101,377,0)="GMTS CN^Health Summary Crisis Notes^^A^1^^^^^^^42" ^ORD(101,377,1,0)="^^10^10^2910301^" ^ORD(101,377,1,1,0)="This component contains crisis notes entered using the Generic Progress Note" ^ORD(101,377,1,2,0)="package. No time or maximum occurrence limits apply to this component. " ^ORD(101,377,1,3,0)=" " ^ORD(101,377,1,4,0)="Crisis Notes are a type of progress note which contains important information" ^ORD(101,377,1,5,0)="for anyone who deals with a patient. " ^ORD(101,377,1,6,0)=" " ^ORD(101,377,1,7,0)="If this component is printed out on a CRT, information will include title, " ^ORD(101,377,1,8,0)="text of note, electronic signature block, and date posted. If the printout " ^ORD(101,377,1,9,0)="is to another device type, information will include electronic signature " ^ORD(101,377,1,10,0)="block and date posted to ensure security of information. " ^ORD(101,377,2,0)="^101.02A^1^1" ^ORD(101,377,2,1,0)="HS CRISIS NOTES" ^ORD(101,377,2,2,0)="CN" ^ORD(101,377,2,"B","CN",2)="" ^ORD(101,377,2,"B","HS CRISIS NOTES",1)="" ^ORD(101,377,3,0)="^101.03P^57^1" ^ORD(101,377,3,1,0)="57" ^ORD(101,377,3,"B",57,1)="" ^ORD(101,377,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CN"",GMTSTITL=""CRISIS NOTES"" D ENCWA^GMTS" ^ORD(101,377,99)="56777,49405" ^ORD(101,378,0)="GMTS DIET^Health Summary Dietetics^^A^1^^^^^^^42" ^ORD(101,378,1,0)="^^8^8^2910301^" ^ORD(101,378,1,1,0)="This component contains information from the Dietetics package. Time and" ^ORD(101,378,1,2,0)="occurrence limits apply to this component. Data presented include: diet" ^ORD(101,378,1,3,0)="orders, start/stop dates, type of service (tray, e.g.); nutritional status," ^ORD(101,378,1,4,0)="date assessed; supplemental feedings, start/stop dates; tube feedings," ^ORD(101,378,1,5,0)="start/stop dates, strength of product, quantity ordered, and daily dosages. " ^ORD(101,378,1,6,0)=" " ^ORD(101,378,1,7,0)="Note: When a time limit is selected, the data presented reflects orders " ^ORD(101,378,1,8,0)="initiated within the time period. " ^ORD(101,378,2,0)="^101.02A^1^1" ^ORD(101,378,2,1,0)="HS DIETETICS" ^ORD(101,378,2,2,0)="DI" ^ORD(101,378,2,"B","DI",2)="" ^ORD(101,378,2,"B","HS DIETETICS",1)="" ^ORD(101,378,3,0)="^101.03P^57^1" ^ORD(101,378,3,1,0)="57" ^ORD(101,378,3,"B",57,1)="" ^ORD(101,378,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DI"",GMTSTITL=""DIETETICS"" D ENCWA^GMTS" ^ORD(101,378,99)="56777,49406" ^ORD(101,379,0)="GMTS BT^Health Summary Blood Transfusions^^A^1^^^^^^^42" ^ORD(101,379,1,0)="^^4^4^2910301^" ^ORD(101,379,1,1,0)="This component contains information from the Blood Bank module of the Lab" ^ORD(101,379,1,2,0)="Package. Time and occurrence limits apply to this component. Data presented" ^ORD(101,379,1,3,0)="include: transfusion date and abbreviated blood products (with total number" ^ORD(101,379,1,4,0)="of units transfused for each, e.g., RBC (2)). " ^ORD(101,379,2,0)="^101.02A^2^1" ^ORD(101,379,2,2,0)="HS LAB BLOOD TRANSFUSIONS" ^ORD(101,379,2,3,0)="BT" ^ORD(101,379,2,"B","BT",3)="" ^ORD(101,379,2,"B","HS LAB BLOOD TRANSFUSIONS",2)="" ^ORD(101,379,3,0)="^101.03P^57^1" ^ORD(101,379,3,1,0)="57" ^ORD(101,379,3,"B",57,1)="" ^ORD(101,379,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BT"",GMTSTITL=""BLOOD TRANSFUSIONS"" D ENCWA^GMTS" ^ORD(101,379,99)="56777,49405" ^ORD(101,380,0)="GMTS CH^Health Summary Chemistry & Hematology^^A^1^^^^^^^42" ^ORD(101,380,1,0)="^^4^4^2910301^" ^ORD(101,380,1,1,0)="This component contains information extracted from the Lab package. Time and" ^ORD(101,380,1,2,0)="maximum occurrence limits apply to this component. Data presented include: " ^ORD(101,380,1,3,0)="collection date/time, specimen, test name, results (w/ref flag: " ^ORD(101,380,1,4,0)="High/Low/Critical), units, and Reference range. " ^ORD(101,380,2,0)="^101.02A^2^1" ^ORD(101,380,2,2,0)="HS LAB CHEMISTRY & HEMATOLOGY" ^ORD(101,380,2,3,0)="CH" ^ORD(101,380,2,"B","CH",3)="" ^ORD(101,380,2,"B","HS LAB CHEMISTRY & HEMATOLOGY",2)="" ^ORD(101,380,3,0)="^101.03P^57^1" ^ORD(101,380,3,1,0)="57" ^ORD(101,380,3,"B",57,1)="" ^ORD(101,380,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CH"",GMTSTITL=""CHEMISTRY & HEMATOLOGY"" D ENCWA^GMTS" ^ORD(101,380,99)="56777,49405" ^ORD(101,381,0)="GMTS CY^Health Summary Cytopathology^^A^1^^^^^^^42" ^ORD(101,381,1,0)="^^5^5^2910301^" ^ORD(101,381,1,1,0)="This component contains information extracted from the Cytopathology module" ^ORD(101,381,1,2,0)="of the Lab package. Time and maximum occurrence limits apply. Data presented" ^ORD(101,381,1,3,0)="include: collection date/time, accession number, specimen, gross description" ^ORD(101,381,1,4,0)="and microscopic exam (both word processing fields), ICD diagnoses, and SNOMED" ^ORD(101,381,1,5,0)="fields: topography, disease, morphology, etiology, and procedures. " ^ORD(101,381,2,0)="^101.02A^3^1" ^ORD(101,381,2,3,0)="HS LAB CYTOPATHOLOGY" ^ORD(101,381,2,"B","HS LAB CYTOPATHOLOGY",3)="" ^ORD(101,381,3,0)="^101.03P^57^1" ^ORD(101,381,3,1,0)="57" ^ORD(101,381,3,"B",57,1)="" ^ORD(101,381,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CY"",GMTSTITL=""CYTOPATHOLOGY"" D ENCWA^GMTS" ^ORD(101,381,99)="56777,49406" ^ORD(101,382,0)="GMTS MIC^Health Summary Microbiology^^A^1^^^^^^^42" ^ORD(101,382,1,0)="^^5^5^2910301^" ^ORD(101,382,1,1,0)="This component contains information extracted from the Microbiology module of" ^ORD(101,382,1,2,0)="the Lab Package. Time and maximum occurrence limits apply. Data include: " ^ORD(101,382,1,3,0)="collection date/time, site/specimen, Parasite Report, organism(s), Mycology" ^ORD(101,382,1,4,0)="Report, Bacteriology Report, Mycobacteriology Report, Gram Stain Result, and" ^ORD(101,382,1,5,0)="remarks. " ^ORD(101,382,2,0)="^101.02A^2^1" ^ORD(101,382,2,2,0)="HS LAB MICROBIOLOGY" ^ORD(101,382,2,"B","HS LAB MICROBIOLOGY",2)="" ^ORD(101,382,3,0)="^101.03P^57^1" ^ORD(101,382,3,1,0)="57" ^ORD(101,382,3,"B",57,1)="" ^ORD(101,382,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MIC"",GMTSTITL=""MICROBIOLOGY"" D ENCWA^GMTS" ^ORD(101,382,99)="56777,49409" ^ORD(101,383,0)="GMTS BMIC^Health Summary Brief Microbiology^^A^1^^^^^^^42" ^ORD(101,383,1,0)="^^3^3^2910301^" ^ORD(101,383,1,1,0)="This component contains information extracted from the Lab package. Time and" ^ORD(101,383,1,2,0)="maximum occurrence limits apply to this component in addition to collection" ^ORD(101,383,1,3,0)="date/time, test name, specimen, report status, and test results. " ^ORD(101,383,2,0)="^101.02A^2^1" ^ORD(101,383,2,2,0)="HS LAB MICROBIOLOGY BRIEF" ^ORD(101,383,2,"B","HS LAB MICROBIOLOGY BRIEF",2)="" ^ORD(101,383,3,0)="^101.03P^57^1" ^ORD(101,383,3,1,0)="57" ^ORD(101,383,3,"B",57,1)="" ^ORD(101,383,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BMIC"",GMTSTITL=""BRIEF MICROBIOLOGY"" D ENCWA^GMTS" ^ORD(101,383,99)="56777,49405" ^ORD(101,384,0)="GMTS LO^Health Summary Lab Orders^^A^1^^^^^^^42" ^ORD(101,384,1,0)="^^4^4^2910301^" ^ORD(101,384,1,1,0)="This component contains information extracted from the Lab package. Time and" ^ORD(101,384,1,2,0)="maximum occurrence limits apply. Data presented include: collection date" ^ORD(101,384,1,3,0)="(either actual or expected), lab test, provider, accession, date/time" ^ORD(101,384,1,4,0)="ordered, specimen, and date/time results available. " ^ORD(101,384,2,0)="^101.02A^1^1" ^ORD(101,384,2,1,0)="HS LAB ORDERS" ^ORD(101,384,2,"B","HS LAB ORDERS",1)="" ^ORD(101,384,3,0)="^101.03P^57^1" ^ORD(101,384,3,1,0)="57" ^ORD(101,384,3,"B",57,1)="" ^ORD(101,384,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""LO"",GMTSTITL=""LAB ORDERS"" D ENCWA^GMTS" ^ORD(101,384,99)="56777,49409" ^ORD(101,385,0)="GMTS SP^Health Summary Surgical Pathology^^A^1^^^^^^^42" ^ORD(101,385,1,0)="^^6^6^2910301^" ^ORD(101,385,1,1,0)="This component contains information extracted from the Surical Pathology " ^ORD(101,385,1,2,0)="module of the Lab package. Time and maximum occurrence limits apply. Data" ^ORD(101,385,1,3,0)="presented include: collection date/time, accession number, specimen, gross" ^ORD(101,385,1,4,0)="description and microscopic exam (both word processing fields), ICD" ^ORD(101,385,1,5,0)="diagnoses, and SNOMED fields: topography, disease, morphology, etiology, and" ^ORD(101,385,1,6,0)="procedures. " ^ORD(101,385,2,0)="^101.02A^2^1" ^ORD(101,385,2,2,0)="HS LAB SURGICAL PATHOLOGY" ^ORD(101,385,2,"B","HS LAB SURGICAL PATHOLOGY",2)="" ^ORD(101,385,3,0)="^101.03P^57^1" ^ORD(101,385,3,1,0)="57" ^ORD(101,385,3,"B",57,1)="" ^ORD(101,385,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""SP"",GMTSTITL=""SURGICAL PATHOLOGY"" D ENCWA^GMTS" ^ORD(101,385,99)="56777,49410" ^ORD(101,386,0)="GMTS ADC^Health Summary Admissions/Discharges^^A^1^^^^^^^42" ^ORD(101,386,1,0)="^^5^5^2910301^" ^ORD(101,386,1,1,0)="This component contains information from the MAS package. Time and " ^ORD(101,386,1,2,0)="occurrence limits apply to this component. Data presented include: date" ^ORD(101,386,1,3,0)="range of admission, ward, length of stay (LOS), last treating specialty, last" ^ORD(101,386,1,4,0)="provider, admitting diagnosis text, bedsection, principal diagnosis," ^ORD(101,386,1,5,0)="diagnosis for longest length of stay (DXLS), and seconary ICD diagnoses. " ^ORD(101,386,2,0)="^101.02A^2^1" ^ORD(101,386,2,2,0)="HS MAS ADMISSIONS/DISCHARGES" ^ORD(101,386,2,"B","HS MAS ADMISSIONS/DISCHARGES",2)="" ^ORD(101,386,3,0)="^101.03P^GMTS ED^1" ^ORD(101,386,3,1,0)="57" ^ORD(101,386,3,"B",57,1)="" ^ORD(101,386,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ADC"",GMTSTITL=""ADMISSIONS/DISCHARGES"" D ENCWA^GMTS" ^ORD(101,386,99)="56777,49404" ^ORD(101,387,0)="GMTS ADT^Health Summary ADT History^^A^1^^^^^^^42" ^ORD(101,387,1,0)="^^6^6^2910301^" ^ORD(101,387,1,1,0)="This component contains information extracted from the MAS package. It can" ^ORD(101,387,1,2,0)="only be used with MAS Version 5 and up. " ^ORD(101,387,1,3,0)=" " ^ORD(101,387,1,4,0)="Time and maximum occurrence limits apply. Data presented include: movement" ^ORD(101,387,1,5,0)="date, movement type (ADM=Admission, TR=Transfer, TS= Treating Specialty," ^ORD(101,387,1,6,0)="DC=Discharge), movement description, specialty, and provider. " ^ORD(101,387,2,0)="^101.02A^2^1" ^ORD(101,387,2,2,0)="HS MAS ADT HISTORY" ^ORD(101,387,2,"B","HS MAS ADT HISTORY",2)="" ^ORD(101,387,3,0)="^101.03P^57^1" ^ORD(101,387,3,1,0)="57" ^ORD(101,387,3,"B",57,1)="" ^ORD(101,387,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ADT"",GMTSTITL=""ADT HISTORY"" D ENCWA^GMTS" ^ORD(101,387,99)="56777,49405" ^ORD(101,388,0)="GMTS CVF^Health Summary Clinic Visits Future^^A^1^^^^^^^42" ^ORD(101,388,1,0)="^^3^3^2910301^" ^ORD(101,388,1,1,0)="This component provides a listing from the MAS scheduling module that " ^ORD(101,388,1,2,0)="contains future clinic visit dates, the clinic visited, and the appointment" ^ORD(101,388,1,3,0)="type. " ^ORD(101,388,2,0)="^101.02A^2^1" ^ORD(101,388,2,2,0)="HS MAS CLINIC VISITS FUTURE" ^ORD(101,388,2,"B","HS MAS CLINIC VISITS FUTURE",2)="" ^ORD(101,388,3,0)="^101.03P^57^1" ^ORD(101,388,3,1,0)="57" ^ORD(101,388,3,"B",57,1)="" ^ORD(101,388,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CVF"",GMTSTITL=""CLINIC VISITS FUTURE"" D ENCWA^GMTS" ^ORD(101,388,99)="56777,49406" ^ORD(101,389,0)="GMTS CVP^Health Summary Clinic Visits Past^^A^1^^^^^^^42" ^ORD(101,389,1,0)="^^4^4^2910301^" ^ORD(101,389,1,1,0)="This component contains information from the MAS scheduling module. Time and" ^ORD(101,389,1,2,0)="occurrence limits apply to this component. Data presented include: past" ^ORD(101,389,1,3,0)="clinic visits, dates, and a visit status (e.g., NO SHOW, INPATIENT VISIT). " ^ORD(101,389,1,4,0)="Note: Cancellations are not shown. " ^ORD(101,389,2,0)="^101.02A^2^1" ^ORD(101,389,2,2,0)="HS MAS CLINIC VISITS PAST" ^ORD(101,389,2,"B","HS MAS CLINIC VISITS PAST",2)="" ^ORD(101,389,3,0)="^101.03P^57^1" ^ORD(101,389,3,1,0)="57" ^ORD(101,389,3,"B",57,1)="" ^ORD(101,389,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CVP"",GMTSTITL=""CLINIC VISITS PAST"" D ENCWA^GMTS" ^ORD(101,389,99)="56777,49406" ^ORD(101,390,0)="GMTS DEM^Health Summary Demographics^^A^1^^^^^^^42" ^ORD(101,390,1,0)="^^6^6^2910301^" ^ORD(101,390,1,1,0)="This component contains the following patient demographic data (if available)" ^ORD(101,390,1,2,0)="from the MAS package: address, phone, county, marital status, religion," ^ORD(101,390,1,3,0)="period of service, POW status (e.g., Y or N), branch of service, combat" ^ORD(101,390,1,4,0)="status (e.g., Y or N), eligibility code, current (verified) eligibility" ^ORD(101,390,1,5,0)="status, service connected %, eligible for care (e.g., Y or N), next of kin" ^ORD(101,390,1,6,0)="(NOK), NOK phone number and address. " ^ORD(101,390,2,0)="^101.02A^2^1" ^ORD(101,390,2,2,0)="HS MAS DEMOGRAPHICS" ^ORD(101,390,2,"B","HS MAS DEMOGRAPHICS",2)="" ^ORD(101,390,3,0)="^101.03P^57^1" ^ORD(101,390,3,1,0)="57" ^ORD(101,390,3,"B",57,1)="" ^ORD(101,390,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DEM"",GMTSTITL=""DEMOGRAPHICS"" D ENCWA^GMTS" ^ORD(101,390,99)="56777,49406" ^ORD(101,391,0)="GMTS BDEM^Health Summary Brief Demographics^^A^1^^^^^^^42" ^ORD(101,391,1,0)="^^3^3^2910301^" ^ORD(101,391,1,1,0)="This component contains information from the MAS package. It provides brief" ^ORD(101,391,1,2,0)="patient demographic information including: address, phone number, and" ^ORD(101,391,1,3,0)="eligibility code (e.g., service connected 50-100%). " ^ORD(101,391,2,0)="^101.02A^2^1" ^ORD(101,391,2,2,0)="HS MAS DEMOGRAPHICS BRIEF" ^ORD(101,391,2,"B","HS MAS DEMOGRAPHICS BRIEF",2)="" ^ORD(101,391,3,0)="^101.03P^57^1" ^ORD(101,391,3,1,0)="57" ^ORD(101,391,3,"B",57,1)="" ^ORD(101,391,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BDEM"",GMTSTITL=""BRIEF DEMOGRAPHICS"" D ENCWA^GMTS" ^ORD(101,391,99)="56777,49405" ^ORD(101,392,0)="GMTS DS^Health Summary Disabilities^^A^1^^^^^^^42" ^ORD(101,392,1,0)="^^4^4^2910301^" ^ORD(101,392,1,1,0)="This component provides information from the MAS package about a patient's " ^ORD(101,392,1,2,0)="eligibility code and eligibility status (Verified), and rated disabilities, " ^ORD(101,392,1,3,0)="including the disability percentage and whether the disability is service " ^ORD(101,392,1,4,0)="connected or non-service connected. " ^ORD(101,392,2,0)="^101.02A^2^1" ^ORD(101,392,2,2,0)="HS MAS DISABILITIES" ^ORD(101,392,2,"B","HS MAS DISABILITIES",2)="" ^ORD(101,392,3,0)="^101.03P^57^1" ^ORD(101,392,3,1,0)="57" ^ORD(101,392,3,"B",57,1)="" ^ORD(101,392,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DS"",GMTSTITL=""DISABILITIES"" D ENCWA^GMTS" ^ORD(101,392,99)="56777,49406" ^ORD(101,393,0)="GMTS DD^Health Summary Discharge Diagnosis^^A^1^^^^^^^42" ^ORD(101,393,1,0)="^^8^8^2910301^" ^ORD(101,393,1,1,0)="This component contains information extracted from the MAS package. Time and" ^ORD(101,393,1,2,0)="occurrence limits apply to this component. Data presented include: Date" ^ORD(101,393,1,3,0)="range of admission through discharge, length of stay (LOS), Principal " ^ORD(101,393,1,4,0)="diagnosis, diagnosis for longest length of stay (DXLS), and secondary ICD" ^ORD(101,393,1,5,0)="discharge diagnoses. " ^ORD(101,393,1,6,0)=" " ^ORD(101,393,1,7,0)="Note: This component provides discharge diagnoses coded in the MAS PTF file. " ^ORD(101,393,1,8,0)="The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,393,2,0)="^101.02A^2^1" ^ORD(101,393,2,2,0)="HS MAS DISCHARGE DIAGNOSIS" ^ORD(101,393,2,"B","HS MAS DISCHARGE DIAGNOSIS",2)="" ^ORD(101,393,3,0)="^101.03P^57^1" ^ORD(101,393,3,1,0)="57" ^ORD(101,393,3,"B",57,1)="" ^ORD(101,393,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DD"",GMTSTITL=""DISCHARGE DIAGNOSIS"" D ENCWA^GMTS" ^ORD(101,393,99)="56777,49406" ^ORD(101,394,0)="GMTS DC^Health Summary Discharges^^A^1^^^^^^^42" ^ORD(101,394,1,0)="^^6^6^2910301^" ^ORD(101,394,1,1,0)="This component contains information extracted from the MAS package. Time and" ^ORD(101,394,1,2,0)="occurrence limits apply to this component. Data presented include: date of" ^ORD(101,394,1,3,0)="discharge, DXLS, bedsection, disposition type, disposition disposition place," ^ORD(101,394,1,4,0)="and outpatient treatment flag. " ^ORD(101,394,1,5,0)=" " ^ORD(101,394,1,6,0)="Note: The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,394,2,0)="^101.02A^2^1" ^ORD(101,394,2,2,0)="HS MAS DISCHARGES" ^ORD(101,394,2,"B","HS MAS DISCHARGES",2)="" ^ORD(101,394,3,0)="^101.03P^57^1" ^ORD(101,394,3,1,0)="57" ^ORD(101,394,3,"B",57,1)="" ^ORD(101,394,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DC"",GMTSTITL=""DISCHARGES"" D ENCWA^GMTS" ^ORD(101,394,99)="56777,49406" ^ORD(101,395,0)="GMTS PRC^Health Summary Procedures (ICD codes)^^A^1^^^^^^^42" ^ORD(101,395,1,0)="^^6^6^2910301^" ^ORD(101,395,1,1,0)="This component contains MAS coded procedures, by admission, extracted from " ^ORD(101,395,1,2,0)="the MAS package. Time and occurrence limits apply to this component. Data " ^ORD(101,395,1,3,0)="presented include: procedure date, procedure name, and ICD-9CM procedure " ^ORD(101,395,1,4,0)="codes. " ^ORD(101,395,1,5,0)=" " ^ORD(101,395,1,6,0)="Note: The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,395,2,0)="^101.02A^2^1" ^ORD(101,395,2,2,0)="HS MAS PROCEDURES ICD CODES" ^ORD(101,395,2,"B","HS MAS PROCEDURES ICD CODES",2)="" ^ORD(101,395,3,0)="^101.03P^57^1" ^ORD(101,395,3,1,0)="57" ^ORD(101,395,3,"B",57,1)="" ^ORD(101,395,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""PRC"",GMTSTITL=""PROCEDURES"" D ENCWA^GMTS" ^ORD(101,395,99)="56777,49410" ^ORD(101,396,0)="GMTS OPC^Health Summary Surgeries (ICD codes)^^A^1^^^^^^^42" ^ORD(101,396,1,0)="^^6^6^2910301^" ^ORD(101,396,1,1,0)="This component contains MAS coded surgeries, by admission, extracted from the" ^ORD(101,396,1,2,0)="MAS package. Time and occurrence limits apply to this component. Data" ^ORD(101,396,1,3,0)="presented include: surgery date, procedure name, and ICD-9CM procedure " ^ORD(101,396,1,4,0)="codes. " ^ORD(101,396,1,5,0)=" " ^ORD(101,396,1,6,0)="Note: The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,396,2,0)="^101.02A^2^1" ^ORD(101,396,2,2,0)="HS MAS SURGERIES ICD CODES" ^ORD(101,396,2,"B","HS MAS SURGERIES ICD CODES",2)="" ^ORD(101,396,3,0)="^101.03P^57^1" ^ORD(101,396,3,1,0)="57" ^ORD(101,396,3,"B",57,1)="" ^ORD(101,396,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""OPC"",GMTSTITL=""MAS SURGERY"" D ENCWA^GMTS" ^ORD(101,396,99)="56777,49409" ^ORD(101,397,0)="GMTS TR^Health Summary Transfers^^A^1^^^^^^^42" ^ORD(101,397,1,0)="^^5^5^2910301^" ^ORD(101,397,1,1,0)="This component contains information extracted from the MAS package. Time and" ^ORD(101,397,1,2,0)="occurrence limits apply to this component. Data presented include: transfer" ^ORD(101,397,1,3,0)="date, type, destination, and provider (when available). " ^ORD(101,397,1,4,0)=" " ^ORD(101,397,1,5,0)="Note: The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,397,2,0)="^101.02A^2^1" ^ORD(101,397,2,2,0)="HS MAS TRANSFERS" ^ORD(101,397,2,"B","HS MAS TRANSFERS",2)="" ^ORD(101,397,3,0)="^101.03P^57^1" ^ORD(101,397,3,1,0)="57" ^ORD(101,397,3,"B",57,1)="" ^ORD(101,397,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""TR"",GMTSTITL=""TRANSFERS"" D ENCWA^GMTS" ^ORD(101,397,99)="56777,49410" ^ORD(101,398,0)="GMTS TS^Health Summary Treating Speciality^^A^1^^^^^^^42" ^ORD(101,398,1,0)="^^6^6^2910301^" ^ORD(101,398,1,1,0)="This component contains information extracted from the MAS package. Time and" ^ORD(101,398,1,2,0)="occurrence limits apply to this component. Data presented include: treating" ^ORD(101,398,1,3,0)="specialty change date/time, new treating specialty, (admission date), and" ^ORD(101,398,1,4,0)="provider. " ^ORD(101,398,1,5,0)=" " ^ORD(101,398,1,6,0)="Note: The occurrence limits are determined by the occurrence of admissions. " ^ORD(101,398,2,0)="^101.02A^2^1" ^ORD(101,398,2,2,0)="HS MAS TREATING SPECIALTY" ^ORD(101,398,2,"B","HS MAS TREATING SPECIALTY",2)="" ^ORD(101,398,3,0)="^101.03P^57^1" ^ORD(101,398,3,1,0)="57" ^ORD(101,398,3,"B",57,1)="" ^ORD(101,398,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""TS"",GMTSTITL=""TREATING SPECIALITY"" D ENCWA^GMTS" ^ORD(101,398,99)="56777,49410" ^ORD(101,399,0)="GMTS MED^Health Summary Medicine^^A^1^^^^^^^42" ^ORD(101,399,1,0)="^^4^4^2910301^" ^ORD(101,399,1,1,0)="This component contains information extracted from the Medicine package. " ^ORD(101,399,1,2,0)="Time and maximum occurrence limits apply. Data presented include: procedure" ^ORD(101,399,1,3,0)="date/time, medical procedure name, and result (e.g., normal, abnormal," ^ORD(101,399,1,4,0)="borderline). Note: This component is a summary of procedure statuses. " ^ORD(101,399,2,0)="^101.02A^1^1" ^ORD(101,399,2,1,0)="HS MEDICINE" ^ORD(101,399,2,"B","HS MEDICINE",1)="" ^ORD(101,399,3,0)="^101.03P^57^1" ^ORD(101,399,3,1,0)="57" ^ORD(101,399,3,"B",57,1)="" ^ORD(101,399,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MEDS"",GMTSTITL=""MEDICINE SUMMARY"" D ENCWA^GMTS" ^ORD(101,399,99)="56777,49409" ^ORD(101,400,0)="GMTS ORC^Health Summary Orders Current^^A^1^^^^^^^42" ^ORD(101,400,1,0)="^^11^11^2910301^" ^ORD(101,400,1,1,0)="This component contains current orders from the OE/RR package. Since the " ^ORD(101,400,1,2,0)="OE/RR package integrates all orders for the ancillary services, the orders " ^ORD(101,400,1,3,0)="will be reported in most recent orders first sequence without concern for the" ^ORD(101,400,1,4,0)="ancillary package the order originated from/for. Current orders are defined" ^ORD(101,400,1,5,0)="as those orders with an OE/RR order status other than discontinued or" ^ORD(101,400,1,6,0)="expired. " ^ORD(101,400,1,7,0)=" " ^ORD(101,400,1,8,0)="The component information includes item ordered, OE/RR order status, start" ^ORD(101,400,1,9,0)="date, and stop date. OE/RR order status abbreviations include ""blank""=Active," ^ORD(101,400,1,10,0)="""c""=Complete, ""dc""=Discontinued, ""e""= expired, ""?""=Flagged, ""h""=Hold," ^ORD(101,400,1,11,0)="""i""=incomplete, ""p""=pending, ""s""=scheduled. " ^ORD(101,400,2,0)="^101.02A^1^1" ^ORD(101,400,2,1,0)="HS ORDERS CURRENT" ^ORD(101,400,2,"B","HS ORDERS CURRENT",1)="" ^ORD(101,400,3,0)="^101.03P^57^1" ^ORD(101,400,3,1,0)="57" ^ORD(101,400,3,"B",57,1)="" ^ORD(101,400,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ORC"",GMTSTITL=""ORDERS CURRENT"" D ENCWA^GMTS" ^ORD(101,400,99)="56777,49409" ^ORD(101,401,0)="GMTS RXIV^Health Summary Intravenous Pharmacy^^A^1^^^^^^^42" ^ORD(101,401,1,0)="^^7^7^2910301^" ^ORD(101,401,1,1,0)="This component contains IV orders extracted from the Pharmacy package. Only" ^ORD(101,401,1,2,0)="time limits apply. Data presented include: start date, stop date, drug" ^ORD(101,401,1,3,0)="(additives), dose, status, solutions and infusion rates. " ^ORD(101,401,1,4,0)=" " ^ORD(101,401,1,5,0)="Note: If no time limit is defined, only active IV orders are reported. If a" ^ORD(101,401,1,6,0)="time limit is defined, all IV orders which have an expiration or cancel date" ^ORD(101,401,1,7,0)="within the time limit range are reported. " ^ORD(101,401,2,0)="^101.02A^2^1" ^ORD(101,401,2,2,0)="HS PHARMACY INTRAVENOUS" ^ORD(101,401,2,"B","HS PHARMACY INTRAVENOUS",2)="" ^ORD(101,401,3,0)="^101.03P^57^1" ^ORD(101,401,3,1,0)="57" ^ORD(101,401,3,"B",57,1)="" ^ORD(101,401,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RXIV"",GMTSTITL=""INTRAVENOUS PHARMACY"" D ENCWA^GMTS" ^ORD(101,401,99)="56777,49410" ^ORD(101,402,0)="GMTS RXOP^Health Summary Outpatient Pharmacy^^A^1^^^^^^^42" ^ORD(101,402,1,0)="^^9^9^2910301^" ^ORD(101,402,1,1,0)="This component contains information from the Outpatient Pharmacy package. " ^ORD(101,402,1,2,0)="Only time limits apply. Data presented include: drug, prescription number, " ^ORD(101,402,1,3,0)="status expiration/cancellation date (when appropriate), quantity, issue date," ^ORD(101,402,1,4,0)="last fill date, refills remaining, provider, and cost/fill (when available). " ^ORD(101,402,1,5,0)=" " ^ORD(101,402,1,6,0)="Note: This component is formatted similar to the Short Medication Profile. " ^ORD(101,402,1,7,0)="If no time limit is defined, all orders are reported. When a time limit is" ^ORD(101,402,1,8,0)="defined, all outpatient pharmacy orders which have an expiration or cancel" ^ORD(101,402,1,9,0)="date within the time limit range are reported. " ^ORD(101,402,2,0)="^101.02A^2^1" ^ORD(101,402,2,2,0)="HS PHARMACY OUTPATIENT" ^ORD(101,402,2,"B","HS PHARMACY OUTPATIENT",2)="" ^ORD(101,402,3,0)="^101.03P^57^1" ^ORD(101,402,3,1,0)="57" ^ORD(101,402,3,"B",57,1)="" ^ORD(101,402,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RXOP"",GMTSTITL=""OUTPATIENT PHARMACY"" D ENCWA^GMTS" ^ORD(101,402,99)="56777,49410" ^ORD(101,403,0)="GMTS RXUD^Health Summary Unit Dose Pharmacy^^A^1^^^^^^^42" ^ORD(101,403,1,0)="^^8^8^2910301^" ^ORD(101,403,1,1,0)="This component contains Unit Dose information extracted from the Pharmacy " ^ORD(101,403,1,2,0)="package. Only time limits apply. Data presented include: Drug, dose, " ^ORD(101,403,1,3,0)="pharmacy status, start date, stop date, and sig (which includes schedule " ^ORD(101,403,1,4,0)="instructions and route). " ^ORD(101,403,1,5,0)=" " ^ORD(101,403,1,6,0)="NOTE: If no time limit is defined, all active orders are reported. If a time" ^ORD(101,403,1,7,0)="limit is defined, all unit dose orders which have an expiration or cancel" ^ORD(101,403,1,8,0)="date within the time limit range are reported. " ^ORD(101,403,2,0)="^101.02A^2^1" ^ORD(101,403,2,2,0)="HS PHARMACY UNIT DOSE" ^ORD(101,403,2,"B","HS PHARMACY UNIT DOSE",2)="" ^ORD(101,403,3,0)="^101.03P^57^1" ^ORD(101,403,3,1,0)="57" ^ORD(101,403,3,"B",57,1)="" ^ORD(101,403,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RXUD"",GMTSTITL=""UNIT DOSE PHARMACY"" D ENCWA^GMTS" ^ORD(101,403,99)="56777,49410" ^ORD(101,404,0)="GMTS PN^Health Summary Progress Notes^^A^1^^^^^^^42" ^ORD(101,404,1,0)="^^8^8^2910301^" ^ORD(101,404,1,1,0)="This component contains progress notes from the Generic Progress Notes " ^ORD(101,404,1,2,0)="Package AND progress notes from the Mental Health Package. Time and maximum" ^ORD(101,404,1,3,0)="occurrence limits apply to this component. Data presented include: Progress" ^ORD(101,404,1,4,0)="note date/time, title, text of note, electronic signature block, and the" ^ORD(101,404,1,5,0)="note's correction text and correction date/time. " ^ORD(101,404,1,6,0)=" " ^ORD(101,404,1,7,0)="Only those notes which have been signed with an electronic signature will be" ^ORD(101,404,1,8,0)="reported. " ^ORD(101,404,2,0)="^101.02A^1^1" ^ORD(101,404,2,1,0)="HS PROGRESS NOTES" ^ORD(101,404,2,"B","HS PROGRESS NOTES",1)="" ^ORD(101,404,3,0)="^101.03P^57^1" ^ORD(101,404,3,1,0)="57" ^ORD(101,404,3,"B",57,1)="" ^ORD(101,404,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""PN"",GMTSTITL=""PROGRESS NOTES"" D ENCWA^GMTS" ^ORD(101,404,99)="56777,49410" ^ORD(101,405,0)="GMTS BPN^Health Summary Brief Progress Notes^^A^1^^^^^^^42" ^ORD(101,405,1,0)="^^7^7^2910301^" ^ORD(101,405,1,1,0)="This component contains information from the Mental Health and Generic " ^ORD(101,405,1,2,0)="Progress Notes packages. Time and maximum occurrence limits apply. Data " ^ORD(101,405,1,3,0)="presented include: Progress note date/time, title, author and last " ^ORD(101,405,1,4,0)="correction date/time. " ^ORD(101,405,1,5,0)=" " ^ORD(101,405,1,6,0)="Only those notes which have been signed with an electronic signature will be" ^ORD(101,405,1,7,0)="listed. " ^ORD(101,405,2,0)="^101.02A^1^1" ^ORD(101,405,2,1,0)="HS PROGRESS NOTES BRIEF" ^ORD(101,405,2,"B","HS PROGRESS NOTES BRIEF",1)="" ^ORD(101,405,3,0)="^101.03P^57^1" ^ORD(101,405,3,1,0)="57" ^ORD(101,405,3,"B",57,1)="" ^ORD(101,405,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BPN"",GMTSTITL=""BRIEF PROGRESS NOTES"" D ENCWA^GMTS" ^ORD(101,405,99)="56777,49405" ^ORD(101,406,0)="GMTS RI^Health Summary Radiology Impression^^A^1^^^^^^^42" ^ORD(101,406,1,0)="^^5^5^2910301^" ^ORD(101,406,1,1,0)="This component contains impressions from the Radiology package. Time and " ^ORD(101,406,1,2,0)="maximum occurrence limits apply. Data presented include: study date, " ^ORD(101,406,1,3,0)="procedure(s), status, and radiologist's impression (narrative). " ^ORD(101,406,1,4,0)=" " ^ORD(101,406,1,5,0)="Only radiology impressions which have been verified are reported. " ^ORD(101,406,2,0)="^101.02A^1^1" ^ORD(101,406,2,1,0)="HS RADIOLOGY IMPRESSION" ^ORD(101,406,2,"B","HS RADIOLOGY IMPRESSION",1)="" ^ORD(101,406,3,0)="^101.03P^57^1" ^ORD(101,406,3,1,0)="57" ^ORD(101,406,3,"B",57,1)="" ^ORD(101,406,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RI"",GMTSTITL=""RADIOLOGY IMPRESSION"" D ENCWA^GMTS" ^ORD(101,406,99)="56777,49410" ^ORD(101,407,0)="GMTS RP^Health Summary Radiology Profile^^A^1^^^^^^^42" ^ORD(101,407,1,0)="^^7^7^2910301^" ^ORD(101,407,1,1,0)="This component contains information from the Radiology package. Time and" ^ORD(101,407,1,2,0)="maximum occurrence limits apply. Data presented include: study date, " ^ORD(101,407,1,3,0)="procedure(s) with status(es), report status, staff radiologist, resident " ^ORD(101,407,1,4,0)="radiologist, and the narrative fields modifier, history, report, and " ^ORD(101,407,1,5,0)="impression. " ^ORD(101,407,1,6,0)=" " ^ORD(101,407,1,7,0)="Only radiology profiles which have been verified are reported. " ^ORD(101,407,2,0)="^101.02A^1^1" ^ORD(101,407,2,1,0)="HS RADIOLOGY PROFILE" ^ORD(101,407,2,"B","HS RADIOLOGY PROFILE",1)="" ^ORD(101,407,3,0)="^101.03P^57^1" ^ORD(101,407,3,1,0)="57" ^ORD(101,407,3,"B",57,1)="" ^ORD(101,407,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RP"",GMTSTITL=""RADIOLOGY PROFILE"" D ENCWA^GMTS" ^ORD(101,407,99)="56777,49410" ^ORD(101,408,0)="GMTS RS^Health Summary Radiology Status^^A^1^^^^^^^42" ^ORD(101,408,1,0)="^^3^3^2910301^" ^ORD(101,408,1,1,0)="This component contains procedure statuses from the Radiology package. Time " ^ORD(101,408,1,2,0)="and maximum occurrence limits apply. Data presented include: request date/ " ^ORD(101,408,1,3,0)="time, status, procedure, scheduled date/time, and provider name. " ^ORD(101,408,2,0)="^101.02A^1^1" ^ORD(101,408,2,1,0)="HS RADIOLOGY STATUS" ^ORD(101,408,2,"B","HS RADIOLOGY STATUS",1)="" ^ORD(101,408,3,0)="^101.03P^57^1" ^ORD(101,408,3,1,0)="57" ^ORD(101,408,3,"B",57,1)="" ^ORD(101,408,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""RS"",GMTSTITL=""RADIOLOGY STATUS"" D ENCWA^GMTS" ^ORD(101,408,99)="56777,49410" ^ORD(101,409,0)="GMTS SR^Health Summary Surgery Reports^^A^1^^^^^^^42" ^ORD(101,409,1,0)="^^7^7^2910301^" ^ORD(101,409,1,1,0)="This component contains information from the Surgery package. Time and " ^ORD(101,409,1,2,0)="maximum occurrence limits apply. Data presented include: surgery date, " ^ORD(101,409,1,3,0)="surgeon, surgery report status, pre-operative diagnosis, post-operative " ^ORD(101,409,1,4,0)="diagnosis, surgeon's dictation, current procedural terminology operation code" ^ORD(101,409,1,5,0)="and text. " ^ORD(101,409,1,6,0)=" " ^ORD(101,409,1,7,0)="Only surgery reports which have been verified are reported. " ^ORD(101,409,2,0)="^101.02A^1^1" ^ORD(101,409,2,1,0)="HS SURGERY REPORTS" ^ORD(101,409,2,"B","HS SURGERY REPORTS",1)="" ^ORD(101,409,3,0)="^101.03P^57^1" ^ORD(101,409,3,1,0)="57" ^ORD(101,409,3,"B",57,1)="" ^ORD(101,409,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""SR"",GMTSTITL=""SURGERY REPORTS"" D ENCWA^GMTS" ^ORD(101,409,99)="56777,49410" ^ORD(101,410,0)="GMTS BSR^Health Summary Brief Surgery Reports^^A^1^^^^^^^42" ^ORD(101,410,1,0)="^^3^3^2910301^" ^ORD(101,410,1,1,0)="This component contains surgery report statuses extracted from the Surgery " ^ORD(101,410,1,2,0)="package. Time and maximum occurrence limits apply. Data presented include: " ^ORD(101,410,1,3,0)="surgery date, surgical procedure, and report status (e.g., COMPLETE). " ^ORD(101,410,2,0)="^101.02A^1^1" ^ORD(101,410,2,1,0)="HS SURGERY REPORTS BRIEF" ^ORD(101,410,2,"B","HS SURGERY REPORTS BRIEF",1)="" ^ORD(101,410,3,0)="^101.03P^57^1" ^ORD(101,410,3,1,0)="57" ^ORD(101,410,3,"B",57,1)="" ^ORD(101,410,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BSR"",GMTSTITL=""BRIEF SURGERY REPORTS""" ^ORD(101,410,99)="56777,49405" ^ORD(101,411,0)="GMTS VS^Health Summary Vitals^^A^1^^^^^^^42" ^ORD(101,411,1,0)="^^4^4^2910301^" ^ORD(101,411,1,1,0)="This component contains vital measurements extracted from the Vital Signs " ^ORD(101,411,1,2,0)="module of the Nursing package. Time and maximum occurrence limits apply. " ^ORD(101,411,1,3,0)="Data presented include: measurement date/time, blood pressure (as SBP/DBP), " ^ORD(101,411,1,4,0)="pulse, temperature, height, weight, and respiratory rate. " ^ORD(101,411,2,0)="^101.02A^2^1" ^ORD(101,411,2,2,0)="HS VITAL SIGNS" ^ORD(101,411,2,"B","HS VITAL SIGNS",2)="" ^ORD(101,411,3,0)="^101.03P^57^1" ^ORD(101,411,3,1,0)="57" ^ORD(101,411,3,"B",57,1)="" ^ORD(101,411,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""VS"",GMTSTITL=""VITAL SIGNS"" D ENCWA^GMTS" ^ORD(101,411,99)="56777,49411" ^ORD(101,412,0)="GMTS COMP LIST^List Health Summary Components^^A^1^^^^^^^42" ^ORD(101,412,1,0)="^^2^2^2910301^" ^ORD(101,412,1,1,0)="Lists all components which may be used to define Health Summary Types, along" ^ORD(101,412,1,2,0)="with several component characteristics." ^ORD(101,412,2,0)="^101.02A^1^1" ^ORD(101,412,2,1,0)="HS COMP LIST" ^ORD(101,412,2,"B","HS COMP LIST",1)="" ^ORD(101,412,20)="W ! S DIC=""^GMT(142.1,"",L=0,FLDS=""[GMTS COMP LIST]"",BY=.01,FR=""A"",TO=""zzzz"" D EN1^DIP S DIR(0)=""E"" D ^DIR" ^ORD(101,412,99)="56777,49406" ^ORD(101,413,0)="GMTS TYPE LIST^List Health Summary Types^^A^1^^^^^^^42" ^ORD(101,413,20)="W ! S DIC=""^GMT(142,"",L=0,FLDS=""[GMTS TYPE LIST]"",BY=.01,FR=""A"",TO=""zzzz"" D EN1^DIP W ! S DIR(0)=""E"" D ^DIR" ^ORD(101,413,99)="56777,49410" ^ORD(101,414,0)="GMTS CP^Health Summary Comp. & Pen. Exams^^A^1^^^^^^^42" ^ORD(101,414,1,0)="^^2^2^2950706^^^^" ^ORD(101,414,1,1,0)="This component prints all compensation and pension exams for a given" ^ORD(101,414,1,2,0)="patient by user-specified time and occurrence limits." ^ORD(101,414,2,0)="^101.02A^1^1" ^ORD(101,414,2,1,0)="HS COMPENSATION AND PENSION EXAMS" ^ORD(101,414,2,"B","HS COMPENSATION AND PENSION EX",1)="" ^ORD(101,414,3,0)="^101.03P^HS COMP LIST^1" ^ORD(101,414,3,1,0)="57" ^ORD(101,414,3,"B",57,1)="" ^ORD(101,414,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CP"",GMTSTITL=""Comp. & Pen. Exams"" D ENCWA^GMTS" ^ORD(101,414,99)="56777,49406" ^ORD(101,415,0)="GMTS DCS^Health Summary Discharge Summary^^A^1^^^^^^^42" ^ORD(101,415,1,0)="^^2^2^2950706^" ^ORD(101,415,1,1,0)="This component prints all discharge summaries (including report text) for" ^ORD(101,415,1,2,0)="user-specified time and occurrence limits." ^ORD(101,415,2,0)="^101.02A^1^1" ^ORD(101,415,2,1,0)="HS DISCHARGE SUMMARY" ^ORD(101,415,2,"B","HS DISCHARGE SUMMARY",1)="" ^ORD(101,415,3,0)="^101.03P^57^1" ^ORD(101,415,3,1,0)="57" ^ORD(101,415,3,"B",57,1)="" ^ORD(101,415,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""DCS"",GMTSTITL=""Discharge Summary"" D ENCWA^GMTS" ^ORD(101,415,99)="56777,49406" ^ORD(101,416,0)="GMTS BDS^Health Summary Brief Disch Summary^^A^1^^^^^^^42" ^ORD(101,416,1,0)="^^3^3^2950706^" ^ORD(101,416,1,1,0)="This component prints the admission, discharge and cosignature dates, as" ^ORD(101,416,1,2,0)="the dictating and approving provider names, and signature status of" ^ORD(101,416,1,3,0)="all discharge summaries for user-specified time and occurrence limits." ^ORD(101,416,2,0)="^101.02A^1^1" ^ORD(101,416,2,1,0)="HS DISCHARGE SUMMARY BRIEF" ^ORD(101,416,2,"B","HS DISCHARGE SUMMARY BRIEF",1)="" ^ORD(101,416,3,0)="^101.03P^57^1" ^ORD(101,416,3,1,0)="57" ^ORD(101,416,3,"B",57,1)="" ^ORD(101,416,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BDS"",GMTSTITL=""Brief Disch Summary"" D ENCWA^GMTS" ^ORD(101,416,99)="56777,49405" ^ORD(101,417,0)="GMTS EADT^Health Summary ADT History Expanded^^A^1^^^^^^^42" ^ORD(101,417,1,0)="^^14^14^2950706^^^^" ^ORD(101,417,1,1,0)="This component contains information extracted from the MAS package. It is" ^ORD(101,417,1,2,0)="a consolidated view of all the MAS components. It can only be used with" ^ORD(101,417,1,3,0)="MAS Version 5 and up." ^ORD(101,417,1,4,0)=" " ^ORD(101,417,1,5,0)="Time and maximum occurrence limits apply. Data presented include patient" ^ORD(101,417,1,6,0)="eligibility and rated disabilities. Movement data then follows with" ^ORD(101,417,1,7,0)="movement date, movement type (ADM=Admission, TR=Transfer, TS= Treating" ^ORD(101,417,1,8,0)="Specialty, DC=Discharge), movement description, specialty, and provider." ^ORD(101,417,1,9,0)="Admissions include the admission diagnosis if the patient hasn't been" ^ORD(101,417,1,10,0)="discharged. Transfers included ward location and transfer facility." ^ORD(101,417,1,11,0)="Treating specialties includes Specialty Tranfers Diagnosis. Dicharges" ^ORD(101,417,1,12,0)="include the data in the Discharge Diagnosis and Discharges components." ^ORD(101,417,1,13,0)="Following the data for each admission ICD Procedures, and ICD Surgeries" ^ORD(101,417,1,14,0)="will be include if present." ^ORD(101,417,2,0)="^101.02A^1^1" ^ORD(101,417,2,1,0)="HS MAS ADT HISTORY EXPANDED" ^ORD(101,417,2,"B","HS MAS ADT HISTORY EXPANDED",1)="" ^ORD(101,417,3,0)="^101.03P^57^1" ^ORD(101,417,3,1,0)="57" ^ORD(101,417,3,"B",57,1)="" ^ORD(101,417,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""EADT"",GMTSTITL=""ADT History Expanded"" D ENCWA^GMTS" ^ORD(101,417,99)="56777,49406" ^ORD(101,418,0)="GMTS MEDA^Health Summary Med Abnormal^^A^1^^^^^^^42" ^ORD(101,418,1,0)="4^^4^4^2950706^^^^" ^ORD(101,418,1,1,0)="This component contains information extracted from the Medicine" ^ORD(101,418,1,2,0)="package. Data presented include: procedure date/time, medical" ^ORD(101,418,1,3,0)="procedure name, and result (e.g., normal, abnormal, borderline). " ^ORD(101,418,1,4,0)="Time and maximum occurrence limits apply." ^ORD(101,418,2,0)="^101.02A^1^1" ^ORD(101,418,2,1,0)="HS MEDICINE ABNORMAL BRIEF" ^ORD(101,418,2,"B","HS MEDICINE ABNORMAL BRIEF",1)="" ^ORD(101,418,3,0)="^101.03P^57^1" ^ORD(101,418,3,1,0)="57" ^ORD(101,418,3,"B",57,1)="" ^ORD(101,418,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MEDA"",GMTSTITL=""Med Abnormal"" D ENCWA^GMTS" ^ORD(101,418,99)="56777,49409" ^ORD(101,419,0)="GMTS MEDB^Health Summary Med Brief Report^^A^1^^^^^^^42" ^ORD(101,419,1,0)="^^3^3^2950706^^^" ^ORD(101,419,1,1,0)="This is the brief procedure view defined by the Medicine View file." ^ORD(101,419,1,2,0)="This output can be managed by the local IRM staff." ^ORD(101,419,1,3,0)="Time and maximum occurrence limits apply." ^ORD(101,419,2,0)="^101.02A^1^1" ^ORD(101,419,2,1,0)="HS MEDICINE BRIEF REPORT" ^ORD(101,419,2,"B","HS MEDICINE BRIEF REPORT",1)="" ^ORD(101,419,3,0)="^101.03P^57^1" ^ORD(101,419,3,1,0)="57" ^ORD(101,419,3,"B",57,1)="" ^ORD(101,419,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MEDB"",GMTSTITL=""Med Brief Report"" D ENCWA^GMTS" ^ORD(101,419,99)="56777,49409" ^ORD(101,420,0)="GMTS MEDC^Health Summary Med Full Captioned^^A^1^^^^^^^42" ^ORD(101,420,1,0)="^^4^4^2950706^^^^" ^ORD(101,420,1,1,0)="This prints the full set of results which are present in" ^ORD(101,420,1,2,0)="each procedure. No labels will be included which have no" ^ORD(101,420,1,3,0)="values associated with them." ^ORD(101,420,1,4,0)="Time and maximum occurrence limits apply." ^ORD(101,420,2,0)="^101.02A^1^1" ^ORD(101,420,2,1,0)="HS MEDICINE FULL CAPTIONED" ^ORD(101,420,2,"B","HS MEDICINE FULL CAPTIONED",1)="" ^ORD(101,420,3,0)="^101.03P^57^1" ^ORD(101,420,3,1,0)="57" ^ORD(101,420,3,"B",57,1)="" ^ORD(101,420,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MEDC"",GMTSTITL=""Med Full Captioned"" D ENCWA^GMTS" ^ORD(101,420,99)="56777,49409" ^ORD(101,421,0)="GMTS MEDF^Health Summary Med Full Report^^A^1^^^^^^^42" ^ORD(101,421,1,0)="^^4^4^2950706^^^" ^ORD(101,421,1,1,0)="This component provides a full report of procedures as defined by the" ^ORD(101,421,1,2,0)="Medicine View file. This report includes labels which have no value" ^ORD(101,421,1,3,0)="associated with them." ^ORD(101,421,1,4,0)="Time and maximum occurence limits apply." ^ORD(101,421,2,0)="^101.02A^1^1" ^ORD(101,421,2,1,0)="HS MEDICINE FULL REPORT" ^ORD(101,421,2,"B","HS MEDICINE FULL REPORT",1)="" ^ORD(101,421,3,0)="^101.03P^57^1" ^ORD(101,421,3,1,0)="57" ^ORD(101,421,3,"B",57,1)="" ^ORD(101,421,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MEDF"",GMTSTITL=""Med Full Report"" D ENCWA^GMTS" ^ORD(101,421,99)="56777,49409" ^ORD(101,422,0)="GMTS PLL^Health Summary All Problems^^A^1^^^^^^^42" ^ORD(101,422,1,0)="^^2^2^2950706^" ^ORD(101,422,1,1,0)="This component lists all known problems, both active and inactive," ^ORD(101,422,1,2,0)="for a patient." ^ORD(101,422,1,3,0)="based upon ICD Text Display parameter, provider narrative unless Provider" ^ORD(101,422,1,4,0)="Narrative Display parameter set to NO, date of onset if problem is active," ^ORD(101,422,1,5,0)="date problem resolved if inactive, date last modified, the responsible" ^ORD(101,422,1,6,0)="provider, and all active comments for the problem." ^ORD(101,422,2,0)="^101.02A^1^1" ^ORD(101,422,2,1,0)="HS PROBLEM LIST ALL" ^ORD(101,422,2,"B","HS PROBLEM LIST ALL",1)="" ^ORD(101,422,3,0)="^101.03P^57^1" ^ORD(101,422,3,1,0)="57" ^ORD(101,422,3,"B",57,1)="" ^ORD(101,422,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""PLL"",GMTSTITL=""All Problems"" D ENCWA^GMTS" ^ORD(101,422,99)="56777,49409" ^ORD(101,423,0)="GMTS PLA^Health Summary Active Problems^^A^1^^^^^^^42" ^ORD(101,423,1,0)="^^1^1^2950706^" ^ORD(101,423,1,1,0)="This component lists all known active problems for a patient." ^ORD(101,423,1,2,0)="display ICD data based up ICD Text Display parameter, provider narrative" ^ORD(101,423,1,3,0)="unless Provider Narrative Display parameter set to NO, date of onset if" ^ORD(101,423,1,4,0)="problem is active, date problem resolved if inactive, date last modified," ^ORD(101,423,1,5,0)="the responsible provider, and all active comments for the problem." ^ORD(101,423,2,0)="^101.02A^1^1" ^ORD(101,423,2,1,0)="HS PROBLEM LIST ACTIVE" ^ORD(101,423,2,"B","HS PROBLEM LIST ACTIVE",1)="" ^ORD(101,423,3,0)="^101.03P^57^1" ^ORD(101,423,3,1,0)="57" ^ORD(101,423,3,"B",57,1)="" ^ORD(101,423,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""PLA"",GMTSTITL=""Active Problems"" D ENCWA^GMTS" ^ORD(101,423,99)="56777,49409" ^ORD(101,424,0)="GMTS PLI^Health Summary Inactive Problems^^A^1^^^^^^^42" ^ORD(101,424,1,0)="^^1^1^2950706^" ^ORD(101,424,1,1,0)="This component lists all known inactive problems for a patient." ^ORD(101,424,1,2,0)="display ICD data based upon ICD Text Display parameter, provider narrative" ^ORD(101,424,1,3,0)="unless Provider Narrative Display parameter set to NO, date of onset if" ^ORD(101,424,1,4,0)="problem is active, date problem resolved if inactive, date last modified," ^ORD(101,424,1,5,0)="the responsible provider, and all active comments for the problem." ^ORD(101,424,2,0)="^101.02A^1^1" ^ORD(101,424,2,1,0)="HS PROBLEM LIST INACTIVE" ^ORD(101,424,2,"B","HS PROBLEM LIST INACTIVE",1)="" ^ORD(101,424,3,0)="^101.03P^57^1" ^ORD(101,424,3,1,0)="57" ^ORD(101,424,3,"B",57,1)="" ^ORD(101,424,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""PLI"",GMTSTITL=""Inactive Problems"" D ENCWA^GMTS" ^ORD(101,424,99)="56777,49409" ^ORD(101,425,0)="GMTS MHPE^Health Summary MH Physical Exam^^A^1^^^^^^^42" ^ORD(101,425,1,0)="^^4^4^2950706^^^^" ^ORD(101,425,1,1,0)="The Mental Health Physical Exam component contains the results of the" ^ORD(101,425,1,2,0)="physical examintation concerning patient's overall condition " ^ORD(101,425,1,3,0)="associated with the systems identified. This data is being extracted" ^ORD(101,425,1,4,0)="from the Medical Record (# 90) file." ^ORD(101,425,2,0)="^101.02A^1^1" ^ORD(101,425,2,1,0)="HS MENTAL HEALTH PHYSICAL EXAM" ^ORD(101,425,2,"B","HS MENTAL HEALTH PHYSICAL EXAM",1)="" ^ORD(101,425,3,0)="^101.03P^57^1" ^ORD(101,425,3,1,0)="57" ^ORD(101,425,3,"B",57,1)="" ^ORD(101,425,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""MHPE"",GMTSTITL=""MH Physical Exam"" D ENCWA^GMTS" ^ORD(101,425,99)="56777,49409" ^ORD(101,426,0)="GMTS SW^Health Summary Social Work^^A^1^^^^^^^42" ^ORD(101,426,1,0)="^^3^3^2950706^" ^ORD(101,426,1,1,0)="This component provides information from the Social Work package about a" ^ORD(101,426,1,2,0)="patient's Social/Family Relationship, Current Substance Abuse Problems," ^ORD(101,426,1,3,0)="and Psycho-Social Assessment." ^ORD(101,426,2,0)="^101.02A^1^1" ^ORD(101,426,2,1,0)="HS SOCIAL WORK" ^ORD(101,426,2,"B","HS SOCIAL WORK",1)="" ^ORD(101,426,3,0)="^101.03P^57^1" ^ORD(101,426,3,1,0)="57" ^ORD(101,426,3,"B",57,1)="" ^ORD(101,426,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""SW"",GMTSTITL=""Social Work"" D ENCWA^GMTS" ^ORD(101,426,99)="56777,49410" ^ORD(101,427,0)="GMTS CD^Health Summary Advance Directive^^A^1^^^^^^^42" ^ORD(101,427,1,0)="^^10^10^2950706^^^^" ^ORD(101,427,1,1,0)="This component contains advance directive" ^ORD(101,427,1,2,0)="notes entered using the Generic Progress Note package." ^ORD(101,427,1,3,0)="Time and maximum occurrent limits apply to this component." ^ORD(101,427,1,4,0)="" ^ORD(101,427,1,5,0)="Advance Directives are a type a progress note which includes" ^ORD(101,427,1,6,0)="clinical information that clinicians need to be alerted to." ^ORD(101,427,1,7,0)="" ^ORD(101,427,1,8,0)="If this component is printed to either a CRT or another device type," ^ORD(101,427,1,9,0)="information will include title, text of note," ^ORD(101,427,1,10,0)="electronic signature block, and date/time posted." ^ORD(101,427,2,0)="^101.02A^1^1" ^ORD(101,427,2,1,0)="HS ADVANCE DIRECTIVE" ^ORD(101,427,2,"B","HS ADVANCE DIRECTIVE",1)="" ^ORD(101,427,3,0)="^101.03P^57^1" ^ORD(101,427,3,1,0)="57" ^ORD(101,427,3,"B",57,1)="" ^ORD(101,427,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""CD"",GMTSTITL=""Advance Directive"" D ENCWA^GMTS" ^ORD(101,427,99)="56777,49405" ^ORD(101,428,0)="GMTS EM^Health Summary Electron Microscopy^^A^1^^^^^^^42" ^ORD(101,428,1,0)="^^5^5^2950706^" ^ORD(101,428,1,1,0)="This component contains information extracted from the Electron Microscopy" ^ORD(101,428,1,2,0)="module of the Lab package. Time and maximum occurrence limits apply. Data" ^ORD(101,428,1,3,0)="presented include: collection date/time, accession number, specimen," ^ORD(101,428,1,4,0)="gross description, microscopic exam, supplementary report description," ^ORD(101,428,1,5,0)="brief clinical history, and EM Diagnosis." ^ORD(101,428,2,0)="^101.02A^1^1" ^ORD(101,428,2,1,0)="HS LAB ELECTRON MICROSCOPY" ^ORD(101,428,2,"B","HS LAB ELECTRON MICROSCOPY",1)="" ^ORD(101,428,3,0)="^101.03P^57^1" ^ORD(101,428,3,1,0)="57" ^ORD(101,428,3,"B",57,1)="" ^ORD(101,428,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""EM"",GMTSTITL=""Electron Microscopy"" D ENCWA^GMTS" ^ORD(101,428,99)="56777,49406" ^ORD(101,429,0)="GMTS HF^Health Summary Health Factors^^A^1^^^^^^^42" ^ORD(101,429,1,0)="^^9^9^2950829^^^" ^ORD(101,429,1,1,0)="This component lists all the health factors associated with a particular" ^ORD(101,429,1,2,0)="patient for user-specified time and occurrence limits. The list will" ^ORD(101,429,1,3,0)="display health factors by category and include a level of severity for" ^ORD(101,429,1,4,0)="each health factor including Minimal(M), Moderate(MO), and" ^ORD(101,429,1,5,0)="Heavy/Severe(H)." ^ORD(101,429,1,6,0)=" " ^ORD(101,429,1,7,0)="Set the occurrence limit to 1 to list the latest unique health factors" ^ORD(101,429,1,8,0)="within each category. (E.g. If there were 12 ""Non-Smoker"" health factor" ^ORD(101,429,1,9,0)="entries, only the latest ""Non-Smoker"" entry would display.)" ^ORD(101,429,2,0)="^101.02A^1^1" ^ORD(101,429,2,1,0)="HS PCE HEALTH FACTORS ALL" ^ORD(101,429,2,"B","HS PCE HEALTH FACTORS ALL",1)="" ^ORD(101,429,3,0)="^101.03P^57^1" ^ORD(101,429,3,1,0)="57" ^ORD(101,429,3,"B",57,1)="" ^ORD(101,429,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""HF"",GMTSTITL=""Health Factors"" D ENCWA^GMTS" ^ORD(101,429,99)="56777,49406" ^ORD(101,430,0)="GMTS OE^Health Summary Outpatient Encounter^^A^1^^^^^^^42" ^ORD(101,430,1,0)="^^5^5^2950829^^^^" ^ORD(101,430,1,1,0)="This component lists outpatient diagnosis (ICD-9) and procedure (CPT) for a" ^ORD(101,430,1,2,0)="particular patient. The user can specify item and occurrence limits," ^ORD(101,430,1,3,0)="whether hospital location should be displayed or not, the format of ICD-9" ^ORD(101,430,1,4,0)="data (e.g. code only, long text, short text or no ICD-9 data), and whether" ^ORD(101,430,1,5,0)="the provider narrative should be displayed or not." ^ORD(101,430,2,0)="^101.02A^1^1" ^ORD(101,430,2,1,0)="HS PCE OUTPATIENT ENCOUNTERS" ^ORD(101,430,2,"B","HS PCE OUTPATIENT ENCOUNTERS",1)="" ^ORD(101,430,3,0)="^101.03P^57^1" ^ORD(101,430,3,1,0)="57" ^ORD(101,430,3,"B",57,1)="" ^ORD(101,430,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""OE"",GMTSTITL=""Outpatient Encounter"" D ENCWA^GMTS" ^ORD(101,430,99)="56777,49409" ^ORD(101,431,0)="GMTS NTM^Health Summary Non-Tabular Measurem^^A^1^^^^^^^42" ^ORD(101,431,1,0)="^^3^3^2950829^^^" ^ORD(101,431,1,1,0)="This component lists measurements (e.g. blood pressure, height, weight, " ^ORD(101,431,1,2,0)="respirations, etc.) in a non-tabular format for a particular patient for a " ^ORD(101,431,1,3,0)="user-specified time and occurrence limits." ^ORD(101,431,2,0)="^101.02A^1^1" ^ORD(101,431,2,1,0)="HS PCE MEASUREMENTS NON-TABULAR" ^ORD(101,431,2,"B","HS PCE MEASUREMENTS NON-TABULA",1)="" ^ORD(101,431,3,0)="^101.03P^57^1" ^ORD(101,431,3,1,0)="57" ^ORD(101,431,3,"B",57,1)="" ^ORD(101,431,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""NTM"",GMTSTITL=""Non-Tabular Measurem"" D ENCWA^GMTS" ^ORD(101,431,99)="56777,49409" ^ORD(101,432,0)="GMTS IM^Health Summary Immunizations^^A^1^^^^^^^42" ^ORD(101,432,1,0)="^^3^3^2950829^^^^" ^ORD(101,432,1,1,0)="This component lists the immunizations (e.g., Rubella, Samllpox," ^ORD(101,432,1,2,0)="etc.) and information about each immunization adminstered to a" ^ORD(101,432,1,3,0)="particular patient." ^ORD(101,432,2,0)="^101.02A^1^1" ^ORD(101,432,2,1,0)="HS PCE IMMUNIZATIONS" ^ORD(101,432,2,"B","HS PCE IMMUNIZATIONS",1)="" ^ORD(101,432,3,0)="^101.03P^HS PRINT BY PATIENT^1" ^ORD(101,432,3,1,0)="57" ^ORD(101,432,3,"B",57,1)="" ^ORD(101,432,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""IM"",GMTSTITL=""Immunizations"" D ENCWA^GMTS" ^ORD(101,432,99)="56777,49408" ^ORD(101,433,0)="GMTS ST^Health Summary Skin Tests^^A^1^^^^^^^42" ^ORD(101,433,1,0)="^^3^3^2950829^^^" ^ORD(101,433,1,1,0)="This component lists the skin tests and the results (e.g. positive," ^ORD(101,433,1,2,0)="negative, doubtful, or no take) for a particular patient. Some examples of" ^ORD(101,433,1,3,0)="skin tests are cocci, mon-vac, PPD, schick, tine, etc." ^ORD(101,433,2,0)="^101.02A^1^1" ^ORD(101,433,2,1,0)="HS PCE SKIN TESTS" ^ORD(101,433,2,"B","HS PCE SKIN TESTS",1)="" ^ORD(101,433,3,0)="^101.03P^57^1" ^ORD(101,433,3,1,0)="57" ^ORD(101,433,3,"B",57,1)="" ^ORD(101,433,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ST"",GMTSTITL=""Skin Tests"" D ENCWA^GMTS" ^ORD(101,433,99)="56777,49410" ^ORD(101,434,0)="GMTS LH^Health Summary Location of Home^^A^1^^^^^^^42" ^ORD(101,434,1,0)="^^1^1^2950829^" ^ORD(101,434,1,1,0)="This component lists directions to a particular patient's home." ^ORD(101,434,2,0)="^101.02A^1^1" ^ORD(101,434,2,1,0)="HS PCE LOCATION OF HOME" ^ORD(101,434,2,"B","HS PCE LOCATION OF HOME",1)="" ^ORD(101,434,3,0)="^101.03P^57^1" ^ORD(101,434,3,1,0)="57" ^ORD(101,434,3,"B",57,1)="" ^ORD(101,434,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""LH"",GMTSTITL=""Location of Home"" D ENCWA^GMTS" ^ORD(101,434,99)="56777,49409" ^ORD(101,435,0)="GMTS EDL^Health Summary Education Latest^^A^1^^^^^^^42" ^ORD(101,435,1,0)="^^6^6^2950829^" ^ORD(101,435,1,1,0)="This component lists the latest patient education for each topic and a" ^ORD(101,435,1,2,0)="brief assessment of the patient's understanding of the topic for a" ^ORD(101,435,1,3,0)="particular patient for a user-specified time limit. Some examples of" ^ORD(101,435,1,4,0)="topics are complications, diet, disease process, exercise, follow-up care," ^ORD(101,435,1,5,0)="general information, lifestyle adaptations, medications, nutrition," ^ORD(101,435,1,6,0)="smoking, etc." ^ORD(101,435,2,0)="^101.02A^1^1" ^ORD(101,435,2,1,0)="HS PCE EDUCATION LATEST" ^ORD(101,435,2,"B","HS PCE EDUCATION LATEST",1)="" ^ORD(101,435,3,0)="^101.03P^57^1" ^ORD(101,435,3,1,0)="57" ^ORD(101,435,3,"B",57,1)="" ^ORD(101,435,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""EDL"",GMTSTITL=""Education Latest"" D ENCWA^GMTS" ^ORD(101,435,99)="56777,49406" ^ORD(101,436,0)="GMTS OD^Health Summary Outpatient Diagnosis^^A^1^^^^^^^42" ^ORD(101,436,1,0)="^^5^5^2950829^^^" ^ORD(101,436,1,1,0)="This component lists outpatient diagnosis (ICD-9) for a particular patient." ^ORD(101,436,1,2,0)="The user can specify time and occurrence limits, whether hospital location" ^ORD(101,436,1,3,0)="should be displayed or not, the format of ICD-9 data (e.g. code only, long" ^ORD(101,436,1,4,0)="text, short text or no ICD-9 data), and whether the provider narrative" ^ORD(101,436,1,5,0)="should be displayed or not." ^ORD(101,436,2,0)="^101.02A^1^1" ^ORD(101,436,2,1,0)="HS PCE OUTPATIENT DIAGNOSIS" ^ORD(101,436,2,"B","HS PCE OUTPATIENT DIAGNOSIS",1)="" ^ORD(101,436,3,0)="^101.03P^57^1" ^ORD(101,436,3,1,0)="57" ^ORD(101,436,3,"B",57,1)="" ^ORD(101,436,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""OD"",GMTSTITL=""Outpatient Diagnosis"" D ENCWA^GMTS" ^ORD(101,436,99)="56777,49409" ^ORD(101,437,0)="GMTS EXAM^Health Summary Exams Latest^^A^1^^^^^^^42" ^ORD(101,437,1,0)="^^3^3^2950829^" ^ORD(101,437,1,1,0)="This component lists the latest examination information and results for a" ^ORD(101,437,1,2,0)="particular patient for a user-specified time limit. Some examples of exam" ^ORD(101,437,1,3,0)="types are eye exams, ear exams, neurological exams, pelvis exams, etc." ^ORD(101,437,2,0)="^101.02A^1^1" ^ORD(101,437,2,1,0)="HS PCE EXAMS LATEST" ^ORD(101,437,2,"B","HS PCE EXAMS LATEST",1)="" ^ORD(101,437,3,0)="^101.03P^57^1" ^ORD(101,437,3,1,0)="57" ^ORD(101,437,3,"B",57,1)="" ^ORD(101,437,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""EXAM"",GMTSTITL=""Exams Latest"" D ENCWA^GMTS" ^ORD(101,437,99)="56777,49406" ^ORD(101,438,0)="GMTS TP^Health Summary Treatments Provided^^A^1^^^^^^^42" ^ORD(101,438,1,0)="^^5^5^2950829^^" ^ORD(101,438,1,1,0)="This component lists treatments provided that are not covered in the" ^ORD(101,438,1,2,0)="IDC-9-CM procedures for a particular patient for user specified time and" ^ORD(101,438,1,3,0)="occurrence limits. Some example of treatment types include nursing" ^ORD(101,438,1,4,0)="activities such as ear irrigation, dental care instructions, or preventive" ^ORD(101,438,1,5,0)="health care counseling." ^ORD(101,438,2,0)="^101.02A^1^1" ^ORD(101,438,2,1,0)="HS PCE TREATMENTS PROVIDED" ^ORD(101,438,2,"B","HS PCE TREATMENTS PROVIDED",1)="" ^ORD(101,438,3,0)="^101.03P^57^1" ^ORD(101,438,3,1,0)="57" ^ORD(101,438,3,"B",57,1)="" ^ORD(101,438,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""TP"",GMTSTITL=""Treatments Provided"" D ENCWA^GMTS" ^ORD(101,438,99)="56777,49410" ^ORD(101,439,0)="GMTS BADR^Health Summary Brief Adv React/All^^A^1^^^^^^^42" ^ORD(101,439,1,0)="^^3^3^2950829^^" ^ORD(101,439,1,1,0)="This component provides patient allergy/adverse reaction information from" ^ORD(101,439,1,2,0)="the Allergy Tracking System. It provides a list of all known food, drug" ^ORD(101,439,1,3,0)="and environmental allergies or adverse reactions (e.g., hay fever)." ^ORD(101,439,2,0)="^101.02A^1^1" ^ORD(101,439,2,1,0)="HS ADVERSE REACTIONS/ALLERG BRIEF" ^ORD(101,439,2,"B","HS ADVERSE REACTIONS/ALLERG BR",1)="" ^ORD(101,439,3,0)="^101.03P^57^1" ^ORD(101,439,3,1,0)="57" ^ORD(101,439,3,"B",57,1)="" ^ORD(101,439,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""BADR"",GMTSTITL=""Brief Adv React/All"" D ENCWA^GMTS" ^ORD(101,439,99)="56777,49405" ^ORD(101,440,0)="GMTS ED^Health Summary Education^^A^1^^^^^^^42" ^ORD(101,440,1,0)="^^6^6^2950829^^^" ^ORD(101,440,1,1,0)="This component lists the patient education topics and a brief assessment" ^ORD(101,440,1,2,0)="of the patient's understanding of the topic for a particular patient for" ^ORD(101,440,1,3,0)="user-specified time and occurrence limits. Some examples of topics are" ^ORD(101,440,1,4,0)="complications, diet, disease process, exercise, follow-up care, general" ^ORD(101,440,1,5,0)="information, etc. lifestyle adaptations, medications, nutrition, smoking," ^ORD(101,440,1,6,0)="etc." ^ORD(101,440,2,0)="^101.02A^1^1" ^ORD(101,440,2,1,0)="HS PCE EDUCATION" ^ORD(101,440,2,"B","HS PCE EDUCATION",1)="" ^ORD(101,440,3,0)="^101.03P^57^1" ^ORD(101,440,3,1,0)="57" ^ORD(101,440,3,"B",57,1)="" ^ORD(101,440,20)="S:'$D(DFN)&$D(ORVP) DFN=+ORVP S GMTSPRM=""ED"",GMTSTITL=""Education"" D ENCWA^GMTS" ^ORD(101,440,99)="56777,49406" ^ORD(101,441,0)="VALM EDITOR^Routine Editor^^A^1^^^^^^^43" ^ORD(101,441,20)="D EDITOR^VALMW2" ^ORD(101,441,99)="56777,51482" ^ORD(101,442,0)="VALM NEXT SCREEN^Next Screen^^A^1^^^^^^^43" ^ORD(101,442,1,0)="^^2^2^2920519^^^" ^ORD(101,442,1,1,0)="This action will allow the user to view the next screen" ^ORD(101,442,1,2,0)="of entries, if any exist." ^ORD(101,442,2,0)="^101.02A^1^1" ^ORD(101,442,2,1,0)="NX" ^ORD(101,442,2,"B","NX",1)="" ^ORD(101,442,15)="" ^ORD(101,442,20)="D NEXT^VALM4" ^ORD(101,442,99)="61142,58433" ^ORD(101,443,0)="VALM PREVIOUS SCREEN^Previous Screen^^A^1^^^^^^^43" ^ORD(101,443,1,0)="^^2^2^2920113^^" ^ORD(101,443,1,1,0)="This action will allow the user to view the previous screen" ^ORD(101,443,1,2,0)="of entries, if any exist." ^ORD(101,443,2,0)="^101.02A^3^2" ^ORD(101,443,2,1,0)="PR" ^ORD(101,443,2,2,0)="BK" ^ORD(101,443,2,3,0)="PR" ^ORD(101,443,2,"B","BK",2)="" ^ORD(101,443,2,"B","PR",1)="" ^ORD(101,443,2,"B","PR",3)="" ^ORD(101,443,20)="D PREV^VALM4" ^ORD(101,443,99)="61142,58433" ^ORD(101,444,0)="VALM REFRESH^Re-Display Screen^^A^1^^^^^^^43" ^ORD(101,444,1,0)="^^1^1^2911024^" ^ORD(101,444,1,1,0)="This actions allows the user to re-display the current screen." ^ORD(101,444,2,0)="^101.02A^1^1" ^ORD(101,444,2,1,0)="RE" ^ORD(101,444,2,"B","RE",1)="" ^ORD(101,444,10,0)="^101.01PA^0^0" ^ORD(101,444,20)="D RE^VALM4" ^ORD(101,444,99)="61142,58433" ^ORD(101,445,0)="VALM LAST SCREEN^Last Screen^^A^1^^^^^^^43" ^ORD(101,445,1,0)="^^1^1^2911026^" ^ORD(101,445,1,1,0)="The action will display the last items." ^ORD(101,445,20)="D LAST^VALM4" ^ORD(101,445,99)="61142,58433" ^ORD(101,446,0)="VALM FIRST SCREEN^First Screen^^A^1^^^^^^^43" ^ORD(101,446,1,0)="^^1^1^2960619^^" ^ORD(101,446,1,1,0)="This action will display the first screen." ^ORD(101,446,15)="" ^ORD(101,446,20)="D FIRST^VALM4" ^ORD(101,446,99)="61142,58433" ^ORD(101,447,0)="VALM UP ONE LINE^Up a Line^^A^1^^^^^^^43" ^ORD(101,447,1,0)="^^1^1^2911027^" ^ORD(101,447,1,1,0)="Move up a line" ^ORD(101,447,20)="D UP^VALM40" ^ORD(101,447,99)="61142,58433" ^ORD(101,448,0)="VALM DOWN A LINE^Down a Line^^A^1^^^^^^^43" ^ORD(101,448,1,0)="^^2^2^2950628^^" ^ORD(101,448,1,1,0)="Move down a line." ^ORD(101,448,1,2,0)="" ^ORD(101,448,3,0)="^101.03P^0^0" ^ORD(101,448,20)="D DOWN^VALM40" ^ORD(101,448,99)="61142,58433" ^ORD(101,449,0)="VALM DISPLAY^Display List^^M^1^^^^^^^43" ^ORD(101,449,1,0)="^^2^2^2930113^^^^" ^ORD(101,449,1,1,0)="This protocaol is the default protocol for the List Manager" ^ORD(101,449,1,2,0)="utility." ^ORD(101,449,4)="26^4" ^ORD(101,449,10,0)="^101.01PA^0^0" ^ORD(101,449,20)="" ^ORD(101,449,26)="D SHOW^VALM" ^ORD(101,449,28)="Select Action:" ^ORD(101,449,99)="56777,51480" ^ORD(101,450,0)="VALM QUIT^Quit^^A^1^^^^^^^" ^ORD(101,450,.1)=" " ^ORD(101,450,1,0)="^^1^1^2911105^" ^ORD(101,450,1,1,0)="This protocol can be used as a generic 'quit' action." ^ORD(101,450,2,0)="^101.02A^2^2" ^ORD(101,450,2,1,0)="EXIT" ^ORD(101,450,2,2,0)="QUIT" ^ORD(101,450,2,"B","EXIT",1)="" ^ORD(101,450,2,"B","QUIT",2)="" ^ORD(101,450,15)="" ^ORD(101,450,20)="Q" ^ORD(101,450,99)="61199,28361" ^ORD(101,451,0)="VALM PRINT SCREEN^Print Screen^^A^1^^^^^^^43" ^ORD(101,451,1,0)="^^3^3^2920113^^" ^ORD(101,451,1,1,0)="This action allows the user to print the current List Manager" ^ORD(101,451,1,2,0)="display screen. The header and the current portion of the" ^ORD(101,451,1,3,0)="list are printed." ^ORD(101,451,20)="D PRT^VALM1" ^ORD(101,451,99)="61142,58433" ^ORD(101,452,0)="VALM PRINT LIST^Print List^^A^1^^^^^^^43" ^ORD(101,452,1,0)="^^2^2^2920113^" ^ORD(101,452,1,1,0)="This action allws the user to print the entire list of" ^ORD(101,452,1,2,0)="entries currently being displayed." ^ORD(101,452,20)="D PRTL^VALM1" ^ORD(101,452,99)="61142,58433" ^ORD(101,453,0)="VALM EXPAND^Expand Entry^^A^1^^^^^^^43" ^ORD(101,453,15)="S:'VALMCC VALMBCK=""R""" ^ORD(101,453,20)="I $D(^TMP(""VALM DATA"",$J,VALMEVL,""EXP"")),^(""EXP"")]"""" X ^(""EXP"")" ^ORD(101,453,99)="59837,55803" ^ORD(101,454,0)="VALM TURN ON/OFF MENUS^Auto-Display(On/Off)^^A^1^^^^^^^43" ^ORD(101,454,20)="D MENU^VALM2" ^ORD(101,454,99)="61142,58433" ^ORD(101,455,0)="VALM BLANK 1^^^A^1^^^^^^^43" ^ORD(101,455,1,0)="^^1^1^2920203^" ^ORD(101,455,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,455,10,0)="^101.01PA^0^0" ^ORD(101,456,0)="VALM SEARCH LIST^Search List^^A^1^^^^^^^43" ^ORD(101,456,1,0)="^^1^1^2920303^^" ^ORD(101,456,1,1,0)="Finds text in list of entries." ^ORD(101,456,20)="D FIND^VALM40" ^ORD(101,456,99)="61142,58433" ^ORD(101,457,0)="VALM BLANK 2^^^A^1^^^^^^^43" ^ORD(101,457,1,0)="^^1^1^2920203^" ^ORD(101,457,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,458,0)="VALM BLANK 3^^^A^1^^^^^^^43" ^ORD(101,458,1,0)="^^1^1^2920203^" ^ORD(101,458,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,459,0)="VALM BLANK 4^^^A^1^^^^^^^43" ^ORD(101,459,1,0)="^^1^1^2920203^" ^ORD(101,459,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,460,0)="VALM BLANK 5^^^A^1^^^^^^^43" ^ORD(101,460,1,0)="^^1^1^2920203^" ^ORD(101,460,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,461,0)="VALM BLANK 6^^^A^1^^^^^^^43" ^ORD(101,461,1,0)="^^1^1^2920203^" ^ORD(101,461,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,462,0)="VALM DISPLAY W/EXPAND^Display List^^M^1^^^^^^^43" ^ORD(101,462,1,0)="^^2^2^2920303^^^^" ^ORD(101,462,1,1,0)="This protocaol is the default protocol for the List Manager" ^ORD(101,462,1,2,0)="utility." ^ORD(101,462,4)="26^4" ^ORD(101,462,10,0)="^101.01PA^1^1" ^ORD(101,462,10,1,0)="453^EP" ^ORD(101,462,10,"B",453,1)="" ^ORD(101,462,26)="D SHOW^VALM" ^ORD(101,462,28)="Select Action:" ^ORD(101,462,99)="59837,55803" ^ORD(101,463,0)="VALM RIGHT^Shift View to Right^^A^1^^^^^^^43" ^ORD(101,463,20)="D RIGHT^VALM40(XQORNOD(0))" ^ORD(101,463,99)="61142,58433" ^ORD(101,464,0)="VALM LEFT^Shift View to Left^^A^1^^^^^^^43" ^ORD(101,464,20)="D LEFT^VALM40(XQORNOD(0))" ^ORD(101,464,99)="61142,58433" ^ORD(101,465,0)="VALM HIDDEN ACTIONS^Standard Hidden Actions^^M^1^^^^^^^43" ^ORD(101,465,4)="26" ^ORD(101,465,10,0)="^101.01PA^15^15" ^ORD(101,465,10,1,0)="442^+^11^" ^ORD(101,465,10,2,0)="443^-^12^" ^ORD(101,465,10,3,0)="447^UP^13^" ^ORD(101,465,10,4,0)="448^DN^14^" ^ORD(101,465,10,5,0)="444^RD^24^" ^ORD(101,465,10,6,0)="451^PS^25^" ^ORD(101,465,10,7,0)="452^PL^26^" ^ORD(101,465,10,8,0)="463^>^15^" ^ORD(101,465,10,9,0)="464^<^16^" ^ORD(101,465,10,10,0)="454^ADPL^32^" ^ORD(101,465,10,11,0)="456^SL^31^" ^ORD(101,465,10,12,0)="450^Q^33^" ^ORD(101,465,10,13,0)="445^LS^22^" ^ORD(101,465,10,14,0)="446^FS^21^" ^ORD(101,465,10,15,0)="466^GO^23^" ^ORD(101,465,10,"B",442,1)="" ^ORD(101,465,10,"B",443,2)="" ^ORD(101,465,10,"B",444,5)="" ^ORD(101,465,10,"B",445,13)="" ^ORD(101,465,10,"B",446,14)="" ^ORD(101,465,10,"B",447,3)="" ^ORD(101,465,10,"B",448,4)="" ^ORD(101,465,10,"B",450,12)="" ^ORD(101,465,10,"B",451,6)="" ^ORD(101,465,10,"B",452,7)="" ^ORD(101,465,10,"B",454,10)="" ^ORD(101,465,10,"B",456,11)="" ^ORD(101,465,10,"B",463,8)="" ^ORD(101,465,10,"B",464,9)="" ^ORD(101,465,10,"B",466,15)="" ^ORD(101,465,99)="61199,28361" ^ORD(101,466,0)="VALM GOTO PAGE^Go to Page^^A^1^^^^^^^43" ^ORD(101,466,1,0)="^^1^1^2930113^" ^ORD(101,466,1,1,0)="" ^ORD(101,466,20)="D GOTO^VALM40" ^ORD(101,466,99)="61142,58433" ^ORD(101,467,0)="VALM WORKBENCH^Workbench Tool^^M^1^^^^^^^43" ^ORD(101,467,4)="26^4" ^ORD(101,467,10,0)="^101.01PA^12^12" ^ORD(101,467,10,1,0)="468^DE^1" ^ORD(101,467,10,2,0)="472^PI^2" ^ORD(101,467,10,3,0)="473^LR^3" ^ORD(101,467,10,4,0)="471^OF^4" ^ORD(101,467,10,5,0)="470^MC^5" ^ORD(101,467,10,6,0)="469^CE^6" ^ORD(101,467,10,7,0)="474^CL^7" ^ORD(101,467,10,8,0)="475^EA^8" ^ORD(101,467,10,9,0)="476^PE^9" ^ORD(101,467,10,10,0)="477^RN^10" ^ORD(101,467,10,11,0)="478^IT^12" ^ORD(101,467,10,12,0)="441^RO" ^ORD(101,467,10,"B",441,12)="" ^ORD(101,467,10,"B",468,1)="" ^ORD(101,467,10,"B",469,6)="" ^ORD(101,467,10,"B",470,5)="" ^ORD(101,467,10,"B",471,4)="" ^ORD(101,467,10,"B",472,2)="" ^ORD(101,467,10,"B",473,3)="" ^ORD(101,467,10,"B",474,7)="" ^ORD(101,467,10,"B",475,8)="" ^ORD(101,467,10,"B",476,9)="" ^ORD(101,467,10,"B",477,10)="" ^ORD(101,467,10,"B",478,11)="" ^ORD(101,467,26)="D SHOW^VALM" ^ORD(101,467,28)="Select Tool:" ^ORD(101,467,99)="56777,51490" ^ORD(101,468,0)="VALM DEMOGRAPHICS^Demographic Edit^^A^1^^^^^^^43" ^ORD(101,468,20)="D EDIT^VALMW2(""DEMOGRAPHICS EDIT""),HDR^VALMWB" ^ORD(101,468,99)="56777,51480" ^ORD(101,469,0)="VALM CAPTION EDIT^Caption Edit^^A^1^^^^^^^43" ^ORD(101,469,20)="D EDIT^VALMW2(""CAPTION EDIT"")" ^ORD(101,469,99)="56777,51479" ^ORD(101,470,0)="VALM MUMPS CODE EDIT^MUMPS Code Edit^^A^1^^^^^^^43" ^ORD(101,470,20)="D EDIT^VALMW2(""MUMPS CODE EDIT"")" ^ORD(101,470,99)="56777,51487" ^ORD(101,471,0)="VALM OTHER FIELDS^Other Fields^^A^1^^^^^^^43" ^ORD(101,471,20)="D EDIT^VALMW2(""OTHER FIELDS"")" ^ORD(101,471,99)="56777,51488" ^ORD(101,472,0)="VALM PROTOCOL INFORMATION^Protocol Information^^A^1^^^^^^^43" ^ORD(101,472,20)="D EDIT^VALMW2(""PROTOCOL INFORMATION"")" ^ORD(101,472,99)="56777,51488" ^ORD(101,473,0)="VALM LIST REGION EDIT^List Region Edit^^A^1^^^^^^^43" ^ORD(101,473,20)="D EDIT^VALMW2(""LIST REGION EDIT"")" ^ORD(101,473,99)="56777,51487" ^ORD(101,474,0)="VALM CHANGE LIST^Change List Template^^A^1^^^^^^^43" ^ORD(101,474,10,0)="^101.01PA^0^0" ^ORD(101,474,20)="D INIT^VALMWB S VALMBCK=$S($D(VALMQUIT):"""",1:""R"")" ^ORD(101,474,99)="56777,51479" ^ORD(101,475,0)="VALM EDIT ALL^Edit All^^X^1^^^^^^^43" ^ORD(101,475,10,0)="^101.01PA^6^6" ^ORD(101,475,10,1,0)="468^^1" ^ORD(101,475,10,2,0)="473^^2" ^ORD(101,475,10,3,0)="472^^3" ^ORD(101,475,10,4,0)="470^^5" ^ORD(101,475,10,5,0)="471^^4" ^ORD(101,475,10,6,0)="469^^6" ^ORD(101,475,10,"B",468,1)="" ^ORD(101,475,10,"B",469,6)="" ^ORD(101,475,10,"B",470,4)="" ^ORD(101,475,10,"B",471,5)="" ^ORD(101,475,10,"B",472,3)="" ^ORD(101,475,10,"B",473,2)="" ^ORD(101,475,15)="K VALMALL S VALMBCK=""R"" D BLD^VALMWB" ^ORD(101,475,20)="S VALMALL=""""" ^ORD(101,475,99)="56777,51488" ^ORD(101,476,0)="VALM PROTOCOL EDIT^Protocol Edit^^A^1^^^^^^^43" ^ORD(101,476,15)="S VALMBCK=""R""" ^ORD(101,476,20)="D FULL^VALM1,4^VALMW" ^ORD(101,476,99)="56777,51488" ^ORD(101,477,0)="VALM RUN LIST^Run List^^A^1^^^^^^^43" ^ORD(101,477,15)="" ^ORD(101,477,20)="D RUN^VALMW2(VALMIFN)" ^ORD(101,477,99)="56777,51488" ^ORD(101,478,0)="VALM INPUT TEMPLATE EDIT^Input Template^^A^1^^^^^^^43" ^ORD(101,478,20)="D FULL^VALM1,^DIB S VALMBCK=""R""" ^ORD(101,478,99)="56777,51485" ^ORD(101,479,0)="VALM LIST ENTRY^List Template Entry/Edit^^M^1^^^^^^^43" ^ORD(101,479,4)="26^4" ^ORD(101,479,10,0)="^101.01PA^11^11" ^ORD(101,479,10,1,0)="468^DE^1" ^ORD(101,479,10,2,0)="472^PI^2" ^ORD(101,479,10,3,0)="473^LR^3" ^ORD(101,479,10,4,0)="471^OF^4" ^ORD(101,479,10,5,0)="470^MC^5" ^ORD(101,479,10,6,0)="469^CE^6" ^ORD(101,479,10,7,0)="474^CL^7" ^ORD(101,479,10,8,0)="475^EA^8" ^ORD(101,479,10,9,0)="476^PE^9" ^ORD(101,479,10,10,0)="477^RN^10" ^ORD(101,479,10,11,0)="478^IT^12" ^ORD(101,479,10,"B",468,1)="" ^ORD(101,479,10,"B",469,6)="" ^ORD(101,479,10,"B",470,5)="" ^ORD(101,479,10,"B",471,4)="" ^ORD(101,479,10,"B",472,2)="" ^ORD(101,479,10,"B",473,3)="" ^ORD(101,479,10,"B",474,7)="" ^ORD(101,479,10,"B",475,8)="" ^ORD(101,479,10,"B",476,9)="" ^ORD(101,479,10,"B",477,10)="" ^ORD(101,479,10,"B",478,11)="" ^ORD(101,479,26)="D SHOW^VALM" ^ORD(101,479,28)="Select Tool:" ^ORD(101,479,99)="56777,51488" ^ORD(101,480,0)="VALM DEMO MENU^List Package Protocols^^M^1^^^^^^^43" ^ORD(101,480,1,0)="^^2^2^2920402^" ^ORD(101,480,1,1,0)="Allows user to list a package's options and take some actions against" ^ORD(101,480,1,2,0)="those options." ^ORD(101,480,4)="26^4" ^ORD(101,480,10,0)="^101.01PA^4^4" ^ORD(101,480,10,1,0)="481^PE^10" ^ORD(101,480,10,2,0)="453^EP^21" ^ORD(101,480,10,3,0)="482^DE^11" ^ORD(101,480,10,4,0)="483^CP^12" ^ORD(101,480,10,"B",453,2)="" ^ORD(101,480,10,"B",481,1)="" ^ORD(101,480,10,"B",482,3)="" ^ORD(101,480,10,"B",483,4)="" ^ORD(101,480,20)="" ^ORD(101,480,26)="D SHOW^VALM" ^ORD(101,480,28)="Select Action:" ^ORD(101,480,99)="59837,55803" ^ORD(101,481,0)="VALM DEMO PROTOCOL EDIT^Protocol Edit^^A^1^^^^^^^43" ^ORD(101,481,20)="D EDIT^VALMD" ^ORD(101,481,99)="56777,51480" ^ORD(101,482,0)="VALM DEMO DESC^Show Description^^A^1^^^^^^^43" ^ORD(101,482,20)="D DESC^VALMD" ^ORD(101,482,99)="56777,51479" ^ORD(101,483,0)="VALM DEMO CHANGE PACKAGE^Change Package^^A^1^^^^^^^43" ^ORD(101,483,1,0)="^^1^1^2920402^" ^ORD(101,483,1,1,0)="Allows users to change package." ^ORD(101,483,20)="D CHG^VALMD" ^ORD(101,483,99)="56777,51479" ^ORD(101,484,0)="VALM DEMO PRINT^Print Protocol List^^A^1^^^^^^^43" ^ORD(101,484,20)="W !!,*7,""This is a test print protocol!"" R X:DTIME S VALMBCK=""""" ^ORD(101,484,99)="56777,51480" ^ORD(101,486,0)="GMRCM STATUS MENU^Select OE/RR status Menu^^M^.5^^^^^^^44" ^ORD(101,486,4)="80" ^ORD(101,486,10,0)="^101.01PA^5^5" ^ORD(101,486,10,1,0)="30^AL^1" ^ORD(101,486,10,2,0)="33^CE^4^^^Completed orders" ^ORD(101,486,10,3,0)="31^CU^2" ^ORD(101,486,10,4,0)="32^DC^3" ^ORD(101,486,10,5,0)="36^PD^7" ^ORD(101,486,10,"B",30,1)="" ^ORD(101,486,10,"B",31,3)="" ^ORD(101,486,10,"B",32,4)="" ^ORD(101,486,10,"B",33,2)="" ^ORD(101,486,10,"B",36,5)="" ^ORD(101,486,21,0)="^101.021A^2^1" ^ORD(101,486,21,2,0)="GMRCBUF" ^ORD(101,486,21,"B","GMRCBUF",2)="" ^ORD(101,486,26)="S XQORM(0)=""1A"",XQORM(""??"")=""D HSTS^GMRCAST""" ^ORD(101,486,28)="Select Order Status: " ^ORD(101,486,29)="Active Orders" ^ORD(101,486,99)="57814,55355" ^ORD(101,487,0)="GMRCOR CONSULT^Consult^^O^1^^^^^^^" ^ORD(101,487,1,0)="^^4^4^2960111^^^^" ^ORD(101,487,1,1,0)="This is a very important protocol for activating the Consult" ^ORD(101,487,1,2,0)="order capabilities in the Add orders process. This is the protocol which" ^ORD(101,487,1,3,0)="should be performed when ""Consult..."" is selected from the ""Add New Orders" ^ORD(101,487,1,4,0)="menu""." ^ORD(101,487,2,0)="^101.02A^1^1" ^ORD(101,487,2,1,0)="513" ^ORD(101,487,2,"B",513,1)="" ^ORD(101,487,10,0)="^101.01PA^0^0" ^ORD(101,487,20)="D EN^GMRCP" ^ORD(101,487,99)="57814,55456" ^ORD(101,488,0)="GMRCT SAMPLE CONSULT TYPE^SAMPLE CONSULT TYPE^^O^1^^^^^^^" ^ORD(101,488,1,0)="^^2^2^2920127^^^^" ^ORD(101,488,1,1,0)="This is a Consult Type protocol. This type of protocol may be" ^ORD(101,488,1,2,0)="added to OE/RR add order menus under the ""CONSULT..."" header." ^ORD(101,488,2,0)="^101.02A^3^1" ^ORD(101,488,2,3,0)="CONSULT TYPE" ^ORD(101,488,2,"B","CONSULT TYPE",3)="" ^ORD(101,488,3,0)="^101.03P^0^0" ^ORD(101,488,5)="" ^ORD(101,488,20)="S GMRCEN=""C"" D EN^GMRCP" ^ORD(101,488,99)="57814,55456" ^ORD(101,489,0)="GMRCR SAMPLE PROCEDURE^GMRCR SAMPLE PROCEDURE^^O^1^^^^^^^44" ^ORD(101,489,.1)="" ^ORD(101,489,1,0)="^^2^2^2920127^^^^" ^ORD(101,489,1,1,0)="This is a Procedure Request protocol. This type of protocol may be" ^ORD(101,489,1,2,0)="added to OE/RR add order menus under the ""PROCEDURE..."" header." ^ORD(101,489,2,0)="^101.02A^^0" ^ORD(101,489,3,0)="^101.03P^0^0" ^ORD(101,489,5)="" ^ORD(101,489,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,489,99)="57814,55456" ^ORD(101,490,0)="GMRCURGENCY - INPATIENT^Inpatient Urgency Recommended Menu Selection^^Q^1^^^^^^^" ^ORD(101,490,1,0)="^^8^8^2911009^^^^" ^ORD(101,490,1,1,0)="This menu is not actually used by the Consult/Request Tracking Package." ^ORD(101,490,1,2,0)="It serves here as a guideline for the urgencies the OE/RR Task Force" ^ORD(101,490,1,3,0)="recommends for Consults and Requests." ^ORD(101,490,1,4,0)=" " ^ORD(101,490,1,5,0)="Please review this list and set up the appropriate entries for your" ^ORD(101,490,1,6,0)="site in the GMRCURGENCYM CSLT (and REQ) - INPATIENT protocol menus." ^ORD(101,490,1,7,0)="This is the Urgency of Consult selection items recommended for use with" ^ORD(101,490,1,8,0)="Inpatient patients." ^ORD(101,490,2,0)="^101.02A^1^1" ^ORD(101,490,2,1,0)="IP" ^ORD(101,490,2,"B","IP",1)="" ^ORD(101,490,10,0)="^101.01PA^6^6" ^ORD(101,490,10,1,0)="491^^^" ^ORD(101,490,10,2,0)="492^^^" ^ORD(101,490,10,3,0)="493^24^^" ^ORD(101,490,10,4,0)="494^48^^" ^ORD(101,490,10,5,0)="495^72^^" ^ORD(101,490,10,6,0)="496^^^" ^ORD(101,490,10,"B",491,1)="" ^ORD(101,490,10,"B",492,2)="" ^ORD(101,490,10,"B",493,3)="" ^ORD(101,490,10,"B",494,4)="" ^ORD(101,490,10,"B",495,5)="" ^ORD(101,490,10,"B",496,6)="" ^ORD(101,490,15)="S GMRCU=X" ^ORD(101,490,20)="S XQORM(""A"")=""URGENCY: "",XQORM(0)=""1A"",XQORM(""B"")=""Within 72 hours"",XQORFLG(""SH"")=0 K XQORQUIT,XQORPOP" ^ORD(101,490,99)="57814,55456" ^ORD(101,491,0)="GMRCURGENCY - NOW^Now^^O^1^^^^^^^" ^ORD(101,491,1,0)="^^1^1^2911009^" ^ORD(101,491,1,1,0)="This represents the ""Now"" urgency for ordering a Consult/Request." ^ORD(101,491,20)="Q" ^ORD(101,491,99)="57814,55456" ^ORD(101,492,0)="GMRCURGENCY - TODAY^Today^^O^1^^^^^^^" ^ORD(101,492,1,0)="^^1^1^2911009^" ^ORD(101,492,1,1,0)="This represents the ""Today"" urgency for ordering a Consult/Request." ^ORD(101,492,2,0)="^101.02A^1^1" ^ORD(101,492,2,1,0)="TODAY" ^ORD(101,492,2,"B","TODAY",1)="" ^ORD(101,492,20)="Q" ^ORD(101,492,99)="57814,55456" ^ORD(101,493,0)="GMRCURGENCY - WITHIN 24 HOURS^Within 24 hrs^^O^1^^^^^^^" ^ORD(101,493,1,0)="^^1^1^2911009^" ^ORD(101,493,1,1,0)="This represents the ""Within 24 hrs"" urgency for ordering a Consult/Request." ^ORD(101,493,2,0)="^101.02A^1^1" ^ORD(101,493,2,1,0)="DY" ^ORD(101,493,2,"B","DY",1)="" ^ORD(101,493,4)="^^^24" ^ORD(101,493,20)="Q" ^ORD(101,493,99)="57814,55456" ^ORD(101,494,0)="GMRCURGENCY - WITHIN 48 HOURS^Within 48 hrs^^O^1^^^^^^^" ^ORD(101,494,1,0)="^^3^3^2911009^" ^ORD(101,494,1,1,0)="This represents the ""Within 48 hrs"" urgency for ordering a Consult/Request." ^ORD(101,494,1,2,0)="This is the default for inpatient consults, so it must be one of the items" ^ORD(101,494,1,3,0)="on the GMRCURGENCYM inpatient protocol menus." ^ORD(101,494,2,0)="^101.02A^1^1" ^ORD(101,494,2,1,0)="2DY" ^ORD(101,494,2,"B","2DY",1)="" ^ORD(101,494,4)="^^^48" ^ORD(101,494,20)="Q" ^ORD(101,494,99)="57814,55456" ^ORD(101,495,0)="GMRCURGENCY - WITHIN 72 HOURS^Within 72 hrs^^O^1^^^^^^^" ^ORD(101,495,1,0)="^^1^1^2911009^" ^ORD(101,495,1,1,0)="This represents the ""Within 72 hrs"" urgency for ordering a Consult/Request." ^ORD(101,495,2,0)="^101.02A^1^1" ^ORD(101,495,2,1,0)="3DY" ^ORD(101,495,2,"B","3DY",1)="" ^ORD(101,495,4)="^^^72" ^ORD(101,495,20)="Q" ^ORD(101,495,99)="57814,55456" ^ORD(101,496,0)="GMRCURGENCY - NEXT AVAILABLE^Next available^^O^1^^^^^^^" ^ORD(101,496,1,0)="^^1^1^2970916^^^" ^ORD(101,496,1,1,0)="This represents the ""Next available"" urgency for ordering a Consult/request." ^ORD(101,496,2,0)="^101.02A^2^1" ^ORD(101,496,2,2,0)="N" ^ORD(101,496,2,"B","N",2)="" ^ORD(101,496,20)="Q" ^ORD(101,496,99)="57814,55456" ^ORD(101,497,0)="GMRCURGENCYM - OUTPATIENT^Outpatient Urgency^^M^1^^^^^^^" ^ORD(101,497,1,0)="^^2^2^2970916^^^^" ^ORD(101,497,1,1,0)="This is the menu of urgencies recommended for Consult/Request orders" ^ORD(101,497,1,2,0)="for outpatient patients." ^ORD(101,497,2,0)="^101.02A^1^1" ^ORD(101,497,2,1,0)="OP" ^ORD(101,497,2,"B","OP",1)="" ^ORD(101,497,10,0)="^101.01PA^8^8" ^ORD(101,497,10,1,0)="505^R^^" ^ORD(101,497,10,2,0)="492^T^2^" ^ORD(101,497,10,3,0)="498^1W^6^" ^ORD(101,497,10,4,0)="499^1M^7^" ^ORD(101,497,10,5,0)="496^N^^" ^ORD(101,497,10,6,0)="512^STAT^1^" ^ORD(101,497,10,7,0)="495^72^5^" ^ORD(101,497,10,8,0)="493^24^8^" ^ORD(101,497,10,"B",492,2)="" ^ORD(101,497,10,"B",493,8)="" ^ORD(101,497,10,"B",495,7)="" ^ORD(101,497,10,"B",496,5)="" ^ORD(101,497,10,"B",498,3)="" ^ORD(101,497,10,"B",499,4)="" ^ORD(101,497,10,"B",505,1)="" ^ORD(101,497,10,"B",512,6)="" ^ORD(101,497,20)="Q" ^ORD(101,497,24)="" ^ORD(101,497,99)="57814,55456" ^ORD(101,498,0)="GMRCURGENCY - WITHIN 1 WEEK^Within 1 week^^O^1^^^^^^^" ^ORD(101,498,1,0)="^^1^1^2911009^" ^ORD(101,498,1,1,0)="This represents the ""Within 1 week"" urgency for ordering a Consult/Request." ^ORD(101,498,2,0)="^101.02A^1^1" ^ORD(101,498,2,1,0)="WK" ^ORD(101,498,2,"B","WK",1)="" ^ORD(101,498,20)="Q" ^ORD(101,498,99)="57814,55456" ^ORD(101,499,0)="GMRCURGENCY - WITHIN 1 MONTH^Within 1 mo^^O^1^^^^^^^" ^ORD(101,499,1,0)="^^1^1^2911009^" ^ORD(101,499,1,1,0)="This represents the ""Within 1 mo"" urgency for ordering a Consult/Request" ^ORD(101,499,2,0)="^101.02A^1^1" ^ORD(101,499,2,1,0)="MO" ^ORD(101,499,2,"B","MO",1)="" ^ORD(101,499,20)="Q" ^ORD(101,499,99)="57814,55456" ^ORD(101,500,0)="GMRCPLACEM - INPATIENT^Inpatient Place of Consultation^^Q^1^^^^^^^" ^ORD(101,500,1,0)="^^2^2^2960417^^^" ^ORD(101,500,1,1,0)="This is the recommended menu of Place of Consultation answers for " ^ORD(101,500,1,2,0)="Consult/Requests ordered for inpatients." ^ORD(101,500,2,0)="1355^" ^ORD(101,500,10,0)="^101.01PA^2^2" ^ORD(101,500,10,1,0)="502^^^" ^ORD(101,500,10,2,0)="501^^^" ^ORD(101,500,10,"B",501,2)="" ^ORD(101,500,10,"B",502,1)="" ^ORD(101,500,99)="57814,55456" ^ORD(101,501,0)="GMRCPLACE - BEDSIDE^Bedside^^O^1^^^^^^^" ^ORD(101,501,1,0)="^^2^2^2960417^^^^" ^ORD(101,501,1,1,0)="This is one of the selections to be used for the ""Place of Consultation""" ^ORD(101,501,1,2,0)="prompt while ordering a consult/request." ^ORD(101,501,99)="57814,55456" ^ORD(101,502,0)="GMRCPLACE - ON CALL^Consultant's choice^^O^1^^^^^^^" ^ORD(101,502,1,0)="^^3^3^2970324^^^^" ^ORD(101,502,1,1,0)="This is one of the selections for the ""Place of Consultation"" prompt when" ^ORD(101,502,1,2,0)="ordering a Consult/Request. It gives the assigned Consultant the choice" ^ORD(101,502,1,3,0)="of where the consult/request should be performed with the patient." ^ORD(101,502,99)="57814,55456" ^ORD(101,502,101.04)="^^^Select: Bedside, On Call, EKG Lab, Emergency Room, Consultant's Choice." ^ORD(101,502,101.0431,0)="^^1^1^2970324^" ^ORD(101,502,101.0431,1,0)="On Call" ^ORD(101,503,0)="GMRCPLACEM - OUTPATIENT^Outpatient Place of Consultation^^Q^1^^^^^^^" ^ORD(101,503,1,0)="^^2^2^2960417^^" ^ORD(101,503,1,1,0)="This is the recommended menu of Place of Consultation answeres when" ^ORD(101,503,1,2,0)="ordering a consult/request for an outpatient." ^ORD(101,503,10,0)="^101.01PA^3^3" ^ORD(101,503,10,1,0)="504^^^" ^ORD(101,503,10,2,0)="502^^^" ^ORD(101,503,10,3,0)="2618^^^" ^ORD(101,503,10,"B",502,2)="" ^ORD(101,503,10,"B",504,1)="" ^ORD(101,503,10,"B",2618,3)="" ^ORD(101,503,99)="57814,55457" ^ORD(101,504,0)="GMRCPLACE - EMERGENCY ROOM^Emergency room^^O^1^^^^^^^" ^ORD(101,504,1,0)="^^2^2^2911009^" ^ORD(101,504,1,1,0)="This is one of the selections for the ""Place of Consultation"" prompt when" ^ORD(101,504,1,2,0)="ordering a Consult/Request, for Outpatients." ^ORD(101,504,20)="Q" ^ORD(101,504,99)="57814,55456" ^ORD(101,505,0)="GMRCURGENCY - ROUTINE^Routine^^O^1^^^^^^^" ^ORD(101,505,1,0)="^^1^1^2970916^^^^" ^ORD(101,505,1,1,0)="This represents the ""Routine"" urgency for ordering a Consult/Request." ^ORD(101,505,2,0)="^101.02A^1^1" ^ORD(101,505,2,1,0)="R" ^ORD(101,505,2,"B","R",1)="" ^ORD(101,505,20)="Q" ^ORD(101,505,99)="57814,55456" ^ORD(101,506,0)="GMRCURGENCY - EMERGENCY^Emergency^^O^1^^^^^^^" ^ORD(101,506,1,0)="^^1^1^2950911^^^" ^ORD(101,506,1,1,0)="This represents ""Emergency"" urgency for Consult/Requests." ^ORD(101,506,2,0)="^101.02A^1^1" ^ORD(101,506,2,1,0)="STAT" ^ORD(101,506,2,"B","STAT",1)="" ^ORD(101,506,20)="Q" ^ORD(101,506,99)="57814,55456" ^ORD(101,507,0)="GMRCACTM USER REVIEW SCREEN^Consult/Request Review^^M^1^^^^^^^44" ^ORD(101,507,1,0)="^^2^2^2980727^^^^" ^ORD(101,507,1,1,0)="This is the actions which may be taken by a user in the Consult/Request" ^ORD(101,507,1,2,0)="Tracking package." ^ORD(101,507,4)="23^3^^ACT" ^ORD(101,507,10,0)="^101.01PA^17^17" ^ORD(101,507,10,5,0)="554^PF^6^^^" ^ORD(101,507,10,5,1)="" ^ORD(101,507,10,6,0)="2596^DD^4^^^" ^ORD(101,507,10,7,0)="546^RT^5^^^" ^ORD(101,507,10,12,0)="552^SP^1^^^Select Patient" ^ORD(101,507,10,15,0)="2628^CV^2^" ^ORD(101,507,10,16,0)="550^CM^7" ^ORD(101,507,10,17,0)="3016^ER^10" ^ORD(101,507,10,"B",546,7)="" ^ORD(101,507,10,"B",550,16)="" ^ORD(101,507,10,"B",552,12)="" ^ORD(101,507,10,"B",554,5)="" ^ORD(101,507,10,"B",2596,6)="" ^ORD(101,507,10,"B",2628,15)="" ^ORD(101,507,10,"B",3016,17)="" ^ORD(101,507,26)="D PHDR^GMRCSLMA" ^ORD(101,507,28)="Select Action: " ^ORD(101,507,99)="58442,38498" ^ORD(101,508,0)="GMRCR ATRIAL LEAD IMPLANT^ATRIAL LEAD IMPLANT^^O^1^^^^^^^44" ^ORD(101,508,.1)="" ^ORD(101,508,1,0)="^^2^2^2920127^^^^" ^ORD(101,508,1,1,0)="This is a Procedure Request protocol. This type of protocol may be" ^ORD(101,508,1,2,0)="added to OE/RR add order menus under the ""PROCEDURE..."" header." ^ORD(101,508,2,0)="^101.02A^1^1" ^ORD(101,508,2,1,0)="ALEAD" ^ORD(101,508,2,"B","A-LEAD IMP",1)="" ^ORD(101,508,2,"B","ALEAD",1)="" ^ORD(101,508,3,0)="^101.03P^0^0" ^ORD(101,508,5)="4;GMR(123.5," ^ORD(101,508,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,508,99)="57814,55456" ^ORD(101,509,0)="GMRCR ELECTROCARDIOGRAM^Electrocardiogram^^O^1^^^^^^^44" ^ORD(101,509,.1)="ECG" ^ORD(101,509,1,0)="^^2^2^2971106^^^^" ^ORD(101,509,1,1,0)="This is a Procedure Request protocol. This type of protocol may be" ^ORD(101,509,1,2,0)="added to OE/RR add order menus under the ""PROCEDURE..."" header." ^ORD(101,509,1,3,0)="This is the name of procedure used by the Medicine Package to associate" ^ORD(101,509,1,4,0)="Procedure results with a Consult to the Cardiology Service." ^ORD(101,509,2,0)="^101.02A^^0" ^ORD(101,509,2,1,0)="ECG" ^ORD(101,509,2,2,0)="EKG" ^ORD(101,509,2,"B","ECG",1)="" ^ORD(101,509,2,"B","EKG",2)="" ^ORD(101,509,3,0)="^101.03P^1^1" ^ORD(101,509,3,1,0)="64" ^ORD(101,509,3,"B",64,1)="" ^ORD(101,509,5)="4;GMR(123.5," ^ORD(101,509,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,509,99)="57814,55456" ^ORD(101,510,0)="GMRCR ECHO^ECHO^^O^1^^^^^^^44" ^ORD(101,510,.1)="ECHO" ^ORD(101,510,1,0)="^^4^4^2920116^^" ^ORD(101,510,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,510,1,2,0)=" " ^ORD(101,510,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,510,1,4,0)="associate Procedure results with a Consult to the Cardiology Service." ^ORD(101,510,2,0)="^101.02A^1^1" ^ORD(101,510,2,1,0)="ECHO" ^ORD(101,510,2,"B","ECHO",1)="" ^ORD(101,510,3,0)="^101.03P^1^1" ^ORD(101,510,3,1,0)="64" ^ORD(101,510,3,"B",64,1)="" ^ORD(101,510,5)="4;GMR(123.5," ^ORD(101,510,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,510,99)="57814,55456" ^ORD(101,511,0)="GMRCURGENCYM REQ - INPATIENT^Request Inpatient Urgency^^M^1^^^^^^^" ^ORD(101,511,1,0)="^^2^2^2970916^^^^" ^ORD(101,511,1,1,0)="This is the menu of urgencies recommended for use with Inpatient " ^ORD(101,511,1,2,0)="Procedure orders in the Consult/Request package." ^ORD(101,511,2,0)="^101.02A^1^1" ^ORD(101,511,2,1,0)="IPU" ^ORD(101,511,2,"B","IPU",1)="" ^ORD(101,511,10,0)="^101.01PA^8^8" ^ORD(101,511,10,1,0)="512^^1^" ^ORD(101,511,10,2,0)="492^^2^" ^ORD(101,511,10,3,0)="493^24^5^" ^ORD(101,511,10,4,0)="494^48^6^" ^ORD(101,511,10,5,0)="495^72^7^" ^ORD(101,511,10,6,0)="496^^3^" ^ORD(101,511,10,7,0)="505^^4^" ^ORD(101,511,10,8,0)="506^^8^" ^ORD(101,511,10,"B",492,2)="" ^ORD(101,511,10,"B",493,3)="" ^ORD(101,511,10,"B",494,4)="" ^ORD(101,511,10,"B",495,5)="" ^ORD(101,511,10,"B",496,6)="" ^ORD(101,511,10,"B",505,7)="" ^ORD(101,511,10,"B",506,8)="" ^ORD(101,511,10,"B",512,1)="" ^ORD(101,511,15)="S GMRCU=X" ^ORD(101,511,20)="S XQORM(""A"")=""URGENCY: "",XQORM(0)=""1A"",XQORM(""B"")=""Within 72 hours"",XQORFLG(""SH"")=0" ^ORD(101,511,24)="" ^ORD(101,511,99)="57814,55456" ^ORD(101,512,0)="GMRCURGENCY - STAT^Stat^^O^1^^^^^^^" ^ORD(101,512,1,0)="^^1^1^2911009^^" ^ORD(101,512,1,1,0)="This represents the ""Stat"" urgency for ordering a Consult/Request." ^ORD(101,512,1,"B","STAT",1)="" ^ORD(101,512,2,0)="^101.02A^1^1" ^ORD(101,512,2,1,0)="STAT" ^ORD(101,512,2,"B","NOW",1)="" ^ORD(101,512,2,"B","STAT",1)="" ^ORD(101,512,20)="Q" ^ORD(101,512,99)="57814,55456" ^ORD(101,513,0)="GMRCR ELECTROPHYSIOLOGY^EP ^^O^1^^^^^^^44" ^ORD(101,513,.1)="EP" ^ORD(101,513,1,0)="^^4^4^2920116^^" ^ORD(101,513,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,513,1,2,0)=" " ^ORD(101,513,1,3,0)="This is the name of procedure used by the Medicine Package to associate" ^ORD(101,513,1,4,0)="Procedure results with a Consult to the Cardiology Service." ^ORD(101,513,3,0)="^101.03P^1^1" ^ORD(101,513,3,1,0)="64" ^ORD(101,513,3,"B",64,1)="" ^ORD(101,513,5)="4;GMR(123.5," ^ORD(101,513,99)="57814,55456" ^ORD(101,514,0)="GMRCR EXERCISE TOLERANCE TEST^Exercise Tolerance Test^^A^1^^^^^^^44" ^ORD(101,514,.1)="ETT" ^ORD(101,514,1,0)="^^4^4^2920116^^" ^ORD(101,514,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,514,1,2,0)=" " ^ORD(101,514,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,514,1,4,0)="associate procedure results with a consult to the Cardiology Service." ^ORD(101,514,2,0)="^101.02A^1^1" ^ORD(101,514,2,1,0)="ETT" ^ORD(101,514,2,"B","ETT",1)="" ^ORD(101,514,3,0)="^101.03P^1^1" ^ORD(101,514,3,1,0)="64" ^ORD(101,514,3,"B",64,1)="" ^ORD(101,514,4)="^^^ETT" ^ORD(101,514,5)="4;GMR(123.5," ^ORD(101,514,99)="57814,55456" ^ORD(101,515,0)="GMRCR GENERATOR IMPLANT^Generator Implant^^O^1^^^^^^^44" ^ORD(101,515,.1)="GEN IMP" ^ORD(101,515,1,0)="^^4^4^2920116^^" ^ORD(101,515,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,515,1,2,0)=" " ^ORD(101,515,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,515,1,4,0)="associate procedure results with a consult to the Cardiology Service." ^ORD(101,515,2,0)="^101.02A^1^1" ^ORD(101,515,2,1,0)="GEN IMPL" ^ORD(101,515,2,"B","GEN IMPL",1)="" ^ORD(101,515,3,0)="^101.03P^1^1" ^ORD(101,515,3,1,0)="64" ^ORD(101,515,3,"B",64,1)="" ^ORD(101,515,4)="^^^GEN IMPL" ^ORD(101,515,5)="4;GMR(123.5," ^ORD(101,515,99)="57814,55456" ^ORD(101,516,0)="GMRCR HOLTER^Holter^^O^1^^^^^^^44" ^ORD(101,516,.1)="HOLTER" ^ORD(101,516,1,0)="^^4^4^2920116^^" ^ORD(101,516,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,516,1,2,0)=" " ^ORD(101,516,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,516,1,4,0)="associate procedure results with a consult to the Cardiology Service." ^ORD(101,516,3,0)="^101.03P^1^1" ^ORD(101,516,3,1,0)="64" ^ORD(101,516,3,"B",64,1)="" ^ORD(101,516,5)="4;GMR(123.5," ^ORD(101,516,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,516,99)="57814,55456" ^ORD(101,517,0)="GMRCR PACEMAKER SURVEILLANCE^Pacemaker Surveillance^^O^1^^^^^^^44" ^ORD(101,517,.1)="PACE SV" ^ORD(101,517,1,0)="^^4^4^2920116^^" ^ORD(101,517,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,517,1,2,0)=" " ^ORD(101,517,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,517,1,4,0)="associate procedure results with a consult to the Cardiology Service." ^ORD(101,517,2,0)="^101.02A^1^1" ^ORD(101,517,2,1,0)="PACE SURV" ^ORD(101,517,2,"B","PACE SURV",1)="" ^ORD(101,517,3,0)="^101.03P^1^1" ^ORD(101,517,3,1,0)="64" ^ORD(101,517,3,"B",64,1)="" ^ORD(101,517,5)="4;GMR(123.5," ^ORD(101,517,99)="57814,55456" ^ORD(101,518,0)="GMRCR VENTRICAL LEAD IMPLANT^Ventrical Lead Implant^^O^1^^^^^^^44" ^ORD(101,518,.1)="V-L IMP" ^ORD(101,518,1,0)="^^4^4^2920116^^" ^ORD(101,518,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,518,1,2,0)=" " ^ORD(101,518,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,518,1,4,0)="associate procedure results with a consult sent to the Cardiology Service." ^ORD(101,518,2,0)="^101.02A^1^1" ^ORD(101,518,2,1,0)="V-LEAD IMP" ^ORD(101,518,2,"B","V-LEAD IMP",1)="" ^ORD(101,518,3,0)="^101.03P^1^1" ^ORD(101,518,3,1,0)="64" ^ORD(101,518,3,"B",64,1)="" ^ORD(101,518,4)="^^^V-LEAD" ^ORD(101,518,5)="4;GMR(123.5," ^ORD(101,518,99)="57814,55456" ^ORD(101,519,0)="GMRCR CATHETERIZATION^Catheterization^^O^1^^^^^^^44" ^ORD(101,519,.1)="CATH" ^ORD(101,519,1,0)="^^4^4^2960320^^^" ^ORD(101,519,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,519,1,2,0)=" " ^ORD(101,519,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,519,1,4,0)="associate Procedure results with a Consult to the Cardiology Service." ^ORD(101,519,2,0)="^101.02A^1^1" ^ORD(101,519,2,1,0)="CATH" ^ORD(101,519,2,"B","CATH",1)="" ^ORD(101,519,3,0)="^101.03P^1^1" ^ORD(101,519,3,1,0)="64" ^ORD(101,519,3,"B",64,1)="" ^ORD(101,519,4)="^^^CATH" ^ORD(101,519,5)="4;GMR(123.5," ^ORD(101,519,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,519,99)="57814,55456" ^ORD(101,520,0)="GMRCR COLONOSCOPY^Colonoscopy^^O^1^^^^^^^44" ^ORD(101,520,.1)="COL" ^ORD(101,520,1,0)="^^4^4^2920116^^" ^ORD(101,520,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,520,1,2,0)=" " ^ORD(101,520,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,520,1,4,0)="associate Procedure results with a Consult to the Gastroenterology Service." ^ORD(101,520,2,0)="^101.02A^1^1" ^ORD(101,520,2,1,0)="COL" ^ORD(101,520,2,"B","COL",1)="" ^ORD(101,520,3,0)="^101.03P^1^1" ^ORD(101,520,3,1,0)="64" ^ORD(101,520,3,"B",64,1)="" ^ORD(101,520,5)="5;GMR(123.5," ^ORD(101,520,99)="57814,55456" ^ORD(101,521,0)="GMRCR ESOPHAGOGASTRODUODENOSCOPY^EGD^^O^1^^^^^^^44" ^ORD(101,521,.1)="EGD" ^ORD(101,521,1,0)="^^4^4^2920116^^" ^ORD(101,521,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,521,1,2,0)=" " ^ORD(101,521,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,521,1,4,0)="associate procedure results with a consult to the Gastroenterology Service." ^ORD(101,521,2,0)="^101.02A^1^1" ^ORD(101,521,2,1,0)="EGD" ^ORD(101,521,2,"B","EGD",1)="" ^ORD(101,521,3,0)="^101.03P^1^1" ^ORD(101,521,3,1,0)="64" ^ORD(101,521,3,"B",64,1)="" ^ORD(101,521,5)="5;GMR(123.5," ^ORD(101,521,99)="57814,55456" ^ORD(101,522,0)="GMRCR ERCP^ERCP^^O^1^^^^^^^44" ^ORD(101,522,.1)="ERCP" ^ORD(101,522,1,0)="^^4^4^2920116^^" ^ORD(101,522,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,522,1,2,0)=" " ^ORD(101,522,1,3,0)="This is the name of a procedure used by the Medicine Package to associate" ^ORD(101,522,1,4,0)="Procedure results with a Consult to the Gastroenterology Service." ^ORD(101,522,2,0)="^101.02A^1^1" ^ORD(101,522,2,1,0)="ERC" ^ORD(101,522,2,"B","ERC",1)="" ^ORD(101,522,3,0)="^101.03P^1^1" ^ORD(101,522,3,1,0)="64" ^ORD(101,522,3,"B",64,1)="" ^ORD(101,522,4)="^^^ERC" ^ORD(101,522,5)="5;GMR(123.5," ^ORD(101,522,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,522,99)="57814,55456" ^ORD(101,523,0)="GMRCR LAPARASCOPY^Laparascopy^^O^1^^^^^^^44" ^ORD(101,523,.1)="LAP" ^ORD(101,523,1,0)="^^4^4^2920116^^" ^ORD(101,523,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,523,1,2,0)=" " ^ORD(101,523,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,523,1,4,0)="associate procedure results with a consult to the Gastroenterology Service." ^ORD(101,523,2,0)="^101.02A^1^1" ^ORD(101,523,2,1,0)="LAP" ^ORD(101,523,2,"B","LAP",1)="" ^ORD(101,523,3,0)="^101.03P^1^1" ^ORD(101,523,3,1,0)="64" ^ORD(101,523,3,"B",64,1)="" ^ORD(101,523,4)="^^^LAP" ^ORD(101,523,5)="5;GMR(123.5," ^ORD(101,523,99)="57814,55456" ^ORD(101,524,0)="GMRCR NON-ENDOSCOPIC GI PROCEDURE^Non-Endoscopic GI Proc^^O^1^^^^^^^44" ^ORD(101,524,.1)="NON-END" ^ORD(101,524,1,0)="^^4^4^2920116^^" ^ORD(101,524,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,524,1,2,0)=" " ^ORD(101,524,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,524,1,4,0)="associate procedure results with a consult to the Gastroenterology Service." ^ORD(101,524,3,0)="^101.03P^1^1" ^ORD(101,524,3,1,0)="64" ^ORD(101,524,3,"B",64,1)="" ^ORD(101,524,4)="^^^NON-ENDO" ^ORD(101,524,5)="5;GMR(123.5," ^ORD(101,524,99)="57814,55456" ^ORD(101,525,0)="GMRCR BONE MARROW ASPIRATE^Bone Marrow Aspirate^^O^1^^^^^^^44" ^ORD(101,525,.1)="BMA" ^ORD(101,525,1,0)="^^4^4^2920116^^" ^ORD(101,525,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,525,1,2,0)=" " ^ORD(101,525,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,525,1,4,0)="associate Procedure results with a Consult to the Hematology Service." ^ORD(101,525,2,0)="^101.02A^1^1" ^ORD(101,525,2,1,0)="BMA" ^ORD(101,525,2,"B","BMA",1)="" ^ORD(101,525,3,0)="^101.03P^1^1" ^ORD(101,525,3,1,0)="64" ^ORD(101,525,3,"B",64,1)="" ^ORD(101,525,5)="6;GMR(123.5," ^ORD(101,525,99)="57814,55456" ^ORD(101,526,0)="GMRCR BONE MARROW BIOPSY^Bone Marrow Biopsy^^O^1^^^^^^^44" ^ORD(101,526,.1)="BMB" ^ORD(101,526,1,0)="^^4^4^2920116^^" ^ORD(101,526,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,526,1,2,0)=" " ^ORD(101,526,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,526,1,4,0)="associate Procedure results with a Consult to the Hematology Service." ^ORD(101,526,3,0)="^101.03P^1^1" ^ORD(101,526,3,1,0)="64" ^ORD(101,526,3,"B",64,1)="" ^ORD(101,526,4)="^^^BMB" ^ORD(101,526,5)="6;GMR(123.5," ^ORD(101,526,99)="57814,55457" ^ORD(101,527,0)="GMRCR BRONCHOSCOPY^Bronchoscopy^^O^1^^^^^^^44" ^ORD(101,527,.1)="BRON" ^ORD(101,527,1,0)="^^4^4^2920116^^^" ^ORD(101,527,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,527,1,2,0)=" " ^ORD(101,527,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,527,1,4,0)="associate Procedure results with a Consult to the Pulmonary Service." ^ORD(101,527,2,0)="^101.02A^1^1" ^ORD(101,527,2,1,0)="BRON" ^ORD(101,527,2,"B","BRON",1)="" ^ORD(101,527,3,0)="^101.03P^1^1" ^ORD(101,527,3,1,0)="64" ^ORD(101,527,3,"B",64,1)="" ^ORD(101,527,4)="^^^BRON" ^ORD(101,527,5)="7;GMR(123.5," ^ORD(101,527,99)="57814,55457" ^ORD(101,528,0)="GMRCR LARYNGOSCOPY^GMRCR SAMPLE PROCEDURE^^O^1^^^^^^^44" ^ORD(101,528,.1)="" ^ORD(101,528,1,0)="^^2^2^2920127^^^^" ^ORD(101,528,1,1,0)="This is a Procedure Request protocol. This type of protocol may be" ^ORD(101,528,1,2,0)="added to OE/RR add order menus under the ""PROCEDURE..."" header." ^ORD(101,528,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,528,1,4,0)="associate procedure results with a consult to the Pulmonary Service." ^ORD(101,528,2,0)="^101.02A^^0" ^ORD(101,528,2,1,0)="LAR" ^ORD(101,528,2,"B","LAR",1)="" ^ORD(101,528,3,0)="^101.03P^1^1" ^ORD(101,528,3,1,0)="64" ^ORD(101,528,3,"B",64,1)="" ^ORD(101,528,4)="^^^LAR" ^ORD(101,528,5)="7;GMR(123.5," ^ORD(101,528,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,528,99)="57814,55457" ^ORD(101,529,0)="GMRCR LAVAGE^Lavage^^O^1^^^^^^^44" ^ORD(101,529,.1)="LAV" ^ORD(101,529,1,0)="^^4^4^2920116^^" ^ORD(101,529,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,529,1,2,0)=" " ^ORD(101,529,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,529,1,4,0)="associate procedure results with a consult to the Pulmonary Service." ^ORD(101,529,2,0)="^101.02A^1^1" ^ORD(101,529,2,1,0)="LAV" ^ORD(101,529,2,"B","LAV",1)="" ^ORD(101,529,3,0)="^101.03P^1^1" ^ORD(101,529,3,1,0)="64" ^ORD(101,529,3,"B",64,1)="" ^ORD(101,529,4)="^^^LAV" ^ORD(101,529,5)="7;GMR(123.5," ^ORD(101,529,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,529,99)="57814,55457" ^ORD(101,530,0)="GMRCR PULMONARY FUNCTION TEST^Pulmonary Function Test^^O^1^^^^^^^44" ^ORD(101,530,.1)="PFT" ^ORD(101,530,1,0)="^^4^4^2920116^^" ^ORD(101,530,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,530,1,2,0)=" " ^ORD(101,530,1,3,0)="This is the name of a procedure used by the Medicine Package to" ^ORD(101,530,1,4,0)="associate results with a consult sent to the Pulmonary Service." ^ORD(101,530,2,0)="^101.02A^1^1" ^ORD(101,530,2,1,0)="PFT" ^ORD(101,530,2,"B","PFT",1)="" ^ORD(101,530,3,0)="^101.03P^1^1" ^ORD(101,530,3,1,0)="64" ^ORD(101,530,3,"B",64,1)="" ^ORD(101,530,4)="^^^PFT" ^ORD(101,530,5)="7;GMR(123.5," ^ORD(101,530,99)="57814,55457" ^ORD(101,531,0)="GMRCOR REQUEST^Procedure^^O^1^^^^^^^" ^ORD(101,531,1,0)="^^8^8^2960401^^^^" ^ORD(101,531,1,1,0)="This is a very important protocol for activating the Procedure Request" ^ORD(101,531,1,2,0)="order capabilities in the Add orders process. This is the protocol which" ^ORD(101,531,1,3,0)="should be performed when ""Procedure..."" is selected from the ""Add New" ^ORD(101,531,1,4,0)="Orders menu. This protocol should only be added for clinician use when" ^ORD(101,531,1,5,0)="the procedures which may be ordered without requiring a consult are" ^ORD(101,531,1,6,0)="defined in the ""GMRCRM REQUEST TYPES"" protocol menu." ^ORD(101,531,1,7,0)="that option. This protocol depends on procedures being defined" ^ORD(101,531,1,8,0)="in the ""GMRCRM REQUEST TYPES"" protocol menu." ^ORD(101,531,20)="D EN^GMRCP" ^ORD(101,531,99)="57814,55457" ^ORD(101,532,0)="GMRCURGENCYM CSLT - INPATIENT^Consult Inpatient Urgency^^Q^1^^^^^^^" ^ORD(101,532,1,0)="^^2^2^2970916^^^^" ^ORD(101,532,1,1,0)="This is the menu of urgencies recommended for use with inpatient consult" ^ORD(101,532,1,2,0)="ordering." ^ORD(101,532,2,0)="^101.02A^1^1" ^ORD(101,532,2,1,0)="IP" ^ORD(101,532,2,"B","IP",1)="" ^ORD(101,532,10,0)="^101.01PA^5^5" ^ORD(101,532,10,1,0)="512^^1^" ^ORD(101,532,10,2,0)="494^^3^" ^ORD(101,532,10,3,0)="505^^2^" ^ORD(101,532,10,4,0)="495^^4^" ^ORD(101,532,10,5,0)="506^^4^" ^ORD(101,532,10,"B",494,2)="" ^ORD(101,532,10,"B",495,4)="" ^ORD(101,532,10,"B",505,3)="" ^ORD(101,532,10,"B",506,5)="" ^ORD(101,532,10,"B",512,1)="" ^ORD(101,532,99)="57814,55457" ^ORD(101,533,0)="GMRCRM MEDICINE REQUEST TYPES^Medicine Procedure Types^^Q^1^^^^^^^44" ^ORD(101,533,1,0)="^^5^5^2971218^^^^" ^ORD(101,533,1,1,0)="THIS MENU SHOULD NOT BE ALTERED." ^ORD(101,533,1,2,0)=" " ^ORD(101,533,1,3,0)="This menu is not actually used during processing, but serves to" ^ORD(101,533,1,4,0)="show which Procedure Types from the Medicine Package interface" ^ORD(101,533,1,5,0)="with the Consult/Request Tracking package." ^ORD(101,533,3,0)="^101.03P^1^1" ^ORD(101,533,3,1,0)="64" ^ORD(101,533,3,"B",64,1)="" ^ORD(101,533,4)="^" ^ORD(101,533,5)="" ^ORD(101,533,10,0)="^101.01PA^23^23" ^ORD(101,533,10,1,0)="520^^^" ^ORD(101,533,10,2,0)="521^^^" ^ORD(101,533,10,3,0)="522^^^" ^ORD(101,533,10,4,0)="523^^^" ^ORD(101,533,10,5,0)="524^ENDO^^" ^ORD(101,533,10,6,0)="525^^^" ^ORD(101,533,10,7,0)="526^^^" ^ORD(101,533,10,8,0)="527^^^" ^ORD(101,533,10,9,0)="528^^^" ^ORD(101,533,10,10,0)="529^^^" ^ORD(101,533,10,11,0)="530^^^" ^ORD(101,533,10,12,0)="513^^^" ^ORD(101,533,10,13,0)="509^^^" ^ORD(101,533,10,14,0)="514^^^" ^ORD(101,533,10,15,0)="515^^^" ^ORD(101,533,10,16,0)="516^^^" ^ORD(101,533,10,17,0)="517^^^" ^ORD(101,533,10,18,0)="518^^^" ^ORD(101,533,10,19,0)="519^^^" ^ORD(101,533,10,20,0)="535^^^" ^ORD(101,533,10,21,0)="510^^^" ^ORD(101,533,10,22,0)="538^^^" ^ORD(101,533,10,23,0)="508^^^" ^ORD(101,533,10,"B",508,23)="" ^ORD(101,533,10,"B",509,13)="" ^ORD(101,533,10,"B",510,21)="" ^ORD(101,533,10,"B",513,12)="" ^ORD(101,533,10,"B",514,14)="" ^ORD(101,533,10,"B",515,15)="" ^ORD(101,533,10,"B",516,16)="" ^ORD(101,533,10,"B",517,17)="" ^ORD(101,533,10,"B",518,18)="" ^ORD(101,533,10,"B",519,19)="" ^ORD(101,533,10,"B",520,1)="" ^ORD(101,533,10,"B",521,2)="" ^ORD(101,533,10,"B",522,3)="" ^ORD(101,533,10,"B",523,4)="" ^ORD(101,533,10,"B",524,5)="" ^ORD(101,533,10,"B",525,6)="" ^ORD(101,533,10,"B",526,7)="" ^ORD(101,533,10,"B",527,8)="" ^ORD(101,533,10,"B",528,9)="" ^ORD(101,533,10,"B",529,10)="" ^ORD(101,533,10,"B",530,11)="" ^ORD(101,533,10,"B",535,20)="" ^ORD(101,533,10,"B",538,22)="" ^ORD(101,533,99)="57814,55457" ^ORD(101,534,0)="GMRCACTM MEDICINE PKG MENU^Medicine/Consult Interface Menu^^Q^1^^^^^^^" ^ORD(101,534,1,0)="^^3^3^2971219^^^^" ^ORD(101,534,1,1,0)="This is the menu of actions provided for Medicine Package users which allows" ^ORD(101,534,1,2,0)="adding, discontinuing, completing, and associating Medicine results with" ^ORD(101,534,1,3,0)="an order." ^ORD(101,534,4)="24^3" ^ORD(101,534,10,0)="^101.01PA^21^21" ^ORD(101,534,10,5,0)="554^PT^23^^^" ^ORD(101,534,10,7,0)="546^RT^22^^^" ^ORD(101,534,10,10,0)="2595^AD^2^^^" ^ORD(101,534,10,11,0)="560^RC^7^^^" ^ORD(101,534,10,12,0)="2597^FR^8^^^" ^ORD(101,534,10,12,1)="^" ^ORD(101,534,10,13,0)="550^CM^5^^^" ^ORD(101,534,10,15,0)="544^AR^7^^^" ^ORD(101,534,10,16,0)="559^CT^6^^^" ^ORD(101,534,10,17,0)="557^DC^11^^^" ^ORD(101,534,10,18,0)="558^CX^10^^^" ^ORD(101,534,10,19,0)="2616^ST^1^^^" ^ORD(101,534,10,20,0)="2626^MA^15^^^" ^ORD(101,534,10,21,0)="2596^DD^21^" ^ORD(101,534,10,"B",544,15)="" ^ORD(101,534,10,"B",546,7)="" ^ORD(101,534,10,"B",550,13)="" ^ORD(101,534,10,"B",554,5)="" ^ORD(101,534,10,"B",557,17)="" ^ORD(101,534,10,"B",558,18)="" ^ORD(101,534,10,"B",559,16)="" ^ORD(101,534,10,"B",560,11)="" ^ORD(101,534,10,"B",2595,10)="" ^ORD(101,534,10,"B",2596,21)="" ^ORD(101,534,10,"B",2597,12)="" ^ORD(101,534,10,"B",2616,19)="" ^ORD(101,534,10,"B",2626,20)="" ^ORD(101,534,26)="D SHOW^VALM S XQORM(""#"")=$O(^ORD(101,""B"",""GMRC SELECT ITEM"",0))_""^1:""_VALMCNT" ^ORD(101,534,99)="58524,48791" ^ORD(101,535,0)="GMRCR RHEUMATOLOGY^Rheumatology^^O^1^^^^^^^44" ^ORD(101,535,1,0)="^^4^4^2920116^^" ^ORD(101,535,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,535,1,2,0)=" " ^ORD(101,535,1,3,0)="This is the name of a procedure used by the Medicine Package to " ^ORD(101,535,1,4,0)="associate results with a consult sent to the Rheumatology Service." ^ORD(101,535,3,0)="^101.03P^1^1" ^ORD(101,535,3,1,0)="64" ^ORD(101,535,3,"B",64,1)="" ^ORD(101,535,5)="8;GMR(123.5," ^ORD(101,535,99)="57814,55457" ^ORD(101,536,0)="GMRCRM REQUEST TYPES^Procedures which may be ordered directly w/o consult^^Q^1^^^^^^^44" ^ORD(101,536,1,0)="2^^10^10^2971107^^^^" ^ORD(101,536,1,1,0)="THIS PROTOCOL NAME SHOULD NOT BE ALTERED. The menu items are the only" ^ORD(101,536,1,2,0)="site modifiable information for this protocol menu." ^ORD(101,536,1,3,0)=" " ^ORD(101,536,1,4,0)="This is the list of procedures, treatments or other service requests which" ^ORD(101,536,1,5,0)="do not require a consult." ^ORD(101,536,1,6,0)=" " ^ORD(101,536,1,7,0)="This menu represents the items which are selectable when the ""Procedures...""" ^ORD(101,536,1,8,0)="entry is selected on the Add Orders menu in OE/RR." ^ORD(101,536,1,9,0)="Procedures should be added to this menu as clinicians identify things they" ^ORD(101,536,1,10,0)="order from a service which they don't require a consult for." ^ORD(101,536,3,0)="^101.03P^1^1" ^ORD(101,536,3,1,0)="64" ^ORD(101,536,3,"B",64,1)="" ^ORD(101,536,10,0)="^101.01PA^^0" ^ORD(101,536,99)="57814,55457" ^ORD(101,537,0)="GMRCR UGI^UGI^^O^1^^^^^^^44" ^ORD(101,537,.1)="UGI" ^ORD(101,537,1,0)="^^4^4^2960320^^^^" ^ORD(101,537,1,1,0)="This is the procedure request for an upper GI which does not require a" ^ORD(101,537,1,2,0)="Consult in order for the procedure to be done. If a site does not" ^ORD(101,537,1,3,0)="wish to use this entry as a direct procedure request it should be" ^ORD(101,537,1,4,0)="removed from the GMRCRM REQUEST TYPES protocol menu." ^ORD(101,537,2,0)="^101.02A^2^2" ^ORD(101,537,2,1,0)="UGI" ^ORD(101,537,2,2,0)="Upper Gastrointestinal Series" ^ORD(101,537,2,"B","UGI",1)="" ^ORD(101,537,2,"B","Upper Gastrointestinal Series",2)="" ^ORD(101,537,5)="5;GMR(123.5," ^ORD(101,537,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,537,99)="57814,55457" ^ORD(101,538,0)="GMRCR THORACENTESIS^Thoracentesis^^O^1^^^^^^^44" ^ORD(101,538,1,0)="^^4^4^2971218^" ^ORD(101,538,1,1,0)="DO NOT ALTER THIS PROTOCOL NAME." ^ORD(101,538,1,2,0)=" " ^ORD(101,538,1,3,0)="This is the name of a procedure used by the Medicine Package to associate" ^ORD(101,538,1,4,0)="results with a consult sent to the PULMONARY SERVICE." ^ORD(101,538,2,0)="^101.02A^1^1" ^ORD(101,538,2,1,0)="THORA" ^ORD(101,538,2,"B","THORA",1)="" ^ORD(101,538,3,0)="^101.03P^1^1" ^ORD(101,538,3,1,0)="64" ^ORD(101,538,3,"B",64,1)="" ^ORD(101,538,5)="PULMONARY;GMR(123.5," ^ORD(101,538,20)="" ^ORD(101,538,99)="57814,55457" ^ORD(101,539,0)="GMRCR PARACENTESIS^Paracentesis^^O^.5^^^^^^^44" ^ORD(101,539,1,0)="^^8^8^2920608^^^^" ^ORD(101,539,1,1,0)="This is an example of a GMRCR Procedure type which may be used by clinicians" ^ORD(101,539,1,2,0)="to order without requiring a consult to the service first. If the service" ^ORD(101,539,1,3,0)="is not defined in the FILE LINK field, the clinician will have to enter" ^ORD(101,539,1,4,0)="the Service during the order process." ^ORD(101,539,1,5,0)=" " ^ORD(101,539,1,6,0)="The GMRCRM REQUEST TYPES option is the menu these type of items should" ^ORD(101,539,1,7,0)="be added to in order to be able to select this procedure from the " ^ORD(101,539,1,8,0)="""Procedure..."" order flow." ^ORD(101,539,5)="" ^ORD(101,539,20)="S GMRCEN=""R"" D EN^GMRCP" ^ORD(101,539,99)="56777,60655" ^ORD(101,540,0)="GMRCT TPN^TPN^^O^1^^^^^^^" ^ORD(101,540,1,0)="^^2^2^2920116^^^^" ^ORD(101,540,1,1,0)="This is the Consult Type which represents TPN (Hyperalimentation) orders" ^ORD(101,540,1,2,0)="for the Pharmacy Service." ^ORD(101,540,2,0)="^101.02A^1^1" ^ORD(101,540,2,1,0)="HYPERAL" ^ORD(101,540,2,"B","HYPERAL",1)="" ^ORD(101,540,3,0)="^101.03P^1^1" ^ORD(101,540,3,1,0)="64" ^ORD(101,540,3,"B",64,1)="" ^ORD(101,540,5)="PHARMACY SERVICE;GMR(123.5," ^ORD(101,540,20)="S GMRCEN=""C"" D EN^GMRCP" ^ORD(101,540,99)="57814,55457" ^ORD(101,541,0)="GMRCACTM PHARMACY PKG MENU^Pharmacy/TPN Interface Menu^^Q^.5^^^^^^^44" ^ORD(101,541,1,0)="^^2^2^2920227^^" ^ORD(101,541,1,1,0)="This is the menu of actions provided for Pharmacy package users which " ^ORD(101,541,1,2,0)="allows adding, discontinuing and completing of a Pharmacy consult order." ^ORD(101,541,4)="40" ^ORD(101,541,10,0)="^101.01PA^15^12" ^ORD(101,541,10,4,0)="46^^8" ^ORD(101,541,10,5,0)="554^PS^10" ^ORD(101,541,10,6,0)="551^DT^11" ^ORD(101,541,10,7,0)="47^^15" ^ORD(101,541,10,8,0)="552^SP^16" ^ORD(101,541,10,9,0)="543^AD^31^^^Add original consult" ^ORD(101,541,10,10,0)="560^RC^32^^^Received consult" ^ORD(101,541,10,11,0)="550^CM^37" ^ORD(101,541,10,12,0)="48^^39" ^ORD(101,541,10,13,0)="559^CT^50^^^Complete consult" ^ORD(101,541,10,14,0)="557^DC^51^^^Discontinue consult" ^ORD(101,541,10,15,0)="49^^89" ^ORD(101,541,10,"B",46,4)="" ^ORD(101,541,10,"B",47,7)="" ^ORD(101,541,10,"B",48,12)="" ^ORD(101,541,10,"B",49,15)="" ^ORD(101,541,10,"B",543,9)="" ^ORD(101,541,10,"B",550,11)="" ^ORD(101,541,10,"B",551,6)="" ^ORD(101,541,10,"B",552,8)="" ^ORD(101,541,10,"B",554,5)="" ^ORD(101,541,10,"B",557,14)="" ^ORD(101,541,10,"B",559,13)="" ^ORD(101,541,10,"B",560,10)="" ^ORD(101,541,99)="58219,53177" ^ORD(101,542,0)="GMRCACTM SERVICE ACTION MENU^Service Action Menu^^Q^1^^^^^^^44" ^ORD(101,542,1,0)="^^4^4^2980826^^^^" ^ORD(101,542,1,1,0)="This is the menu of actions which may be used for a service to keep" ^ORD(101,542,1,2,0)="track service activities for consults and requests. There are paging," ^ORD(101,542,1,3,0)="print and tracking actions included. The tracking actions perform an" ^ORD(101,542,1,4,0)="activity tracking audit trail." ^ORD(101,542,4)="18^3" ^ORD(101,542,10,0)="^101.01PA^27^27" ^ORD(101,542,10,5,0)="554^PF^23^^^" ^ORD(101,542,10,6,0)="2596^DD^21^^^" ^ORD(101,542,10,7,0)="546^RT^22^^^" ^ORD(101,542,10,9,0)="552^SP^1^^^" ^ORD(101,542,10,10,0)="2628^CV^2^^^" ^ORD(101,542,10,13,0)="560^RC^3^^^" ^ORD(101,542,10,14,0)="2597^FR^9^^^" ^ORD(101,542,10,15,0)="550^CM^12^^^" ^ORD(101,542,10,17,0)="559^CT^14^^^" ^ORD(101,542,10,18,0)="557^DC^11^^^" ^ORD(101,542,10,19,0)="558^CX^10^^^" ^ORD(101,542,10,23,0)="2626^MA^15^^^" ^ORD(101,542,10,24,0)="2886^SC^4^^^Schedule" ^ORD(101,542,10,25,0)="2708^SF^16^" ^ORD(101,542,10,26,0)="3016^ER^26" ^ORD(101,542,10,27,0)="3037^RM^24" ^ORD(101,542,10,"B",546,7)="" ^ORD(101,542,10,"B",550,15)="" ^ORD(101,542,10,"B",552,9)="" ^ORD(101,542,10,"B",554,5)="" ^ORD(101,542,10,"B",557,18)="" ^ORD(101,542,10,"B",558,19)="" ^ORD(101,542,10,"B",559,17)="" ^ORD(101,542,10,"B",560,13)="" ^ORD(101,542,10,"B",2596,6)="" ^ORD(101,542,10,"B",2597,14)="" ^ORD(101,542,10,"B",2626,23)="" ^ORD(101,542,10,"B",2628,10)="" ^ORD(101,542,10,"B",2708,25)="" ^ORD(101,542,10,"B",2886,24)="" ^ORD(101,542,10,"B",3016,26)="" ^ORD(101,542,10,"B",3037,27)="" ^ORD(101,542,26)="D PHDR^GMRCSLMA" ^ORD(101,542,28)="Select Action: " ^ORD(101,542,99)="58524,48791" ^ORD(101,543,0)="GMRCACT ADD^Add original request^^A^.5^^^^^^^44" ^ORD(101,543,1,0)="^^1^1^2920225^" ^ORD(101,543,1,1,0)="Add a consult which originated service work, not already in OE/RR" ^ORD(101,543,4)="^^^AD" ^ORD(101,543,5)="15;GMR(123.1," ^ORD(101,543,20)="D AD^GMRCA1" ^ORD(101,543,99)="56777,60640" ^ORD(101,544,0)="GMRCACT ASSOCIATE RESULTS^Associate Result^^A^1^^^^^^^44" ^ORD(101,544,1,0)="^^2^2^3000104^^^" ^ORD(101,544,1,1,0)="Associate Results with a consult allows the user to associate Medicine" ^ORD(101,544,1,2,0)="package results with a consult." ^ORD(101,544,2,0)="^101.02A^^0" ^ORD(101,544,2,1,0)=" " ^ORD(101,544,2,"B"," ",1)="" ^ORD(101,544,4)="^3^^AR" ^ORD(101,544,15)="I $G(GMRCO) D REFRESH^GMRCMED(GMRCO)" ^ORD(101,544,20)="D AR^GMRCMED("""")" ^ORD(101,544,99)="58524,48791" ^ORD(101,545,0)="GMRCACT SELECT SERVICE^Service^^A^1^^^^^^^44" ^ORD(101,545,1,0)="^^1^1^2980703^^" ^ORD(101,545,1,1,0)="Select a service/specialty to review consults" ^ORD(101,545,4)="^^^SS" ^ORD(101,545,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,545,20)="D SS^GMRCSLM,ENTRY^GMRCSLMA(""HL"")" ^ORD(101,545,21,0)="^101.021A^^0" ^ORD(101,545,99)="58219,53177" ^ORD(101,546,0)="GMRCACT RESULTS DISPLAY^Results Display^^A^1^^^^^^^44" ^ORD(101,546,1,0)="^^3^3^3000209^^^^" ^ORD(101,546,1,1,0)="Display the consult result using the RT. This will list all TIU consult" ^ORD(101,546,1,2,0)="reports (with addenda), all Medicine package results, and resolution" ^ORD(101,546,1,3,0)="comments." ^ORD(101,546,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,546,20)="D RT^GMRCA1(""""),ENTRY^GMRCSLMA(""H"")" ^ORD(101,546,26)="S XQORM(""A"")=""Select Action: """ ^ORD(101,546,28)="" ^ORD(101,546,99)="58219,53177" ^ORD(101,546,101.04)="^" ^ORD(101,550,0)="GMRCACT COMMENT ORDERS^Add Comment^^A^1^^^^^^^44" ^ORD(101,550,.1)="" ^ORD(101,550,1,0)="^^1^1^2980804^^^^" ^ORD(101,550,1,1,0)="Add a comment to a consult." ^ORD(101,550,2,0)="^101.02A^^0" ^ORD(101,550,4)="^3" ^ORD(101,550,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,550,20)="D COMMENT^GMRCA1(""""),ENTRY^GMRCSLMA("""")" ^ORD(101,550,99)="58219,53177" ^ORD(101,551,0)="GMRCACT DETAIL DISPLAY^Detailed Order Display^^A^.5^^^^^^^44" ^ORD(101,551,1,0)="^^1^1^2920225^" ^ORD(101,551,1,1,0)="Display order details, audit trail, and results" ^ORD(101,551,20)="D DT^GMRCA1" ^ORD(101,551,99)="56777,60640" ^ORD(101,552,0)="GMRCACT NEW PATIENT^Select Patient^^A^1^^^^^^^44" ^ORD(101,552,1,0)="^^1^1^2981019^^^^" ^ORD(101,552,1,1,0)="Select a new patient" ^ORD(101,552,10,0)="^101.01PA^0^0" ^ORD(101,552,15)="S VALMBCK=""R"",VALMBG=1 K GMRCSEL,GMRCO,GMRCND" ^ORD(101,552,20)="D SP^GMRCSLM S VALMBCK=""R"" Q:$D(GMRCQUT) D INIT^GMRCSLM,HDR^GMRCSLM" ^ORD(101,552,99)="58219,53177" ^ORD(101,554,0)="GMRCACT PRINT CONSULT FORM^Print Form 513^^A^1^^^^^^^44" ^ORD(101,554,1,0)="^^1^1^2980915^^^^" ^ORD(101,554,1,1,0)="Print Consult Std Form 513 for an order" ^ORD(101,554,10,0)="^101.01PA^0^0" ^ORD(101,554,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,554,20)="S VALMBCK=""R"" D SEL^GMRCP5 Q:$D(GMRCQUT) D EN^GMRCP5(GMRCND),ENTRY^GMRCSLMA("""")" ^ORD(101,554,21,0)="^101.021A" ^ORD(101,554,99)="58219,53177" ^ORD(101,555,0)="GMRCACT SELECT STATUS^Select Status^^A^.5^^^^^^^44" ^ORD(101,555,1,0)="^^1^1^2920225^" ^ORD(101,555,1,1,0)="Select the OE/RR status of orders to be reviewed" ^ORD(101,555,20)="D ST^GMRCA1" ^ORD(101,555,99)="56777,60640" ^ORD(101,556,0)="GMRCACT REROUTE^Forward Request^^A^.5^^^^^^^44" ^ORD(101,556,1,0)="^^1^1^2920225^" ^ORD(101,556,1,1,0)="Forward order to another service" ^ORD(101,556,20)="D FR^GMRCAFR" ^ORD(101,556,99)="56777,60640" ^ORD(101,557,0)="GMRCACT DISCONTINUE^Discontinue^^A^1^^^^^^^44" ^ORD(101,557,1,0)="^^1^1^2980714^^" ^ORD(101,557,1,1,0)="Discontinue an order. (Updates OE/RR status to ""dc"")" ^ORD(101,557,4)="24^2" ^ORD(101,557,10,0)="^101.01PA^0^0" ^ORD(101,557,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,557,20)="S GMRCA=6 D DC^GMRCA1("""",GMRCA),ENTRY^GMRCSLMA(""L"")" ^ORD(101,557,99)="58219,53177" ^ORD(101,558,0)="GMRCACT CANCEL REQUEST^Cancel (Deny)^^A^1^^^^^^^44" ^ORD(101,558,1,0)="^^3^3^2980714^^" ^ORD(101,558,1,1,0)="The service may cancel a consult request, with an explanation. (Updates" ^ORD(101,558,1,2,0)="OE/RR status to ""x""). Requestors of cancelled consults may edit and" ^ORD(101,558,1,3,0)="resubmit the request." ^ORD(101,558,4)="^3" ^ORD(101,558,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,558,20)="S GMRCA=19 D DC^GMRCA1("""",GMRCA),ENTRY^GMRCSLMA(""L"")" ^ORD(101,558,99)="58219,53177" ^ORD(101,559,0)="GMRCACT COMPLETE^Complete/Update^^A^1^^^^^^^44" ^ORD(101,559,1,0)="^^1^1^2980804^^^^" ^ORD(101,559,1,1,0)="Complete/Update the results for a consult." ^ORD(101,559,4)="^^^CT" ^ORD(101,559,10,0)="^101.01PA^0^0" ^ORD(101,559,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,559,20)="D ENTER^GMRCTIU(""""),ENTRY^GMRCSLMA(""LH"")" ^ORD(101,559,99)="58219,53177" ^ORD(101,560,0)="GMRCACT RECEIVED REQUEST^Receive^^A^1^^^^^^^44" ^ORD(101,560,1,0)="^101.06^1^1^3000320^^^^" ^ORD(101,560,1,1,0)="Acknowledge the receipt of a consult (updates CPRS status to active)." ^ORD(101,560,4)="^3^^RC" ^ORD(101,560,10,0)="^101.01PA^0^0" ^ORD(101,560,15)="D EXIT^GMRCSLMA(""R"")" ^ORD(101,560,20)="D RC^GMRCA1(""""),ENTRY^GMRCSLMA(""L"")" ^ORD(101,560,28)="" ^ORD(101,560,99)="58219,53177" ^ORD(101,561,0)="DGPM TREATING SPECIALTY EVENT^TREATING SPECIALTY EVENT^^X^1^^^^^^^47" ^ORD(101,561,1,0)="^^1^1^2901217^^" ^ORD(101,561,1,1,0)="VERSION 5.0 TREATING SPECIALTY EVENT" ^ORD(101,561,5)="2125;DIC(19," ^ORD(101,561,20)="D EV^DGPTTS" ^ORD(101,561,99)="56777,67269" ^ORD(101,562,0)="DGJ INCOMPLETE EVENT^Incomplete Records Event Driver^^X^1^^^^^^^185" ^ORD(101,562,1,0)="^^3^3^2910813^^^^" ^ORD(101,562,1,1,0)="This option adds a record to the Incomplete Records file" ^ORD(101,562,1,2,0)="upon discharge of a patient. It will stuff in all the" ^ORD(101,562,1,3,0)="pertinant data that is needed for this file." ^ORD(101,562,5)="DGJ INCOMPLETE EVENT;DIC(19," ^ORD(101,562,20)="D ^DGJTEVT" ^ORD(101,562,99)="58930,56861" ^ORD(101,563,0)="DGOERR NOTE^MAS Notifications^^X^1^^^^^^^47" ^ORD(101,563,1,0)="^^5^5^2910711^^^" ^ORD(101,563,1,1,0)=" This option is used to send ADMISSION and DECEASED MAS NOTIFICATIONS" ^ORD(101,563,1,2,0)="in ORDER ENTRY/RESULTS REPORTING. It must be an item in the DGPM" ^ORD(101,563,1,3,0)="MOVEMENT EVENTS option in order for the notifications to be sent. The" ^ORD(101,563,1,4,0)="notifications will be sent for admissions and death discharges." ^ORD(101,563,1,5,0)="This will only work with OE/RR v2.09 or higher." ^ORD(101,563,5)="2158;DIC(19," ^ORD(101,563,20)="D EN^DGOERNOT" ^ORD(101,563,99)="56777,67268" ^ORD(101,564,0)="DG MEANS TEST AUDIT^Means Test Audit Event^^X^1^^^^^^^" ^ORD(101,564,1,0)="^^2^2^2930427^^" ^ORD(101,564,1,1,0)="The event is invoked off of the Means Test event driver. Based upon the" ^ORD(101,564,1,2,0)="action taken the Means Test Change file will be updated." ^ORD(101,564,20)="D EN^DGMTAUD" ^ORD(101,564,99)="56777,67259" ^ORD(101,565,0)="DG MEANS TEST EVENTS^Means Test Event Driver^^X^1^^^^^^^47" ^ORD(101,565,1,0)="^^1^1^2920403^^^" ^ORD(101,565,1,1,0)="This option is the means test event protocol." ^ORD(101,565,5)="2160;DIC(19," ^ORD(101,565,10,0)="^101.01PA^5^5" ^ORD(101,565,10,1,0)="564^^1" ^ORD(101,565,10,2,0)="724" ^ORD(101,565,10,3,0)="1473" ^ORD(101,565,10,4,0)="1697" ^ORD(101,565,10,5,0)="2773" ^ORD(101,565,10,"B",564,1)="" ^ORD(101,565,10,"B",724,2)="" ^ORD(101,565,10,"B",1473,3)="" ^ORD(101,565,10,"B",1697,4)="" ^ORD(101,565,10,"B",2773,5)="" ^ORD(101,565,99)="57984,60829" ^ORD(101,566,0)="DG MEANS TEST DOM^Means Test Check for DOM Patients^^A^1^^^^^^^" ^ORD(101,566,1,0)="^^1^1^2921029^^" ^ORD(101,566,1,1,0)=" " ^ORD(101,566,20)="D EN^DGMTDOM" ^ORD(101,566,99)="56777,67260" ^ORD(101,567,0)="DGJ ENTER/EDIT RECORDS MENU^Enter/Edit Records Menu^^M^1^^^^^^^185" ^ORD(101,567,1,0)="^^3^3^2921008^^^^" ^ORD(101,567,1,1,0)="This menu contains all the actions for the IRT Record Summary Tracking" ^ORD(101,567,1,2,0)="option. This is the protocol menu that controls the actions for entering a" ^ORD(101,567,1,3,0)="new IRT record and editing an already existing IRT record." ^ORD(101,567,4)="26^4^^ee" ^ORD(101,567,10,0)="^101.01PA^22^22" ^ORD(101,567,10,12,0)="584^EP^13^" ^ORD(101,567,10,13,0)="585^PT^22^" ^ORD(101,567,10,14,0)="586^EN^11^" ^ORD(101,567,10,15,0)="587^DE^12^" ^ORD(101,567,10,18,0)="602^TS^21^" ^ORD(101,567,10,20,0)="608^CE^31^" ^ORD(101,567,10,21,0)="610^DL^23^" ^ORD(101,567,10,22,0)="612^JC^29^" ^ORD(101,567,10,"B",584,12)="" ^ORD(101,567,10,"B",585,13)="" ^ORD(101,567,10,"B",586,14)="" ^ORD(101,567,10,"B",587,15)="" ^ORD(101,567,10,"B",602,18)="" ^ORD(101,567,10,"B",608,20)="" ^ORD(101,567,10,"B",610,21)="" ^ORD(101,567,10,"B",612,22)="" ^ORD(101,567,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,567,26)="D SHOW^VALM" ^ORD(101,567,28)="Select Action:" ^ORD(101,567,99)="58930,56861" ^ORD(101,568,0)="DGJ IRT SUMMARIES^IRT Summary/Report Edit Menu^^M^1^^^^^^^185" ^ORD(101,568,1,0)="^^3^3^2921202^^^^" ^ORD(101,568,1,1,0)="This menu contains all the activities for updating an IRT record if it" ^ORD(101,568,1,2,0)="is an op report, interim or discharge summary. This menu is called by the" ^ORD(101,568,1,3,0)="protocol action of editing a deficiency." ^ORD(101,568,2,0)="^101.02A^2^2" ^ORD(101,568,2,1,0)="IRT Reports Edit Menu" ^ORD(101,568,2,2,0)="IRT Records Edit" ^ORD(101,568,2,"B","IRT Records Edit",2)="" ^ORD(101,568,2,"B","IRT Reports Edit Menu",1)="" ^ORD(101,568,4)="26^4^^RD" ^ORD(101,568,10,0)="^101.01PA^19^19" ^ORD(101,568,10,1,0)="583^1G^12^" ^ORD(101,568,10,16,0)="598^2G^12^" ^ORD(101,568,10,17,0)="599^3G^13^" ^ORD(101,568,10,18,0)="600^4G^14^" ^ORD(101,568,10,19,0)="601^EA^15^" ^ORD(101,568,10,"B",583,1)="" ^ORD(101,568,10,"B",598,16)="" ^ORD(101,568,10,"B",599,17)="" ^ORD(101,568,10,"B",600,18)="" ^ORD(101,568,10,"B",601,19)="" ^ORD(101,568,20)="" ^ORD(101,568,26)="D SHOW^VALM" ^ORD(101,568,28)="Select Action:" ^ORD(101,568,99)="58930,56861" ^ORD(101,569,0)="DGJ IRT PARM ENTER/EDIT MENU^Enter/Edit IRT Def. Parameters^^M^1^^^^^^^185" ^ORD(101,569,1,0)="^^3^3^2940119^^^^" ^ORD(101,569,1,1,0)="This menu contains all the actions for the IRT Record Summary Tracking" ^ORD(101,569,1,2,0)="option. This is the protocol menu that controls the actions for entering a" ^ORD(101,569,1,3,0)="new IRT record and editing an already existing IRT record." ^ORD(101,569,4)="26^4^^DP" ^ORD(101,569,10,0)="^101.01PA^22^16" ^ORD(101,569,10,14,0)="615^EN^11^" ^ORD(101,569,10,15,0)="614^DE^12^" ^ORD(101,569,10,22,0)="612^JC^21^" ^ORD(101,569,10,"B",612,22)="" ^ORD(101,569,10,"B",614,15)="" ^ORD(101,569,10,"B",615,14)="" ^ORD(101,569,15)="K DGJTHFLG" ^ORD(101,569,20)="S DGJTHFLG=""AD""" ^ORD(101,569,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,569,26)="D SHOW^VALM" ^ORD(101,569,28)="Select Action:" ^ORD(101,569,99)="58930,56861" ^ORD(101,570,0)="DGJ ENTER/EDIT DEFICIENCY MENU^Records Deficiencies Menu^^M^1^^^^^^^185" ^ORD(101,570,1,0)="^^1^1^2940119^^^^" ^ORD(101,570,1,1,0)="This menu contains all the activities for the IRT DEFICIENCY TRACKING option" ^ORD(101,570,4)="26^4^^RD" ^ORD(101,570,10,0)="^101.01PA^30^30" ^ORD(101,570,10,10,0)="581^DE^12^" ^ORD(101,570,10,11,0)="582^EN^11^" ^ORD(101,570,10,12,0)="584^EP^13^" ^ORD(101,570,10,13,0)="585^PT^22^" ^ORD(101,570,10,16,0)="602^TS^21^" ^ORD(101,570,10,27,0)="608^CE^31^" ^ORD(101,570,10,28,0)="610^DL^23^" ^ORD(101,570,10,29,0)="612^JC^29^" ^ORD(101,570,10,30,0)="613^QC^30^" ^ORD(101,570,10,"B",581,10)="" ^ORD(101,570,10,"B",582,11)="" ^ORD(101,570,10,"B",584,12)="" ^ORD(101,570,10,"B",585,13)="" ^ORD(101,570,10,"B",602,16)="" ^ORD(101,570,10,"B",608,27)="" ^ORD(101,570,10,"B",610,28)="" ^ORD(101,570,10,"B",612,29)="" ^ORD(101,570,10,"B",613,30)="" ^ORD(101,570,15)="K DGJTHFLG" ^ORD(101,570,20)="S DGJTHFLG=""EN""" ^ORD(101,570,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,570,26)="D SHOW^VALM" ^ORD(101,570,28)="Select Action:" ^ORD(101,570,99)="58930,56861" ^ORD(101,571,0)="DG MEANS TEST REQUIRED^Means Test Required Event^^A^1^^^^^^^" ^ORD(101,571,1,0)="^^3^3^2930625^^" ^ORD(101,571,1,1,0)="This event is evoked off the scheduling event driver. If a patient's" ^ORD(101,571,1,2,0)="means test has a required status and an appointment is made it will" ^ORD(101,571,1,3,0)="send a bulletin to the DG MEANS TEST REQUIRED group." ^ORD(101,571,15)="K DGREQF,DGMSGF,DGMTYPT" ^ORD(101,571,20)="D EN^DGMTREQB" ^ORD(101,571,99)="56777,67260" ^ORD(101,574,0)="DGOERR ADMIT^ADMIT PATIENT^^O^1^^^^^^^47" ^ORD(101,574,1,0)="^^1^1^2911101^^^^" ^ORD(101,574,1,1,0)="This is the admission option associated with order entry/results reporting." ^ORD(101,574,1,"B","This is the admission option a",1)="" ^ORD(101,574,5)="2053;DIC(19," ^ORD(101,574,20)="S DGPMT=1 D LO^DGUTL,OREN^DGPMV K VAINDT D INP^VADPT,READ^ORUTL" ^ORD(101,574,99)="56777,67268" ^ORD(101,575,0)="DGOERR BED SWITCH^SWITCH BED^^O^1^^^^^^^47" ^ORD(101,575,1,0)="^^2^2^2880719^" ^ORD(101,575,1,1,0)="This is the bed switch option associated with oreder entry/results" ^ORD(101,575,1,2,0)="reporting." ^ORD(101,575,1,"B","This is the bed switch option ",1)="" ^ORD(101,575,1,"B","reporting.",2)="" ^ORD(101,575,5)="2054;DIC(19," ^ORD(101,575,20)="D LO^DGUTL,OREN^DGSWITCH K VAINDT D INP^VADPT,READ^ORUTL" ^ORD(101,575,99)="56777,67268" ^ORD(101,576,0)="DGOERR DISCHARGE^DISCHARGE PATIENT^^O^1^^^^^^^47" ^ORD(101,576,1,0)="^^1^1^2910129^^" ^ORD(101,576,1,1,0)="This is the discharge option assocaited with order entry/result reporting." ^ORD(101,576,1,"B","This is the discharge option a",1)="" ^ORD(101,576,5)="2055;DIC(19," ^ORD(101,576,20)="S DGPMT=3 D LO^DGUTL,OREN^DGPMV K VAINDT D INP^VADPT,READ^ORUTL" ^ORD(101,576,99)="56777,67268" ^ORD(101,577,0)="DGOERR PATIENT INQUIRY^PATIENT INQUIRY^^O^1^^^^^^^47" ^ORD(101,577,1,0)="^^1^1^2880719^" ^ORD(101,577,1,1,0)="This is the inquiry option associated with order entry/results reporting." ^ORD(101,577,1,"B","This is the inquiry option ass",1)="" ^ORD(101,577,5)="2056;DIC(19," ^ORD(101,577,20)="D OREN^DGRPD" ^ORD(101,577,99)="56777,67268" ^ORD(101,578,0)="DGOERR SCHED ADMIT^SCHEDULE ADMISSION^^O^1^^^^^^^47" ^ORD(101,578,1,0)="^^2^2^2880719^" ^ORD(101,578,1,1,0)="This is the scheduled admission option associated with order entry/" ^ORD(101,578,1,2,0)="results reporting." ^ORD(101,578,1,"B","This is the scheduled admissio",1)="" ^ORD(101,578,1,"B","results reporting.",2)="" ^ORD(101,578,5)="2057;DIC(19," ^ORD(101,578,20)="D OREN^DGSCHAD,READ^ORUTL" ^ORD(101,578,99)="56777,67268" ^ORD(101,579,0)="DGOERR TRANSFER^TRANSFER PATIENT^^O^1^^^^^^^47" ^ORD(101,579,1,0)="^^1^1^2880719^" ^ORD(101,579,1,1,0)="This is the transfer option associated with order entry/result reporting." ^ORD(101,579,1,"B","This is the transfer option as",1)="" ^ORD(101,579,5)="2058;DIC(19," ^ORD(101,579,15)="K DGPMASIH" ^ORD(101,579,20)="S DGPMT=2 D LO^DGUTL,OREN^DGPMV K VAINDT D INP^VADPT,READ^ORUTL" ^ORD(101,579,99)="56777,67268" ^ORD(101,580,0)="DG OERR TREATING TRANSFER^TRANSFER SPECIALTY^^O^1^^^^^^^47" ^ORD(101,580,1,0)="^^2^2^2910129^^^^" ^ORD(101,580,1,1,0)="This is the treating specialty transfer option associated with order entry/" ^ORD(101,580,1,2,0)="results reporting." ^ORD(101,580,1,"B","This is the treating specialty",1)="" ^ORD(101,580,1,"B","results reporting.",2)="" ^ORD(101,580,5)="2059;DIC(19," ^ORD(101,580,20)="S DGPMT=6 D LO^DGUTL,OREN^DGPMV K VAINDT D INP^VADPT,READ^ORUTL" ^ORD(101,580,99)="56777,67261" ^ORD(101,581,0)="DGJ IRT EDIT DEFICIENCY^Edit Deficiencies^^A^1^^^^^^^185" ^ORD(101,581,1,0)="^^3^3^2921008^^" ^ORD(101,581,1,1,0)="This protocol is the action to edit a record deficiency. This action is" ^ORD(101,581,1,2,0)="associated with the protocol menu for entering and editing all deficiencies" ^ORD(101,581,1,3,0)="for a patients record." ^ORD(101,581,15)="" ^ORD(101,581,20)="D NEW^DGJTEE" ^ORD(101,581,99)="58930,56861" ^ORD(101,582,0)="DGJ IRT ENTER DEFICIENCY^Enter a Deficiency^^A^1^^^^^^^185" ^ORD(101,582,1,0)="^^2^2^2921008^^" ^ORD(101,582,1,1,0)="This protocol is the action to enter a record deficiency. It is an action" ^ORD(101,582,1,2,0)="under the Enter/Edit Deficiencies protocol menu." ^ORD(101,582,4)="^^^EN" ^ORD(101,582,20)="D NEW1^DGJTEE" ^ORD(101,582,99)="58930,56861" ^ORD(101,583,0)="DGJ EDIT SUMMARY/REPORT^IRT Group 1 Edit^^A^1^^^^^^^185" ^ORD(101,583,1,0)="^^5^5^2930527^^^^" ^ORD(101,583,1,1,0)="This protocol is the action to edit a specific IRT record. This is an action" ^ORD(101,583,1,2,0)="attached to the protocol menu that is called when a record deficiency is" ^ORD(101,583,1,3,0)="an op report, interim summary or discharge summary and the deficiency is " ^ORD(101,583,1,4,0)="being edited. This is the action that allows the IRT record to be updated" ^ORD(101,583,1,5,0)="as well as the deficiency." ^ORD(101,583,4)="^^^RC" ^ORD(101,583,10,0)="^101.01PA^1^1" ^ORD(101,583,10,1,0)="604^^24^" ^ORD(101,583,10,"B",604,1)="" ^ORD(101,583,20)="S (X,DGJTNUM)=1 D EDIT^DGJTVW1" ^ORD(101,583,99)="58930,56861" ^ORD(101,584,0)="DGJ IRT EXP^Expand Deficiency^^A^1^^^^^^^185" ^ORD(101,584,1,0)="^^4^4^2921008^^" ^ORD(101,584,1,1,0)="This protocol is the action to expand a selection. When a selection is" ^ORD(101,584,1,2,0)="chosen this action will display all the data in the file. If the selection" ^ORD(101,584,1,3,0)="is an OP report, interim summary, or discharge summary, the IRT record" ^ORD(101,584,1,4,0)="associated with that selection will be displayed also." ^ORD(101,584,2,0)="^101.02A^2^2" ^ORD(101,584,2,1,0)="EX" ^ORD(101,584,2,2,0)="EP" ^ORD(101,584,2,"B","EP",2)="" ^ORD(101,584,2,"B","EX",1)="" ^ORD(101,584,4)="^^^ED" ^ORD(101,584,20)="D EXP^DGJTEE1" ^ORD(101,584,99)="58930,56861" ^ORD(101,585,0)="DGJ CHNG PAT^Change Patient^^A^1^^^^^^^185" ^ORD(101,585,1,0)="^^1^1^2921008^^" ^ORD(101,585,1,1,0)="This protocol is the action to change a patient." ^ORD(101,585,4)="^^^CD" ^ORD(101,585,15)="" ^ORD(101,585,20)="D PAT1^DGJTEE1" ^ORD(101,585,26)="D HDR^DGJTEE" ^ORD(101,585,99)="58930,56861" ^ORD(101,586,0)="DGJ IRT ENTER RECORD^Enter IRT Record^^A^1^^^^^^^185" ^ORD(101,586,.1)="EN" ^ORD(101,586,1,0)="^^2^2^2921008^^" ^ORD(101,586,1,1,0)="This protocol is the action to enter a new IRT record. It is an action" ^ORD(101,586,1,2,0)="under the Enter/Edit a Record protocol menu." ^ORD(101,586,2,0)="^101.02A^1^1" ^ORD(101,586,2,1,0)="EN" ^ORD(101,586,2,"B","EN",1)="" ^ORD(101,586,4)="^^^EN" ^ORD(101,586,20)="D NEW1^DGJTEE" ^ORD(101,586,26)="D HDR^DGJTEE" ^ORD(101,586,99)="58930,56861" ^ORD(101,587,0)="DGJ IRT EDIT RECORD^Edit IRT Record^^A^1^^^^^^^185" ^ORD(101,587,1,0)="^^2^2^2921008^^" ^ORD(101,587,1,1,0)="This protocol is the action to edit an IRT record under the Enter/Edit an" ^ORD(101,587,1,2,0)="IRT Record protocol menu." ^ORD(101,587,2,0)="^101.02A^1^1" ^ORD(101,587,2,1,0)="DE" ^ORD(101,587,2,"B","DE",1)="" ^ORD(101,587,4)="^^^DE" ^ORD(101,587,20)="D NEW^DGJTEE" ^ORD(101,587,26)="D HDR^DGJTEE" ^ORD(101,587,99)="58930,56861" ^ORD(101,588,0)="DGPT A/P EDIT TMP^PTF ARCHIVE/PURGE^^M^1^^^^^^^47" ^ORD(101,588,1,0)="^^2^2^2930312^^^^" ^ORD(101,588,1,1,0)="This protocol is used to implement PTF Archive/Purge functions." ^ORD(101,588,1,2,0)="It is used in conjuction with the List Manager utility." ^ORD(101,588,2,0)="^101.02A^1^1" ^ORD(101,588,2,1,0)="AP" ^ORD(101,588,2,"B","AP",1)="" ^ORD(101,588,4)="26^4^^" ^ORD(101,588,10,0)="^101.01PA^3^3" ^ORD(101,588,10,1,0)="589^RP^10" ^ORD(101,588,10,2,0)="590^SP^11" ^ORD(101,588,10,3,0)="595^DI^12" ^ORD(101,588,10,"B",589,1)="" ^ORD(101,588,10,"B",590,2)="" ^ORD(101,588,10,"B",595,3)="" ^ORD(101,588,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,588,26)="D SHOW^VALM" ^ORD(101,588,28)="Select Action:" ^ORD(101,588,99)="56777,67270" ^ORD(101,589,0)="DGPT REMOVE A/P^Remove PTF Record(s)^^A^1^^^^^^^47" ^ORD(101,589,1,0)="^^3^3^2930503^^^^" ^ORD(101,589,1,1,0)="This function will remove the selcted PTF records from the entries" ^ORD(101,589,1,2,0)="selected for the Archive and Purge process. The entries removed will" ^ORD(101,589,1,3,0)="NOT be Archived or Purged." ^ORD(101,589,4)="^^^RP" ^ORD(101,589,20)="D DELEX^DGPTLMU1" ^ORD(101,589,24)="D CHECK^DGPTAPA I Y=""""" ^ORD(101,589,99)="56777,67270" ^ORD(101,590,0)="DGPT SELECT A/P^Select PTF Record(s)^^A^1^^^^^^^47" ^ORD(101,590,1,0)="^^3^3^2930503^^^" ^ORD(101,590,1,1,0)="This function will select a PTF record previously de-selected" ^ORD(101,590,1,2,0)="from the A/P process. Once the record(s) have been selected they" ^ORD(101,590,1,3,0)="will be Archived and Purged." ^ORD(101,590,4)="^^^SP" ^ORD(101,590,20)="D ADDEX^DGPTLMU1" ^ORD(101,590,24)="D CHECK^DGPTAPA I Y=""""" ^ORD(101,590,99)="56777,67270" ^ORD(101,590,101.0431,0)="^^1^1^2930312^" ^ORD(101,590,101.0431,1,0)=" " ^ORD(101,591,0)="DGPT A/P MAIN^Main A/P Menu Items^^M^1^^^^^^^47" ^ORD(101,591,1,0)="^^2^2^2930402^^^^" ^ORD(101,591,1,1,0)="This protocol is the default protocol for the List Manager" ^ORD(101,591,1,2,0)="utility." ^ORD(101,591,4)="26^4" ^ORD(101,591,10,0)="^101.01PA^5^5" ^ORD(101,591,10,1,0)="592^AT^10^^^" ^ORD(101,591,10,2,0)="593^DT^12" ^ORD(101,591,10,3,0)="594^ET^11" ^ORD(101,591,10,4,0)="596^RR^13" ^ORD(101,591,10,5,0)="597^PR^14" ^ORD(101,591,10,"B",592,1)="" ^ORD(101,591,10,"B",593,2)="" ^ORD(101,591,10,"B",594,3)="" ^ORD(101,591,10,"B",596,4)="" ^ORD(101,591,10,"B",597,5)="" ^ORD(101,591,24)="" ^ORD(101,591,26)="D SHOW^VALM" ^ORD(101,591,28)="Select Action:" ^ORD(101,591,99)="56777,67270" ^ORD(101,592,0)="DGPT ADD A/P TEMPLATE^Add Template^^A^1^^^^^^^47" ^ORD(101,592,.1)="" ^ORD(101,592,1,0)="^^1^1^2920922^^" ^ORD(101,592,1,1,0)="This protocol will be used to add a A/P template." ^ORD(101,592,4)="^^^AT" ^ORD(101,592,15)="D TMPEXIT^DGPTLMU2" ^ORD(101,592,20)="D TMPADD^DGPTLMU2" ^ORD(101,592,99)="56777,67270" ^ORD(101,593,0)="DGPT DEL A/P TEMPLATE^Delete Template^^A^1^^^^^^^47" ^ORD(101,593,1,0)="^^1^1^2920922^^" ^ORD(101,593,1,1,0)="This protocol is used to delete an entry from PTF A/P History File (#45.62)" ^ORD(101,593,4)="^^^DT" ^ORD(101,593,15)="D TMPEXIT^DGPTLMU2" ^ORD(101,593,20)="D TMPDEL^DGPTLMU2" ^ORD(101,593,99)="56777,67270" ^ORD(101,594,0)="DGPT EDIT A/P TEMPLATE^Edit Template^^A^1^^^^^^^" ^ORD(101,594,1,0)="^^1^1^2920922^" ^ORD(101,594,1,1,0)="This function will allow the user to edit a PTF A/P Template." ^ORD(101,594,4)="^^^ET" ^ORD(101,594,15)="D TMPEXIT^DGPTLMU2" ^ORD(101,594,20)="D TMPED^DGPTLMU2" ^ORD(101,594,99)="56777,67270" ^ORD(101,595,0)="DGPT DETAILED INQUIRY^PTF Detailed Inquiry^^A^1^^^^^^^47" ^ORD(101,595,1,0)="^^2^2^2920924^" ^ORD(101,595,1,1,0)="This protocol will be used to display a detailed inquiry of the" ^ORD(101,595,1,2,0)="PTF record selected." ^ORD(101,595,20)="D DIEN^DGPTLMU4" ^ORD(101,595,99)="56777,67270" ^ORD(101,596,0)="DGPT A/P ARCHIVE^Archive Records^^A^1^^^^^^^" ^ORD(101,596,1,0)="^^1^1^2921014^" ^ORD(101,596,1,1,0)="This protocol will be used to Archive PTF records." ^ORD(101,596,4)="^^^RR" ^ORD(101,596,15)="D ARCEX^DGPTAPA" ^ORD(101,596,20)="D ARC^DGPTAPA" ^ORD(101,596,99)="56777,67269" ^ORD(101,597,0)="DGPT A/P PURGE^Purge Records^^A^1^^^^^^^" ^ORD(101,597,1,0)="^^1^1^2921014^" ^ORD(101,597,1,1,0)="This protocol will be used to Purge PTF records." ^ORD(101,597,4)="^^^PR" ^ORD(101,597,15)="D PUREX^DGPTAPP" ^ORD(101,597,20)="D PUR^DGPTAPP" ^ORD(101,597,99)="56777,67270" ^ORD(101,598,0)="DGJ GROUP 2 EDIT^IRT Group 2 Edit^^A^1^^^^^^^185" ^ORD(101,598,1,0)="^^2^2^2930106^^^" ^ORD(101,598,1,1,0)="This protocol is an action that allows the editing of the data in group 2 of" ^ORD(101,598,1,2,0)="the Incomplete Records screen when editing an IRT report." ^ORD(101,598,4)="^^^G2" ^ORD(101,598,20)="S DGJTNUM=2 D EDIT^DGJTVW1" ^ORD(101,598,99)="58930,56861" ^ORD(101,599,0)="DGJ GROUP 3 EDIT^IRT Group 3 Edit^^A^1^^^^^^^185" ^ORD(101,599,1,0)="^^2^2^2930106^^^^" ^ORD(101,599,1,1,0)="This protocol is an action that allows the editing of the data in group 3 of" ^ORD(101,599,1,2,0)="the Incomplete Records screen when editing an IRT report." ^ORD(101,599,4)="^^^G3" ^ORD(101,599,20)="S (X,DGJTNUM)=3 D EDIT^DGJTVW1" ^ORD(101,599,99)="58930,56861" ^ORD(101,600,0)="DGJ GROUP 4 EDIT^IRT Group 4 Edit^^A^1^^^^^^^185" ^ORD(101,600,1,0)="^^2^2^2921201^^^^" ^ORD(101,600,1,1,0)="This protocol is an action that allows the editing of the data in group 4 of" ^ORD(101,600,1,2,0)="the Incomplete Records screen when editing an IRT report." ^ORD(101,600,4)="^^^G4" ^ORD(101,600,20)="S (X,DGJTNUM)=4 D EDIT^DGJTVW1" ^ORD(101,600,99)="58930,56861" ^ORD(101,601,0)="DGJ ALL GROUP EDIT^Edit All^^A^1^^^^^^^185" ^ORD(101,601,1,0)="^^2^2^2930113^^^^" ^ORD(101,601,1,1,0)="This protocol is an action that allows the editing of the data in all groups" ^ORD(101,601,1,2,0)="on the Incomplete Records screen when editing an IRT report." ^ORD(101,601,4)="^^^EA" ^ORD(101,601,20)="D ALLEDIT^DGJTVW1" ^ORD(101,601,21,0)="^101.021A" ^ORD(101,601,99)="58930,56861" ^ORD(101,602,0)="DGJ TS UPDATE^Treating Spec. Update^^A^1^^^^^^^185" ^ORD(101,602,1,0)="^^3^3^2930113^^^" ^ORD(101,602,1,1,0)="This protocol is the action to update the Treating Specialty and Primary and " ^ORD(101,602,1,2,0)="Attending physicians for the IRT package and ADT without exiting the IRT" ^ORD(101,602,1,3,0)="enter/edit option." ^ORD(101,602,4)="^^^TS" ^ORD(101,602,15)="K DGJTSEDT" ^ORD(101,602,20)="S DGJTSEDT=1 D TS^DGJTUTL" ^ORD(101,602,24)="I DGJTSR1=1" ^ORD(101,602,26)="D HDR^DGJTEE" ^ORD(101,602,99)="58930,56861" ^ORD(101,603,0)="DG CO-PAY TEST STATUS^Update Co-Pay Status^^A^1^^^^^^^" ^ORD(101,603,1,0)="^^2^2^2930121^" ^ORD(101,603,1,1,0)="This protocol is intended to update the co-pay status when changed" ^ORD(101,603,1,2,0)="in billing." ^ORD(101,603,4)="^^^MT" ^ORD(101,603,20)="D ^DGMTCOST" ^ORD(101,603,99)="56777,67259" ^ORD(101,604,0)="DGJ DELETE DEFICIENCY^Delete a Deficiency^^A^1^^^^^^^185" ^ORD(101,604,15)="K DGJTDELE" ^ORD(101,604,20)="S DGJTDELE=1 D OKD^DGJTDEL" ^ORD(101,604,99)="58930,56861" ^ORD(101,605,0)="DGJ DELETE MENU^Delete a Record Menu^^M^1^^^^^^^185" ^ORD(101,605,4)="26^4" ^ORD(101,605,10,0)="^101.01PA^3^3" ^ORD(101,605,10,2,0)="584^EP^14^" ^ORD(101,605,10,3,0)="611^DL^11^" ^ORD(101,605,10,"B",584,2)="" ^ORD(101,605,10,"B",611,3)="" ^ORD(101,605,15)="K DGJTHFLG" ^ORD(101,605,20)="S DGJTHFLG=""DL""" ^ORD(101,605,26)="D SHOW^VALM" ^ORD(101,605,28)="Select Action:" ^ORD(101,605,99)="58930,56861" ^ORD(101,606,0)="DGJ COMPLETE EDIT MENU^Edit a Completed IRT Menu^^M^1^^^^^^^185" ^ORD(101,606,4)="26^4^^Completed IRT Entry" ^ORD(101,606,10,0)="^101.01PA^3^3" ^ORD(101,606,10,2,0)="584^EP^14^" ^ORD(101,606,10,3,0)="609^CE^11^" ^ORD(101,606,10,"B",584,2)="" ^ORD(101,606,10,"B",609,3)="" ^ORD(101,606,15)="K DGJTCOM,DGJTHFLG" ^ORD(101,606,20)="S DGJTCOM=1,DGJTHFLG=""CE""" ^ORD(101,606,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,606,26)="D SHOW^VALM" ^ORD(101,606,28)="Select Action:" ^ORD(101,606,99)="58930,56861" ^ORD(101,607,0)="DGJ EDIT COMP IRT SINGLE^Edit a Completed IRT^^A^1^^^^^^^185" ^ORD(101,607,4)="^^^Edit a Complete IRt" ^ORD(101,607,15)="" ^ORD(101,607,20)="D NEW^DGJTEE" ^ORD(101,607,99)="58930,56861" ^ORD(101,608,0)="DGJ EDIT COMP IRT SUPER^Complete IRT Edit Menu^^A^1^^^^^^^185" ^ORD(101,608,4)="80^^^EC" ^ORD(101,608,15)="K DGJTCOM D REP^DGJTEE" ^ORD(101,608,20)="S DGJTCOM=1 D START4^DGJTEE" ^ORD(101,608,24)="" ^ORD(101,608,99)="58930,56861" ^ORD(101,609,0)="DGJ EDIT COMP SUPER2^Complete IRT Edit^^A^1^^^^^^^185" ^ORD(101,609,4)="^^^CE" ^ORD(101,609,15)="K DGJTCOM" ^ORD(101,609,20)="D NEW^DGJTEE" ^ORD(101,609,24)="I $D(^XUSEC(""DGJ SUPER"",DUZ))!$D(DGJTOPT)" ^ORD(101,609,99)="58930,56861" ^ORD(101,610,0)="DGJ DELETE SUPER^IRT Delete Menu^^A^1^^^^^^^185" ^ORD(101,610,4)="^^^LD" ^ORD(101,610,15)="K DGJTDLT D REP^DGJTEE" ^ORD(101,610,20)="S DGJTDLT=1 D START5^DGJTEE" ^ORD(101,610,24)="I $D(^XUSEC(""DGJ SUPER"",DUZ))" ^ORD(101,610,99)="58930,56861" ^ORD(101,611,0)="DGJ DELETE SUPER2^Delete an IRT^^A^1^^^^^^^185" ^ORD(101,611,4)="80^^^LD" ^ORD(101,611,20)="D OKD^DGJTDEL" ^ORD(101,611,99)="58930,56861" ^ORD(101,612,0)="DGJ JUMP CATEG^Jump to a Category^^A^1^^^^^^^185" ^ORD(101,612,4)="^^^JC" ^ORD(101,612,20)="D JUMP^DGJTEE3" ^ORD(101,612,99)="58930,56861" ^ORD(101,613,0)="DGJ IRT COMPLETE DEF^Quick Complete of Def.^^A^1^^^^^^^185" ^ORD(101,613,4)="^^^QC" ^ORD(101,613,20)="D QUICMP^DGJTEE2" ^ORD(101,613,99)="58930,56861" ^ORD(101,614,0)="DGJ IRT EDIT PARMS^Edit Def. Parms.^^A^1^^^^^^^185" ^ORD(101,614,4)="^^^DE" ^ORD(101,614,20)="D EDIT^DGJPAR1" ^ORD(101,614,99)="58930,56861" ^ORD(101,615,0)="DGJ IRT ADD DEF. PARMS^Add Def. Parms.^^A^1^^^^^^^185" ^ORD(101,615,4)="^^^EN" ^ORD(101,615,20)="D EN^DGJTADD" ^ORD(101,615,99)="58930,56861" ^ORD(101,616,0)="IBDF DELETE GROUP^Delete Group^^A^1^^^^^^^76" ^ORD(101,616,1,0)="^^3^3^2930510^" ^ORD(101,616,1,1,0)=" " ^ORD(101,616,1,2,0)="Allows the user to select a group. The selected group, along with all of" ^ORD(101,616,1,3,0)="its selections, is deleted." ^ORD(101,616,2,0)="^101.02A^1^1" ^ORD(101,616,2,1,0)="DG" ^ORD(101,616,2,"B","DG",1)="" ^ORD(101,616,20)="D DELGRP^IBDF3" ^ORD(101,616,99)="57099,59873" ^ORD(101,617,0)="SD APPT STATUS^Appointment Status Update in Event Driver^^X^1^^^^^^^48" ^ORD(101,617,1,0)="^^4^4^2910507^^^^" ^ORD(101,617,1,1,0)=" This option is called from the EVENT DRIVER when a patient is admitted" ^ORD(101,617,1,2,0)="or discharged or an admission or discharge is edited." ^ORD(101,617,1,3,0)=" The appointments for that patient are updated with inpatient or" ^ORD(101,617,1,4,0)="outpatient status based upon the admission and discharge dates." ^ORD(101,617,5)="2256;DIC(19," ^ORD(101,617,20)="Q:'$D(^DPT(DFN,""S"")) D ^SDSTAT" ^ORD(101,617,99)="56777,67845" ^ORD(101,618,0)="SDAM MENU^Appointment Management^^M^1^^^^^^^48" ^ORD(101,618,1,0)="^^2^2^2960513^^^^" ^ORD(101,618,1,1,0)="This menu contains all the activities for the appointment" ^ORD(101,618,1,2,0)="management option." ^ORD(101,618,4)="26^4" ^ORD(101,618,10,0)="^101.01PA^25^25" ^ORD(101,618,10,1,0)="621^CI^10" ^ORD(101,618,10,2,0)="623^AL^20" ^ORD(101,618,10,3,0)="629^PT^21" ^ORD(101,618,10,4,0)="630^CL^22^" ^ORD(101,618,10,5,0)="631^CD^23" ^ORD(101,618,10,6,0)="632^UN^11" ^ORD(101,618,10,7,0)="622^MA^12^" ^ORD(101,618,10,8,0)="676^NS^14" ^ORD(101,618,10,9,0)="652^CA^13" ^ORD(101,618,10,10,0)="683^CO^30" ^ORD(101,618,10,11,0)="688^AE^25" ^ORD(101,618,10,12,0)="705^RT^26" ^ORD(101,618,10,13,0)="694^PR^32" ^ORD(101,618,10,14,0)="695^DX^33" ^ORD(101,618,10,15,0)="696^PD^26" ^ORD(101,618,10,16,0)="697^EC^31" ^ORD(101,618,10,17,0)="698^DC^15" ^ORD(101,618,10,18,0)="700^DE^34" ^ORD(101,618,10,19,0)="453^EP^24" ^ORD(101,618,10,20,0)="1168^TI" ^ORD(101,618,10,21,0)="1450^CP^38" ^ORD(101,618,10,22,0)="2121^PC" ^ORD(101,618,10,23,0)="3372^DL^33" ^ORD(101,618,10,24,0)="3373^WD^34" ^ORD(101,618,10,25,0)="3371^WE^32" ^ORD(101,618,10,"B",453,19)="" ^ORD(101,618,10,"B",621,1)="" ^ORD(101,618,10,"B",622,7)="" ^ORD(101,618,10,"B",623,2)="" ^ORD(101,618,10,"B",629,3)="" ^ORD(101,618,10,"B",630,4)="" ^ORD(101,618,10,"B",631,5)="" ^ORD(101,618,10,"B",632,6)="" ^ORD(101,618,10,"B",652,9)="" ^ORD(101,618,10,"B",676,8)="" ^ORD(101,618,10,"B",683,10)="" ^ORD(101,618,10,"B",688,11)="" ^ORD(101,618,10,"B",694,13)="" ^ORD(101,618,10,"B",695,14)="" ^ORD(101,618,10,"B",696,15)="" ^ORD(101,618,10,"B",697,16)="" ^ORD(101,618,10,"B",698,17)="" ^ORD(101,618,10,"B",700,18)="" ^ORD(101,618,10,"B",705,12)="" ^ORD(101,618,10,"B",1168,20)="" ^ORD(101,618,10,"B",1450,21)="" ^ORD(101,618,10,"B",2121,22)="" ^ORD(101,618,10,"B",3371,25)="" ^ORD(101,618,10,"B",3372,23)="" ^ORD(101,618,10,"B",3373,24)="" ^ORD(101,618,15)="" ^ORD(101,618,20)="" ^ORD(101,618,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,618,26)="D SHOW^VALM" ^ORD(101,618,27)="" ^ORD(101,618,28)="Select Action: " ^ORD(101,618,29)="" ^ORD(101,618,99)="60626,51958" ^ORD(101,619,0)="SD OERR CANCEL APPT^CANCEL CLINIC APPT^^O^1^^^^^^^48" ^ORD(101,619,1,0)="^^1^1^2881230^^" ^ORD(101,619,1,1,0)="OERR option to cancel clinic appt." ^ORD(101,619,1,"B","OERR option to cancel clinic a",1)="" ^ORD(101,619,5)="2250;DIC(19," ^ORD(101,619,15)="D SDCNP^SDKILL" ^ORD(101,619,20)="D OERR^SDCNP" ^ORD(101,619,99)="56777,67846" ^ORD(101,620,0)="SD OERR MAKE APPT^SCHEDULE CLINIC APPT^^O^1^^^^^^^48" ^ORD(101,620,1,0)="^^1^1^2880726^" ^ORD(101,620,1,1,0)="OERR option to make a clinic appt." ^ORD(101,620,1,"B","OERR option to make a clinic a",1)="" ^ORD(101,620,5)="2251;DIC(19," ^ORD(101,620,15)="D SDM^SDKILL" ^ORD(101,620,20)="D OERR^SDM" ^ORD(101,620,99)="56777,67846" ^ORD(101,621,0)="SDAM APPT CHECK IN^Check In^^A^1^^^^^^^48" ^ORD(101,621,2,0)="^101.02A^1^1" ^ORD(101,621,2,1,0)="CI" ^ORD(101,621,2,"B","CI",1)="" ^ORD(101,621,20)="D CI^SDAM2" ^ORD(101,621,99)="56777,67847" ^ORD(101,622,0)="SDAM APPT MAKE^Make Appointment^^A^1^^^^^^^48" ^ORD(101,622,20)="D MAKE^SDAM2" ^ORD(101,622,24)="" ^ORD(101,622,99)="56777,67847" ^ORD(101,623,0)="SDAM LIST MENU^Appointment Lists^^M^1^^^^^^^48" ^ORD(101,623,4)="40" ^ORD(101,623,10,0)="^101.01PA^9^9" ^ORD(101,623,10,1,0)="624^CI" ^ORD(101,623,10,2,0)="625^NS^^" ^ORD(101,623,10,3,0)="626^TA" ^ORD(101,623,10,4,0)="628^NA^" ^ORD(101,623,10,5,0)="647^CA^^" ^ORD(101,623,10,6,0)="653^FU^^" ^ORD(101,623,10,7,0)="654^IP" ^ORD(101,623,10,8,0)="678^NC" ^ORD(101,623,10,9,0)="627^CO" ^ORD(101,623,10,"B",624,1)="" ^ORD(101,623,10,"B",625,2)="" ^ORD(101,623,10,"B",626,3)="" ^ORD(101,623,10,"B",627,9)="" ^ORD(101,623,10,"B",628,4)="" ^ORD(101,623,10,"B",647,5)="" ^ORD(101,623,10,"B",653,6)="" ^ORD(101,623,10,"B",654,7)="" ^ORD(101,623,10,"B",678,8)="" ^ORD(101,623,15)="S:'$D(VALMBCK) VALMBCK="""" D EXIT^SDAM" ^ORD(101,623,20)="S XQORM(0)=""1A""" ^ORD(101,623,26)="W """"" ^ORD(101,623,28)="Select List: " ^ORD(101,623,29)="No Action Taken" ^ORD(101,623,99)="56777,67849" ^ORD(101,624,0)="SDAM LIST CHECKED IN^Checked In^^A^1^^^^^^^48" ^ORD(101,624,1,0)="^^1^1^2911101^" ^ORD(101,624,1,1,0)=" " ^ORD(101,624,20)="S X=""CHECKED IN"" D LIST^SDAM" ^ORD(101,624,99)="56777,67848" ^ORD(101,625,0)="SDAM LIST NO SHOWS^No Shows^^A^1^^^^^^^48" ^ORD(101,625,20)="S X=""NO SHOWED"" D LIST^SDAM" ^ORD(101,625,99)="56777,67849" ^ORD(101,626,0)="SDAM LIST ALL^Total Appt Profile^^A^1^^^^^^^48" ^ORD(101,626,2,0)="^101.02A^^0" ^ORD(101,626,20)="S X=""ALL"" D LIST^SDAM" ^ORD(101,626,99)="56777,67848" ^ORD(101,627,0)="SDAM LIST CHECKED OUT^Checked Out^^A^1^^^^^^^48" ^ORD(101,627,1,0)="^^1^1^2911101^" ^ORD(101,627,1,1,0)=" " ^ORD(101,627,20)="S X=""CHECKED OUT"" D LIST^SDAM" ^ORD(101,627,99)="56777,67848" ^ORD(101,628,0)="SDAM LIST NO ACTION^No Action Taken^^A^1^^^^^^^48" ^ORD(101,628,20)="S X=""NO ACTION TAKEN"" D LIST^SDAM" ^ORD(101,628,99)="56777,67849" ^ORD(101,629,0)="SDAM PATIENT CHANGE^Change Patient^^A^1^^^^^^^48" ^ORD(101,629,15)="D EXIT^SDAM" ^ORD(101,629,20)="D PAT^SDAM10" ^ORD(101,629,99)="56777,67853" ^ORD(101,630,0)="SDAM CLINIC CHANGE^Change Clinic^^A^1^^^^^^^48" ^ORD(101,630,1,0)="^^2^2^2911024^" ^ORD(101,630,1,1,0)="This action will allow the user to select a different" ^ORD(101,630,1,2,0)="clinic." ^ORD(101,630,15)="D EXIT^SDAM" ^ORD(101,630,20)="D CLN^SDAM3" ^ORD(101,630,99)="56777,67847" ^ORD(101,631,0)="SDAM DATE CHANGE^Change Date Range^^A^1^^^^^^^48" ^ORD(101,631,15)="D EXIT^SDAM" ^ORD(101,631,20)="D DATE^SDAM2" ^ORD(101,631,30)="" ^ORD(101,631,99)="56777,67847" ^ORD(101,632,0)="SDAM APPT UNSCHEDULED^Unscheduled Visit^^A^1^^^^^^^48" ^ORD(101,632,1,0)="^101.06^2^2^3021023^^^^" ^ORD(101,632,1,1,0)="This action allows the user to enter an unscheduled(walk-in)" ^ORD(101,632,1,2,0)="visit for a patient." ^ORD(101,632,2,0)="^101.02A^1^1" ^ORD(101,632,2,1,0)="WI" ^ORD(101,632,2,"B","WI",1)="" ^ORD(101,632,15)="K SDWLLIST" ^ORD(101,632,20)="S SDWLLIST=1 D WI^SDAM2" ^ORD(101,632,99)="59124,70503" ^ORD(101,633,0)="SDUL NEXT SCREEN^Next Screen^^A^1^^^^^^^48" ^ORD(101,633,1,0)="^^2^2^2920519^^^" ^ORD(101,633,1,1,0)="This action will allow the user to view the next screen" ^ORD(101,633,1,2,0)="of entries, if any exist." ^ORD(101,633,2,0)="^101.02A^1^1" ^ORD(101,633,2,1,0)="NX" ^ORD(101,633,2,"B","NX",1)="" ^ORD(101,633,15)="" ^ORD(101,633,20)="D NEXT^SDUL4" ^ORD(101,633,99)="56777,67864" ^ORD(101,634,0)="SDUL PREVIOUS SCREEN^Previous Screen^^A^1^^^^^^^48" ^ORD(101,634,1,0)="^^2^2^2920113^^" ^ORD(101,634,1,1,0)="This action will allow the user to view the previous screen" ^ORD(101,634,1,2,0)="of entries, if any exist." ^ORD(101,634,2,0)="^101.02A^3^2" ^ORD(101,634,2,2,0)="BK" ^ORD(101,634,2,3,0)="PR" ^ORD(101,634,2,"B","BK",2)="" ^ORD(101,634,2,"B","PR",3)="" ^ORD(101,634,20)="D PREV^SDUL4" ^ORD(101,634,99)="56777,67864" ^ORD(101,635,0)="SDUL REFRESH^Refresh Screen^^A^1^^^^^^^48" ^ORD(101,635,1,0)="^^1^1^2911024^" ^ORD(101,635,1,1,0)="This actions allows the user to re-display the current screen." ^ORD(101,635,2,0)="^101.02A^1^1" ^ORD(101,635,2,1,0)="RE" ^ORD(101,635,2,"B","RE",1)="" ^ORD(101,635,10,0)="^101.01PA^0^0" ^ORD(101,635,20)="D RE^SDUL4" ^ORD(101,635,99)="56777,67864" ^ORD(101,636,0)="SDUL LAST SCREEN^Last Screen^^A^1^^^^^^^48" ^ORD(101,636,1,0)="^^1^1^2911026^" ^ORD(101,636,1,1,0)="The action will display the last items." ^ORD(101,636,20)="D LAST^SDUL4" ^ORD(101,636,99)="56777,67864" ^ORD(101,637,0)="SDUL FIRST SCREEN^First Screen^^A^1^^^^^^^48" ^ORD(101,637,1,0)="^^1^1^2911026^" ^ORD(101,637,1,1,0)="This action will display the first screen." ^ORD(101,637,15)="" ^ORD(101,637,20)="D FIRST^SDUL4" ^ORD(101,637,99)="56777,67864" ^ORD(101,638,0)="SDAM BLANK 1^ ^^A^1^^^^^^^48" ^ORD(101,638,1,0)="^^1^1^2920310^^^^" ^ORD(101,638,1,1,0)="Use This option as a place holder." ^ORD(101,638,10,0)="^101.01PA^0^0" ^ORD(101,638,20)="" ^ORD(101,638,99)="56777,67847" ^ORD(101,639,0)="SDUL UP ONE LINE^Up a Line^^A^1^^^^^^^48" ^ORD(101,639,1,0)="^^1^1^2911027^" ^ORD(101,639,1,1,0)="Move up a line" ^ORD(101,639,20)="D UP^SDUL4" ^ORD(101,639,99)="56777,67864" ^ORD(101,640,0)="SDUL DOWN A LINE^Down a Line^^A^1^^^^^^^48" ^ORD(101,640,1,0)="^^2^2^2911027^" ^ORD(101,640,1,1,0)="Move down a line." ^ORD(101,640,1,2,0)=" " ^ORD(101,640,20)="D DOWN^SDUL4" ^ORD(101,640,99)="56777,67864" ^ORD(101,641,0)="SDAM BLANK 2^ ^^A^1^^^^^^^48" ^ORD(101,641,1,0)="^^1^1^2911029^^" ^ORD(101,641,1,1,0)="Use This option as a place holder." ^ORD(101,641,99)="56777,67847" ^ORD(101,642,0)="SDAM BLANK 3^ ^^A^1^^^^^^^48" ^ORD(101,642,1,0)="^^1^1^2911029^^" ^ORD(101,642,1,1,0)="Use This option as a place holder." ^ORD(101,642,99)="56777,67847" ^ORD(101,643,0)="SDAM BLANK 4^ ^^A^1^^^^^^^48" ^ORD(101,643,1,0)="^^1^1^2911029^^" ^ORD(101,643,1,1,0)="Use This option as a place holder." ^ORD(101,643,99)="56777,67847" ^ORD(101,644,0)="SDAM BLANK 5^ ^^A^1^^^^^^^48" ^ORD(101,644,1,0)="^^1^1^2911029^^" ^ORD(101,644,1,1,0)="Use This option as a place holder." ^ORD(101,644,99)="56777,67847" ^ORD(101,645,0)="SDAM BLANK 6^ ^^A^1^^^^^^^48" ^ORD(101,645,1,0)="^^1^1^2911029^^" ^ORD(101,645,1,1,0)="Use This option as a place holder." ^ORD(101,645,99)="56777,67847" ^ORD(101,646,0)="SDAM BLANK 7^ ^^A^1^^^^^^^48" ^ORD(101,646,1,0)="^^1^1^2911029^^" ^ORD(101,646,1,1,0)="Use This option as a place holder." ^ORD(101,646,99)="56777,67847" ^ORD(101,647,0)="SDAM LIST CANCELLED^Cancelled^^A^1^^^^^^^48" ^ORD(101,647,1,0)="^^2^2^2920115^^" ^ORD(101,647,1,1,0)="This list will display all the cancelled appointments for the" ^ORD(101,647,1,2,0)="date range specified." ^ORD(101,647,20)="S X=""CANCELLED"" D LIST^SDAM" ^ORD(101,647,24)="" ^ORD(101,647,99)="56777,67848" ^ORD(101,648,0)="SDUL DISPLAY^Display List^^M^1^^^^^^^48" ^ORD(101,648,1,0)="^^2^2^2920919^^^^" ^ORD(101,648,1,1,0)="This protocaol is the default protocol for the List Manager" ^ORD(101,648,1,2,0)="utility." ^ORD(101,648,4)="26^4" ^ORD(101,648,10,0)="^101.01PA^12^12" ^ORD(101,648,10,1,0)="635^RE^22" ^ORD(101,648,10,2,0)="634^BU^11" ^ORD(101,648,10,3,0)="633^NX^10" ^ORD(101,648,10,4,0)="637^FS^20" ^ORD(101,648,10,5,0)="636^LS^21" ^ORD(101,648,10,6,0)="639^UP^12" ^ORD(101,648,10,7,0)="640^DN^13" ^ORD(101,648,10,8,0)="651^PL^31" ^ORD(101,648,10,9,0)="650^PS^30" ^ORD(101,648,10,10,0)="656^AD^32" ^ORD(101,648,10,11,0)="658^SE^23" ^ORD(101,648,10,12,0)="649^^33" ^ORD(101,648,10,"B",633,3)="" ^ORD(101,648,10,"B",634,2)="" ^ORD(101,648,10,"B",635,1)="" ^ORD(101,648,10,"B",636,5)="" ^ORD(101,648,10,"B",637,4)="" ^ORD(101,648,10,"B",639,6)="" ^ORD(101,648,10,"B",640,7)="" ^ORD(101,648,10,"B",649,12)="" ^ORD(101,648,10,"B",650,9)="" ^ORD(101,648,10,"B",651,8)="" ^ORD(101,648,10,"B",656,10)="" ^ORD(101,648,10,"B",658,11)="" ^ORD(101,648,20)="" ^ORD(101,648,26)="D SHOW^SDUL" ^ORD(101,648,28)="Select Action: " ^ORD(101,648,99)="56777,67864" ^ORD(101,649,0)="SDUL QUIT^Quit^^A^1^^^^^^^48" ^ORD(101,649,1,0)="^^1^1^2911105^" ^ORD(101,649,1,1,0)="This protocol can be used as a generic 'quit' action." ^ORD(101,649,2,0)="^101.02A^2^2" ^ORD(101,649,2,1,0)="EXIT" ^ORD(101,649,2,2,0)="QUIT" ^ORD(101,649,2,"B","EXIT",1)="" ^ORD(101,649,2,"B","QUIT",2)="" ^ORD(101,649,20)="Q" ^ORD(101,649,99)="56777,67864" ^ORD(101,650,0)="SDUL PRINT SCREEN^Print Screen^^A^1^^^^^^^48" ^ORD(101,650,1,0)="^^3^3^2920113^^" ^ORD(101,650,1,1,0)="This action allows the user to print the current List Manager" ^ORD(101,650,1,2,0)="display screen. The header and the current portion of the" ^ORD(101,650,1,3,0)="list are printed." ^ORD(101,650,20)="D PRT^SDUL1" ^ORD(101,650,99)="56777,67864" ^ORD(101,651,0)="SDUL PRINT LIST^Print List^^A^1^^^^^^^48" ^ORD(101,651,1,0)="^^2^2^2920113^" ^ORD(101,651,1,1,0)="This action allws the user to print the entire list of" ^ORD(101,651,1,2,0)="entries currently being displayed." ^ORD(101,651,20)="D PRTL^SDUL1" ^ORD(101,651,99)="56777,67864" ^ORD(101,652,0)="SDAM APPT CANCEL^Cancel Appointment^^A^1^^^^^^^48" ^ORD(101,652,1,0)="^^2^2^2920715^^" ^ORD(101,652,1,1,0)="This action allows the user to cancel appointments from the" ^ORD(101,652,1,2,0)="portion of the list currently displayed." ^ORD(101,652,20)="D EN^SDAMC" ^ORD(101,652,24)="" ^ORD(101,652,99)="56777,67847" ^ORD(101,653,0)="SDAM LIST FUTURE^Future Appointments^^A^1^^^^^^^48" ^ORD(101,653,1,0)="^^2^2^2920611^^^^" ^ORD(101,653,1,1,0)="This action allows the user to list future appointments for a" ^ORD(101,653,1,2,0)="patient." ^ORD(101,653,20)="D FUT^SDAM" ^ORD(101,653,24)="" ^ORD(101,653,99)="56777,67848" ^ORD(101,654,0)="SDAM LIST INPATIENT^Inpatient Appointments^^A^1^^^^^^^48" ^ORD(101,654,1,0)="^^1^1^2920123^" ^ORD(101,654,1,1,0)="This protocol will list only inpatient appointments." ^ORD(101,654,20)="S X=""INPATIENT"" D LIST^SDAM" ^ORD(101,654,99)="56777,67848" ^ORD(101,655,0)="SDUL EXPAND^Expand Entry^^A^1^^^^^^^48" ^ORD(101,655,15)="S:'SDULCC SDULBCK=""R""" ^ORD(101,655,20)="I $D(^TMP(""SDUL DATA"",$J,SDULEVL,""EXP"")),^(""EXP"")]"""" X ^(""EXP"")" ^ORD(101,655,99)="56777,67864" ^ORD(101,656,0)="SDUL TURN ON/OFF MENUS^Auto-Display(On/Off)^^A^1^^^^^^^48" ^ORD(101,656,20)="D MENU^SDUL2" ^ORD(101,656,99)="56777,67864" ^ORD(101,657,0)="SDUL BLANK 1^^^A^1^^^^^^^48" ^ORD(101,657,1,0)="^^1^1^2920203^" ^ORD(101,657,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,658,0)="SDUL SEARCH LIST^Search List^^A^1^^^^^^^48" ^ORD(101,658,1,0)="^^1^1^2920303^^" ^ORD(101,658,1,1,0)="Finds text in list of entries." ^ORD(101,658,20)="D FIND^SDUL40" ^ORD(101,658,99)="56777,67864" ^ORD(101,659,0)="SD PARM PARAMETERS MENU^Scheduling Parameters^^M^1^^^^^^^48" ^ORD(101,659,1,0)="^^1^1^2920616^^^^" ^ORD(101,659,1,1,0)="This menu contains all the activities for the scheduling parameter option." ^ORD(101,659,4)="26^4" ^ORD(101,659,10,0)="^101.01PA^4^4" ^ORD(101,659,10,1,0)="660^EP^11" ^ORD(101,659,10,2,0)="661^EV^12" ^ORD(101,659,10,3,0)="736^CL^9" ^ORD(101,659,10,4,0)="737^DV^10" ^ORD(101,659,10,"B",660,1)="" ^ORD(101,659,10,"B",661,2)="" ^ORD(101,659,10,"B",736,3)="" ^ORD(101,659,10,"B",737,4)="" ^ORD(101,659,26)="D SHOW^VALM" ^ORD(101,659,28)="Select Action: " ^ORD(101,659,99)="57099,59873" ^ORD(101,660,0)="SD PARM EDIT PARAMETERS^Edit Parameters^^A^1^^^^^^^" ^ORD(101,660,10,0)="^101.01PA^0^0" ^ORD(101,660,20)="D 1^SDPARM2" ^ORD(101,660,99)="56777,67846" ^ORD(101,661,0)="SD PARM EDIT DIVISION^Edit Div Params^^A^1^^^^^^^" ^ORD(101,661,20)="D 2^SDPARM2" ^ORD(101,661,99)="56777,67846" ^ORD(101,662,0)="SDPP PATIENT PROFILE DISPLAY ADD/EDITS^Add/Edits^^A^1^^^^^^^48" ^ORD(101,662,1,0)="^^5^5^2920512^^^^" ^ORD(101,662,1,1,0)="This action will allow the user to display all add/edits or add/edits for" ^ORD(101,662,1,2,0)="a date range." ^ORD(101,662,1,3,0)=" " ^ORD(101,662,1,4,0)="It will also allow the user to select a specific clinic stop code to " ^ORD(101,662,1,5,0)="display." ^ORD(101,662,2,0)="^101.02A^1^1" ^ORD(101,662,2,1,0)="AE" ^ORD(101,662,2,"B","AE",1)="" ^ORD(101,662,15)="K SDBEG,SDEND,SDLN,SDFLG,SDTYP,VALMHDREND" ^ORD(101,662,20)="N SDY S (SDTYP,SDFLG)=1,DIC=40.7 D ALL^SDPPSEL Q:SDERR D ASK^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,662,99)="56790,63563" ^ORD(101,663,0)="SDPP PATIENT PROFILE DISPLAY APPOINTMENTS^Appointments^^A^1^^^^^^^48" ^ORD(101,663,1,0)="^^4^4^2930303^^^^" ^ORD(101,663,1,1,0)="This action will allow the user to display all appointments or appointments" ^ORD(101,663,1,2,0)="for a date range." ^ORD(101,663,1,3,0)=" " ^ORD(101,663,1,4,0)="It will also allow the user to select a specific clinic to display." ^ORD(101,663,2,0)="^101.02A^1^1" ^ORD(101,663,2,1,0)="AP" ^ORD(101,663,2,"B","AP",1)="" ^ORD(101,663,15)="K SDBEG,SDEND,SDLN,SDFLG,SDTYP,VALMHDREND,^TMP(""SDAPT"",$J)" ^ORD(101,663,20)="N SDY S (SDTYP,SDFLG)=2,DIC=44 D ALL^SDPPSEL Q:SDERR D ASK^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,663,99)="56790,63563" ^ORD(101,664,0)="SDPP PATIENT PROFILE DISPLAY ENROLLMENTS^Enrollments^^A^1^^^^^^^48" ^ORD(101,664,1,0)="^^4^4^2930608^^^^" ^ORD(101,664,1,1,0)="This action will allow the user to display all enrollments or enrollments" ^ORD(101,664,1,2,0)="for a date range." ^ORD(101,664,1,3,0)=" " ^ORD(101,664,1,4,0)="It will also allow the user to select a specific clinic to display." ^ORD(101,664,2,0)="^101.02A^2^1" ^ORD(101,664,2,2,0)="DE" ^ORD(101,664,2,"B","DE",2)="" ^ORD(101,664,15)="K SDBEG,SDEND,SDFLG,SDLN,SDTYP,VALMHDREND,^TMP(""SDENR"",$J)" ^ORD(101,664,20)="N SDY,SDACT S (SDTYP,SDFLG)=4,DIC=44 D ALL^SDPPSEL Q:SDERR D ASK^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,664,99)="56790,63564" ^ORD(101,665,0)="SDPP PATIENT PROFILE DISPLAY DISPOSITIONS^Dispositions^^A^1^^^^^^^48" ^ORD(101,665,1,0)="^^2^2^2920512^^" ^ORD(101,665,1,1,0)="This action will allow the user to display all dispositions or" ^ORD(101,665,1,2,0)="dispositions for a date range." ^ORD(101,665,2,0)="^101.02A^2^1" ^ORD(101,665,2,2,0)="DD" ^ORD(101,665,2,"B","DD",2)="" ^ORD(101,665,15)="K SDBEG,SDEND,SDLN,SDTYP,SDFLG,VALMHDREND" ^ORD(101,665,20)="N SDY S (SDTYP,SDFLG)=3 D ALL^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,665,99)="56790,63564" ^ORD(101,666,0)="SDPP PATIENT PROFILE DISPLAY MEANS TEST^Means Test^^A^1^^^^^^^48" ^ORD(101,666,1,0)="^^2^2^2920518^^^^" ^ORD(101,666,1,1,0)="This actions allows the user to display all Means Test Information or" ^ORD(101,666,1,2,0)="specific Means Test Date." ^ORD(101,666,2,0)="^101.02A^1^1" ^ORD(101,666,2,1,0)="MT" ^ORD(101,666,2,"B","MT",1)="" ^ORD(101,666,15)="K SDBEG,SDEND,SDFLG,SDTYP,SDLN,VALMHDREND" ^ORD(101,666,20)="N SDY S (SDTYP,SDFLG)=5,DIC=408.31 D ALL^SDPPSEL Q:SDERR D ASK^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,666,99)="56790,63565" ^ORD(101,667,0)="SDPP PATIENT PROFILE DISPLAY ALL^All^^A^1^^^^^^^48" ^ORD(101,667,1,0)="^^3^3^2920512^^" ^ORD(101,667,1,1,0)="This action allows the user to display all information concerning Add/Edits," ^ORD(101,667,1,2,0)="Appointments, Enrollments, Dispositions, and Means Test Information, or" ^ORD(101,667,1,3,0)="will display the above for a date range." ^ORD(101,667,2,0)="^101.02A^1^1" ^ORD(101,667,2,1,0)="AL" ^ORD(101,667,2,"B","AL",1)="" ^ORD(101,667,15)="K SDBEG,SDEND,SDFLG,SDLN,SDTYP,SDALL,VALMHDREND" ^ORD(101,667,20)="K SDY S SDALL=1,(SDTYP,SDFLG)=6 D ALL^SDPPSEL Q:SDERR D ^SDPPALL" ^ORD(101,667,99)="56790,63563" ^ORD(101,668,0)="SDPP PATIENT PROFILE DISPLAY INFO MENU^Display Info^^M^1^^^^^^^48" ^ORD(101,668,1,0)="^^3^3^2920603^^^^" ^ORD(101,668,1,1,0)="This menu allows the user to display all time sensitive information." ^ORD(101,668,1,2,0)="It will include Add/Edits, Appointments, Enrollments, Dispositions, and" ^ORD(101,668,1,3,0)="Mean Test Information." ^ORD(101,668,2,0)="^101.02A^1^1" ^ORD(101,668,2,1,0)="DI" ^ORD(101,668,2,"B","DI",1)="" ^ORD(101,668,4)="40^3" ^ORD(101,668,10,0)="^101.01PA^7^7" ^ORD(101,668,10,1,0)="662^AE^11" ^ORD(101,668,10,2,0)="663^AP^12" ^ORD(101,668,10,3,0)="664^DE^13" ^ORD(101,668,10,4,0)="665^DD^14" ^ORD(101,668,10,5,0)="666^MT^15" ^ORD(101,668,10,6,0)="667^AL^21" ^ORD(101,668,10,7,0)="1162^TI" ^ORD(101,668,10,"B",662,1)="" ^ORD(101,668,10,"B",663,2)="" ^ORD(101,668,10,"B",664,3)="" ^ORD(101,668,10,"B",665,4)="" ^ORD(101,668,10,"B",666,5)="" ^ORD(101,668,10,"B",667,6)="" ^ORD(101,668,10,"B",1162,7)="" ^ORD(101,668,15)="S VALMBCK=""R""" ^ORD(101,668,20)="" ^ORD(101,668,26)="W """"" ^ORD(101,668,27)="S VAR=""HLPTXT1"" D HLP^SDPPHLP" ^ORD(101,668,28)="Select Action: " ^ORD(101,668,99)="56809,52846" ^ORD(101,669,0)="SDPP PATIENT PROFILE MENU^Patient Profile^^M^1^^^^^^^48" ^ORD(101,669,1,0)="^^1^1^2931015^^^^" ^ORD(101,669,1,1,0)="This is the main menu for the Patient Profile." ^ORD(101,669,4)="26^3" ^ORD(101,669,10,0)="^101.01PA^5^5" ^ORD(101,669,10,1,0)="668^DI^10" ^ORD(101,669,10,2,0)="679^CP^21" ^ORD(101,669,10,3,0)="699^CD^31" ^ORD(101,669,10,4,0)="722^PP^11" ^ORD(101,669,10,5,0)="1162^TI" ^ORD(101,669,10,"B",668,1)="" ^ORD(101,669,10,"B",679,2)="" ^ORD(101,669,10,"B",699,3)="" ^ORD(101,669,10,"B",722,4)="" ^ORD(101,669,10,"B",1162,5)="" ^ORD(101,669,26)="D SHOW^VALM" ^ORD(101,669,28)="Select Action: " ^ORD(101,669,99)="56809,52846" ^ORD(101,670,0)="SDUL BLANK 2^^^A^1^^^^^^^48" ^ORD(101,670,1,0)="^^1^1^2920203^" ^ORD(101,670,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,671,0)="SDUL BLANK 3^^^A^1^^^^^^^48" ^ORD(101,671,1,0)="^^1^1^2920203^" ^ORD(101,671,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,672,0)="SDUL BLANK 4^^^A^1^^^^^^^48" ^ORD(101,672,1,0)="^^1^1^2920203^" ^ORD(101,672,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,673,0)="SDUL BLANK 5^^^A^1^^^^^^^48" ^ORD(101,673,1,0)="^^1^1^2920203^" ^ORD(101,673,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,674,0)="SDUL BLANK 6^^^A^1^^^^^^^48" ^ORD(101,674,1,0)="^^1^1^2920930^^" ^ORD(101,674,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,676,0)="SDAM APPT NO-SHOW^No-Show^^A^1^^^^^^^48" ^ORD(101,676,20)="D EN^SDAMN" ^ORD(101,676,99)="56777,67847" ^ORD(101,677,0)="SDUL DISPLAY W/EXPAND^Display List^^M^1^^^^^^^48" ^ORD(101,677,1,0)="^^2^2^2920303^^^^" ^ORD(101,677,1,1,0)="This protocaol is the default protocol for the List Manager" ^ORD(101,677,1,2,0)="utility." ^ORD(101,677,4)="26^4" ^ORD(101,677,10,0)="^101.01PA^15^15" ^ORD(101,677,10,1,0)="635^RE^22" ^ORD(101,677,10,2,0)="634^BU^11" ^ORD(101,677,10,3,0)="633^NX^10" ^ORD(101,677,10,4,0)="637^FS^20" ^ORD(101,677,10,5,0)="636^LS^21" ^ORD(101,677,10,6,0)="639^UP^12" ^ORD(101,677,10,7,0)="640^DN^13" ^ORD(101,677,10,8,0)="651^PL^31" ^ORD(101,677,10,9,0)="650^PS^30" ^ORD(101,677,10,10,0)="656^AD^32" ^ORD(101,677,10,11,0)="658^SE^23" ^ORD(101,677,10,12,0)="649^^33" ^ORD(101,677,10,13,0)="655^EP^14" ^ORD(101,677,10,14,0)="657^^24" ^ORD(101,677,10,15,0)="670^^34" ^ORD(101,677,10,"B",633,3)="" ^ORD(101,677,10,"B",634,2)="" ^ORD(101,677,10,"B",635,1)="" ^ORD(101,677,10,"B",636,5)="" ^ORD(101,677,10,"B",637,4)="" ^ORD(101,677,10,"B",639,6)="" ^ORD(101,677,10,"B",640,7)="" ^ORD(101,677,10,"B",649,12)="" ^ORD(101,677,10,"B",650,9)="" ^ORD(101,677,10,"B",651,8)="" ^ORD(101,677,10,"B",655,13)="" ^ORD(101,677,10,"B",656,10)="" ^ORD(101,677,10,"B",657,14)="" ^ORD(101,677,10,"B",658,11)="" ^ORD(101,677,10,"B",670,15)="" ^ORD(101,677,26)="D SHOW^SDUL" ^ORD(101,677,28)="Select Action: " ^ORD(101,677,99)="56777,67864" ^ORD(101,678,0)="SDAM LIST NON-COUNT^Non-Count Appointments^^A^1^^^^^^^48" ^ORD(101,678,1,0)="^^1^1^2920123^" ^ORD(101,678,1,1,0)="This protocol will list only inpatient appointments." ^ORD(101,678,20)="S X=""NON-COUNT"" D LIST^SDAM" ^ORD(101,678,99)="56777,67849" ^ORD(101,679,0)="SDPP PATIENT PROFILE CHANGE PATIENT^Change Patient^^A^1^^^^^^^48" ^ORD(101,679,1,0)="^^1^1^2921116^^" ^ORD(101,679,1,1,0)="This allows a user to change the patient within the Patient Profile." ^ORD(101,679,2,0)="^101.02A^1^1" ^ORD(101,679,2,1,0)="CP" ^ORD(101,679,2,"B","CP",1)="" ^ORD(101,679,20)="D CHPT^SDPP" ^ORD(101,679,99)="56790,63563" ^ORD(101,680,0)="SDUL BLANK 7^^^A^1^^^^^^^48" ^ORD(101,681,0)="SDCO CLINIC APPT^Appointment^^A^1^^^^^^^48" ^ORD(101,681,1,0)="^^2^2^2930512^" ^ORD(101,681,1,1,0)="This action permits the user to make an appointment for the patient" ^ORD(101,681,1,2,0)="from the check out menu." ^ORD(101,681,2,0)="^101.02A^^0" ^ORD(101,681,15)="K SDCOMKF,SDCOQUIT" ^ORD(101,681,20)="I $G(SDOE) D MC^SDCO5(SDOE,0,.SDCOMKF,.SDCOQUIT)" ^ORD(101,681,99)="56777,67854" ^ORD(101,682,0)="SDCO CLASSIFICATION^Edit Classification^^A^1^^^^^^^48" ^ORD(101,682,1,0)="^^2^2^2930512^" ^ORD(101,682,1,1,0)="This action permits the user to edit the classifications associated" ^ORD(101,682,1,2,0)="with appointments, add/edits and dispositions." ^ORD(101,682,2,0)="^101.02A^^0" ^ORD(101,682,20)="D EN^SDCO2" ^ORD(101,682,99)="56777,67854" ^ORD(101,683,0)="SDCO APPT CHECK OUT^Check Out^^A^1^^^^^^^48" ^ORD(101,683,1,0)="^^1^1^2930512^" ^ORD(101,683,1,1,0)="This action permits the user to check out an appointment." ^ORD(101,683,2,0)="^101.02A^1^1" ^ORD(101,683,2,1,0)="CO" ^ORD(101,683,2,"B","CO",1)="" ^ORD(101,683,15)="" ^ORD(101,683,20)="D EN^SDCO1" ^ORD(101,683,99)="56777,67854" ^ORD(101,684,0)="SDCO PROVIDER^Provider Update^^A^1^^^^^^^48" ^ORD(101,684,1,0)="^^2^2^2930512^" ^ORD(101,684,1,1,0)="This action permits the user to update the providers associated" ^ORD(101,684,1,2,0)="with appointments, add/edits and dispositions." ^ORD(101,684,20)="D EN^SDCO3" ^ORD(101,684,99)="56777,67856" ^ORD(101,685,0)="SDCO DIAGNOSIS^Diagnosis Update^^A^1^^^^^^^48" ^ORD(101,685,1,0)="^^2^2^2930512^" ^ORD(101,685,1,1,0)="This action permits the user to update the diagnosis associated" ^ORD(101,685,1,2,0)="with appointments, add/edits and dispositions." ^ORD(101,685,20)="D EN^SDCO4" ^ORD(101,685,99)="56777,67854" ^ORD(101,686,0)="SDCO MENU^Check Out Menu^^M^1^^^^^^^48" ^ORD(101,686,1,0)="^^1^1^2930512^" ^ORD(101,686,1,1,0)="This menu contains all the activities for the check out action." ^ORD(101,686,4)="26^4" ^ORD(101,686,10,0)="^101.01PA^12^12" ^ORD(101,686,10,1,0)="684^PR^21" ^ORD(101,686,10,2,0)="682^EC^20" ^ORD(101,686,10,3,0)="681^AP^11" ^ORD(101,686,10,4,0)="685^DX^22" ^ORD(101,686,10,5,0)="687^DC^12" ^ORD(101,686,10,6,0)="691^AE^13" ^ORD(101,686,10,7,0)="689^PD^30" ^ORD(101,686,10,8,0)="690^IN^23" ^ORD(101,686,10,9,0)="705^RT^31" ^ORD(101,686,10,10,0)="693^CD^10" ^ORD(101,686,10,11,0)="1451^CP^44" ^ORD(101,686,10,12,0)="2140^GF^54" ^ORD(101,686,10,"B",681,3)="" ^ORD(101,686,10,"B",682,2)="" ^ORD(101,686,10,"B",684,1)="" ^ORD(101,686,10,"B",685,4)="" ^ORD(101,686,10,"B",687,5)="" ^ORD(101,686,10,"B",689,7)="" ^ORD(101,686,10,"B",690,8)="" ^ORD(101,686,10,"B",691,6)="" ^ORD(101,686,10,"B",693,10)="" ^ORD(101,686,10,"B",705,9)="" ^ORD(101,686,10,"B",1451,11)="" ^ORD(101,686,10,"B",2140,12)="" ^ORD(101,686,15)="" ^ORD(101,686,20)="S:'$G(SDCOXQB) XQORM(""B"")=""Interview""" ^ORD(101,686,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,686,26)="D SHOW^VALM" ^ORD(101,686,28)="Select Action: " ^ORD(101,686,99)="57651,44818" ^ORD(101,687,0)="SDCO DISCHARGE CLINIC^Discharge Clinic^^A^1^^^^^^^48" ^ORD(101,687,1,0)="^^1^1^2930512^^" ^ORD(101,687,1,1,0)="This action permits the user to discharge a patient from a clinic." ^ORD(101,687,20)="D DC^SDCO7" ^ORD(101,687,99)="56777,67854" ^ORD(101,688,0)="SDAM ADD EDIT^Add/Edit^^A^1^^^^^^^48" ^ORD(101,688,1,0)="^^2^2^2970919^^^^" ^ORD(101,688,1,1,0)="This action permits the user to add or edit a standalone encounter from" ^ORD(101,688,1,2,0)="the appointment management menu." ^ORD(101,688,20)="D EN^SDAMBAE6" ^ORD(101,688,24)="I $P($G(^SCE(+$G(SDCOOE),1)),U)'=2" ^ORD(101,688,99)="57549,66517" ^ORD(101,689,0)="SDCO PATIENT DEMOGRAPHICS^Patient Demographics^^A^1^^^^^^^48" ^ORD(101,689,1,0)="^^1^1^2930512^" ^ORD(101,689,1,1,0)="This action permits the user to update patient demographics." ^ORD(101,689,20)="D PD^SDCO7" ^ORD(101,689,99)="56777,67856" ^ORD(101,690,0)="SDCO INTERVIEW^Interview^^A^1^^^^^^^48" ^ORD(101,690,1,0)="^^2^2^2930512^" ^ORD(101,690,1,1,0)="This action permits the user to answer all questions related to" ^ORD(101,690,1,2,0)="a check out interview." ^ORD(101,690,20)="D EN^SDCO6" ^ORD(101,690,99)="56777,67854" ^ORD(101,691,0)="SDCO ADD EDIT NEW^Add/Edit^^A^1^^^^^^^48" ^ORD(101,691,1,0)="^^2^2^2970919^^^^" ^ORD(101,691,1,1,0)="This action permits the user to add or edit a standalone encounter from" ^ORD(101,691,1,2,0)="the check out menu." ^ORD(101,691,20)="D EN1^SDAMBAE6" ^ORD(101,691,24)="IF $G(SDBEG),$G(SDEND),$G(SDAMTYP)]"""",$P($G(^SCE(+$G(SDOE),0)),U,8)'=2" ^ORD(101,691,99)="57549,66517" ^ORD(101,692,0)="SDAM RT MAS-RE-CHARGE^Recharge a Chart^^A^1^^^^^^^48" ^ORD(101,692,1,0)="^^1^1^2930718^^" ^ORD(101,692,1,1,0)="MAS application specific action for charging a chart to another borowwer." ^ORD(101,692,20)="D RT^SDAMU(""RT MAS-RE-CHARGE"")" ^ORD(101,692,99)="56777,67853" ^ORD(101,693,0)="SDCO CHECK OUT DATE^Check Out Date^^A^1^^^^^^^48" ^ORD(101,693,1,0)="^^2^2^2930512^^" ^ORD(101,693,1,1,0)="This action permits the user to change the check out date/time" ^ORD(101,693,1,2,0)="associated with an appointment." ^ORD(101,693,4)="^^^" ^ORD(101,693,20)="D CD^SDCO7" ^ORD(101,693,24)="I $P($G(^SCE(+$G(SDOE),0)),U,8)=1" ^ORD(101,693,99)="56777,67854" ^ORD(101,694,0)="SDAM PROVIDER^Provider Update^^A^1^^^^^^^48" ^ORD(101,694,1,0)="^^2^2^2930512^^" ^ORD(101,694,1,1,0)="This action permits the user to update the providers associated" ^ORD(101,694,1,2,0)="with appointments that have a check out date/time." ^ORD(101,694,20)="D CO^SDCOAM(""PR"",""provider"")" ^ORD(101,694,99)="56777,67853" ^ORD(101,695,0)="SDAM DIAGNOSIS^Diagnosis Update^^A^1^^^^^^^48" ^ORD(101,695,1,0)="^^2^2^2930512^^" ^ORD(101,695,1,1,0)="This action permits the user to update the diagnoses associated" ^ORD(101,695,1,2,0)="with appointments that have a check out date/time." ^ORD(101,695,20)="D CO^SDCOAM(""DX"",""diagnosis"")" ^ORD(101,695,99)="56777,67847" ^ORD(101,696,0)="SDAM PATIENT DEMOGRAPHICS^Patient Demographics^^A^1^^^^^^^48" ^ORD(101,696,1,0)="^^1^1^2930512^" ^ORD(101,696,1,1,0)="This action permits the user to update patient demographics." ^ORD(101,696,4)="^^^" ^ORD(101,696,20)="D PD^SDCOAM" ^ORD(101,696,99)="56777,67853" ^ORD(101,697,0)="SDAM CLASSIFICATION^Edit Classification^^A^1^^^^^^^48" ^ORD(101,697,1,0)="^^2^2^2930512^" ^ORD(101,697,1,1,0)="This action permits the user to edit the classifications associated" ^ORD(101,697,1,2,0)="with appointments that have a check out date/time." ^ORD(101,697,20)="D CO^SDCOAM(""CL"",""classifications"")" ^ORD(101,697,99)="56777,67847" ^ORD(101,698,0)="SDAM DISCHARGE CLINIC^Discharge Clinic^^A^1^^^^^^^48" ^ORD(101,698,1,0)="^^1^1^2930512^" ^ORD(101,698,1,1,0)="This action permits the user to discharge a patient from a clinic." ^ORD(101,698,20)="D DC^SDCOAM" ^ORD(101,698,99)="56777,67847" ^ORD(101,699,0)="SDPP PATIENT PROFILE CHANGE DATE^Change Date Range^^A^1^^^^^^^48" ^ORD(101,699,1,0)="^^1^1^2930706^^^^" ^ORD(101,699,1,1,0)="This allows a user to change the date range within the Patient Profile." ^ORD(101,699,2,0)="^101.02A^1^1" ^ORD(101,699,2,1,0)="CD" ^ORD(101,699,2,"B","CD",1)="" ^ORD(101,699,15)="" ^ORD(101,699,20)="D DATE^SDPPSEL,CHDT^SDPP" ^ORD(101,699,99)="56790,63563" ^ORD(101,700,0)="SDAM DELETE CHECK OUT^Delete Check Out^^A^1^^^^^^^48" ^ORD(101,700,1,0)="^101.06^1^1^3050509^^" ^ORD(101,700,1,1,0)="This action permits the user to delete a check out." ^ORD(101,700,15)="K SDPFSFLG" ^ORD(101,700,20)="S SDPFSFLG=1 D DEL^SDCOAM" ^ORD(101,700,24)="" ^ORD(101,700,99)="60365,67727" ^ORD(101,702,0)="SDAM RT MAS-FILL-NEXT^Fill Next Clinic Request^^A^1^^^^^^^48" ^ORD(101,702,1,0)="^^2^2^2930718^" ^ORD(101,702,1,1,0)="Allows clinics to re-charge charts to next clinic." ^ORD(101,702,1,2,0)="" ^ORD(101,702,20)="D RT^SDAMU(""RT MAS-FILL-NEXT"")" ^ORD(101,702,99)="56777,67853" ^ORD(101,703,0)="SDAM RT MAS-CHART-REQUEST^Chart Request^^A^1^^^^^^^48" ^ORD(101,703,1,0)="^^1^1^2930718^" ^ORD(101,703,1,1,0)="MAS application specific Record request." ^ORD(101,703,20)="D RT^SDAMU(""RT MAS-CHART-REQUEST"")" ^ORD(101,703,99)="56777,67853" ^ORD(101,704,0)="SDAM RT MAS-CHART-PROFILE^Profile of Charts^^A^1^^^^^^^48" ^ORD(101,704,1,0)="^^1^1^2930718^" ^ORD(101,704,1,1,0)="MAS application specific inquiry for viewing records." ^ORD(101,704,20)="D RT^SDAMU(""RT MAS-CHART-PROFILE"")" ^ORD(101,704,99)="56777,67853" ^ORD(101,705,0)="SDAM RT MENU^Record Tracking^^M^1^^^^^^^48" ^ORD(101,705,1,0)="^^3^3^2930720^" ^ORD(101,705,1,1,0)="This menu protocol contains the record tracking actions available on the " ^ORD(101,705,1,2,0)="Appointment Management and Check-Out screens." ^ORD(101,705,1,3,0)="" ^ORD(101,705,4)="" ^ORD(101,705,10,0)="^101.01PA^4^4" ^ORD(101,705,10,1,0)="702^" ^ORD(101,705,10,2,0)="704^" ^ORD(101,705,10,3,0)="692^" ^ORD(101,705,10,4,0)="703^" ^ORD(101,705,10,"B",692,3)="" ^ORD(101,705,10,"B",702,1)="" ^ORD(101,705,10,"B",703,4)="" ^ORD(101,705,10,"B",704,2)="" ^ORD(101,705,15)="S VALMBCK=""R"" D HOME^%ZIS" ^ORD(101,705,20)="S XQORM(0)=""1A"" D FULL^VALM1" ^ORD(101,705,26)="S X=""?"" D DISP^XQORM1 W !" ^ORD(101,705,28)="Select Record Tracking Option: " ^ORD(101,705,29)="Recharge a Chart" ^ORD(101,705,99)="56777,67854" ^ORD(101,706,0)="IBDF SAVE/DISCARD BLOCK CHANGES^Save/Discard Changes^^A^1^^^^^^^76" ^ORD(101,706,1,0)="^^1^1^2930728^^" ^ORD(101,706,1,1,0)="Allows the user to save the changes to the block he is currently editing." ^ORD(101,706,2,0)="^101.02A^1^1" ^ORD(101,706,2,1,0)="SD" ^ORD(101,706,2,"B","SD",1)="" ^ORD(101,706,20)="D DECIDE^IBDF5B" ^ORD(101,706,99)="57099,59873" ^ORD(101,707,0)="ORRP VERBAL^Verbal/Phoned Orders^^A^1^^^^^^^" ^ORD(101,707,1,0)="^^1^1^2960402^^^^" ^ORD(101,707,1,1,0)="Display all verbal and telephoned orders." ^ORD(101,707,20)="S ORPRES=""13;VERBAL/PHONED ORDERS""" ^ORD(101,707,99)="57814,55356" ^ORD(101,708,0)="ORRP VERBAL UNSIGNED^Unsigned Verbal/Phoned Orders^^A^1^^^^^^^" ^ORD(101,708,1,0)="^^1^1^2960402^^^^" ^ORD(101,708,1,1,0)="Display all unsigned verbal and telephoned orders." ^ORD(101,708,20)="S ORPRES=""14;UNSIGNED VERBAL ORDERS""" ^ORD(101,708,99)="57814,55356" ^ORD(101,709,0)="DGJ IRT VIEW MENU^View an IRT Record Menu^^M^1^^^^^^^185" ^ORD(101,709,4)="26^4" ^ORD(101,709,10,0)="^101.01PA^3^3" ^ORD(101,709,10,1,0)="585^PT^21^" ^ORD(101,709,10,2,0)="584^EP^11^" ^ORD(101,709,10,3,0)="612^JC^31^" ^ORD(101,709,10,"B",584,2)="" ^ORD(101,709,10,"B",585,1)="" ^ORD(101,709,10,"B",612,3)="" ^ORD(101,709,15)="K DGJTHFLG" ^ORD(101,709,20)="S DGJTHFLG=""VW""" ^ORD(101,709,26)="D SHOW^VALM" ^ORD(101,709,28)="Select Action:" ^ORD(101,709,99)="58930,56861" ^ORD(101,710,0)="DGMT MEANS TEST DEPENDENT ADD^Add to Means/Copay Test^^A^1^^^^^^^47" ^ORD(101,710,1,0)="^^1^1^2950315^^^" ^ORD(101,710,1,1,0)="This protocol is for adding dependents to means test." ^ORD(101,710,2,0)="^101.02A^1^1" ^ORD(101,710,2,1,0)="AD" ^ORD(101,710,2,"B","AD",1)="" ^ORD(101,710,20)="D EN1^DGDEP2" ^ORD(101,710,99)="56790,39385" ^ORD(101,711,0)="DGMT MEANS TEST DEPENDENT MENU^Means/Copay Test Dependents^^M^1^^^^^^^47" ^ORD(101,711,1,0)="^^1^1^2950130^^^^" ^ORD(101,711,1,1,0)="This is used for the Means Test Dependents utility." ^ORD(101,711,4)="40^3" ^ORD(101,711,10,0)="^101.01PA^10^10" ^ORD(101,711,10,1,0)="710^AD^22" ^ORD(101,711,10,2,0)="713^DA^11" ^ORD(101,711,10,3,0)="712^MT^21" ^ORD(101,711,10,4,0)="714^CD^24" ^ORD(101,711,10,5,0)="721^DP^14" ^ORD(101,711,10,6,0)="715^DD^13" ^ORD(101,711,10,7,0)="716^ED^25" ^ORD(101,711,10,8,0)="719^RE^23" ^ORD(101,711,10,9,0)="720^ES^12" ^ORD(101,711,10,10,0)="455^^15" ^ORD(101,711,10,"B",455,10)="" ^ORD(101,711,10,"B",710,1)="" ^ORD(101,711,10,"B",712,3)="" ^ORD(101,711,10,"B",713,2)="" ^ORD(101,711,10,"B",714,4)="" ^ORD(101,711,10,"B",715,6)="" ^ORD(101,711,10,"B",716,7)="" ^ORD(101,711,10,"B",719,8)="" ^ORD(101,711,10,"B",720,9)="" ^ORD(101,711,10,"B",721,5)="" ^ORD(101,711,26)="D SHOW^VALM" ^ORD(101,711,28)="Select Action: " ^ORD(101,711,99)="56790,39390" ^ORD(101,711,101.0431,0)="^^1^1^2941215^" ^ORD(101,711,101.0431,1,0)=" " ^ORD(101,712,0)="DGMT MEANS TEST DEPENDENT CHILD^Marital/Dependent Info^^A^1^^^^^^^47" ^ORD(101,712,1,0)="^^3^3^2941108^^" ^ORD(101,712,1,1,0)=" " ^ORD(101,712,1,2,0)="This protocol is used to edit the dependent demographic" ^ORD(101,712,1,3,0)=" " ^ORD(101,712,15)="S VALMBCK=""R""" ^ORD(101,712,20)="D EN3^DGDEP2" ^ORD(101,712,99)="56790,39387" ^ORD(101,713,0)="DGMT MEANS TEST DEPENDENT ADDDEP^Spouse/Dependent Add^^A^1^^^^^^^47" ^ORD(101,713,1,0)="^^1^1^2941114^" ^ORD(101,713,1,1,0)="This will allow the user to add a new dependent." ^ORD(101,713,20)="D ADDEP^DGDEP4" ^ORD(101,713,99)="56790,39387" ^ORD(101,714,0)="DGMT MEANS TEST DEPENDENT COPY^Copy Data^^A^1^^^^^^^47" ^ORD(101,714,1,0)="^^1^1^2941123^^" ^ORD(101,714,1,1,0)="This will allow the user to copy income/dependents data." ^ORD(101,714,20)="D COPY^DGDEP4" ^ORD(101,714,99)="56790,39387" ^ORD(101,715,0)="DGMT MEANS TEST DEPENDENT DEMO^Dependent Demographic^^A^1^^^^^^^47" ^ORD(101,715,1,0)="^^1^1^2941122^" ^ORD(101,715,1,1,0)="This allows the user the edit the dependent demographics." ^ORD(101,715,20)="D EDITDEP^DGDEP4" ^ORD(101,715,99)="56790,39388" ^ORD(101,716,0)="DGMT MEANS TEST DEPENDENT EDIT^Expand Dependent^^A^1^^^^^^^47" ^ORD(101,716,1,0)="^^1^1^2941122^^^^" ^ORD(101,716,1,1,0)="This allows the user to choose a specific dependent to edit" ^ORD(101,716,10,0)="^101.01PA^0^0" ^ORD(101,716,15)="K ^TMP(""DGMTEP"",$J)" ^ORD(101,716,20)="D SEL^DGDEPU,RETDEP^DGDEP0,^DGDEPE" ^ORD(101,716,99)="56790,39388" ^ORD(101,717,0)="DGMT MEANS TEST DEPENDENT EFFECTIVE^Edit Effective Date^^A^1^^^^^^^47" ^ORD(101,717,1,0)="^^1^1^2941104^^^" ^ORD(101,717,1,1,0)="This will allow the user to edit an effective date of a dependent" ^ORD(101,717,20)="D EN^DGDEP1" ^ORD(101,717,99)="56790,39389" ^ORD(101,718,0)="DGMT MEANS TEST DEPENDENT UTIL^Dependent Utilities^^M^1^^^^^^^47" ^ORD(101,718,1,0)="^^1^1^2950127^^^^" ^ORD(101,718,1,1,0)="This is the utilities connected with mean test." ^ORD(101,718,10,0)="^101.01PA^1^1" ^ORD(101,718,10,1,0)="717^EE^11" ^ORD(101,718,10,"B",717,1)="" ^ORD(101,718,26)="D SHOW^VALM" ^ORD(101,718,28)="Select Action: " ^ORD(101,718,99)="56790,39390" ^ORD(101,719,0)="DGMT MEANS TEST DEPENDENT REMOVE^Remove from Means/Copay Test^^A^1^^^^^^^47" ^ORD(101,719,1,0)="^^1^1^2941108^" ^ORD(101,719,1,1,0)="This will allow the user to remove a dependent from the means test" ^ORD(101,719,20)="D EN2^DGDEP2" ^ORD(101,719,99)="56790,39389" ^ORD(101,720,0)="DGMT MEANS TEST DEPENDENT SPOUSE DEMO^Spouse Demographic^^A^1^^^^^^^47" ^ORD(101,720,1,0)="^^1^1^2941130^^" ^ORD(101,720,1,1,0)="This protocol will allow the user to edit spouse's demographics" ^ORD(101,720,15)="S VALMBCK=""R""" ^ORD(101,720,20)="D EN^DGDEP4" ^ORD(101,720,99)="56790,39389" ^ORD(101,721,0)="DGMT MEANS TEST DEPENDENT DELETE^Delete Dependent^^A^1^^^^^^^47" ^ORD(101,721,1,0)="^^1^1^2950210^^" ^ORD(101,721,1,1,0)="This allows a user to delete a dependent." ^ORD(101,721,20)="D EN^DGDEP5" ^ORD(101,721,99)="56790,39388" ^ORD(101,722,0)="SDPP PATIENT PROFILE PRINT ALL^Print Profile^^A^1^^^^^^^48" ^ORD(101,722,1,0)="^^1^1^2931018^" ^ORD(101,722,1,1,0)="This prints the patient profile." ^ORD(101,722,2,0)="^101.02A^1^1" ^ORD(101,722,2,1,0)="PP" ^ORD(101,722,2,"B","PP",1)="" ^ORD(101,722,4)="^^^PP" ^ORD(101,722,20)="D ^SDPPRT" ^ORD(101,722,99)="56790,63566" ^ORD(101,723,0)="IB MEANS TEST BILLING^MEANS TEST BILLING^^X^1^^^^^^^49" ^ORD(101,723,1,0)="^^1^1^2940311^^" ^ORD(101,723,1,1,0)="Means Test billing for ADT activity will be initiated through this option." ^ORD(101,723,5)="" ^ORD(101,723,20)="D ^IBAMTD" ^ORD(101,723,99)="58708,38845" ^ORD(101,724,0)="IB MEANS TEST EVENT^IB Edit a means test event^^A^1^^^^^^^" ^ORD(101,724,1,0)="^^2^2^2920403^" ^ORD(101,724,1,1,0)="This protocol will send a bulletin to billing when ever" ^ORD(101,724,1,2,0)="a change to a past means test may affect billing." ^ORD(101,724,20)="D ^IBAMTED" ^ORD(101,724,99)="56791,43727" ^ORD(101,725,0)="IBACM ADD CHARGE^Add a Charge^^X^1^^^^^^^49" ^ORD(101,725,1,0)="^^1^1^2920427^^^^" ^ORD(101,725,1,1,0)="This extended protocol performs all actions for adding a charge." ^ORD(101,725,2,0)="^101.02A^1^1" ^ORD(101,725,2,1,0)="AC" ^ORD(101,725,2,"B","AC",1)="" ^ORD(101,725,4)="^" ^ORD(101,725,10,0)="^101.01PA^1^1" ^ORD(101,725,10,1,0)="727^^1" ^ORD(101,725,10,"B",727,1)="" ^ORD(101,725,15)="" ^ORD(101,725,20)="" ^ORD(101,725,99)="56791,43728" ^ORD(101,726,0)="IBACM1 MENU^Add/Edit/Cancel Charges^^M^1^^^^^^^49" ^ORD(101,726,4)="26^4" ^ORD(101,726,10,0)="^101.01PA^7^7" ^ORD(101,726,10,1,0)="725^AC^1" ^ORD(101,726,10,2,0)="728^CC^3" ^ORD(101,726,10,3,0)="735^PC^12" ^ORD(101,726,10,4,0)="731^CP^10" ^ORD(101,726,10,5,0)="732^EC^2" ^ORD(101,726,10,6,0)="734^CD^11" ^ORD(101,726,10,7,0)="739^UE^20" ^ORD(101,726,10,"B",725,1)="" ^ORD(101,726,10,"B",728,2)="" ^ORD(101,726,10,"B",731,4)="" ^ORD(101,726,10,"B",732,5)="" ^ORD(101,726,10,"B",734,6)="" ^ORD(101,726,10,"B",735,3)="" ^ORD(101,726,10,"B",739,7)="" ^ORD(101,726,20)="Q" ^ORD(101,726,26)="D SHOW^VALM" ^ORD(101,726,28)="Select Action: " ^ORD(101,726,99)="56791,43729" ^ORD(101,727,0)="IBACM ADD CHARGE ONE^Add a Charge^^A^1^^^^^^^49" ^ORD(101,727,1,0)="^^1^1^2920427^^^^" ^ORD(101,727,1,1,0)="This protocol adds a charge to the ib action file." ^ORD(101,727,20)="D ADD^IBECEA1" ^ORD(101,727,99)="56791,43728" ^ORD(101,728,0)="IBACM CANCEL CHARGE^Cancel a Charge^^X^1^^^^^^^49" ^ORD(101,728,1,0)="^^1^1^2920203^^^^" ^ORD(101,728,1,1,0)="Cancel an existing charge." ^ORD(101,728,2,0)="^101.02A^1^1" ^ORD(101,728,2,1,0)="CC" ^ORD(101,728,2,"B","CC",1)="" ^ORD(101,728,10,0)="^101.01PA^1^1" ^ORD(101,728,10,1,0)="729^^1" ^ORD(101,728,10,"B",729,1)="" ^ORD(101,728,15)="K IBNOD" ^ORD(101,728,20)="S IBNOD(0)=XQORNOD(0)" ^ORD(101,728,99)="56791,43728" ^ORD(101,729,0)="IBACM CANCEL CHARGE ONE^Cancel a Charge^^A^1^^^^^^^49" ^ORD(101,729,1,0)="^^1^1^2920203^^^^" ^ORD(101,729,1,1,0)="Cancel a charge ." ^ORD(101,729,20)="D CAN^IBECEA1" ^ORD(101,729,99)="56791,43728" ^ORD(101,730,0)="IBACM OP LINK^Integrated Billing link to Scheduling^^A^1^^^^^^^49" ^ORD(101,730,1,0)="^^1^1^2940210^^^^" ^ORD(101,730,1,1,0)="Automate OP billing via link to Scheduling" ^ORD(101,730,20)="D ^IBAMTS" ^ORD(101,730,99)="56791,43728" ^ORD(101,731,0)="IBACM PATIENT CHANGE^Change Patient^^A^1^^^^^^^49" ^ORD(101,731,1,0)="^^1^1^2920203^^^^" ^ORD(101,731,1,1,0)="Change patient to search for Billable Events." ^ORD(101,731,15)="D EXIT^IBECEA" ^ORD(101,731,20)="D PAT^IBECEA" ^ORD(101,731,99)="56791,43728" ^ORD(101,732,0)="IBACM UPDATE CHARGE^Edit a Charge^^X^1^^^^^^^49" ^ORD(101,732,1,0)="^^2^2^2920203^^^^" ^ORD(101,732,1,1,0)="This extended protocol performs all actions for updating a charge." ^ORD(101,732,1,2,0)="(Cancel previous charge, add new charge.)" ^ORD(101,732,2,0)="^101.02A^1^1" ^ORD(101,732,2,1,0)="EC" ^ORD(101,732,2,"B","EC",1)="" ^ORD(101,732,10,0)="^101.01PA^1^1" ^ORD(101,732,10,1,0)="733^^1" ^ORD(101,732,10,"B",733,1)="" ^ORD(101,732,15)="K IBNOD" ^ORD(101,732,20)="S IBNOD(0)=XQORNOD(0)" ^ORD(101,732,99)="56791,43729" ^ORD(101,733,0)="IBACM UPDATE CHARGE ONE^Update a charge.^^A^1^^^^^^^49" ^ORD(101,733,1,0)="^^1^1^2920203^^^^" ^ORD(101,733,1,1,0)="Update a charge (cancel previous charge, create a new one)." ^ORD(101,733,15)="" ^ORD(101,733,20)="D UPD^IBECEA1" ^ORD(101,733,99)="56791,43729" ^ORD(101,734,0)="IBACM1 DATE CHANGE^Change Date Range^^A^1^^^^^^^49" ^ORD(101,734,1,0)="^^1^1^2930305^^^^" ^ORD(101,734,1,1,0)="Change range of dates to search for Billable Events." ^ORD(101,734,15)="D EXIT^IBECEA" ^ORD(101,734,20)="D DATE^IBECEA" ^ORD(101,734,99)="56791,43729" ^ORD(101,735,0)="IBACM PASS CHARGE^Pass a Charge^^A^1^^^^^^^49" ^ORD(101,735,.1)="Pass" ^ORD(101,735,1,0)="^^2^2^2920428^" ^ORD(101,735,1,1,0)="This protocol passes a Category C charge to Accounts Recievable, resulting" ^ORD(101,735,1,2,0)="in a change in its STATUS." ^ORD(101,735,2,0)="^101.02A^1^1" ^ORD(101,735,2,1,0)="PC" ^ORD(101,735,2,"B","PC",1)="" ^ORD(101,735,4)="^^^Pass a Charge" ^ORD(101,735,20)="D PASS^IBECEA1" ^ORD(101,735,99)="56791,43728" ^ORD(101,736,0)="IBDF PRINT MANAGER CLINIC SETUP^Clinic Print Manager^^A^1^^^^^^^76" ^ORD(101,736,1,0)="^^2^2^2930831^^" ^ORD(101,736,1,1,0)="Allows the user to edit the setup used by the Print Manager in determining " ^ORD(101,736,1,2,0)="what forms to print for an appointment at the clinic level." ^ORD(101,736,2,0)="^101.02A^1^1" ^ORD(101,736,2,1,0)="CL" ^ORD(101,736,2,"B","CL",1)="" ^ORD(101,736,20)="D CLNCSUP2^IBDF11" ^ORD(101,736,99)="57099,59873" ^ORD(101,737,0)="IBDF PRINT MANAGER DIVISION SETUP^Div Print Manager^^A^1^^^^^^^76" ^ORD(101,737,1,0)="^^2^2^2930831^" ^ORD(101,737,1,1,0)="Allows the user to edit the setup used by the Print Manager in determining" ^ORD(101,737,1,2,0)="what forms to print for an appointment at the division level." ^ORD(101,737,2,0)="^101.02A^1^1" ^ORD(101,737,2,1,0)="DV" ^ORD(101,737,2,"B","DV",1)="" ^ORD(101,737,20)="D DIVSUP2^IBDF11" ^ORD(101,737,99)="57099,59873" ^ORD(101,738,0)="IB EXEMPTION EVENTS^IB Exemption Event Driver^^X^1^^^^^^^49" ^ORD(101,738,1,0)="^^3^3^2930121^" ^ORD(101,738,1,1,0)="This is the Integrated Billing Exemption Event driver. It is invoked" ^ORD(101,738,1,2,0)="every time an Pharmacy Co-pay Exemption is added. See routine" ^ORD(101,738,1,3,0)="IBARXEVT for details." ^ORD(101,738,4)="^^^RX" ^ORD(101,738,10,0)="^101.01PA^0^0" ^ORD(101,738,99)="56791,43727" ^ORD(101,739,0)="IBACM UPDATE EVENT^Update Events^^A^1^^^^^^^49" ^ORD(101,739,1,0)="^^5^5^2940211^^" ^ORD(101,739,1,1,0)="This menu protocol provides the user the tools needed to adjust the" ^ORD(101,739,1,2,0)="Means Test billing event record which is established for inpatient" ^ORD(101,739,1,3,0)="billing episodes. Normally, the event record does not need to be" ^ORD(101,739,1,4,0)="managed, but if the system crashes or a logical error occurs, it" ^ORD(101,739,1,5,0)="may be necessary to adjust this record." ^ORD(101,739,4)="^^^Update Events" ^ORD(101,739,20)="D EN^IBECEA5" ^ORD(101,739,99)="56791,43729" ^ORD(101,740,0)="IBACME EVENT MENU^Event Menu^^M^1^^^^^^^49" ^ORD(101,740,4)="26^4^^Event Menu" ^ORD(101,740,10,0)="^101.01PA^2^2" ^ORD(101,740,10,1,0)="741^CS^10" ^ORD(101,740,10,2,0)="742^LC^11" ^ORD(101,740,10,"B",741,1)="" ^ORD(101,740,10,"B",742,2)="" ^ORD(101,740,26)="D SHOW^VALM" ^ORD(101,740,28)="Select Event: " ^ORD(101,740,99)="56791,43729" ^ORD(101,741,0)="IBACME CHANGE STATUS^Change Status^^A^1^^^^^^^49" ^ORD(101,741,1,0)="^^5^5^2930826^" ^ORD(101,741,1,1,0)="This protocol may be used to open or close a Means Test Billing event" ^ORD(101,741,1,2,0)="record. If the record is opened, and the patient still admitted," ^ORD(101,741,1,3,0)="Means Test billing will resume. If the patient has been discharged" ^ORD(101,741,1,4,0)="and the event record was left open, this action may be used to close" ^ORD(101,741,1,5,0)="the event record." ^ORD(101,741,4)="^^^Change Status" ^ORD(101,741,20)="D CS^IBECEA51" ^ORD(101,741,99)="56791,43729" ^ORD(101,742,0)="IBACME LAST CALC^Last Calc Date^^A^1^^^^^^^49" ^ORD(101,742,1,0)="^^5^5^2930826^" ^ORD(101,742,1,1,0)="This action is used to adjust the last day that a patient was billing" ^ORD(101,742,1,2,0)="for the Means Test hospital or nursing home per diem charge. If an" ^ORD(101,742,1,3,0)="event record is open and the patient still admitted, the nightly" ^ORD(101,742,1,4,0)="compilation will start billing the patient on the day following the" ^ORD(101,742,1,5,0)="'Last Calculated' date." ^ORD(101,742,4)="^^^Last Calc Date" ^ORD(101,742,20)="D LC^IBECEA51" ^ORD(101,742,99)="56791,43729" ^ORD(101,743,0)="IBDF EDIT SELECTION LIST MENU^EDIT LIST^^M^1^^^^^^^76" ^ORD(101,743,1,0)="^^2^2^2950414^^^" ^ORD(101,743,1,1,0)="Displays all the selection groups defined for the list and provides" ^ORD(101,743,1,2,0)="a menu of actions for editing the contents of the list." ^ORD(101,743,4)="26^4" ^ORD(101,743,10,0)="^101.01PA^8^7" ^ORD(101,743,10,1,0)="744^AG^1^^^Add Group" ^ORD(101,743,10,2,0)="616^DG^2^^^Delete Group" ^ORD(101,743,10,3,0)="745^GH^4^^^Group Header/Order" ^ORD(101,743,10,4,0)="748^GC^3^^^Group's Contents" ^ORD(101,743,10,6,0)="993^AB^5^^^Add Blank" ^ORD(101,743,10,7,0)="994^FA^6^^^Format All" ^ORD(101,743,10,8,0)="1196^RS^7^^^Resequence List" ^ORD(101,743,10,"B",616,2)="" ^ORD(101,743,10,"B",744,1)="" ^ORD(101,743,10,"B",745,3)="" ^ORD(101,743,10,"B",748,4)="" ^ORD(101,743,10,"B",993,6)="" ^ORD(101,743,10,"B",994,7)="" ^ORD(101,743,10,"B",1196,8)="" ^ORD(101,743,26)="D SHOW^VALM" ^ORD(101,743,28)="Select Action: " ^ORD(101,743,99)="57099,59875" ^ORD(101,744,0)="IBDF ADD GROUP^Add Group^^A^1^^^^^^^76" ^ORD(101,744,1,0)="^^1^1^2950203^^^^" ^ORD(101,744,1,1,0)="Adds a new group to the selection list." ^ORD(101,744,2,0)="^101.02A^1^1" ^ORD(101,744,2,1,0)="AG" ^ORD(101,744,2,"B","AG",1)="" ^ORD(101,744,20)="D ADDGRP^IBDF3" ^ORD(101,744,99)="57099,59873" ^ORD(101,745,0)="IBDF EDIT GROUP HDR/ORDER^Group Header/Order^^A^1^^^^^^^76" ^ORD(101,745,1,0)="^^3^3^2930510^" ^ORD(101,745,1,1,0)=" " ^ORD(101,745,1,2,0)="Allows a group to be selected. Then the header and print order can be" ^ORD(101,745,1,3,0)="edited." ^ORD(101,745,2,0)="^101.02A^2^2" ^ORD(101,745,2,1,0)="EG" ^ORD(101,745,2,2,0)="EH" ^ORD(101,745,2,"B","EG",1)="" ^ORD(101,745,2,"B","EH",2)="" ^ORD(101,745,20)="D EDITGRP^IBDF3" ^ORD(101,745,99)="57099,59873" ^ORD(101,746,0)="IBDF EDIT GROUP'S SELECTIONS MENU^Edit Contents^^M^1^^^^^^^76" ^ORD(101,746,1,0)="^^1^1^2930212^^^^" ^ORD(101,746,1,1,0)="Used to edit a group's selections." ^ORD(101,746,2,0)="^101.02A^1^1" ^ORD(101,746,2,1,0)="EC" ^ORD(101,746,2,"B","EC",1)="" ^ORD(101,746,2,"B","ES",1)="" ^ORD(101,746,4)="26^4" ^ORD(101,746,10,0)="^101.01PA^6^5" ^ORD(101,746,10,1,0)="747^AD^1^^^Add Selection" ^ORD(101,746,10,2,0)="756^ED^2^^^Edit" ^ORD(101,746,10,3,0)="757^DS^3^^^Delete" ^ORD(101,746,10,3,1)="Delete" ^ORD(101,746,10,5,0)="992^PH^4^^^New Place Holder" ^ORD(101,746,10,6,0)="995^FA^5^^^Format All" ^ORD(101,746,10,"B",747,1)="" ^ORD(101,746,10,"B",756,2)="" ^ORD(101,746,10,"B",757,3)="" ^ORD(101,746,10,"B",992,5)="" ^ORD(101,746,10,"B",995,6)="" ^ORD(101,746,15)="" ^ORD(101,746,20)="" ^ORD(101,746,26)="D SHOW^VALM" ^ORD(101,746,99)="57099,59875" ^ORD(101,747,0)="IBDF ADD SELECTION^Add To List^^A^1^^^^^^^76" ^ORD(101,747,1,0)="^^1^1^2930607^^" ^ORD(101,747,1,1,0)="Adds a new selection to the selection list." ^ORD(101,747,2,0)="^101.02A^1^1" ^ORD(101,747,2,1,0)="AL" ^ORD(101,747,2,"B","AL",1)="" ^ORD(101,747,2,"B","AS",1)="" ^ORD(101,747,15)="" ^ORD(101,747,20)="D ADDSLCTN^IBDF4" ^ORD(101,747,99)="57099,59873" ^ORD(101,748,0)="IBDF DISPLAY GRP'S SLCTNS FOR EDIT^Group's Contents^^A^1^^^^^^^76" ^ORD(101,748,1,0)="^^1^1^2930510^" ^ORD(101,748,1,1,0)="Displays the group's selections and a menu of edit actions." ^ORD(101,748,2,0)="^101.02A^1^1" ^ORD(101,748,2,1,0)="ES" ^ORD(101,748,2,"B","ES",1)="" ^ORD(101,748,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,748,20)="D EDTSLCTN^IBDF3" ^ORD(101,748,99)="57099,59873" ^ORD(101,749,0)="IBDF CLINIC'S FORMS MENU^Clinic's Setup^^M^1^^^^^^^76" ^ORD(101,749,1,0)="^^3^3^2970303^^^^" ^ORD(101,749,1,1,0)="Displays all of the forms used by a particular clinic. Allows the user" ^ORD(101,749,1,2,0)="to change the clinic setup, create new blank forms, copy forms, delete" ^ORD(101,749,1,3,0)="to change the clinic setup, create new blank forms, copy forms, delete" ^ORD(101,749,2,0)="^101.02A^^0" ^ORD(101,749,4)="26^4" ^ORD(101,749,10,0)="^101.01PA^12^10" ^ORD(101,749,10,1,0)="750^EF^8^^^Edit Form" ^ORD(101,749,10,2,0)="763^CR^6^^^Create Blank Form" ^ORD(101,749,10,3,0)="764^CF^5^^^Copy Form" ^ORD(101,749,10,3,1)="Copy Form:" ^ORD(101,749,10,4,0)="765^AS^3^^^Add Form to Setup" ^ORD(101,749,10,5,0)="766^DS^4^^^Delete from Setup" ^ORD(101,749,10,7,0)="775^DF^7^^^Delete Unused Form" ^ORD(101,749,10,8,0)="778^CC^1^^^Change Clinic" ^ORD(101,749,10,9,0)="779^NM^2^^^Form Name/Descr/Size" ^ORD(101,749,10,11,0)="1004^RC^10^^^Recompile Form" ^ORD(101,749,10,12,0)="1219^FE^9^^^Fast Selection Edit" ^ORD(101,749,10,"B",750,1)="" ^ORD(101,749,10,"B",763,2)="" ^ORD(101,749,10,"B",764,3)="" ^ORD(101,749,10,"B",765,4)="" ^ORD(101,749,10,"B",766,5)="" ^ORD(101,749,10,"B",775,7)="" ^ORD(101,749,10,"B",778,8)="" ^ORD(101,749,10,"B",779,9)="" ^ORD(101,749,10,"B",1004,11)="" ^ORD(101,749,10,"B",1219,12)="" ^ORD(101,749,26)="D SHOW^VALM" ^ORD(101,749,28)="Select Action: " ^ORD(101,749,99)="57099,59875" ^ORD(101,750,0)="IBDF EDIT FORM^Edit Form^^A^1^^^^^^^76" ^ORD(101,750,1,0)="^^2^2^2941117^^^" ^ORD(101,750,1,1,0)="This protocol calls the list manager to display an encounter form. There" ^ORD(101,750,1,2,0)="is a menu of actions that allows the form description to be edited." ^ORD(101,750,2,0)="^101.02A^1^1" ^ORD(101,750,2,1,0)="EF" ^ORD(101,750,2,"B","EF",1)="" ^ORD(101,750,10,0)="^101.01PA^0^0" ^ORD(101,750,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,750,20)="D EDITFORM^IBDF6" ^ORD(101,750,28)="Edit Form: " ^ORD(101,750,99)="57099,59873" ^ORD(101,751,0)="IBDF DISPLAY TOOL KIT BLOCKS FOR ADDING^Add Toolkit Block^^A^1^^^^^^^76" ^ORD(101,751,1,0)="^^1^1^2931015^^^^" ^ORD(101,751,1,1,0)="Allows the user to select a block from the tool kit and add it to the form." ^ORD(101,751,2,0)="^101.02A^1^1" ^ORD(101,751,2,1,0)="AT" ^ORD(101,751,2,"B","AT",1)="" ^ORD(101,751,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,751,20)="D ADD^IBDF7" ^ORD(101,751,28)="Add Tool Kit Block: " ^ORD(101,751,99)="57099,59873" ^ORD(101,752,0)="IBDF MENU FOR EDITING DISPLAYED FORM^Add Tool Kit Block^^M^1^^^^^^^76" ^ORD(101,752,1,0)="^^1^1^2941206^^^^" ^ORD(101,752,1,1,0)="Allows the user to edit the form." ^ORD(101,752,4)="26^4" ^ORD(101,752,10,0)="^101.01PA^16^12" ^ORD(101,752,10,1,0)="751^AT^1^" ^ORD(101,752,10,2,0)="758^MV^4^^^Move Block" ^ORD(101,752,10,3,0)="759^BS^6^" ^ORD(101,752,10,4,0)="760^EB^8^^^Edit Block" ^ORD(101,752,10,5,0)="767^DB^7^^^Delete Block" ^ORD(101,752,10,7,0)="773^FH^10^^^Form Header" ^ORD(101,752,10,8,0)="776^NB^2^^^New Block" ^ORD(101,752,10,8,1)="New Block" ^ORD(101,752,10,9,0)="781^RD^11^^^Re Display Screen" ^ORD(101,752,10,13,0)="790^SH^5^^^Shift Blocks" ^ORD(101,752,10,14,0)="996^VD^12^^^View w/wo Data (Toggle)" ^ORD(101,752,10,15,0)="789^CF^3^^^Copy From Other Form" ^ORD(101,752,10,16,0)="1227^FE^9^^^Fast Selection Edit" ^ORD(101,752,10,"B",751,1)="" ^ORD(101,752,10,"B",758,2)="" ^ORD(101,752,10,"B",759,3)="" ^ORD(101,752,10,"B",760,4)="" ^ORD(101,752,10,"B",767,5)="" ^ORD(101,752,10,"B",773,7)="" ^ORD(101,752,10,"B",776,8)="" ^ORD(101,752,10,"B",781,9)="" ^ORD(101,752,10,"B",789,15)="" ^ORD(101,752,10,"B",790,13)="" ^ORD(101,752,10,"B",996,14)="" ^ORD(101,752,10,"B",1227,16)="" ^ORD(101,752,26)="D SHOW^VALM" ^ORD(101,752,28)="Select Action: " ^ORD(101,752,99)="57099,59875" ^ORD(101,753,0)="IBDF SELECT TOOL KIT BLOCK^Add Tool Kit Block^^A^1^^^^^^^76" ^ORD(101,753,1,0)="^^4^4^2930510^" ^ORD(101,753,1,1,0)=" " ^ORD(101,753,1,2,0)="Allows the user to select a block from the list of toolkit blocks. The" ^ORD(101,753,1,3,0)="block is then pasted to the form at a position given by the user. He can" ^ORD(101,753,1,4,0)="also change the header, size, and description of the block." ^ORD(101,753,2,0)="^101.02A^2^2" ^ORD(101,753,2,1,0)="ST" ^ORD(101,753,2,2,0)="SB" ^ORD(101,753,2,"B","SB",2)="" ^ORD(101,753,2,"B","ST",1)="" ^ORD(101,753,20)="D SELECT^IBDF7" ^ORD(101,753,99)="57099,59873" ^ORD(101,754,0)="IBDF MENU FOR ADDING TOOL KIT BLOCK^Add Toolkit Block^^M^1^^^^^^^76" ^ORD(101,754,1,0)="^^2^2^2931015^^^" ^ORD(101,754,1,1,0)="A menu of actions available in connection with adding a block from the " ^ORD(101,754,1,2,0)="tool kit to a form." ^ORD(101,754,2,0)="^101.02A^1^1" ^ORD(101,754,2,1,0)="AT" ^ORD(101,754,2,"B","AT",1)="" ^ORD(101,754,4)="40^4" ^ORD(101,754,10,0)="^101.01PA^3^3" ^ORD(101,754,10,1,0)="753^AT^2^" ^ORD(101,754,10,2,0)="755^VB^1^" ^ORD(101,754,10,3,0)="1183^EX^3^^^Exit" ^ORD(101,754,10,"B",753,1)="" ^ORD(101,754,10,"B",755,2)="" ^ORD(101,754,10,"B",1183,3)="" ^ORD(101,754,26)="D SHOW^VALM" ^ORD(101,754,28)="Select Action: " ^ORD(101,754,99)="57099,59875" ^ORD(101,755,0)="IBDF VIEW TOOL KIT BLOCK^View Block^^A^1^^^^^^^76" ^ORD(101,755,2,0)="^101.02A^1^1" ^ORD(101,755,2,1,0)="VB" ^ORD(101,755,2,"B","VB",1)="" ^ORD(101,755,10,0)="^101.01PA^0^0" ^ORD(101,755,20)="D VIEWBLK^IBDF8" ^ORD(101,755,28)="View Block: " ^ORD(101,755,99)="57099,59873" ^ORD(101,756,0)="IBDF EDIT SELECTION^Edit List Item^^A^1^^^^^^^76" ^ORD(101,756,1,0)="^^1^1^2960604^^^^" ^ORD(101,756,1,1,0)="Allows editing of an existing selection" ^ORD(101,756,2,0)="^101.02A^1^1" ^ORD(101,756,2,1,0)="EI" ^ORD(101,756,2,"B","EI",1)="" ^ORD(101,756,2,"B","ES",1)="" ^ORD(101,756,20)="D EDIT^IBDF4A" ^ORD(101,756,28)="Edit List Item: " ^ORD(101,756,99)="57099,59873" ^ORD(101,757,0)="IBDF DELETE SELECTION^Delete From List^^A^1^^^^^^^76" ^ORD(101,757,1,0)="^^1^1^2950414^^" ^ORD(101,757,1,1,0)="Allows the user to choose existing selections for deletion." ^ORD(101,757,2,0)="^101.02A^1^1" ^ORD(101,757,2,1,0)="DL" ^ORD(101,757,2,"B","DL",1)="" ^ORD(101,757,2,"B","DS",1)="" ^ORD(101,757,20)="D DELETE^IBDF4A" ^ORD(101,757,99)="57099,59873" ^ORD(101,758,0)="IBDF MOVE BLOCK^Move Block^^A^1^^^^^^^76" ^ORD(101,758,1,0)="^^1^1^2930119^^^^" ^ORD(101,758,1,1,0)="Moves a block to any position on the form." ^ORD(101,758,2,0)="^101.02A^2^2" ^ORD(101,758,2,1,0)="MB" ^ORD(101,758,2,2,0)="MV" ^ORD(101,758,2,"B","MB",1)="" ^ORD(101,758,2,"B","MV",2)="" ^ORD(101,758,15)="" ^ORD(101,758,20)="D MOVE^IBDF5" ^ORD(101,758,28)="Move Block: " ^ORD(101,758,99)="57099,59874" ^ORD(101,759,0)="IBDF RESIZE BLOCK (WHILE EDITING FORM)^Block Size^^A^1^^^^^^^76" ^ORD(101,759,1,0)="^^1^1^2930510^" ^ORD(101,759,1,1,0)="Allows the user to change the height and width of the block." ^ORD(101,759,2,0)="^101.02A^2^2" ^ORD(101,759,2,1,0)="RS" ^ORD(101,759,2,2,0)="BS" ^ORD(101,759,2,"B","BS",2)="" ^ORD(101,759,2,"B","RS",1)="" ^ORD(101,759,10,0)="^101.01PA^0^0" ^ORD(101,759,20)="D RESIZE^IBDF5" ^ORD(101,759,28)="Resize Block: " ^ORD(101,759,99)="57099,59874" ^ORD(101,760,0)="IBDF DISPLAY FORM BLOCK FOR EDIT^Edit Block^^A^1^^^^^^^76" ^ORD(101,760,1,0)="^^1^1^2930727^^^" ^ORD(101,760,1,1,0)="Allows the user to select a block from the form for editing." ^ORD(101,760,2,0)="^101.02A^1^1" ^ORD(101,760,2,1,0)="ED" ^ORD(101,760,2,"B","ED",1)="" ^ORD(101,760,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,760,20)="D EDITBLK^IBDF5B" ^ORD(101,760,28)="Edit Block: " ^ORD(101,760,99)="57099,59874" ^ORD(101,761,0)="IBDF EDIT FORM BLOCK MENU^Edit Form Block Menu^^M^1^^^^^^^76" ^ORD(101,761,1,0)="^^1^1^2930120^^^^" ^ORD(101,761,1,1,0)="A menu of actions the user can use to define what is inside a form block." ^ORD(101,761,4)="26^4" ^ORD(101,761,10,0)="^101.01PA^11^10" ^ORD(101,761,10,1,0)="762^LT^3^^^List" ^ORD(101,761,10,2,0)="768^BS^2^" ^ORD(101,761,10,3,0)="769^EH^1^^^Header/Descr/Outline" ^ORD(101,761,10,4,0)="770^DF^4^^^Data Field" ^ORD(101,761,10,5,0)="771^LN^5^^^Straight Line" ^ORD(101,761,10,7,0)="777^TA^6^^^Text Area" ^ORD(101,761,10,8,0)="780^SH^7^^^Shift Contents" ^ORD(101,761,10,9,0)="706^SD^9^^^Save/Discard Changes" ^ORD(101,761,10,10,0)="996^VD^8^^^View w/wo Data (Toggle)" ^ORD(101,761,10,11,0)="750^^^" ^ORD(101,761,10,"B",706,9)="" ^ORD(101,761,10,"B",750,11)="" ^ORD(101,761,10,"B",762,1)="" ^ORD(101,761,10,"B",768,2)="" ^ORD(101,761,10,"B",769,3)="" ^ORD(101,761,10,"B",770,4)="" ^ORD(101,761,10,"B",771,5)="" ^ORD(101,761,10,"B",777,7)="" ^ORD(101,761,10,"B",780,8)="" ^ORD(101,761,10,"B",996,10)="" ^ORD(101,761,26)="D SHOW^VALM" ^ORD(101,761,28)="Select Action: " ^ORD(101,761,99)="57099,59875" ^ORD(101,762,0)="IBDF SELECTION LIST^Selection List^^A^1^^^^^^^76" ^ORD(101,762,1,0)="^^2^2^2930322^" ^ORD(101,762,1,1,0)="Allows the user to create a new selection list, delete or edit an already" ^ORD(101,762,1,2,0)="existing one, or change the contents of a list." ^ORD(101,762,2,0)="^101.02A^1^1" ^ORD(101,762,2,1,0)="SE" ^ORD(101,762,2,"B","SE",1)="" ^ORD(101,762,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,762,20)="D LIST^IBDF9A" ^ORD(101,762,28)="" ^ORD(101,762,99)="57099,59874" ^ORD(101,763,0)="IBDF CREATE BLANK FORM^Create Blank Form^^A^1^^^^^^^76" ^ORD(101,763,1,0)="^^1^1^2951024^^^^" ^ORD(101,763,1,1,0)="Creates a new blank form and allows the user to add it to the clinic setup." ^ORD(101,763,2,0)="^101.02A^1^1" ^ORD(101,763,2,1,0)="CR" ^ORD(101,763,2,"B","CR",1)="" ^ORD(101,763,20)="D NEWFORM^IBDF6A" ^ORD(101,763,28)="Create Blank Form: " ^ORD(101,763,99)="57099,59874" ^ORD(101,764,0)="IBDF COPY FORM^Copy Form^^A^1^^^^^^^76" ^ORD(101,764,1,0)="^^2^2^2930127^" ^ORD(101,764,1,1,0)="Allows the user to choose any form and and copy it, giving it a new name. " ^ORD(101,764,1,2,0)="He can then add it to the clinic setup." ^ORD(101,764,2,0)="^101.02A^1^1" ^ORD(101,764,2,1,0)="CP" ^ORD(101,764,2,"B","CP",1)="" ^ORD(101,764,20)="D COPYFORM^IBDF6A" ^ORD(101,764,28)="Copy Form: " ^ORD(101,764,99)="57099,59874" ^ORD(101,765,0)="IBDF ADD TO CLINIC SETUP^Add Form to Setup^^A^1^^^^^^^76" ^ORD(101,765,1,0)="^^1^1^2930127^" ^ORD(101,765,1,1,0)="Allows the user to add a form to the clinic setup." ^ORD(101,765,2,0)="^101.02A^2^2" ^ORD(101,765,2,1,0)="CS" ^ORD(101,765,2,2,0)="AC" ^ORD(101,765,2,"B","AC",2)="" ^ORD(101,765,2,"B","CS",1)="" ^ORD(101,765,20)="D SETUP^IBDF6A" ^ORD(101,765,28)="Add to Setup: " ^ORD(101,765,99)="57099,59874" ^ORD(101,766,0)="IBDF DELETE FROM CLINIC SETUP^Delete from Setup^^A^1^^^^^^^76" ^ORD(101,766,1,0)="^^1^1^2930127^" ^ORD(101,766,1,1,0)="Allows the user to select a form and deletes it from the clinic setup." ^ORD(101,766,2,0)="^101.02A^1^1" ^ORD(101,766,2,1,0)="DC" ^ORD(101,766,2,"B","DC",1)="" ^ORD(101,766,20)="D DSETUP^IBDF6C" ^ORD(101,766,28)="Delete From Clinic Setup: " ^ORD(101,766,99)="57099,59874" ^ORD(101,767,0)="IBDF DELETE A BLOCK^Delete Block^^A^1^^^^^^^76" ^ORD(101,767,1,0)="^^1^1^2930127^^" ^ORD(101,767,1,1,0)="Allows the user to select a block from the form and delete it." ^ORD(101,767,2,0)="^101.02A^1^1" ^ORD(101,767,2,1,0)="DB" ^ORD(101,767,2,"B","DB",1)="" ^ORD(101,767,20)="D DELETE^IBDF5" ^ORD(101,767,28)="Delete a Block: " ^ORD(101,767,99)="57099,59874" ^ORD(101,768,0)="IBDF RESIZE BLOCK (WHILE EDITING BLOCK)^Block Size^^A^1^^^^^^^76" ^ORD(101,768,1,0)="^^2^2^2930510^" ^ORD(101,768,1,1,0)="This allows the user to change the height and width of the block while he" ^ORD(101,768,1,2,0)="is editing the block." ^ORD(101,768,2,0)="^101.02A^2^2" ^ORD(101,768,2,1,0)="RS" ^ORD(101,768,2,2,0)="BS" ^ORD(101,768,2,"B","BS",2)="" ^ORD(101,768,2,"B","RS",1)="" ^ORD(101,768,20)="D RESIZE^IBDF9" ^ORD(101,768,99)="57099,59874" ^ORD(101,769,0)="IBDF EDIT NAME,HEADER,OUTLINE^Header/Descr/Outline^^A^1^^^^^^^76" ^ORD(101,769,1,0)="^^1^1^2930201^" ^ORD(101,769,1,1,0)="Allows editing of the block header and outline type." ^ORD(101,769,2,0)="^101.02A^1^1" ^ORD(101,769,2,1,0)="EH" ^ORD(101,769,2,"B","EH",1)="" ^ORD(101,769,20)="D EDITBLK^IBDF9" ^ORD(101,769,99)="57099,59874" ^ORD(101,770,0)="IBDF DATA FIELD^Data Field^^A^1^^^^^^^76" ^ORD(101,770,1,0)="^^2^2^2970226^^" ^ORD(101,770,1,1,0)="Allows the user to create a new data field or edit or delete an already" ^ORD(101,770,1,2,0)="existing one." ^ORD(101,770,2,0)="^101.02A^2^1" ^ORD(101,770,2,2,0)="DF" ^ORD(101,770,2,"B","DF",2)="" ^ORD(101,770,20)="D FIELD^IBDF9B" ^ORD(101,770,99)="57099,59874" ^ORD(101,771,0)="IBDF STRAIGHT LINE^Straight Line^^A^1^^^^^^^76" ^ORD(101,771,1,0)="^^2^2^2930324^^" ^ORD(101,771,1,1,0)="Allows a straight line, either horizontal or vertical, to be created," ^ORD(101,771,1,2,0)="deleted or edited." ^ORD(101,771,2,0)="^101.02A^2^1" ^ORD(101,771,2,2,0)="LN" ^ORD(101,771,2,"B","LN",2)="" ^ORD(101,771,20)="D LINE^IBDF9D" ^ORD(101,771,99)="57099,59874" ^ORD(101,773,0)="IBDF EDIT HEADER BLOCK^Form Header^^A^1^^^^^^^76" ^ORD(101,773,1,0)="^^1^1^2930211^" ^ORD(101,773,1,1,0)="Allows the form header to be edited" ^ORD(101,773,2,0)="^101.02A^1^1" ^ORD(101,773,2,1,0)="FH" ^ORD(101,773,2,"B","FH",1)="" ^ORD(101,773,20)="D EDITHDR^IBDF9C" ^ORD(101,773,99)="57099,59874" ^ORD(101,774,0)="IBDF PRINT SAMPLE FORM^Print Sample Form^^A^1^^^^^^^76" ^ORD(101,774,1,0)="^^1^1^2950130^^^^" ^ORD(101,774,1,1,0)="Allows a sample form, without patient information, to be printed." ^ORD(101,774,2,0)="^101.02A^1^1" ^ORD(101,774,2,1,0)="PF" ^ORD(101,774,2,"B","PF",1)="" ^ORD(101,774,15)="" ^ORD(101,774,20)="D PRINT^IBDF5B" ^ORD(101,774,99)="57099,59874" ^ORD(101,775,0)="IBDF DELETE FORM^Delete Unused Form^^A^1^^^^^^^76" ^ORD(101,775,1,0)="^^6^6^2930224^" ^ORD(101,775,1,1,0)=" " ^ORD(101,775,1,2,0)="Allows the user to delete a form. Deletion is not allowed if the form is" ^ORD(101,775,1,3,0)="in use by any clinic. In that case the form must first be deleted from the" ^ORD(101,775,1,4,0)="clinic setup, and then actually deleted using this action. This two step" ^ORD(101,775,1,5,0)="process is used to be on the safe side, since a form may be in use by more" ^ORD(101,775,1,6,0)="than one clinic." ^ORD(101,775,2,0)="^101.02A^1^1" ^ORD(101,775,2,1,0)="DF" ^ORD(101,775,2,"B","DF",1)="" ^ORD(101,775,20)="D DELFORM^IBDF6A" ^ORD(101,775,99)="57099,59874" ^ORD(101,776,0)="IBDF CREATE EMPTY BLOCK^New Block^^A^1^^^^^^^76" ^ORD(101,776,1,0)="^^2^2^2930322^" ^ORD(101,776,1,1,0)=" " ^ORD(101,776,1,2,0)="Allows the user to add a new empty block to the form." ^ORD(101,776,2,0)="^101.02A^1^1" ^ORD(101,776,2,1,0)="NB" ^ORD(101,776,2,"B","NB",1)="" ^ORD(101,776,20)="D NEWBLOCK^IBDF5C" ^ORD(101,776,99)="57099,59874" ^ORD(101,777,0)="IBDF TEXT AREA^Text Area^^A^1^^^^^^^76" ^ORD(101,777,1,0)="^^3^3^2930326^" ^ORD(101,777,1,1,0)=" " ^ORD(101,777,1,2,0)="Allows the user to specify text and a rectangular area on the block that" ^ORD(101,777,1,3,0)="the text should appear in." ^ORD(101,777,2,0)="^101.02A^1^1" ^ORD(101,777,2,1,0)="TA" ^ORD(101,777,2,"B","TA",1)="" ^ORD(101,777,20)="D TEXT^IBDF9E" ^ORD(101,777,99)="57099,59874" ^ORD(101,778,0)="IBDF CHANGE CLINIC^Change Clinic^^A^1^^^^^^^76" ^ORD(101,778,1,0)="^^3^3^2930413^" ^ORD(101,778,1,1,0)=" " ^ORD(101,778,1,2,0)="Allows the user to specify a different clinic. The setup for the new" ^ORD(101,778,1,3,0)="clinic will then be displayed." ^ORD(101,778,2,0)="^101.02A^1^1" ^ORD(101,778,2,1,0)="CC" ^ORD(101,778,2,"B","CC",1)="" ^ORD(101,778,20)="D CHNGCLNC^IBDF6" ^ORD(101,778,99)="57099,59874" ^ORD(101,779,0)="IBDF EDIT FORM NAME/DESCR/SIZE^Form Name/Descr/Size^^A^1^^^^^^^76" ^ORD(101,779,1,0)="^^1^1^2930420^" ^ORD(101,779,1,1,0)="Allows the user to select a form, then edit its name, description, and size." ^ORD(101,779,2,0)="^101.02A^1^1" ^ORD(101,779,2,1,0)="NM" ^ORD(101,779,2,"B","NM",1)="" ^ORD(101,779,20)="D EDITFORM^IBDF6C" ^ORD(101,779,99)="57099,59874" ^ORD(101,780,0)="IBDF SHIFT BLOCK CONTENTS^Shift Contents^^A^1^^^^^^^76" ^ORD(101,780,1,0)="^^4^4^2930510^" ^ORD(101,780,1,1,0)=" " ^ORD(101,780,1,2,0)="The user can use this action to move the contents of a block. He can" ^ORD(101,780,1,3,0)="specify the type of object to shift, the area to be affected and the" ^ORD(101,780,1,4,0)="direction and distance of the shift." ^ORD(101,780,2,0)="^101.02A^1^1" ^ORD(101,780,2,1,0)="SH" ^ORD(101,780,2,"B","SH",1)="" ^ORD(101,780,15)="D UNCMPBLK^IBDF19(IBBLK),IDXBLOCK^IBDFU4" ^ORD(101,780,20)="D SHIFT^IBDF10()" ^ORD(101,780,99)="57099,59874" ^ORD(101,781,0)="IBDF REDRAW FORM^Re Display Screen^^A^1^^^^^^^76" ^ORD(101,781,1,0)="^^5^5^2930510^" ^ORD(101,781,1,1,0)=" " ^ORD(101,781,1,2,0)="Causes the form to be re-displayed. Should be used if it is suspected that" ^ORD(101,781,1,3,0)="the display is incorrect. This differs from the refresh action that comes" ^ORD(101,781,1,4,0)="with the List Processor in that the array which contains the list of form" ^ORD(101,781,1,5,0)="lines is re-built." ^ORD(101,781,2,0)="^101.02A^1^1" ^ORD(101,781,2,1,0)="RD" ^ORD(101,781,2,"B","RD",1)="" ^ORD(101,781,20)="D REDRAW^IBDF5C" ^ORD(101,781,99)="57099,59874" ^ORD(101,782,0)="IBDF TOOL KIT FORMS MENU^IBDF TOOL KIT FORMS MENU^^M^1^^^^^^^76" ^ORD(101,782,1,0)="^^2^2^2930624^^^" ^ORD(101,782,1,1,0)="Displays the tool kit forms. Allows the user to edit them, create new ones," ^ORD(101,782,1,2,0)="etc." ^ORD(101,782,4)="26^4" ^ORD(101,782,10,0)="^101.01PA^10^6" ^ORD(101,782,10,1,0)="750^EF^^^^Edit Form" ^ORD(101,782,10,2,0)="763^CR^^^^Create Blank Form" ^ORD(101,782,10,3,0)="764^CF^^^^Copy Form" ^ORD(101,782,10,3,1)="Copy Form:" ^ORD(101,782,10,6,0)="774^PR^^^^Print Sample Form" ^ORD(101,782,10,9,0)="779^NM^2^^^Form Name/Descr/Size" ^ORD(101,782,10,10,0)="783^DF^3^^^Delete Form" ^ORD(101,782,10,"B",750,1)="" ^ORD(101,782,10,"B",763,2)="" ^ORD(101,782,10,"B",764,3)="" ^ORD(101,782,10,"B",774,6)="" ^ORD(101,782,10,"B",779,9)="" ^ORD(101,782,10,"B",783,10)="" ^ORD(101,782,26)="D SHOW^VALM" ^ORD(101,782,28)="Select Action: " ^ORD(101,782,99)="57099,59874" ^ORD(101,783,0)="IBDF DELETE TOOL KIT FORM^Delete Form^^A^1^^^^^^^76" ^ORD(101,783,1,0)="^^1^1^2930624^" ^ORD(101,783,1,1,0)="Allows the user to delete a form from the tool kit." ^ORD(101,783,2,0)="^101.02A^1^1" ^ORD(101,783,2,1,0)="DT" ^ORD(101,783,2,"B","DT",1)="" ^ORD(101,783,20)="D DELFORM^IBDF12" ^ORD(101,783,99)="57099,59874" ^ORD(101,784,0)="IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS MENU^^M^1^^^^^^^76" ^ORD(101,784,1,0)="^^1^1^2941117^^^^" ^ORD(101,784,1,1,0)="Allows the user to edit tool kit blocks." ^ORD(101,784,2,0)="^101.02A^1^1" ^ORD(101,784,2,1,0)="EB" ^ORD(101,784,2,"B","EB",1)="" ^ORD(101,784,4)="26^4" ^ORD(101,784,10,0)="^101.01PA^14^5" ^ORD(101,784,10,10,0)="785^EB^1^^^Edit Block" ^ORD(101,784,10,11,0)="786^NB^2^^^New Block" ^ORD(101,784,10,12,0)="787^DB^3^^^Delete Block" ^ORD(101,784,10,13,0)="788^CB^^^^Copy Block" ^ORD(101,784,10,14,0)="809^CH^5^^^Change TK Order" ^ORD(101,784,10,"B",785,10)="" ^ORD(101,784,10,"B",786,11)="" ^ORD(101,784,10,"B",787,12)="" ^ORD(101,784,10,"B",788,13)="" ^ORD(101,784,10,"B",809,14)="" ^ORD(101,784,26)="D SHOW^VALM" ^ORD(101,784,28)="Select Action: " ^ORD(101,784,99)="57099,59875" ^ORD(101,785,0)="IBDF EDIT TOOL KIT BLOCK^Edit Block^^A^1^^^^^^^76" ^ORD(101,785,1,0)="^^1^1^2930727^^^" ^ORD(101,785,1,1,0)="Allows the user to edit a tool kit block." ^ORD(101,785,2,0)="^101.02A^1^1" ^ORD(101,785,2,1,0)="EB" ^ORD(101,785,2,"B","EB",1)="" ^ORD(101,785,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,785,20)="D EDITBLK^IBDF13" ^ORD(101,785,99)="57099,59874" ^ORD(101,786,0)="IBDF NEW TOOL KIT BLOCK^New Block^^A^1^^^^^^^76" ^ORD(101,786,1,0)="^^1^1^2930624^" ^ORD(101,786,1,1,0)="Allows the user to create a new tool kit block." ^ORD(101,786,2,0)="^101.02A^1^1" ^ORD(101,786,2,1,0)="NB" ^ORD(101,786,2,"B","NB",1)="" ^ORD(101,786,20)="D NEWBLK^IBDF13" ^ORD(101,786,99)="57099,59874" ^ORD(101,787,0)="IBDF DELETE TOOL KIT BLOCK^Delete Block^^A^1^^^^^^^76" ^ORD(101,787,1,0)="^^1^1^2930625^" ^ORD(101,787,1,1,0)="Allows the user to delete a block from the tool kit." ^ORD(101,787,2,0)="^101.02A^1^1" ^ORD(101,787,2,1,0)="DB" ^ORD(101,787,2,"B","DB",1)="" ^ORD(101,787,20)="D DLTBLOCK^IBDF13" ^ORD(101,787,99)="57099,59874" ^ORD(101,788,0)="IBDF COPY BLOCK INTO TOOL KIT^Copy Block^^A^1^^^^^^^76" ^ORD(101,788,1,0)="^^1^1^2930625^" ^ORD(101,788,1,1,0)="Allows the user to select any block and copy it into the tool kit." ^ORD(101,788,2,0)="^101.02A^1^1" ^ORD(101,788,2,1,0)="CB" ^ORD(101,788,2,"B","CB",1)="" ^ORD(101,788,20)="D COPYBLK^IBDF13" ^ORD(101,788,99)="57099,59874" ^ORD(101,789,0)="IBDF COPY FORM BLOCK^Copy From Other Form^^A^1^^^^^^^76" ^ORD(101,789,.1)="" ^ORD(101,789,1,0)="^^2^2^2941206^^^" ^ORD(101,789,1,1,0)="Allows a block or page from any form to be selected and pasted to the" ^ORD(101,789,1,2,0)="current form." ^ORD(101,789,2,0)="^101.02A^1^1" ^ORD(101,789,2,1,0)="CF" ^ORD(101,789,2,"B","CB",1)="" ^ORD(101,789,2,"B","CF",1)="" ^ORD(101,789,20)="D COPY^IBDF5D" ^ORD(101,789,99)="57099,59874" ^ORD(101,790,0)="IBDF SHIFT BLOCKS^Shift Blocks^^A^1^^^^^^^76" ^ORD(101,790,1,0)="^^3^3^2930716^" ^ORD(101,790,1,1,0)="Allows the user to shift a group of blocks. The user is asked to specify" ^ORD(101,790,1,2,0)="a rectangular region where the shift should occur, the direction of movement" ^ORD(101,790,1,3,0)="and distance." ^ORD(101,790,2,0)="^101.02A^1^1" ^ORD(101,790,2,1,0)="SB" ^ORD(101,790,2,"B","SB",1)="" ^ORD(101,790,20)="D SHIFT^IBDF5" ^ORD(101,790,99)="57099,59874" ^ORD(101,791,0)="IBDF QUIT^Exit^^A^1^^^^^^^76" ^ORD(101,791,1,0)="^^1^1^2930729^^" ^ORD(101,791,1,1,0)="Quits to the prior level." ^ORD(101,791,2,0)="^101.02A^1^1" ^ORD(101,791,2,1,0)="Ex" ^ORD(101,791,2,"B","Ex",1)="" ^ORD(101,791,15)="S VALMBCK=""Q""" ^ORD(101,791,99)="57099,59874" ^ORD(101,792,0)="IBDE IMP/EXP MENU FOR FORMS^List Forms^^M^1^^^^^^^76" ^ORD(101,792,1,0)="^^2^2^2970303^^^^" ^ORD(101,792,1,1,0)="The main menu of the import/export utility, which allows forms and" ^ORD(101,792,1,2,0)="tool kit blocks to be transferred between sites." ^ORD(101,792,4)="26^4" ^ORD(101,792,10,0)="^101.01PA^11^10" ^ORD(101,792,10,2,0)="793^AE^6^^^Add Entry" ^ORD(101,792,10,3,0)="794^DE^5^^^Delete Entry" ^ORD(101,792,10,4,0)="795^CW^4^^^Clear Work Space" ^ORD(101,792,10,5,0)="796^EI^8^^^Edit Imp/Exp Notes" ^ORD(101,792,10,6,0)="797^VI^7^^^View Imp/Exp Notes" ^ORD(101,792,10,7,0)="798^IE^3^^^Import Entry" ^ORD(101,792,10,8,0)="799^HE^1^^^Help" ^ORD(101,792,10,9,0)="800^DI^9^^^DIFROM" ^ORD(101,792,10,10,0)="801^RI^10^^^Run Inits" ^ORD(101,792,10,11,0)="803^LB^2^^^List TK Blocks" ^ORD(101,792,10,"B",793,2)="" ^ORD(101,792,10,"B",794,3)="" ^ORD(101,792,10,"B",795,4)="" ^ORD(101,792,10,"B",796,5)="" ^ORD(101,792,10,"B",797,6)="" ^ORD(101,792,10,"B",798,7)="" ^ORD(101,792,10,"B",799,8)="" ^ORD(101,792,10,"B",800,9)="" ^ORD(101,792,10,"B",801,10)="" ^ORD(101,792,10,"B",803,11)="" ^ORD(101,792,20)="" ^ORD(101,792,26)="D SHOW^VALM" ^ORD(101,792,28)="Select Action: " ^ORD(101,792,99)="59276,63851" ^ORD(101,793,0)="IBDE ADD FORM TO IMP/EXP WS^Add Entry^^A^1^^^^^^^76" ^ORD(101,793,.1)="" ^ORD(101,793,1,0)="^^1^1^2960205^^^" ^ORD(101,793,1,1,0)="Allows the user to add a form to the IMP/EXP files." ^ORD(101,793,2,0)="^101.02A^3^3" ^ORD(101,793,2,1,0)="TEST" ^ORD(101,793,2,2,0)="ADD" ^ORD(101,793,2,3,0)="AW" ^ORD(101,793,2,"B","ADD",2)="" ^ORD(101,793,2,"B","AW",3)="" ^ORD(101,793,2,"B","TEST",1)="" ^ORD(101,793,20)="D ADD^IBDE1" ^ORD(101,793,99)="57099,59874" ^ORD(101,794,0)="IBDE DELETE FORM FROM IMP/EXP FILES^Delete Entry^^A^1^^^^^^^76" ^ORD(101,794,1,0)="^^1^1^2970303^^" ^ORD(101,794,1,1,0)="Allows the user to select a form in the imp/exp files and deletes it." ^ORD(101,794,2,0)="^101.02A^2^2" ^ORD(101,794,2,1,0)="DEL" ^ORD(101,794,2,2,0)="DW" ^ORD(101,794,2,"B","DEL",1)="" ^ORD(101,794,2,"B","DW",2)="" ^ORD(101,794,20)="D DELETE^IBDE1" ^ORD(101,794,99)="57099,59874" ^ORD(101,795,0)="IBDE DELETE IMP/EXP FILES^Clear Work Space^^A^1^^^^^^^76" ^ORD(101,795,1,0)="^^1^1^2930813^^" ^ORD(101,795,1,1,0)="Deletes all of the imp/exp files (358 range)." ^ORD(101,795,2,0)="^101.02A^1^1" ^ORD(101,795,2,1,0)="CW" ^ORD(101,795,2,"B","CW",1)="" ^ORD(101,795,20)="D DLTALL^IBDE2" ^ORD(101,795,99)="57099,59874" ^ORD(101,796,0)="IBDE EDIT FORM'S IMP/EXP NOTES^Edit Imp/Exp Notes^^A^1^^^^^^^76" ^ORD(101,796,1,0)="^^2^2^2930813^^" ^ORD(101,796,1,1,0)="Allows the user to select a form form from the imp/exp files, then allows" ^ORD(101,796,1,2,0)="the user to edit the imp/exp notes." ^ORD(101,796,2,0)="^101.02A^1^1" ^ORD(101,796,2,1,0)="EE" ^ORD(101,796,2,"B","EE",1)="" ^ORD(101,796,20)="D EDIT^IBDE1" ^ORD(101,796,99)="57099,59874" ^ORD(101,797,0)="IBDE VIEW FORM'S IMP/EXP NOTES^View Imp/Exp Notes^^A^1^^^^^^^76" ^ORD(101,797,1,0)="^^2^2^2930813^" ^ORD(101,797,1,1,0)="Allows the user to select a form from the IMP/EXP files, then displays" ^ORD(101,797,1,2,0)="the imp/exp notes." ^ORD(101,797,2,0)="^101.02A^1^1" ^ORD(101,797,2,1,0)="VI" ^ORD(101,797,2,"B","VI",1)="" ^ORD(101,797,20)="D VIEW^IBDE1" ^ORD(101,797,99)="57099,59874" ^ORD(101,798,0)="IBDE IMPORT FORM^Import Entry^^A^1^^^^^^^76" ^ORD(101,798,1,0)="^^1^1^2960105^^^^" ^ORD(101,798,1,1,0)="Allows the user to select a form from the work space, then imports it." ^ORD(101,798,2,0)="^101.02A^1^1" ^ORD(101,798,2,1,0)="IE" ^ORD(101,798,2,"B","IE",1)="" ^ORD(101,798,20)="D IMPORT^IBDE1" ^ORD(101,798,99)="57099,59874" ^ORD(101,799,0)="IBDE IMP/EXP HELP^Help^^A^1^^^^^^^76" ^ORD(101,799,1,0)="^^2^2^2930813^" ^ORD(101,799,1,1,0)="Displays help information about the import/export procedures that the user" ^ORD(101,799,1,2,0)="must follow." ^ORD(101,799,2,0)="^101.02A^1^1" ^ORD(101,799,2,1,0)="HE" ^ORD(101,799,2,"B","HE",1)="" ^ORD(101,799,20)="D HELP^IBDEHELP" ^ORD(101,799,99)="57099,59874" ^ORD(101,800,0)="IBDE EXECUTE DIFROM^DIFROM^^A^1^^^^^^^76" ^ORD(101,800,1,0)="^^1^1^2930813^" ^ORD(101,800,1,1,0)="Allows the user to execute ^DIFROM without leaving the imp/exp utility." ^ORD(101,800,2,0)="^101.02A^1^1" ^ORD(101,800,2,1,0)="DI" ^ORD(101,800,2,"B","DI",1)="" ^ORD(101,800,20)="D DIFROM^IBDE1" ^ORD(101,800,99)="57099,59874" ^ORD(101,801,0)="IBDE EXECUTE INITS^Run Inits^^A^1^^^^^^^76" ^ORD(101,801,1,0)="^^1^1^2930813^" ^ORD(101,801,1,1,0)="Allows the user to execute the inits without leaving the imp/exp utilities." ^ORD(101,801,2,0)="^101.02A^1^1" ^ORD(101,801,2,1,0)="RI" ^ORD(101,801,2,"B","RI",1)="" ^ORD(101,801,20)="D INITS^IBDE1" ^ORD(101,801,99)="57099,59874" ^ORD(101,802,0)="IBDE IMP/EXP MENU FOR BLOCKS^List TK Blocks^^M^1^^^^^^^76" ^ORD(101,802,1,0)="^^1^1^2930813^^^^" ^ORD(101,802,1,1,0)="The menu of actions that apply to tool kit blocks in the imp/exp files." ^ORD(101,802,2,0)="^101.02A^1^1" ^ORD(101,802,2,1,0)="SB" ^ORD(101,802,2,"B","SB",1)="" ^ORD(101,802,4)="26^4" ^ORD(101,802,10,0)="^101.01PA^16^10" ^ORD(101,802,10,4,0)="795^CW^4^^^Clear Work Space" ^ORD(101,802,10,8,0)="799^HE^1^^^Help" ^ORD(101,802,10,9,0)="800^DI^9^^^DIFROM" ^ORD(101,802,10,10,0)="801^RI^10^^^Run Inits" ^ORD(101,802,10,11,0)="804^DE^5^^^Delete Entry" ^ORD(101,802,10,12,0)="805^AE^6^^^Add Entry" ^ORD(101,802,10,13,0)="806^EI^8^^^Edit Imp/Exp Notes" ^ORD(101,802,10,14,0)="807^VI^7^^^View Imp/Exp Notes" ^ORD(101,802,10,15,0)="808^IE^3^^^Import Entry" ^ORD(101,802,10,16,0)="791^LF^2^^^List Forms" ^ORD(101,802,10,"B",791,16)="" ^ORD(101,802,10,"B",795,4)="" ^ORD(101,802,10,"B",799,8)="" ^ORD(101,802,10,"B",800,9)="" ^ORD(101,802,10,"B",801,10)="" ^ORD(101,802,10,"B",804,11)="" ^ORD(101,802,10,"B",805,12)="" ^ORD(101,802,10,"B",806,13)="" ^ORD(101,802,10,"B",807,14)="" ^ORD(101,802,10,"B",808,15)="" ^ORD(101,802,26)="D SHOW^VALM" ^ORD(101,802,28)="Select Action: " ^ORD(101,802,99)="57099,59875" ^ORD(101,803,0)="IBDE DISPLAY TK BLOCKS^List TK Blocks^^A^1^^^^^^^76" ^ORD(101,803,1,0)="^^1^1^2930813^" ^ORD(101,803,1,1,0)="Displays the list of tool kit blocks that are in the imp/exp files." ^ORD(101,803,2,0)="^101.02A^1^1" ^ORD(101,803,2,1,0)="DB" ^ORD(101,803,2,"B","DB",1)="" ^ORD(101,803,20)="D BLOCKS^IBDE1" ^ORD(101,803,99)="57099,59875" ^ORD(101,804,0)="IBDE DELTE TK BLOCK FROM IMP/EXP FILES^Delete Entry^^A^1^^^^^^^76" ^ORD(101,804,1,0)="^^1^1^2930813^" ^ORD(101,804,1,1,0)="Allows the user to select a TK block, then deletes it." ^ORD(101,804,2,0)="^101.02A^1^1" ^ORD(101,804,2,1,0)="DE" ^ORD(101,804,2,"B","DE",1)="" ^ORD(101,804,20)="D DELETE^IBDE3" ^ORD(101,804,99)="57099,59875" ^ORD(101,805,0)="IBDE ADD BLOCK TO IMP/EXP WS^Add Entry^^A^1^^^^^^^76" ^ORD(101,805,1,0)="^^1^1^2960205^^^" ^ORD(101,805,1,1,0)="Allows the user to choose any block and adds it to the import/export files." ^ORD(101,805,2,0)="^101.02A^1^1" ^ORD(101,805,2,1,0)="AE" ^ORD(101,805,2,"B","AE",1)="" ^ORD(101,805,20)="D ADD^IBDE3" ^ORD(101,805,99)="57099,59875" ^ORD(101,806,0)="IBDE EDIT BLOCK'S IMP/EXP NOTES^Edit Imp/Exp Notes^^A^1^^^^^^^76" ^ORD(101,806,1,0)="^^2^2^2930816^" ^ORD(101,806,1,1,0)="Allows the user to select a tool kit block from the imp/exp files, then" ^ORD(101,806,1,2,0)="allows him to edit the imp/exp notes." ^ORD(101,806,2,0)="^101.02A^1^1" ^ORD(101,806,2,1,0)="EI" ^ORD(101,806,2,"B","EI",1)="" ^ORD(101,806,20)="D EDIT^IBDE3" ^ORD(101,806,99)="57099,59875" ^ORD(101,807,0)="IBDE VIEW BLOCK'S IMP/EXP NOTES^View Imp/Exp Notes^^A^1^^^^^^^76" ^ORD(101,807,1,0)="^^2^2^2930816^" ^ORD(101,807,1,1,0)="Allows the user to select a tool kit block from the imp/exp files, then" ^ORD(101,807,1,2,0)="allows him to view the imp/exp notes." ^ORD(101,807,2,0)="^101.02A^1^1" ^ORD(101,807,2,1,0)="VI" ^ORD(101,807,2,"B","VI",1)="" ^ORD(101,807,20)="D VIEW^IBDE3" ^ORD(101,807,99)="57099,59875" ^ORD(101,808,0)="IBDE IMPORT TK BLOCK^Import Entry^^A^1^^^^^^^76" ^ORD(101,808,1,0)="^^1^1^2930817^" ^ORD(101,808,1,1,0)="Allows the user to select a tool kit block from the list, then imports it." ^ORD(101,808,2,0)="^101.02A^1^1" ^ORD(101,808,2,1,0)="IE" ^ORD(101,808,2,"B","IE",1)="" ^ORD(101,808,20)="D IMPORT^IBDE3" ^ORD(101,808,99)="57099,59875" ^ORD(101,809,0)="IBDF CHANGE BLOCK TK ORDER^Change TK Order^^A^1^^^^^^^76" ^ORD(101,809,1,0)="^^1^1^2930820^" ^ORD(101,809,1,1,0)="Allows the user to select a block from the tool kit, then change it's order." ^ORD(101,809,2,0)="^101.02A^1^1" ^ORD(101,809,2,1,0)="CH" ^ORD(101,809,2,"B","CH",1)="" ^ORD(101,809,20)="D CHGORDER^IBDF13" ^ORD(101,809,99)="57099,59875" ^ORD(101,810,0)="IBCNSM CHANGE PATIENT^Change Patient^^A^1^^^^^^^" ^ORD(101,810,20)="D CP^IBCNSM" ^ORD(101,810,24)="I '$G(IBTRN)" ^ORD(101,810,99)="56791,43734" ^ORD(101,811,0)="IBCNSM VIEW PAT POLICY^Policy Edit/View^^A^1^^^^^^^49" ^ORD(101,811,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,811,20)="D VP^IBCNSM1" ^ORD(101,811,99)="56791,43736" ^ORD(101,812,0)="IBCNSM UPDATE ANNUAL BENEFITS^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,812,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,812,20)="D AB^IBCNSM1" ^ORD(101,812,99)="56791,43736" ^ORD(101,813,0)="IBCNSM UPDATE INS CO.^Ins. Co. Edit^^A^1^^^^^^^" ^ORD(101,813,20)="D EI^IBCNSM2" ^ORD(101,813,99)="56791,43736" ^ORD(101,814,0)="IBCNSM PRINT WORKSHEET^Worksheet Print^^A^1^^^^^^^" ^ORD(101,814,20)="D WP^IBCNSM1" ^ORD(101,814,99)="56791,43736" ^ORD(101,815,0)="IBCNSM PRINT PATIENT INS^Print Insurance Cov.^^A^1^^^^^^^" ^ORD(101,815,20)="D PC^IBCNSM1" ^ORD(101,815,99)="56791,43736" ^ORD(101,816,0)="IBCNSM VERIFY INS^Verify Coverage^^A^1^^^^^^^" ^ORD(101,816,20)="D VC^IBCNSM2" ^ORD(101,816,99)="56791,43736" ^ORD(101,817,0)="IBCNSC INS CO EDIT ALL^Edit All^^A^1^^^^^^^49" ^ORD(101,817,4)="^^^EA" ^ORD(101,817,15)="S VALMBG=1" ^ORD(101,817,20)="S IB(""^"")=0,IBY="",6,"" S VALMY=IBCNS D EA^IBCNSC1" ^ORD(101,817,99)="59178,55586" ^ORD(101,818,0)="IBCNSC INS CO BILLING PARAMETERS^Billing/EDI Param^^A^1^^^^^^^49" ^ORD(101,818,4)="^^^EP" ^ORD(101,818,15)="S VALMBG=1" ^ORD(101,818,20)="S IBY="",1,"" D EA^IBCNSC1" ^ORD(101,818,99)="61029,78050" ^ORD(101,819,0)="IBCNSC INS CO MAIN MAILING ADDRESS^Main Mailing Address^^A^1^^^^^^^49" ^ORD(101,819,4)="^^^EM" ^ORD(101,819,15)="S VALMBG=21" ^ORD(101,819,20)="S IBY="",2,"" D EA^IBCNSC1" ^ORD(101,819,99)="61029,78050" ^ORD(101,820,0)="IBCNSC INS CO APPEALS OFFICE^Appeals Office^^A^1^^^^^^^49" ^ORD(101,820,4)="^^^AA" ^ORD(101,820,15)="S VALMBG=48" ^ORD(101,820,20)="S IBY="",4,"" D EA^IBCNSC1" ^ORD(101,820,99)="61029,78050" ^ORD(101,821,0)="IBCNSC INS CO INQUIRY OFFICE^Inquiry Office^^A^1^^^^^^^49" ^ORD(101,821,4)="^^^IA" ^ORD(101,821,10,0)="^101.01PA^0^0" ^ORD(101,821,15)="S VALMBG=55" ^ORD(101,821,20)="S IBY="",5,"" D EA^IBCNSC1" ^ORD(101,821,28)="" ^ORD(101,821,99)="61029,78050" ^ORD(101,822,0)="IBCNSP EDIT POLICY INFO^Change Plan Info^^A^1^^^^^^^49" ^ORD(101,822,15)="S VALMBG=1" ^ORD(101,822,20)="D PI^IBCNSP11" ^ORD(101,822,99)="56795,59147" ^ORD(101,823,0)="IBCNSP EDIT EFFECTIVE DATES^Effective Dates^^A^1^^^^^^^49" ^ORD(101,823,15)="S VALMBG=16" ^ORD(101,823,20)="D ED^IBCNSP1" ^ORD(101,823,99)="61029,78050" ^ORD(101,824,0)="IBCNSP VERIFY COVERAGE^Verify Coverage^^A^1^^^^^^^49" ^ORD(101,824,15)="S VALMBG=$G(IB1ST(""VERIFY""),1)" ^ORD(101,824,20)="D VC^IBCNSP1" ^ORD(101,824,99)="61029,78050" ^ORD(101,825,0)="IBCNSP SUBSCRIBER UPDATE^Subscriber Update^^A^1^^^^^^^49" ^ORD(101,825,15)="S VALMBG=$S($G(IB1ST(""ID EDIT"")):$G(IB1ST(""ID""),24),1:24)" ^ORD(101,825,20)="D SU^IBCNSP1" ^ORD(101,825,99)="61029,78050" ^ORD(101,826,0)="IBCNSP EMPLOYER INFO FOR CLAIMS^Employer Info^^A^1^^^^^^^49" ^ORD(101,826,15)="S VALMBG=24" ^ORD(101,826,20)="D EM^IBCNSP3" ^ORD(101,826,99)="61029,78050" ^ORD(101,827,0)="IBCNSP ADD COMMENT^Add Comment^^A^1^^^^^^^49" ^ORD(101,827,15)="S VALMBG=$G(IB1ST(""COMMENT""),1)" ^ORD(101,827,20)="D AC^IBCNSP3" ^ORD(101,827,99)="61029,78050" ^ORD(101,828,0)="IBCNSP UR INFO^UR Info^^A^1^^^^^^^49" ^ORD(101,828,15)="S VALMBG=16" ^ORD(101,828,20)="D IT^IBCNSP1" ^ORD(101,828,99)="61029,78050" ^ORD(101,829,0)="IBCNSC INS CO CHANGE COMPANY^Change Insurance Co.^^A^1^^^^^^^49" ^ORD(101,829,4)="^^^CC" ^ORD(101,829,15)="S VALMBG=1" ^ORD(101,829,20)="D CC^IBCNSC1" ^ORD(101,829,24)="I $G(IBCHANGE)=""OKAY""" ^ORD(101,829,25)="" ^ORD(101,829,99)="59178,55586" ^ORD(101,830,0)="IBCNSC INS CO TELEPHONE^Telephone Numbers^^A^1^^^^^^^49" ^ORD(101,830,4)="^^^ET" ^ORD(101,830,20)="S IBY="",7,"" D EA^IBCNSC1" ^ORD(101,830,99)="56791,43731" ^ORD(101,831,0)="IBCNSC INS CO REMARKS^Remarks^^A^1^^^^^^^49" ^ORD(101,831,4)="^^^RE" ^ORD(101,831,15)="S VALMBG=$G(IB1ST(""REM"")) S:'VALMBG VALMBG=1" ^ORD(101,831,20)="S IBY="",8,"" D EA^IBCNSC1" ^ORD(101,831,99)="60484,44475" ^ORD(101,832,0)="IBCNSC INS CO SYNONYMS^Synonyms^^A^1^^^^^^^49" ^ORD(101,832,4)="^^^ES" ^ORD(101,832,10,0)="^101.01PA^0^0" ^ORD(101,832,15)="S VALMBG=$G(IB1ST(""SYN"")) S:'VALMBG VALMBG=1" ^ORD(101,832,20)="S IBY="",9,"" D EA^IBCNSC1" ^ORD(101,832,99)="60484,44475" ^ORD(101,833,0)="IBCNSC INS CO (IN)ACTIVATE COMPANY^(In)Activate Company^^A^1^^^^^^^49" ^ORD(101,833,4)="^^^AI" ^ORD(101,833,15)="S VALMBG=1" ^ORD(101,833,20)="D AI^IBCNSC1" ^ORD(101,833,99)="59178,55586" ^ORD(101,834,0)="IBCNSM BENEFITS USED^Benefits Used^^A^1^^^^^^^49" ^ORD(101,834,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,834,20)="D BU^IBCNSM2" ^ORD(101,834,99)="56791,43734" ^ORD(101,835,0)="IBCNSM ADD POLICY^Add Policy^^A^1^^^^^^^49" ^ORD(101,835,20)="D AD^IBCNSM3" ^ORD(101,835,99)="56791,43734" ^ORD(101,836,0)="IBCNSM DELETE POLICY^Delete Policy^^A^1^^^^^^^49" ^ORD(101,836,20)="D DP^IBCNSM1" ^ORD(101,836,99)="56791,43734" ^ORD(101,837,0)="IBCNSA AN BEN POL INF^Policy Info^^A^1^^^^^^^49" ^ORD(101,837,4)="^^^PI" ^ORD(101,837,10,0)="^101.01PA^0^0" ^ORD(101,837,15)="S VALMBG=1" ^ORD(101,837,20)="D ED^IBCNSA2(""[IBCN AB POL INF]"")" ^ORD(101,837,99)="56791,43730" ^ORD(101,838,0)="IBCNSA AN BEN OPT^Outpatient^^A^1^^^^^^^49" ^ORD(101,838,4)="^^^OP" ^ORD(101,838,15)="S VALMBG=15" ^ORD(101,838,20)="D ED^IBCNSA2(""[IBCN AB OPT]"")" ^ORD(101,838,99)="56791,43730" ^ORD(101,839,0)="IBCNSA AN BEN INPT^Inpatient^^A^1^^^^^^^49" ^ORD(101,839,4)="^^^IP" ^ORD(101,839,15)="S VALMBG=1" ^ORD(101,839,20)="D ED^IBCNSA2(""[IBCN AB INPT]"")" ^ORD(101,839,99)="56791,43730" ^ORD(101,840,0)="IBCNSA AN BEN MEN H^Mental Health^^A^1^^^^^^^49" ^ORD(101,840,4)="^^^MH" ^ORD(101,840,15)="S VALMBG=15" ^ORD(101,840,20)="D ED^IBCNSA2(""[IBCN AB MEN H]"")" ^ORD(101,840,99)="56791,43730" ^ORD(101,841,0)="IBCNSA AN BEN HOME HEA^Home Health^^A^1^^^^^^^49" ^ORD(101,841,4)="^^^HH" ^ORD(101,841,15)="S VALMBG=29" ^ORD(101,841,20)="D ED^IBCNSA2(""[IBCN AB HOME HEA]"")" ^ORD(101,841,99)="56791,43729" ^ORD(101,842,0)="IBCNSA AN BEN HOSPC^Hospice^^A^1^^^^^^^49" ^ORD(101,842,4)="^^^HO" ^ORD(101,842,15)="S VALMBG=29" ^ORD(101,842,20)="D ED^IBCNSA2(""[IBCN AB HOSPC]"")" ^ORD(101,842,99)="56791,43730" ^ORD(101,843,0)="IBCNSA AN BEN USER INF^User Info^^A^1^^^^^^^49" ^ORD(101,843,4)="^^^UI" ^ORD(101,843,15)="S VALMBG=37" ^ORD(101,843,20)="D ED^IBCNSA2(""[IBCN AB USER INF]"")" ^ORD(101,843,99)="56791,43730" ^ORD(101,844,0)="IBCNSA AN BEN ADD COM^Add Comment^^A^1^^^^^^^49" ^ORD(101,844,4)="^^^AC" ^ORD(101,844,15)="" ^ORD(101,844,20)="D ED^IBCNSA2(""[IBCN AB ADD COM]"")" ^ORD(101,844,99)="56791,43729" ^ORD(101,845,0)="IBCNSA AN BEN ED ALL^Edit All^^A^1^^^^^^^49" ^ORD(101,845,4)="^^^EA" ^ORD(101,845,15)="S VALMBG=1" ^ORD(101,845,20)="D ED^IBCNSA2(""[IBCN AB EDIT ALL]"")" ^ORD(101,845,99)="56791,43729" ^ORD(101,846,0)="IBCNSA AN BEN CH YR^Change Year^^A^1^^^^^^^49" ^ORD(101,846,4)="^^^CY" ^ORD(101,846,15)="S VALMBG=1" ^ORD(101,846,20)="D CY^IBCNSA2" ^ORD(101,846,99)="56791,43729" ^ORD(101,847,0)="IBCNSP ANNUAL BENEFITS^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,847,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,847,20)="D AB^IBCNSP1" ^ORD(101,847,99)="56791,43736" ^ORD(101,848,0)="IBCNSP BENEFITS USED^Benefits Used^^A^1^^^^^^^49" ^ORD(101,848,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,848,20)="D BU^IBCNSP1" ^ORD(101,848,99)="56791,43736" ^ORD(101,849,0)="IBCNSP EDIT ALL^Fast Edit All^^A^1^^^^^^^49" ^ORD(101,849,15)="S VALMBG=1" ^ORD(101,849,20)="D EA^IBCNSP1" ^ORD(101,849,99)="56795,60871" ^ORD(101,850,0)="IBCNSM EDIT ALL^Fast Edit All^^A^1^^^^^^^49" ^ORD(101,850,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,850,20)="D EA^IBCNSM31" ^ORD(101,850,99)="56791,43734" ^ORD(101,851,0)="IBCNSC INS CO INPT CLAIMS^Inpt Claims Office^^A^1^^^^^^^49" ^ORD(101,851,4)="^^^IC" ^ORD(101,851,15)="S VALMBG=27" ^ORD(101,851,20)="S IBY="",3,"" D EA^IBCNSC1" ^ORD(101,851,28)="IC" ^ORD(101,851,99)="61029,78050" ^ORD(101,852,0)="IBCNSC INS CO OPT CLAIMS^Opt Claims Office^^A^1^^^^^^^49" ^ORD(101,852,4)="^^^OC" ^ORD(101,852,15)="S VALMBG=34" ^ORD(101,852,20)="S IBY="",10,"" D EA^IBCNSC1" ^ORD(101,852,99)="61029,78050" ^ORD(101,853,0)="IBCNSM INSURANCE MANAGEMENT^Insurance Management^^M^1^^^^^^^49" ^ORD(101,853,1,0)="^^1^1^2930303^^^" ^ORD(101,853,1,1,0)="This is the Primary Insurance Management option for IB v2.0" ^ORD(101,853,4)="26^4" ^ORD(101,853,10,0)="^101.01PA^12^12" ^ORD(101,853,10,1,0)="810^CP^31" ^ORD(101,853,10,2,0)="811^VP^12" ^ORD(101,853,10,3,0)="834^BU^21" ^ORD(101,853,10,4,0)="835^AP^11" ^ORD(101,853,10,5,0)="812^AB^14" ^ORD(101,853,10,6,0)="813^EI^23" ^ORD(101,853,10,7,0)="814^WP^32" ^ORD(101,853,10,8,0)="815^PC^33" ^ORD(101,853,10,9,0)="816^VC^22" ^ORD(101,853,10,10,0)="836^DP^13" ^ORD(101,853,10,11,0)="850^EA^14" ^ORD(101,853,10,12,0)="1003^PR^27" ^ORD(101,853,10,"B",810,1)="" ^ORD(101,853,10,"B",811,2)="" ^ORD(101,853,10,"B",812,5)="" ^ORD(101,853,10,"B",813,6)="" ^ORD(101,853,10,"B",814,7)="" ^ORD(101,853,10,"B",815,8)="" ^ORD(101,853,10,"B",816,9)="" ^ORD(101,853,10,"B",834,3)="" ^ORD(101,853,10,"B",835,4)="" ^ORD(101,853,10,"B",836,10)="" ^ORD(101,853,10,"B",850,11)="" ^ORD(101,853,10,"B",1003,12)="" ^ORD(101,853,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,853,20)="" ^ORD(101,853,26)="D SHOW^VALM" ^ORD(101,853,28)="Select Action: " ^ORD(101,853,99)="56791,43736" ^ORD(101,854,0)="IBCNSC INSURANCE CO^Insurance Company Edit^^M^1^^^^^^^49" ^ORD(101,854,4)="26^4" ^ORD(101,854,10,0)="^101.01PA^35^35" ^ORD(101,854,10,18,0)="817^EA^26^" ^ORD(101,854,10,19,0)="820^AO^21^" ^ORD(101,854,10,20,0)="821^IO^22^" ^ORD(101,854,10,21,0)="819^MM^12^" ^ORD(101,854,10,22,0)="818^BP^11^" ^ORD(101,854,10,23,0)="829^CC^32^" ^ORD(101,854,10,24,0)="831^RE^24^" ^ORD(101,854,10,25,0)="832^SY^25^" ^ORD(101,854,10,26,0)="833^AI^31^" ^ORD(101,854,10,27,0)="851^IC^13^" ^ORD(101,854,10,28,0)="852^OC^14^" ^ORD(101,854,10,29,0)="1005^PC^15^" ^ORD(101,854,10,30,0)="1078^DC^33^" ^ORD(101,854,10,31,0)="1006^EX^35^" ^ORD(101,854,10,32,0)="1088^VP^34^" ^ORD(101,854,10,33,0)="3243^ID^23^" ^ORD(101,854,10,34,0)="3508^PA^23" ^ORD(101,854,10,35,0)="4094^AC^22" ^ORD(101,854,10,"B",817,18)="" ^ORD(101,854,10,"B",818,22)="" ^ORD(101,854,10,"B",819,21)="" ^ORD(101,854,10,"B",820,19)="" ^ORD(101,854,10,"B",821,20)="" ^ORD(101,854,10,"B",829,23)="" ^ORD(101,854,10,"B",831,24)="" ^ORD(101,854,10,"B",832,25)="" ^ORD(101,854,10,"B",833,26)="" ^ORD(101,854,10,"B",851,27)="" ^ORD(101,854,10,"B",852,28)="" ^ORD(101,854,10,"B",1005,29)="" ^ORD(101,854,10,"B",1006,31)="" ^ORD(101,854,10,"B",1078,30)="" ^ORD(101,854,10,"B",1088,32)="" ^ORD(101,854,10,"B",3243,33)="" ^ORD(101,854,10,"B",3508,34)="" ^ORD(101,854,10,"B",4094,35)="" ^ORD(101,854,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,854,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,854,25)="" ^ORD(101,854,26)="D SHOW^VALM" ^ORD(101,854,28)="Select Action: " ^ORD(101,854,99)="61029,78050" ^ORD(101,855,0)="IBCNSP POLICY MENU^Insurance Policy Menu^^M^1^^^^^^^49" ^ORD(101,855,4)="26^4" ^ORD(101,855,10,0)="^101.01PA^18^15" ^ORD(101,855,10,1,0)="822^PI^11" ^ORD(101,855,10,2,0)="823^ED^13" ^ORD(101,855,10,3,0)="824^VC^31" ^ORD(101,855,10,4,0)="825^SU^14" ^ORD(101,855,10,5,0)="826^EM^22" ^ORD(101,855,10,7,0)="828^UI^12" ^ORD(101,855,10,8,0)="847^AB^32" ^ORD(101,855,10,9,0)="848^BU^33" ^ORD(101,855,10,11,0)="858^EX^34" ^ORD(101,855,10,12,0)="990^IC^21" ^ORD(101,855,10,14,0)="1077^IP^15" ^ORD(101,855,10,15,0)="1076^CP^26" ^ORD(101,855,10,16,0)="1082^CV^23" ^ORD(101,855,10,17,0)="827^AC^24" ^ORD(101,855,10,18,0)="849^EA^25" ^ORD(101,855,10,"B",822,1)="" ^ORD(101,855,10,"B",823,2)="" ^ORD(101,855,10,"B",824,3)="" ^ORD(101,855,10,"B",825,4)="" ^ORD(101,855,10,"B",826,5)="" ^ORD(101,855,10,"B",827,17)="" ^ORD(101,855,10,"B",828,7)="" ^ORD(101,855,10,"B",847,8)="" ^ORD(101,855,10,"B",848,9)="" ^ORD(101,855,10,"B",849,18)="" ^ORD(101,855,10,"B",858,11)="" ^ORD(101,855,10,"B",990,12)="" ^ORD(101,855,10,"B",1076,15)="" ^ORD(101,855,10,"B",1077,14)="" ^ORD(101,855,10,"B",1082,16)="" ^ORD(101,855,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,855,26)="D SHOW^VALM" ^ORD(101,855,28)="Select Action: " ^ORD(101,855,99)="61029,78050" ^ORD(101,856,0)="IBCNSA ANNUAL BENEFITS^Annual Benefits Editor^^M^1^^^^^^^49" ^ORD(101,856,4)="26^4^^AB" ^ORD(101,856,10,0)="^101.01PA^11^11" ^ORD(101,856,10,1,0)="837^PI^11" ^ORD(101,856,10,2,0)="838^OP^14" ^ORD(101,856,10,3,0)="839^IP^13" ^ORD(101,856,10,4,0)="840^MH^21" ^ORD(101,856,10,5,0)="841^HH^22" ^ORD(101,856,10,6,0)="842^HS^23" ^ORD(101,856,10,7,0)="845^EA^32" ^ORD(101,856,10,8,0)="846^CY^33" ^ORD(101,856,10,9,0)="858^EX^34" ^ORD(101,856,10,10,0)="880^RH^24" ^ORD(101,856,10,11,0)="881^IV^31" ^ORD(101,856,10,"B",837,1)="" ^ORD(101,856,10,"B",838,2)="" ^ORD(101,856,10,"B",839,3)="" ^ORD(101,856,10,"B",840,4)="" ^ORD(101,856,10,"B",841,5)="" ^ORD(101,856,10,"B",842,6)="" ^ORD(101,856,10,"B",845,7)="" ^ORD(101,856,10,"B",846,8)="" ^ORD(101,856,10,"B",858,9)="" ^ORD(101,856,10,"B",880,10)="" ^ORD(101,856,10,"B",881,11)="" ^ORD(101,856,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,856,20)="" ^ORD(101,856,26)="D SHOW^VALM" ^ORD(101,856,28)="Select Action: " ^ORD(101,856,99)="56791,43731" ^ORD(101,857,0)="IBCNSM PATIENT INSURANCE^Patient Insurance^^M^1^^^^^^^49" ^ORD(101,857,4)="26^4" ^ORD(101,857,10,0)="^101.01PA^12^12" ^ORD(101,857,10,1,0)="810^CP^31" ^ORD(101,857,10,2,0)="811^VP^12" ^ORD(101,857,10,3,0)="834^BU^21" ^ORD(101,857,10,4,0)="835^AP^11" ^ORD(101,857,10,5,0)="812^AB^14" ^ORD(101,857,10,6,0)="814^WP^32" ^ORD(101,857,10,7,0)="815^PC^33" ^ORD(101,857,10,8,0)="836^DP^13" ^ORD(101,857,10,9,0)="850^EA^14" ^ORD(101,857,10,10,0)="816^VC^22" ^ORD(101,857,10,11,0)="1003^RI^27" ^ORD(101,857,10,12,0)="1006^EX^34" ^ORD(101,857,10,"B",810,1)="" ^ORD(101,857,10,"B",811,2)="" ^ORD(101,857,10,"B",812,5)="" ^ORD(101,857,10,"B",814,6)="" ^ORD(101,857,10,"B",815,7)="" ^ORD(101,857,10,"B",816,10)="" ^ORD(101,857,10,"B",834,3)="" ^ORD(101,857,10,"B",835,4)="" ^ORD(101,857,10,"B",836,8)="" ^ORD(101,857,10,"B",850,9)="" ^ORD(101,857,10,"B",1003,11)="" ^ORD(101,857,10,"B",1006,12)="" ^ORD(101,857,26)="D SHOW^VALM" ^ORD(101,857,99)="59178,55586" ^ORD(101,858,0)="IBCNS EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,858,1,0)="^^2^2^2930806^^^^" ^ORD(101,858,1,1,0)="Allows the user to exit the system without quitting through the hierarchy of" ^ORD(101,858,1,2,0)="screens, or the user can exit to the previous screen." ^ORD(101,858,2,0)="^101.02A^1^1" ^ORD(101,858,2,1,0)="EX" ^ORD(101,858,2,"B","EX",1)="" ^ORD(101,858,4)="^^^EX" ^ORD(101,858,10,0)="^101.01PA^0^0" ^ORD(101,858,20)="D FASTEXIT^IBCNSM" ^ORD(101,858,28)="EX" ^ORD(101,858,99)="56791,43729" ^ORD(101,859,0)="IBCNSV ANNUAL BENEFITS^View An Ben^^M^1^^^^^^^49" ^ORD(101,859,4)="26^4^^AB" ^ORD(101,859,10,0)="^101.01PA^2^2" ^ORD(101,859,10,1,0)="846^CY^11" ^ORD(101,859,10,2,0)="858^EX^21" ^ORD(101,859,10,"B",846,1)="" ^ORD(101,859,10,"B",858,2)="" ^ORD(101,859,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,859,26)="D SHOW^VALM" ^ORD(101,859,28)="Select Action: " ^ORD(101,859,99)="56791,43738" ^ORD(101,860,0)="IBCNSV PATIENT INSURANCE^Patient Insurance^^M^1^^^^^^^49" ^ORD(101,860,4)="26^4" ^ORD(101,860,10,0)="^101.01PA^5^5" ^ORD(101,860,10,1,0)="810^CP^22" ^ORD(101,860,10,2,0)="862^AB^12" ^ORD(101,860,10,3,0)="861^VP^11" ^ORD(101,860,10,4,0)="863^BU^21" ^ORD(101,860,10,5,0)="1006^EX^31" ^ORD(101,860,10,"B",810,1)="" ^ORD(101,860,10,"B",861,3)="" ^ORD(101,860,10,"B",862,2)="" ^ORD(101,860,10,"B",863,4)="" ^ORD(101,860,10,"B",1006,5)="" ^ORD(101,860,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,860,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,860,26)="D SHOW^VALM" ^ORD(101,860,28)="Select Action: " ^ORD(101,860,99)="59178,55586" ^ORD(101,861,0)="IBCNSV VIEW EXP POL^View Policy Info^^A^1^^^^^^^49" ^ORD(101,861,4)="^^^VP" ^ORD(101,861,10,0)="^101.01PA^0^0" ^ORD(101,861,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,861,20)="D NXT^IBCNSV(""IBCNS VIEW EXP POL"")" ^ORD(101,861,99)="56791,43739" ^ORD(101,862,0)="IBCNSV VIEW AN BEN^Annual Benefits ^^A^1^^^^^^^49" ^ORD(101,862,4)="^^^VB" ^ORD(101,862,20)="D NXT^IBCNSV(""IBCNS VIEW AN BEN"")" ^ORD(101,862,28)="" ^ORD(101,862,99)="56791,43739" ^ORD(101,863,0)="IBCNSV VIEW BEN USED^Benefits Used^^A^1^^^^^^^49" ^ORD(101,863,4)="^^^VU" ^ORD(101,863,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,863,20)="D NXT^IBCNSV(""IBCNS VIEW BEN USED"")" ^ORD(101,863,28)="" ^ORD(101,863,99)="56791,43739" ^ORD(101,864,0)="IBCNSV BENEFITS USED BY DATE^View Benefits Used By Date^^M^1^^^^^^^49" ^ORD(101,864,4)="26^4^^BU" ^ORD(101,864,10,0)="^101.01PA^2^2" ^ORD(101,864,10,1,0)="877^CY^11" ^ORD(101,864,10,2,0)="858^EX^21" ^ORD(101,864,10,"B",858,2)="" ^ORD(101,864,10,"B",877,1)="" ^ORD(101,864,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,864,26)="D SHOW^VALM" ^ORD(101,864,28)="Select Action: " ^ORD(101,864,99)="56791,43738" ^ORD(101,865,0)="IBCNSV POLICY MENU^Insurance Policy Menu^^M^1^^^^^^^49" ^ORD(101,865,4)="26^4" ^ORD(101,865,10,0)="^101.01PA^1^1" ^ORD(101,865,10,1,0)="858^EX^11" ^ORD(101,865,10,"B",858,1)="" ^ORD(101,865,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,865,26)="D SHOW^VALM" ^ORD(101,865,28)="Select Action: " ^ORD(101,865,99)="56791,43739" ^ORD(101,866,0)="IBCNSV INSURANCE CO^View Insurance Co^^M^1^^^^^^^49" ^ORD(101,866,4)="40^4" ^ORD(101,866,10,0)="^101.01PA^2^2" ^ORD(101,866,10,1,0)="829^CC^11" ^ORD(101,866,10,1,1)="^/" ^ORD(101,866,10,2,0)="1006^EX^21" ^ORD(101,866,10,"B",829,1)="" ^ORD(101,866,10,"B",1006,2)="" ^ORD(101,866,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,866,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,866,26)="D SHOW^VALM" ^ORD(101,866,28)="Select Action: " ^ORD(101,866,99)="59178,55586" ^ORD(101,867,0)="IBCNSM VIEW INS CO^View Ins. Co.^^A^1^^^^^^^" ^ORD(101,867,20)="D VI^IBCNSM1" ^ORD(101,867,99)="56791,43736" ^ORD(101,868,0)="IBCNSM VIEW NAT INS CO^View National Ins.^^A^1^^^^^^^" ^ORD(101,868,20)="D VN^IBCNSM1" ^ORD(101,868,99)="56791,43736" ^ORD(101,869,0)="IBCNSM VIEW BENEFITS^View Benefits^^A^1^^^^^^^" ^ORD(101,869,20)="D VB^IBCNSM1" ^ORD(101,869,99)="56791,43736" ^ORD(101,870,0)="IBCNMS VIEW ALL DATA^View All Data^^A^1^^^^^^^" ^ORD(101,870,20)="D VA^IBCNSM1" ^ORD(101,870,99)="56791,43729" ^ORD(101,871,0)="IBCNSM UPDATE POLICY^Enter Policy^^A^1^^^^^^^" ^ORD(101,871,20)="D EP^IBCNSM2" ^ORD(101,871,99)="56791,43736" ^ORD(101,872,0)="IBCNSM UPDATE INS BENEFITS^Enter Cov. Benefits^^A^1^^^^^^^" ^ORD(101,872,20)="D EB^IBCNSM2" ^ORD(101,872,99)="56791,43736" ^ORD(101,873,0)="IBCNSD B USED POL INF^Policy Info^^A^1^^^^^^^49" ^ORD(101,873,4)="^^^PI" ^ORD(101,873,15)="S VALMBG=1" ^ORD(101,873,20)="D FULL^VALM1 W !! D ED^IBCNSD1(""[IBCN BU POL]"")" ^ORD(101,873,99)="56791,43733" ^ORD(101,874,0)="IBCNSD B USED OPT DED^Opt Deduct^^A^1^^^^^^^49" ^ORD(101,874,4)="^^^OD" ^ORD(101,874,15)="S VALMBG=1" ^ORD(101,874,20)="D FULL^VALM1 W !! D ED^IBCNSD1(""[IBCN BU OPT]"")" ^ORD(101,874,99)="56791,43733" ^ORD(101,875,0)="IBCNSD B USED INPT DED^Inpt Deduct^^A^1^^^^^^^49" ^ORD(101,875,4)="^^^ID" ^ORD(101,875,10,0)="^101.01PA^1^1" ^ORD(101,875,10,1,0)="876^AC^23" ^ORD(101,875,10,"B",876,1)="" ^ORD(101,875,15)="S VALMBG=1" ^ORD(101,875,20)="D FULL^VALM1 W !! D ED^IBCNSD1(""[IBCN BU INPT]"")" ^ORD(101,875,99)="56791,43733" ^ORD(101,876,0)="IBCNSD B USED ADD COM^Add Comment^^A^1^^^^^^^49" ^ORD(101,876,4)="^^^AC" ^ORD(101,876,15)="S VALMBG=15" ^ORD(101,876,20)="D FULL^VALM1 W !! D ED^IBCNSD1(""[IBCN BU ADD COM]"")" ^ORD(101,876,99)="56791,43732" ^ORD(101,877,0)="IBCNSD B USED CH YR^Change Year^^A^1^^^^^^^49" ^ORD(101,877,4)="^^^CY" ^ORD(101,877,10,0)="^101.01PA^0^0" ^ORD(101,877,20)="D FULL^VALM1 W !! D CY^IBCNSD1" ^ORD(101,877,28)=" " ^ORD(101,877,99)="56791,43732" ^ORD(101,878,0)="IBCNSD B USED ED AL^Edit All^^A^1^^^^^^^49" ^ORD(101,878,4)="^^^EA" ^ORD(101,878,10,0)="^101.01PA^0^0" ^ORD(101,878,15)="S VALMBG=1" ^ORD(101,878,20)="D FULL^VALM1 W !! D ED^IBCNSD1(""[IBCN BU ED AL]"")" ^ORD(101,878,99)="56791,43732" ^ORD(101,879,0)="IBCNSD BENEFITS USED BY DATE^Benefits Used By Date Editor^^M^1^^^^^^^49" ^ORD(101,879,4)="26^4^^BU" ^ORD(101,879,10,0)="^101.01PA^7^7" ^ORD(101,879,10,1,0)="873^PI^11" ^ORD(101,879,10,2,0)="874^OD^12" ^ORD(101,879,10,3,0)="875^ID^13" ^ORD(101,879,10,4,0)="876^AC^21" ^ORD(101,879,10,5,0)="877^CY^23" ^ORD(101,879,10,6,0)="878^EA^22" ^ORD(101,879,10,7,0)="858^EX^31" ^ORD(101,879,10,"B",858,7)="" ^ORD(101,879,10,"B",873,1)="" ^ORD(101,879,10,"B",874,2)="" ^ORD(101,879,10,"B",875,3)="" ^ORD(101,879,10,"B",876,4)="" ^ORD(101,879,10,"B",877,5)="" ^ORD(101,879,10,"B",878,6)="" ^ORD(101,879,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,879,26)="D SHOW^VALM" ^ORD(101,879,28)="Select Action: " ^ORD(101,879,99)="56791,43733" ^ORD(101,880,0)="IBCNSA AN BEN REHAB^Rehab^^A^1^^^^^^^49" ^ORD(101,880,4)="^^^RH" ^ORD(101,880,15)="S VALMBG=29" ^ORD(101,880,20)="D ED^IBCNSA2(""[IBCN AB REHAB]"")" ^ORD(101,880,99)="56791,43730" ^ORD(101,881,0)="IBCNSA AN BEN IV MGMT^IV Mgmt.^^A^1^^^^^^^49" ^ORD(101,881,4)="^^^IV" ^ORD(101,881,15)="S VALMBG=29" ^ORD(101,881,20)="D ED^IBCNSA2(""[IBCN AB IV MGMT]"")" ^ORD(101,881,99)="56791,43730" ^ORD(101,882,0)="IBCN NEW INSURANCE EVENTS^IB New Insurance Event Driver^^X^1^^^^^^^49" ^ORD(101,882,1,0)="^^3^3^2940428^^^^" ^ORD(101,882,1,1,0)="This event driver will be invoked whenever a new insurance type entry is" ^ORD(101,882,1,2,0)="created in the patient file. This is so that necessary actions can take" ^ORD(101,882,1,3,0)="place when a new insurance policy is added for a patient." ^ORD(101,882,4)="^^^IBCNS" ^ORD(101,882,10,0)="^101.01PA^2^2" ^ORD(101,882,10,1,0)="883^^1" ^ORD(101,882,10,2,0)="1474^^2" ^ORD(101,882,10,"B",883,1)="" ^ORD(101,882,10,"B",1474,2)="" ^ORD(101,882,99)="56848,51365" ^ORD(101,883,0)="IBCN INSURANCE BULLETIN^New Insurance Bulletin^^A^1^^^^^^^" ^ORD(101,883,1,0)="^^2^2^2930829^^" ^ORD(101,883,1,1,0)="This protocol will send a bulletin when ever new insurance policies are " ^ORD(101,883,1,2,0)="added and there is covered care that may now be billable." ^ORD(101,883,15)="D ^IBCNSBL" ^ORD(101,883,99)="56791,43729" ^ORD(101,884,0)="IBTRE MENU^Claims Tracked Editor Menu^^M^1^^^^^^^49" ^ORD(101,884,4)="26^4" ^ORD(101,884,10,0)="^101.01PA^17^17" ^ORD(101,884,10,1,0)="885^CP^32" ^ORD(101,884,10,2,0)="886^AT^11" ^ORD(101,884,10,3,0)="887^DT^12" ^ORD(101,884,10,4,0)="889^QE^13" ^ORD(101,884,10,5,0)="891^VE^20" ^ORD(101,884,10,6,0)="888^HR^21" ^ORD(101,884,10,7,0)="890^IR^22" ^ORD(101,884,10,8,0)="892^AE^31" ^ORD(101,884,10,9,0)="893^CD^34" ^ORD(101,884,10,10,0)="957^AC^14" ^ORD(101,884,10,11,0)="960^SC^25" ^ORD(101,884,10,12,0)="964^DU^35" ^ORD(101,884,10,13,0)="858^EX^41" ^ORD(101,884,10,14,0)="968^PU^36" ^ORD(101,884,10,15,0)="974^PV^37" ^ORD(101,884,10,16,0)="991^BI^18" ^ORD(101,884,10,17,0)="1155^VP^38" ^ORD(101,884,10,"B",858,13)="" ^ORD(101,884,10,"B",885,1)="" ^ORD(101,884,10,"B",886,2)="" ^ORD(101,884,10,"B",887,3)="" ^ORD(101,884,10,"B",888,6)="" ^ORD(101,884,10,"B",889,4)="" ^ORD(101,884,10,"B",890,7)="" ^ORD(101,884,10,"B",891,5)="" ^ORD(101,884,10,"B",892,8)="" ^ORD(101,884,10,"B",893,9)="" ^ORD(101,884,10,"B",957,10)="" ^ORD(101,884,10,"B",960,11)="" ^ORD(101,884,10,"B",964,12)="" ^ORD(101,884,10,"B",968,14)="" ^ORD(101,884,10,"B",974,15)="" ^ORD(101,884,10,"B",991,16)="" ^ORD(101,884,10,"B",1155,17)="" ^ORD(101,884,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,884,26)="D SHOW^VALM" ^ORD(101,884,28)="Select Action: " ^ORD(101,884,99)="56795,62848" ^ORD(101,885,0)="IBTRE CHANGE PATIENT^Change Patient^^A^1^^^^^^^49" ^ORD(101,885,20)="D CP^IBTRE1" ^ORD(101,885,99)="56791,43759" ^ORD(101,886,0)="IBTRE ADD TRACKING^Add Tracking Entry^^A^1^^^^^^^49" ^ORD(101,886,20)="D AT^IBTRE2" ^ORD(101,886,99)="56791,43759" ^ORD(101,887,0)="IBTRE DELETE TRACKING^Delete Tracking Entry^^A^1^^^^^^^49" ^ORD(101,887,20)="D DT^IBTRE1" ^ORD(101,887,99)="56791,43759" ^ORD(101,888,0)="IBTRE EDIT REVIEWS^Hospital Reviews^^A^1^^^^^^^49" ^ORD(101,888,20)="D NX^IBTRE1(""IBT REVIEW EDITOR"")" ^ORD(101,888,99)="56791,43760" ^ORD(101,889,0)="IBTRE QUICK EDIT^Quick Edit^^A^1^^^^^^^49" ^ORD(101,889,20)="D QE^IBTRE1" ^ORD(101,889,99)="56791,43760" ^ORD(101,890,0)="IBTRE COMMUNICATIONS EDIT^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,890,20)="D NX^IBTRE1(""IBT COMMUNICATIONS EDITOR"")" ^ORD(101,890,99)="56791,43759" ^ORD(101,891,0)="IBTRE VIEW/EDIT TRACKING^View/Edit Episode^^A^1^^^^^^^49" ^ORD(101,891,20)="D NX^IBTRE1(""IBT EXPAND/EDIT TRACKING"")" ^ORD(101,891,99)="56791,43760" ^ORD(101,892,0)="IBTRE DENIALS/APPEALS^Appeals Edit^^A^1^^^^^^^49" ^ORD(101,892,20)="D NX^IBTRE1(""IBT APPEAL/DENIAL EDITOR"")" ^ORD(101,892,99)="56791,43759" ^ORD(101,893,0)="IBTRE CHANGE DATE^Change Date Range^^A^1^^^^^^^49" ^ORD(101,893,20)="D CD^IBTRE1" ^ORD(101,893,99)="56791,43759" ^ORD(101,894,0)="IBTRED MENU^Expanded Claims Tracking Menu^^M^1^^^^^^^49" ^ORD(101,894,4)="26^4" ^ORD(101,894,10,0)="^101.01PA^10^10" ^ORD(101,894,10,1,0)="895^BI^11" ^ORD(101,894,10,2,0)="896^RI^21" ^ORD(101,894,10,3,0)="897^TA^22" ^ORD(101,894,10,4,0)="898^HR^31" ^ORD(101,894,10,5,0)="899^IR^32" ^ORD(101,894,10,6,0)="965^DU^35" ^ORD(101,894,10,7,0)="858^EX^41" ^ORD(101,894,10,8,0)="969^PU^36" ^ORD(101,894,10,9,0)="975^PV^37" ^ORD(101,894,10,10,0)="4057^SE^39" ^ORD(101,894,10,"B",858,7)="" ^ORD(101,894,10,"B",895,1)="" ^ORD(101,894,10,"B",896,2)="" ^ORD(101,894,10,"B",897,3)="" ^ORD(101,894,10,"B",898,4)="" ^ORD(101,894,10,"B",899,5)="" ^ORD(101,894,10,"B",965,6)="" ^ORD(101,894,10,"B",969,8)="" ^ORD(101,894,10,"B",975,9)="" ^ORD(101,894,10,"B",4057,10)="" ^ORD(101,894,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,894,26)="D SHOW^VALM" ^ORD(101,894,28)="Select Action: " ^ORD(101,894,99)="60410,55050" ^ORD(101,895,0)="IBTRED BILLING INFO^Billing Info Edit^^A^1^^^^^^^49" ^ORD(101,895,15)="S VALMBG=15" ^ORD(101,895,20)="D EDIT^IBTRED1(""[IBT BILLING INFO]"")" ^ORD(101,895,99)="56791,43762" ^ORD(101,896,0)="IBTRED UR INFO^Review Info^^A^1^^^^^^^49" ^ORD(101,896,15)="S VALMBG=7" ^ORD(101,896,20)="D EDIT^IBTRED1(""[IBT UR INFO]"")" ^ORD(101,896,99)="56791,43762" ^ORD(101,897,0)="IBTRED PRECERT INFO^Treatment Auth.^^A^1^^^^^^^49" ^ORD(101,897,15)="S VALMBG=15" ^ORD(101,897,20)="D EDIT^IBTRED1(""[IBT PRECERT INFO]"")" ^ORD(101,897,99)="56791,43762" ^ORD(101,898,0)="IBTRED EDIT REVIEWS^Hospital Reviews^^A^1^^^^^^^49" ^ORD(101,898,20)="D NX^IBTRED1(""IBT REVIEW EDITOR"")" ^ORD(101,898,99)="56791,43762" ^ORD(101,899,0)="IBTRED COMMUNICATIONS EDIT^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,899,20)="D NX^IBTRED1(""IBT COMMUNICATIONS EDITOR"")" ^ORD(101,899,99)="56791,43762" ^ORD(101,900,0)="IBTRV MENU^Review Editor Menu^^M^1^^^^^^^49" ^ORD(101,900,4)="26^4" ^ORD(101,900,10,0)="^101.01PA^10^10" ^ORD(101,900,10,1,0)="901^QE^22" ^ORD(101,900,10,2,0)="904^DR^21" ^ORD(101,900,10,3,0)="905^VE^32" ^ORD(101,900,10,4,0)="907^CS^23" ^ORD(101,900,10,5,0)="910^DU^35" ^ORD(101,900,10,6,0)="858^EX^41" ^ORD(101,900,10,7,0)="970^PU^36" ^ORD(101,900,10,8,0)="976^PV^37" ^ORD(101,900,10,9,0)="983^AN^11" ^ORD(101,900,10,10,0)="1008^CP^40" ^ORD(101,900,10,"B",858,6)="" ^ORD(101,900,10,"B",901,1)="" ^ORD(101,900,10,"B",904,2)="" ^ORD(101,900,10,"B",905,3)="" ^ORD(101,900,10,"B",907,4)="" ^ORD(101,900,10,"B",910,5)="" ^ORD(101,900,10,"B",970,7)="" ^ORD(101,900,10,"B",976,8)="" ^ORD(101,900,10,"B",983,9)="" ^ORD(101,900,10,"B",1008,10)="" ^ORD(101,900,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,900,26)="D SHOW^VALM" ^ORD(101,900,28)="Select Action: " ^ORD(101,900,99)="56791,43767" ^ORD(101,901,0)="IBTRV QUICK EDIT^Quick Edit^^A^1^^^^^^^49" ^ORD(101,901,20)="D QE^IBTRV1" ^ORD(101,901,99)="56791,43767" ^ORD(101,902,0)="IBTRV PRE-CERT^Pre-Cert Review^^A^1^^^^^^^49" ^ORD(101,902,20)="D REV^IBTRV3(10,IBTRN)" ^ORD(101,902,99)="56791,43767" ^ORD(101,903,0)="IBTRV CONT STAY^Cont. Stay Review^^A^1^^^^^^^49" ^ORD(101,903,20)="D REV^IBTRV3(30,IBTRN)" ^ORD(101,903,99)="56791,43767" ^ORD(101,904,0)="IBTRV DELETE REVIEW^Delete Review^^A^1^^^^^^^49" ^ORD(101,904,20)="D DT^IBTRV1" ^ORD(101,904,99)="56791,43767" ^ORD(101,905,0)="IBTRV EXPAND REVIEW^View/Edit Review^^A^1^^^^^^^49" ^ORD(101,905,20)="D NX^IBTRV1(""IBT EXPAND/EDIT REVIEW"")" ^ORD(101,905,99)="56791,43767" ^ORD(101,906,0)="IBTRV COMMUNICATIONS EDIT^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,906,15)="D BLD^IBTRV" ^ORD(101,906,20)="D NX^IBTRVD1(""IBT COMMUNICATIONS EDITOR"",1)" ^ORD(101,906,99)="56791,43766" ^ORD(101,907,0)="IBTRV COMPLETE REV^Change Status^^A^1^^^^^^^49" ^ORD(101,907,20)="D EDIT^IBTRV1(""[IBT STATUS CHANGE]"")" ^ORD(101,907,99)="56791,43766" ^ORD(101,908,0)="IBTRV URGENT ADM REVIEW^Urgent Adm Review^^A^1^^^^^^^49" ^ORD(101,908,20)="D REV^IBTRV3(20,IBTRN)" ^ORD(101,908,99)="56791,43767" ^ORD(101,909,0)="IBTRV DISCHARGE REVIEW^Discharge Review^^A^1^^^^^^^49" ^ORD(101,909,20)="D REV^IBTRV3(40,IBTRN)" ^ORD(101,909,99)="56791,43767" ^ORD(101,910,0)="IBTRV DIAGNOSIS^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,910,15)="D BLD^IBTRV" ^ORD(101,910,20)="D EN^IBTRE3(IBTRN)" ^ORD(101,910,99)="56791,43767" ^ORD(101,911,0)="IBTRV NEXT REVIEW^Add Next Review^^A^1^^^^^^^49" ^ORD(101,911,20)="D NR^IBTRV2" ^ORD(101,911,99)="56791,43767" ^ORD(101,912,0)="IBTRVD MENU^Expanded Review Menu^^M^1^^^^^^^49" ^ORD(101,912,4)="26^4" ^ORD(101,912,10,0)="^101.01PA^9^8" ^ORD(101,912,10,1,0)="915^CS^12" ^ORD(101,912,10,2,0)="914^AC^13" ^ORD(101,912,10,3,0)="913^RI^11" ^ORD(101,912,10,5,0)="917^DU^35" ^ORD(101,912,10,6,0)="920^CU^23" ^ORD(101,912,10,7,0)="858^EX^41" ^ORD(101,912,10,8,0)="971^PU^36" ^ORD(101,912,10,9,0)="977^PV^37" ^ORD(101,912,10,"B",858,7)="" ^ORD(101,912,10,"B",913,3)="" ^ORD(101,912,10,"B",914,2)="" ^ORD(101,912,10,"B",915,1)="" ^ORD(101,912,10,"B",917,5)="" ^ORD(101,912,10,"B",920,6)="" ^ORD(101,912,10,"B",971,8)="" ^ORD(101,912,10,"B",977,9)="" ^ORD(101,912,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,912,26)="D SHOW^VALM" ^ORD(101,912,28)="Select Action: " ^ORD(101,912,99)="56795,62889" ^ORD(101,913,0)="IBTRVD REVIEW INFO^Review Information^^A^1^^^^^^^49" ^ORD(101,913,15)="S VALMBG=1" ^ORD(101,913,20)="D EDIT^IBTRVD1(""[IBT REVIEW INFO]"")" ^ORD(101,913,99)="56791,43768" ^ORD(101,914,0)="IBTRVD ADD COMMENTS^Add Comments^^A^1^^^^^^^49" ^ORD(101,914,15)="D BLD^IBTRVD S VALMBG=27" ^ORD(101,914,20)="S IBDIF=1 D EDIT^IBTRVD1(""[IBT ADD COMMENTS]"")" ^ORD(101,914,99)="56791,43768" ^ORD(101,915,0)="IBTRVD STATUS CHANGE^Change Status^^A^1^^^^^^^49" ^ORD(101,915,15)="S VALMBG=17" ^ORD(101,915,20)="D EDIT^IBTRVD1(""[IBT STATUS CHANGE]"")" ^ORD(101,915,99)="56791,43768" ^ORD(101,916,0)="IBTRVD SPEC UNIT^Special Unit SI/IS^^A^1^^^^^^^49" ^ORD(101,916,15)="S VALMBG=1" ^ORD(101,916,20)="D EDIT^IBTRVD1(""[IBT SPECIAL UNIT]"")" ^ORD(101,916,99)="56791,43768" ^ORD(101,917,0)="IBTRVD DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,917,15)="D BLD^IBTRVD S VALMBG=17" ^ORD(101,917,20)="D EN^IBTRE3(IBTRN)" ^ORD(101,917,99)="56791,43768" ^ORD(101,918,0)="IBTRVD INSURANCE ACTION^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,918,20)="D IA^IBTRVD1(IBTRV)" ^ORD(101,918,99)="56791,43768" ^ORD(101,919,0)="IBTRVD COMMUNICATIONS EDIT^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,919,20)="D NX^IBTRVD1(""IBT COMMUNICATIONS EDITOR"")" ^ORD(101,919,99)="56791,43768" ^ORD(101,920,0)="IBTRVD REVIEW CRITERIA^Criteria Update^^A^1^^^^^^^49" ^ORD(101,920,15)="S VALMBG=1" ^ORD(101,920,20)="D QE^IBTRVD1" ^ORD(101,920,99)="56791,43768" ^ORD(101,921,0)="IBTRC MENU^Insurance Review Menu^^M^1^^^^^^^49" ^ORD(101,921,4)="26^4" ^ORD(101,921,10,0)="^101.01PA^14^14" ^ORD(101,921,10,1,0)="922^AI^11" ^ORD(101,921,10,2,0)="923^DR^12" ^ORD(101,921,10,3,0)="924^QE^21" ^ORD(101,921,10,4,0)="925^VE^22" ^ORD(101,921,10,5,0)="926^AE^31" ^ORD(101,921,10,6,0)="958^AC^31" ^ORD(101,921,10,7,0)="959^SC^25" ^ORD(101,921,10,8,0)="858^EX^41" ^ORD(101,921,10,9,0)="967^DU^35" ^ORD(101,921,10,10,0)="972^PU^36" ^ORD(101,921,10,11,0)="978^PV^37" ^ORD(101,921,10,12,0)="984^CS^14" ^ORD(101,921,10,13,0)="1001^RW^39" ^ORD(101,921,10,14,0)="1007^CP^40" ^ORD(101,921,10,"B",858,8)="" ^ORD(101,921,10,"B",922,1)="" ^ORD(101,921,10,"B",923,2)="" ^ORD(101,921,10,"B",924,3)="" ^ORD(101,921,10,"B",925,4)="" ^ORD(101,921,10,"B",926,5)="" ^ORD(101,921,10,"B",958,6)="" ^ORD(101,921,10,"B",959,7)="" ^ORD(101,921,10,"B",967,9)="" ^ORD(101,921,10,"B",972,10)="" ^ORD(101,921,10,"B",978,11)="" ^ORD(101,921,10,"B",984,12)="" ^ORD(101,921,10,"B",1001,13)="" ^ORD(101,921,10,"B",1007,14)="" ^ORD(101,921,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,921,26)="D SHOW^VALM" ^ORD(101,921,28)="Select Action: " ^ORD(101,921,99)="56791,43752" ^ORD(101,922,0)="IBTRC ADD INS. ACTION^Add Ins. Review^^A^1^^^^^^^49" ^ORD(101,922,20)="D AI^IBTRC1" ^ORD(101,922,99)="56791,43752" ^ORD(101,923,0)="IBTRC DELETE INS. ACTION^Delete Ins. Review^^A^1^^^^^^^49" ^ORD(101,923,20)="D DT^IBTRC1" ^ORD(101,923,99)="56791,43752" ^ORD(101,924,0)="IBTRC QUICK EDIT^Quick Edit^^A^1^^^^^^^49" ^ORD(101,924,20)="D QE^IBTRC1" ^ORD(101,924,99)="56791,43752" ^ORD(101,925,0)="IBTRC VIEW/EDIT^View/Edit Ins. Review^^A^1^^^^^^^49" ^ORD(101,925,10,0)="^101.01PA^0^0" ^ORD(101,925,20)="D NX^IBTRC1(""IBT EXPAND/EDIT COMMUNICATIONS"")" ^ORD(101,925,99)="56791,43752" ^ORD(101,926,0)="IBTRC APPEAL/DENIALS^Appeals Edit^^A^1^^^^^^^49" ^ORD(101,926,15)="D BLD^IBTRC" ^ORD(101,926,20)="D NX^IBTRCD1(""IBT APPEAL/DENIAL EDITOR"",1)" ^ORD(101,926,99)="56791,43752" ^ORD(101,927,0)="IBTRCD MENU^Insurance Actions Menu^^M^1^^^^^^^49" ^ORD(101,927,4)="26^4" ^ORD(101,927,10,0)="^101.01PA^12^12" ^ORD(101,927,10,1,0)="930^AA^11" ^ORD(101,927,10,2,0)="931^CI^12" ^ORD(101,927,10,3,0)="928^IU^21" ^ORD(101,927,10,4,0)="929^AI^22" ^ORD(101,927,10,5,0)="932^AC^31" ^ORD(101,927,10,6,0)="933^VP^32" ^ORD(101,927,10,7,0)="858^EX^41" ^ORD(101,927,10,8,0)="966^DU^35" ^ORD(101,927,10,9,0)="973^PU^36" ^ORD(101,927,10,10,0)="979^PV^37" ^ORD(101,927,10,11,0)="985^CS^14" ^ORD(101,927,10,12,0)="1001^RW^39" ^ORD(101,927,10,"B",858,7)="" ^ORD(101,927,10,"B",928,3)="" ^ORD(101,927,10,"B",929,4)="" ^ORD(101,927,10,"B",930,1)="" ^ORD(101,927,10,"B",931,2)="" ^ORD(101,927,10,"B",932,5)="" ^ORD(101,927,10,"B",933,6)="" ^ORD(101,927,10,"B",966,8)="" ^ORD(101,927,10,"B",973,9)="" ^ORD(101,927,10,"B",979,10)="" ^ORD(101,927,10,"B",985,11)="" ^ORD(101,927,10,"B",1001,12)="" ^ORD(101,927,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,927,26)="D SHOW^VALM" ^ORD(101,927,28)="Select Action: " ^ORD(101,927,99)="56791,43754" ^ORD(101,928,0)="IBTRCD INSURANCE INFO^Ins. Co. Update^^A^1^^^^^^^49" ^ORD(101,928,15)="S VALMBG=9" ^ORD(101,928,20)="D EDIT^IBTRCD1(""[IBT INSURANCE INFO]"")" ^ORD(101,928,99)="56791,43753" ^ORD(101,929,0)="IBTRCD ACTION INFO^Action Info^^A^1^^^^^^^49" ^ORD(101,929,15)="S VALMBG=1" ^ORD(101,929,20)="D EDIT^IBTRCD1(""[IBT ACTION INFO]"")" ^ORD(101,929,99)="56791,43753" ^ORD(101,930,0)="IBTRCD APPEAL INFO^Appeal Address^^A^1^^^^^^^49" ^ORD(101,930,15)="S VALMBG=15" ^ORD(101,930,20)="D EDIT^IBTRCD1(""[IBT APPEAL INFO]"")" ^ORD(101,930,99)="56791,43753" ^ORD(101,931,0)="IBTRCD CONTACT INFO^Contact Info^^A^1^^^^^^^49" ^ORD(101,931,15)="S VALMBG=1" ^ORD(101,931,20)="D EDIT^IBTRCD1(""[IBT CONTACT INFO]"")" ^ORD(101,931,99)="56791,43753" ^ORD(101,932,0)="IBTRCD COMMENT INFO^Add Comments^^A^1^^^^^^^49" ^ORD(101,932,15)="S VALMBG=23" ^ORD(101,932,20)="D EDIT^IBTRCD1(""[IBT COMMENT INFO]"")" ^ORD(101,932,99)="56791,43753" ^ORD(101,933,0)="IBTRCD EDIT PT. INS.^View Pat. Ins.^^A^1^^^^^^^49" ^ORD(101,933,20)="D NX^IBTRCD1(""IBCNS VIEW PAT INS"")" ^ORD(101,933,99)="56791,43753" ^ORD(101,934,0)="IBTRPR MENU^Pending Work Menu^^M^1^^^^^^^49" ^ORD(101,934,4)="26^4" ^ORD(101,934,10,0)="^101.01PA^13^13" ^ORD(101,934,10,1,0)="935^CD^33" ^ORD(101,934,10,2,0)="936^QE^11" ^ORD(101,934,10,3,0)="937^VE^12" ^ORD(101,934,10,4,0)="940^IR^21" ^ORD(101,934,10,5,0)="939^HR^22" ^ORD(101,934,10,6,0)="938^CS^31" ^ORD(101,934,10,7,0)="941^CT^13" ^ORD(101,934,10,8,0)="942^RL^34" ^ORD(101,934,10,9,0)="962^SC^25" ^ORD(101,934,10,10,0)="963^PW^14" ^ORD(101,934,10,11,0)="980^DU^35" ^ORD(101,934,10,12,0)="981^PU^36" ^ORD(101,934,10,13,0)="982^PV^37" ^ORD(101,934,10,"B",935,1)="" ^ORD(101,934,10,"B",936,2)="" ^ORD(101,934,10,"B",937,3)="" ^ORD(101,934,10,"B",938,6)="" ^ORD(101,934,10,"B",939,5)="" ^ORD(101,934,10,"B",940,4)="" ^ORD(101,934,10,"B",941,7)="" ^ORD(101,934,10,"B",942,8)="" ^ORD(101,934,10,"B",962,9)="" ^ORD(101,934,10,"B",963,10)="" ^ORD(101,934,10,"B",980,11)="" ^ORD(101,934,10,"B",981,12)="" ^ORD(101,934,10,"B",982,13)="" ^ORD(101,934,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,934,26)="D SHOW^VALM" ^ORD(101,934,28)="Select Action: " ^ORD(101,934,99)="56791,43765" ^ORD(101,935,0)="IBTRPR CHANGE DATE^Change Date Range^^A^1^^^^^^^49" ^ORD(101,935,20)="D CD^IBTRPR1" ^ORD(101,935,99)="56791,43765" ^ORD(101,936,0)="IBTRPR QUICK EDIT^Quick Edit^^A^1^^^^^^^49" ^ORD(101,936,20)="D QE^IBTRPR1" ^ORD(101,936,99)="56791,43765" ^ORD(101,937,0)="IBTRPR VIEW EDIT^View/Edit Entry^^A^1^^^^^^^49" ^ORD(101,937,20)="D VE^IBTRPR1" ^ORD(101,937,99)="56791,43765" ^ORD(101,938,0)="IBTRPR STATUS CHANGE^Change Status^^A^1^^^^^^^49" ^ORD(101,938,20)="D SC^IBTRPR1" ^ORD(101,938,99)="56791,43765" ^ORD(101,939,0)="IBTRPR UR REVIEW^Hospital Reviews^^A^1^^^^^^^49" ^ORD(101,939,20)="D NX^IBTRPR1(""IBT REVIEW EDITOR"")" ^ORD(101,939,99)="56791,43765" ^ORD(101,940,0)="IBTRPR INSURANCE ACTIONS^Ins. Reviews^^A^1^^^^^^^49" ^ORD(101,940,20)="D NX^IBTRPR1(""IBT COMMUNICATIONS EDITOR"")" ^ORD(101,940,99)="56791,43765" ^ORD(101,941,0)="IBTRPR CLAIMS TRACKING^Claims Tracking Edit^^A^1^^^^^^^49" ^ORD(101,941,20)="D NX^IBTRPR1(""IBT EXPAND/EDIT TRACKING"")" ^ORD(101,941,99)="56791,43765" ^ORD(101,942,0)="IBTRPR REMOVE FROM LIST^Remove from List^^A^1^^^^^^^49" ^ORD(101,942,20)="D RL^IBTRPR1" ^ORD(101,942,99)="56791,43765" ^ORD(101,943,0)="IBTRD MENU^Appeal/Denial Menu^^M^1^^^^^^^49" ^ORD(101,943,4)="26^4" ^ORD(101,943,10,0)="^101.01PA^8^8" ^ORD(101,943,10,1,0)="944^VE^11" ^ORD(101,943,10,2,0)="946^QE^12" ^ORD(101,943,10,3,0)="945^AA^21" ^ORD(101,943,10,4,0)="947^DA^22" ^ORD(101,943,10,5,0)="949^PI^31" ^ORD(101,943,10,6,0)="948^IC^32" ^ORD(101,943,10,7,0)="961^SC^25" ^ORD(101,943,10,8,0)="858^EX^41" ^ORD(101,943,10,"B",858,8)="" ^ORD(101,943,10,"B",944,1)="" ^ORD(101,943,10,"B",945,3)="" ^ORD(101,943,10,"B",946,2)="" ^ORD(101,943,10,"B",947,4)="" ^ORD(101,943,10,"B",948,6)="" ^ORD(101,943,10,"B",949,5)="" ^ORD(101,943,10,"B",961,7)="" ^ORD(101,943,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,943,26)="D SHOW^VALM" ^ORD(101,943,28)="Select Action: " ^ORD(101,943,99)="56791,43754" ^ORD(101,944,0)="IBTRD VIEW EDIT DENIAL^View Edit Entry^^A^1^^^^^^^49" ^ORD(101,944,20)="D NX^IBTRD1(""IBT EXPAND/EDIT DENIALS"")" ^ORD(101,944,99)="56791,43754" ^ORD(101,945,0)="IBTRD ADD APPEAL^Add Appeal^^A^1^^^^^^^49" ^ORD(101,945,20)="D AA^IBTRD1" ^ORD(101,945,99)="56791,43754" ^ORD(101,946,0)="IBTRD QUICK EDIT^Quick Edit^^A^1^^^^^^^49" ^ORD(101,946,20)="D QE^IBTRD1" ^ORD(101,946,99)="56791,43754" ^ORD(101,947,0)="IBTRD DELETE APPEAL/DENIAL^Delete Appeal/Denial^^A^1^^^^^^^49" ^ORD(101,947,20)="D DT^IBTRD1" ^ORD(101,947,99)="56791,43754" ^ORD(101,948,0)="IBTRD VIEW INS. CO^Ins. Co. Edit^^A^1^^^^^^^49" ^ORD(101,948,20)="D NX^IBTRD1(""IBCNS INSURANCE COMPANY"")" ^ORD(101,948,99)="56791,43754" ^ORD(101,949,0)="IBTRD PATIENT INS. EDIT^Patient Ins. Edit.^^A^1^^^^^^^49" ^ORD(101,949,20)="D NX^IBTRD1(""IBCNS PATIENT INSURANCE"")" ^ORD(101,949,99)="56791,43754" ^ORD(101,950,0)="IBTRDD MENU^Expanded Appeals/Denials Main Menu^^M^1^^^^^^^49" ^ORD(101,950,4)="26^4" ^ORD(101,950,10,0)="^101.01PA^7^7" ^ORD(101,950,10,1,0)="951^AI^22" ^ORD(101,950,10,2,0)="952^AA^11" ^ORD(101,950,10,3,0)="953^AC^31" ^ORD(101,950,10,4,0)="954^CI^12" ^ORD(101,950,10,5,0)="955^EP^32" ^ORD(101,950,10,6,0)="956^IU^21" ^ORD(101,950,10,7,0)="858^EX^41" ^ORD(101,950,10,"B",858,7)="" ^ORD(101,950,10,"B",951,1)="" ^ORD(101,950,10,"B",952,2)="" ^ORD(101,950,10,"B",953,3)="" ^ORD(101,950,10,"B",954,4)="" ^ORD(101,950,10,"B",955,5)="" ^ORD(101,950,10,"B",956,6)="" ^ORD(101,950,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,950,26)="D SHOW^VALM" ^ORD(101,950,28)="Select Action: " ^ORD(101,950,99)="56791,43755" ^ORD(101,951,0)="IBTRDD ACTION INFO^Action Info^^A^1^^^^^^^49" ^ORD(101,951,15)="S VALMBG=1" ^ORD(101,951,20)="D EDIT^IBTRDD1(""[IBT ACTION INFO]"")" ^ORD(101,951,99)="56791,43755" ^ORD(101,952,0)="IBTRDD APPEAL INFO^Appeal Address^^A^1^^^^^^^49" ^ORD(101,952,15)="S VALMBG=9" ^ORD(101,952,20)="D EDIT^IBTRDD1(""[IBT APPEAL INFO]"")" ^ORD(101,952,99)="56791,43755" ^ORD(101,953,0)="IBTRDD COMMENT INFO^Add Comment^^A^1^^^^^^^49" ^ORD(101,953,20)="D EDIT^IBTRDD1(""[IBT COMMENT INFO]"")" ^ORD(101,953,99)="56791,43755" ^ORD(101,954,0)="IBTRDD CONTACT INFO^Contact Info^^A^1^^^^^^^49" ^ORD(101,954,15)="S VALMBG=23" ^ORD(101,954,20)="D EDIT^IBTRDD1(""[IBT CONTACT INFO]"")" ^ORD(101,954,99)="56791,43755" ^ORD(101,955,0)="IBTRDD EDIT PT. INS.^Edit Pt. Ins.^^A^1^^^^^^^49" ^ORD(101,955,20)="D NX^IBTRDD1(""IBCNS PATIENT INSURANCE"")" ^ORD(101,955,99)="56791,43755" ^ORD(101,956,0)="IBTRDD INSURANCE INFO^Ins. Co. Update^^A^1^^^^^^^49" ^ORD(101,956,15)="S VALMBG=17" ^ORD(101,956,20)="D EDIT^IBTRDD1(""[IBT INSURANCE INFO]"")" ^ORD(101,956,99)="56791,43755" ^ORD(101,957,0)="IBTRE ASSIGN CASE^Assign Case^^A^1^^^^^^^49" ^ORD(101,957,20)="D EDIT^IBTRE1(""[IBT ASSIGN CASE]"")" ^ORD(101,957,99)="56791,43759" ^ORD(101,958,0)="IBTRC ADD COMMENT^Add Comment^^A^1^^^^^^^49" ^ORD(101,958,20)="D EDIT^IBTRC1(""[IBT COMMENT INFO]"")" ^ORD(101,958,99)="56791,43752" ^ORD(101,959,0)="IBTRC SHOW SC CONDITIONS^SC Conditions^^A^1^^^^^^^49" ^ORD(101,959,20)="D SHOWSC^IBTRC1" ^ORD(101,959,99)="56791,43752" ^ORD(101,960,0)="IBTRE SHOW SC CONDITIONS^SC Conditions^^A^1^^^^^^^49" ^ORD(101,960,20)="D SHOWSC^IBTRC1" ^ORD(101,960,99)="56791,43760" ^ORD(101,961,0)="IBTRD SHOW SC CONDITIONS^SC Conditions^^A^1^^^^^^^49" ^ORD(101,961,20)="D SHOWSC^IBTRD1" ^ORD(101,961,99)="56791,43754" ^ORD(101,962,0)="IBTRPR SHOW SC CONDITIONS^SC Conditions^^A^1^^^^^^^49" ^ORD(101,962,20)="D SHOWSC^IBTRPR1" ^ORD(101,962,99)="56791,43765" ^ORD(101,963,0)="IBTRPR PRINT WORKSHEET^Print Worksheet^^A^1^^^^^^^49" ^ORD(101,963,20)="D PW^IBTRPR1" ^ORD(101,963,99)="56791,43765" ^ORD(101,964,0)="IBTRE DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,964,15)="D BLD^IBTRE" ^ORD(101,964,20)="D DIAG^IBTRE1" ^ORD(101,964,99)="56791,43759" ^ORD(101,965,0)="IBTRED DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,965,15)="D BLD^IBTRED S VALMBG=7" ^ORD(101,965,20)="D EN^IBTRE3(IBTRN)" ^ORD(101,965,99)="56791,43762" ^ORD(101,966,0)="IBTRCD DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,966,15)="D BLD^IBTRCD" ^ORD(101,966,20)="D EN^IBTRE3(IBTRN)" ^ORD(101,966,99)="56791,43753" ^ORD(101,967,0)="IBTRC DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,967,15)="D BLD^IBTRC" ^ORD(101,967,20)="D EN^IBTRE3(IBTRN),DRG^IBTRV2(IBTRN)" ^ORD(101,967,99)="56791,43752" ^ORD(101,968,0)="IBTRE PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,968,15)="D BLD^IBTRE" ^ORD(101,968,20)="D PU^IBTRE1" ^ORD(101,968,99)="56791,43760" ^ORD(101,969,0)="IBTRED PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,969,15)="D BLD^IBTRED S VALMBG=7" ^ORD(101,969,20)="D EN^IBTRE4(IBTRN)" ^ORD(101,969,99)="56791,43762" ^ORD(101,970,0)="IBTRV PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,970,15)="D BLD^IBTRV" ^ORD(101,970,20)="D EN^IBTRE4(IBTRN)" ^ORD(101,970,99)="56791,43767" ^ORD(101,971,0)="IBTRVD PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,971,15)="D BLD^IBTRVD S VALMBG=17" ^ORD(101,971,20)="D EN^IBTRE4(IBTRN)" ^ORD(101,971,99)="56791,43768" ^ORD(101,972,0)="IBTRC PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,972,15)="D BLD^IBTRC" ^ORD(101,972,20)="D EN^IBTRE4(IBTRN)" ^ORD(101,972,99)="56791,43752" ^ORD(101,973,0)="IBTRCD PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,973,15)="D BLD^IBTRCD" ^ORD(101,973,20)="D EN^IBTRE4(IBTRN)" ^ORD(101,973,99)="56791,43753" ^ORD(101,974,0)="IBTRE PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,974,15)="D BLD^IBTRE" ^ORD(101,974,20)="D PRV^IBTRE1" ^ORD(101,974,99)="56791,43760" ^ORD(101,975,0)="IBTRED PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,975,15)="D BLD^IBTRED S VALMBG=7" ^ORD(101,975,20)="D EN^IBTRE5(IBTRN)" ^ORD(101,975,99)="56791,43762" ^ORD(101,976,0)="IBTRV PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,976,15)="D BLD^IBTRV" ^ORD(101,976,20)="D EN^IBTRE5(IBTRN)" ^ORD(101,976,99)="56791,43767" ^ORD(101,977,0)="IBTRVD PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,977,15)="D BLD^IBTRVD S VALMBG=17" ^ORD(101,977,20)="D EN^IBTRE5(IBTRN)" ^ORD(101,977,99)="56791,43768" ^ORD(101,978,0)="IBTRC PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,978,15)="D BLD^IBTRC" ^ORD(101,978,20)="D EN^IBTRE5(IBTRN)" ^ORD(101,978,99)="56791,43752" ^ORD(101,979,0)="IBTRCD PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,979,15)="D BLD^IBTRCD" ^ORD(101,979,20)="D EN^IBTRE5(IBTRN)" ^ORD(101,979,99)="56791,43753" ^ORD(101,980,0)="IBTRPR DIAGNOSIS UPDATE^Diagnosis Update^^A^1^^^^^^^49" ^ORD(101,980,15)="" ^ORD(101,980,20)="D DIAG^IBTRPR2" ^ORD(101,980,99)="56791,43765" ^ORD(101,981,0)="IBTRPR PROCEDURE UPDATE^Procedure Update^^A^1^^^^^^^49" ^ORD(101,981,15)="" ^ORD(101,981,20)="D PU^IBTRPR2" ^ORD(101,981,99)="56791,43765" ^ORD(101,982,0)="IBTRPR PROVIDER UPDATE^Provider Update^^A^1^^^^^^^49" ^ORD(101,982,20)="D PRV^IBTRPR2" ^ORD(101,982,99)="56791,43765" ^ORD(101,983,0)="IBTRV ADD NEXT REVIEW^Add Next Hosp. Review^^A^1^^^^^^^49" ^ORD(101,983,15)="D BLD^IBTRV" ^ORD(101,983,20)="D ADNXT^IBTRV3(IBTRN)" ^ORD(101,983,99)="56791,43766" ^ORD(101,984,0)="IBTRC STATUS CHANGE^Change Status^^A^1^^^^^^^49" ^ORD(101,984,20)="D EDIT^IBTRC1(""[IBT STATUS CHANGE]"")" ^ORD(101,984,99)="56791,43752" ^ORD(101,985,0)="IBTRCD STATUS CHANGE^Change Status^^A^1^^^^^^^49" ^ORD(101,985,20)="D EDIT^IBTRCD1(""[IBT STATUS CHANGE]"")" ^ORD(101,985,99)="56791,43754" ^ORD(101,986,0)="IBTRPR HR MENU^Pending Reviews HR Only^^M^1^^^^^^^49" ^ORD(101,986,4)="26^4" ^ORD(101,986,10,0)="^101.01PA^12^12" ^ORD(101,986,10,1,0)="935^CD^33" ^ORD(101,986,10,2,0)="936^QE^11" ^ORD(101,986,10,3,0)="937^VE^12" ^ORD(101,986,10,4,0)="939^HR^22" ^ORD(101,986,10,5,0)="938^CS^31" ^ORD(101,986,10,6,0)="941^CT^13" ^ORD(101,986,10,7,0)="942^RL^34" ^ORD(101,986,10,8,0)="962^SC^25" ^ORD(101,986,10,9,0)="963^PW^14" ^ORD(101,986,10,10,0)="980^DU^35" ^ORD(101,986,10,11,0)="981^PU^36" ^ORD(101,986,10,12,0)="982^PV^37" ^ORD(101,986,10,"B",935,1)="" ^ORD(101,986,10,"B",936,2)="" ^ORD(101,986,10,"B",937,3)="" ^ORD(101,986,10,"B",938,5)="" ^ORD(101,986,10,"B",939,4)="" ^ORD(101,986,10,"B",941,6)="" ^ORD(101,986,10,"B",942,7)="" ^ORD(101,986,10,"B",962,8)="" ^ORD(101,986,10,"B",963,9)="" ^ORD(101,986,10,"B",980,10)="" ^ORD(101,986,10,"B",981,11)="" ^ORD(101,986,10,"B",982,12)="" ^ORD(101,986,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,986,26)="D SHOW^VALM" ^ORD(101,986,28)="Select Action:" ^ORD(101,986,99)="56791,43765" ^ORD(101,987,0)="IBTRPR IR MENU^Pending Work IR Menu^^M^1^^^^^^^49" ^ORD(101,987,4)="26^4" ^ORD(101,987,10,0)="^101.01PA^12^12" ^ORD(101,987,10,1,0)="935^CD^33" ^ORD(101,987,10,2,0)="936^QE^11" ^ORD(101,987,10,3,0)="937^VE^12" ^ORD(101,987,10,4,0)="940^IR^21" ^ORD(101,987,10,5,0)="938^CS^31" ^ORD(101,987,10,6,0)="941^CT^13" ^ORD(101,987,10,7,0)="942^RL^34" ^ORD(101,987,10,8,0)="962^SC^25" ^ORD(101,987,10,9,0)="963^PW^14" ^ORD(101,987,10,10,0)="980^DU^35" ^ORD(101,987,10,11,0)="981^PU^36" ^ORD(101,987,10,12,0)="982^PV^37" ^ORD(101,987,10,"B",935,1)="" ^ORD(101,987,10,"B",936,2)="" ^ORD(101,987,10,"B",937,3)="" ^ORD(101,987,10,"B",938,5)="" ^ORD(101,987,10,"B",940,4)="" ^ORD(101,987,10,"B",941,6)="" ^ORD(101,987,10,"B",942,7)="" ^ORD(101,987,10,"B",962,8)="" ^ORD(101,987,10,"B",963,9)="" ^ORD(101,987,10,"B",980,10)="" ^ORD(101,987,10,"B",981,11)="" ^ORD(101,987,10,"B",982,12)="" ^ORD(101,987,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,987,26)="D SHOW^VALM" ^ORD(101,987,28)="Select Action:" ^ORD(101,987,99)="56791,43765" ^ORD(101,988,0)="IBTRE IR MENU^Claims tracking IR Menu^^M^1^^^^^^^49" ^ORD(101,988,4)="26^4" ^ORD(101,988,10,0)="^101.01PA^16^16" ^ORD(101,988,10,1,0)="885^CP^32" ^ORD(101,988,10,2,0)="886^AT^11" ^ORD(101,988,10,3,0)="887^DT^12" ^ORD(101,988,10,4,0)="889^QE^13" ^ORD(101,988,10,5,0)="891^VE^20" ^ORD(101,988,10,6,0)="890^IR^22" ^ORD(101,988,10,7,0)="892^AE^31" ^ORD(101,988,10,8,0)="893^CD^34" ^ORD(101,988,10,9,0)="957^AC^14" ^ORD(101,988,10,10,0)="960^SC^25" ^ORD(101,988,10,11,0)="964^DU^35" ^ORD(101,988,10,12,0)="858^EX^41" ^ORD(101,988,10,13,0)="968^PU^36" ^ORD(101,988,10,14,0)="974^PV^37" ^ORD(101,988,10,15,0)="991^BI^18" ^ORD(101,988,10,16,0)="1155^VP^38" ^ORD(101,988,10,"B",858,12)="" ^ORD(101,988,10,"B",885,1)="" ^ORD(101,988,10,"B",886,2)="" ^ORD(101,988,10,"B",887,3)="" ^ORD(101,988,10,"B",889,4)="" ^ORD(101,988,10,"B",890,6)="" ^ORD(101,988,10,"B",891,5)="" ^ORD(101,988,10,"B",892,7)="" ^ORD(101,988,10,"B",893,8)="" ^ORD(101,988,10,"B",957,9)="" ^ORD(101,988,10,"B",960,10)="" ^ORD(101,988,10,"B",964,11)="" ^ORD(101,988,10,"B",968,13)="" ^ORD(101,988,10,"B",974,14)="" ^ORD(101,988,10,"B",991,15)="" ^ORD(101,988,10,"B",1155,16)="" ^ORD(101,988,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,988,26)="D SHOW^VALM" ^ORD(101,988,28)="Select Action: " ^ORD(101,988,99)="56795,62848" ^ORD(101,989,0)="IBTRE HR MENU^Claims Tracking HR menu^^M^1^^^^^^^49" ^ORD(101,989,4)="26^4" ^ORD(101,989,10,0)="^101.01PA^14^14" ^ORD(101,989,10,1,0)="885^CP^32" ^ORD(101,989,10,2,0)="886^AT^11" ^ORD(101,989,10,3,0)="887^DT^12" ^ORD(101,989,10,4,0)="889^QE^13" ^ORD(101,989,10,5,0)="891^VE^20" ^ORD(101,989,10,6,0)="888^HR^21" ^ORD(101,989,10,7,0)="893^CD^34" ^ORD(101,989,10,8,0)="957^AC^14" ^ORD(101,989,10,9,0)="960^SC^25" ^ORD(101,989,10,10,0)="964^DU^35" ^ORD(101,989,10,11,0)="858^EX^41" ^ORD(101,989,10,12,0)="968^PU^36" ^ORD(101,989,10,13,0)="974^PV^37" ^ORD(101,989,10,14,0)="1155^VP^38" ^ORD(101,989,10,"B",858,11)="" ^ORD(101,989,10,"B",885,1)="" ^ORD(101,989,10,"B",886,2)="" ^ORD(101,989,10,"B",887,3)="" ^ORD(101,989,10,"B",888,6)="" ^ORD(101,989,10,"B",889,4)="" ^ORD(101,989,10,"B",891,5)="" ^ORD(101,989,10,"B",893,7)="" ^ORD(101,989,10,"B",957,8)="" ^ORD(101,989,10,"B",960,9)="" ^ORD(101,989,10,"B",964,10)="" ^ORD(101,989,10,"B",968,12)="" ^ORD(101,989,10,"B",974,13)="" ^ORD(101,989,10,"B",1155,14)="" ^ORD(101,989,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,989,26)="D SHOW^VALM" ^ORD(101,989,28)="Select Action: " ^ORD(101,989,99)="56795,62848" ^ORD(101,990,0)="IBCNSP INSURANCE CONTACT INF^Insur. Contact Inf.^^A^1^^^^^^^49" ^ORD(101,990,4)="^^^IC" ^ORD(101,990,10,0)="^101.01PA^0^0" ^ORD(101,990,15)="S VALMBG=$G(IB1ST(""CONTACT""),1)" ^ORD(101,990,20)="D IC^IBCNSP1" ^ORD(101,990,26)="" ^ORD(101,990,28)="IC" ^ORD(101,990,99)="61029,78050" ^ORD(101,991,0)="IBTRE BILLING INFO^Billing Info Edit^^A^1^^^^^^^49" ^ORD(101,991,20)="D EDIT^IBTRE1(""[IBT BILLING INFO]"")" ^ORD(101,991,99)="56791,43759" ^ORD(101,992,0)="IBDF ADD BLANK SELECTION^Add Blank^^A^1^^^^^^^76" ^ORD(101,992,1,0)="^^2^2^2931020^" ^ORD(101,992,1,1,0)="Allows the user to add a blank selection, i.e., a place holder that takes" ^ORD(101,992,1,2,0)="up space on the selection list but has no data that is displayed." ^ORD(101,992,2,0)="^101.02A^1^1" ^ORD(101,992,2,1,0)="AB" ^ORD(101,992,2,"B","AB",1)="" ^ORD(101,992,20)="D ADDBLANK^IBDF4A" ^ORD(101,992,99)="57099,59875" ^ORD(101,993,0)="IBDF ADD BLANK GROUP^Add Blank^^A^1^^^^^^^76" ^ORD(101,993,1,0)="^^2^2^2931020^" ^ORD(101,993,1,1,0)="Allows the user to add a group that has no displayable text - i.e., it is " ^ORD(101,993,1,2,0)="blank - serves to add space to the list." ^ORD(101,993,2,0)="^101.02A^1^1" ^ORD(101,993,2,1,0)="AB" ^ORD(101,993,2,"B","AB",1)="" ^ORD(101,993,20)="D ADDEMPTY^IBDF3" ^ORD(101,993,99)="57099,59875" ^ORD(101,994,0)="IBDF FORMAT ALL SELECTIONS^Format All^^A^1^^^^^^^76" ^ORD(101,994,1,0)="^^1^1^2931020^" ^ORD(101,994,1,1,0)="Allows the user to format all the selections on the selection list all at once." ^ORD(101,994,2,0)="^101.02A^1^1" ^ORD(101,994,2,1,0)="FA" ^ORD(101,994,2,"B","FA",1)="" ^ORD(101,994,20)="D FORMAT^IBDF9A1" ^ORD(101,994,99)="57099,59875" ^ORD(101,995,0)="IBDF FORMAT GROUP'S SELECTIONS^Format All^^A^1^^^^^^^76" ^ORD(101,995,1,0)="^^1^1^2931021^" ^ORD(101,995,1,1,0)="Allows the user to format in mass all the selections in the group." ^ORD(101,995,2,0)="^101.02A^1^1" ^ORD(101,995,2,1,0)="FA" ^ORD(101,995,2,"B","FA",1)="" ^ORD(101,995,20)="D FORMAT2^IBDF9A1" ^ORD(101,995,99)="57099,59875" ^ORD(101,996,0)="IBDF VIEW FORM W/WO DATA^View w/wo Data (Toggle)^^A^1^^^^^^^76" ^ORD(101,996,1,0)="^^2^2^2931022^" ^ORD(101,996,1,1,0)="Allows the user to either view the form with or without data. When viewing" ^ORD(101,996,1,2,0)="with data the user must select a test patient." ^ORD(101,996,2,0)="^101.02A^1^1" ^ORD(101,996,2,1,0)="VD" ^ORD(101,996,2,"B","VD",1)="" ^ORD(101,996,10,0)="^101.01PA^0^0" ^ORD(101,996,20)="D VIEW^IBDF5C" ^ORD(101,996,99)="57099,59875" ^ORD(101,997,0)="IBTRE BI MENU^Claims Tracking for Billers Menu^^M^1^^^^^^^49" ^ORD(101,997,4)="26^4" ^ORD(101,997,10,0)="^101.01PA^7^7" ^ORD(101,997,10,1,0)="885^CP^32" ^ORD(101,997,10,2,0)="891^VE^20" ^ORD(101,997,10,3,0)="893^CD^34" ^ORD(101,997,10,4,0)="960^SC^25" ^ORD(101,997,10,5,0)="858^EX^41" ^ORD(101,997,10,6,0)="991^BI^18" ^ORD(101,997,10,7,0)="1155^VP^38" ^ORD(101,997,10,"B",858,5)="" ^ORD(101,997,10,"B",885,1)="" ^ORD(101,997,10,"B",891,2)="" ^ORD(101,997,10,"B",893,3)="" ^ORD(101,997,10,"B",960,4)="" ^ORD(101,997,10,"B",991,6)="" ^ORD(101,997,10,"B",1155,7)="" ^ORD(101,997,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,997,26)="D SHOW^VALM" ^ORD(101,997,28)="Select Action: " ^ORD(101,997,99)="56795,62848" ^ORD(101,998,0)="IBTRED IR MENU^Expanded Claims tracking menu (IR)^^M^1^^^^^^^49" ^ORD(101,998,4)="26^4" ^ORD(101,998,10,0)="^101.01PA^8^8" ^ORD(101,998,10,1,0)="895^BI^11" ^ORD(101,998,10,2,0)="896^RI^21" ^ORD(101,998,10,3,0)="897^TA^22" ^ORD(101,998,10,4,0)="899^IR^32" ^ORD(101,998,10,5,0)="965^DU^35" ^ORD(101,998,10,6,0)="858^EX^41" ^ORD(101,998,10,7,0)="969^PU^36" ^ORD(101,998,10,8,0)="975^PV^37" ^ORD(101,998,10,"B",858,6)="" ^ORD(101,998,10,"B",895,1)="" ^ORD(101,998,10,"B",896,2)="" ^ORD(101,998,10,"B",897,3)="" ^ORD(101,998,10,"B",899,4)="" ^ORD(101,998,10,"B",965,5)="" ^ORD(101,998,10,"B",969,7)="" ^ORD(101,998,10,"B",975,8)="" ^ORD(101,998,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,998,26)="D SHOW^VALM" ^ORD(101,998,28)="Select Action: " ^ORD(101,998,99)="56791,43762" ^ORD(101,999,0)="IBTRED HR MENU^Expanded Claims Tracking menu (HR)^^M^1^^^^^^^49" ^ORD(101,999,4)="26^4" ^ORD(101,999,10,0)="^101.01PA^6^6" ^ORD(101,999,10,1,0)="896^RI^21" ^ORD(101,999,10,2,0)="898^HR^31" ^ORD(101,999,10,3,0)="965^DU^35" ^ORD(101,999,10,4,0)="858^EX^41" ^ORD(101,999,10,5,0)="969^PU^36" ^ORD(101,999,10,6,0)="975^PV^37" ^ORD(101,999,10,"B",858,4)="" ^ORD(101,999,10,"B",896,1)="" ^ORD(101,999,10,"B",898,2)="" ^ORD(101,999,10,"B",965,3)="" ^ORD(101,999,10,"B",969,5)="" ^ORD(101,999,10,"B",975,6)="" ^ORD(101,999,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,999,26)="D SHOW^VALM" ^ORD(101,999,28)="Select Action: " ^ORD(101,999,99)="56791,43762" ^ORD(101,1000,0)="IBTRED BI MENU^Expanded Claims Tracking Menu (BI)^^M^1^^^^^^^49" ^ORD(101,1000,4)="26^4" ^ORD(101,1000,10,0)="^101.01PA^5^5" ^ORD(101,1000,10,1,0)="895^BI^11" ^ORD(101,1000,10,2,0)="896^RI^21" ^ORD(101,1000,10,3,0)="897^TA^22" ^ORD(101,1000,10,4,0)="858^EX^41" ^ORD(101,1000,10,5,0)="4057^SE^38" ^ORD(101,1000,10,"B",858,4)="" ^ORD(101,1000,10,"B",895,1)="" ^ORD(101,1000,10,"B",896,2)="" ^ORD(101,1000,10,"B",897,3)="" ^ORD(101,1000,10,"B",4057,5)="" ^ORD(101,1000,15)="I $G(IBFASTXT)=1 S VALMBCK=""Q""" ^ORD(101,1000,26)="D SHOW^VALM" ^ORD(101,1000,28)="Select Action: " ^ORD(101,1000,99)="60410,55050" ^ORD(101,1001,0)="IBTRC PRINT REV WORKSHEET^Review Wksheet Print^^A^1^^^^^^^49" ^ORD(101,1001,20)="D RW^IBTRC4" ^ORD(101,1001,99)="56791,43752" ^ORD(101,1002,0)="IBCNSP PERSONAL RIDERS^Personal Riders^^A^1^^^^^^^49" ^ORD(101,1002,20)="D RIDERS^IBCNSP3" ^ORD(101,1002,99)="56791,43736" ^ORD(101,1003,0)="IBCNSM PERSONAL RIDERS^Personal Riders^^A^1^^^^^^^49" ^ORD(101,1003,20)="D RD^IBCNSP3" ^ORD(101,1003,99)="56791,43736" ^ORD(101,1004,0)="IBDF COMPILE FORM^Recompile Form^^A^1^^^^^^^76" ^ORD(101,1004,1,0)="^^1^1^2931124^" ^ORD(101,1004,1,1,0)="Allows forms to be compiled into a format that is very fast to print." ^ORD(101,1004,2,0)="^101.02A^1^1" ^ORD(101,1004,2,1,0)="RC" ^ORD(101,1004,2,"B","RC",1)="" ^ORD(101,1004,20)="D CMPLACTN^IBDF19" ^ORD(101,1004,99)="57099,59875" ^ORD(101,1005,0)="IBCNSC INS CO RX CLAIMS^Prescr Claims Of^^A^1^^^^^^^49" ^ORD(101,1005,4)="^^^PC" ^ORD(101,1005,10,0)="^101.01PA^0^0" ^ORD(101,1005,15)="S VALMBG=41" ^ORD(101,1005,20)="S IBY="",11,"" D EA^IBCNSC1" ^ORD(101,1005,99)="61029,78050" ^ORD(101,1006,0)="IBCNS QUIT^Exit^^A^1^^^^^^^49" ^ORD(101,1006,4)="^^^EX" ^ORD(101,1006,10,0)="^101.01PA^0^0" ^ORD(101,1006,15)="S VALMBCK=""Q""" ^ORD(101,1006,20)="S VALMBCK=""Q""" ^ORD(101,1006,99)="59178,55586" ^ORD(101,1007,0)="IBTRC CHANGE PATIENT^Change Patient^^A^1^^^^^^^49" ^ORD(101,1007,20)="D CP^IBTRC1" ^ORD(101,1007,99)="56791,43752" ^ORD(101,1008,0)="IBTRV CHANGE PATIENT^Change Patient^^A^1^^^^^^^49" ^ORD(101,1008,20)="D CP^IBTRV1" ^ORD(101,1008,99)="56791,43766" ^ORD(101,1009,0)="PRCP CC/IK POSTING MENU^Posting CC/IK Items Menu^^M^1^^^^^^^" ^ORD(101,1009,1,0)="^^2^2^2931020^^^^" ^ORD(101,1009,1,1,0)="This protocol allows the user to post specific items used in a case" ^ORD(101,1009,1,2,0)="cart or instument kit to the using secondary and patient." ^ORD(101,1009,4)="26^4^^PM" ^ORD(101,1009,10,0)="^101.01PA^5^5" ^ORD(101,1009,10,1,0)="1010^EL^5^" ^ORD(101,1009,10,2,0)="1012^RC^20^" ^ORD(101,1009,10,3,0)="1011^RR^15^" ^ORD(101,1009,10,4,0)="1013^PL^30^" ^ORD(101,1009,10,5,0)="1038^EE^10^^^E/E Inventory Items" ^ORD(101,1009,10,"B",1010,1)="" ^ORD(101,1009,10,"B",1011,3)="" ^ORD(101,1009,10,"B",1012,2)="" ^ORD(101,1009,10,"B",1013,4)="" ^ORD(101,1009,10,"B",1038,5)="" ^ORD(101,1009,20)="" ^ORD(101,1009,26)="D SHOW^VALM" ^ORD(101,1009,28)="Select ACTION: " ^ORD(101,1009,99)="58374,34248" ^ORD(101,1010,0)="PRCP CC/IK ITEM EDIT^Edit CC/IK Item List^^A^1^^^^^^^" ^ORD(101,1010,1,0)="^^3^3^2931020^" ^ORD(101,1010,1,1,0)="This protocol allows the user to edit the quantity returned from the" ^ORD(101,1010,1,2,0)="secondary inventory point for items contained in a case cart or" ^ORD(101,1010,1,3,0)="instrument kit." ^ORD(101,1010,4)="^^^EL" ^ORD(101,1010,20)="D EDIT^PRCPOPP1" ^ORD(101,1010,99)="58374,34248" ^ORD(101,1011,0)="PRCP CC/IK REMOVE REUSABLES^Remove Reusables^^A^1^^^^^^^" ^ORD(101,1011,1,0)="^^4^4^2931020^" ^ORD(101,1011,1,1,0)="This protocol allows the user to remove all the reusable items contained" ^ORD(101,1011,1,2,0)="in a case cart or instrument kit from the list of items to post. This" ^ORD(101,1011,1,3,0)="provides a more compact list of items to post and should be used if all" ^ORD(101,1011,1,4,0)="reusable items ordered are returned." ^ORD(101,1011,4)="^^^RR" ^ORD(101,1011,20)="D REMREUSE^PRCPOPP1" ^ORD(101,1011,99)="58374,34248" ^ORD(101,1012,0)="PRCP CC/IK REMOVE CC/IK^Remove CC or IK^^A^1^^^^^^^" ^ORD(101,1012,1,0)="^^4^4^2931020^" ^ORD(101,1012,1,1,0)="This protocol allows the user to remove a case cart or instument kit" ^ORD(101,1012,1,2,0)="from the list of case carts and instrument kits to post. If a case" ^ORD(101,1012,1,3,0)="cart or instrument kit is removed from the list, all items contained" ^ORD(101,1012,1,4,0)="in the case cart or instrument kit will be removed from the list." ^ORD(101,1012,4)="^^^RC" ^ORD(101,1012,20)="D REMCCIK^PRCPOPP1" ^ORD(101,1012,99)="58374,34248" ^ORD(101,1013,0)="PRCP CC/IK POST^Post CC/IK Item List^^A^1^^^^^^^" ^ORD(101,1013,1,0)="^^2^2^2931020^^^" ^ORD(101,1013,1,1,0)="This protocol allows the user to post the items contained in the case cart" ^ORD(101,1013,1,2,0)="or instrument kit to the secondary inventory point and patient." ^ORD(101,1013,4)="^^^PL" ^ORD(101,1013,20)="D POST^PRCPOPP2" ^ORD(101,1013,99)="58374,34248" ^ORD(101,1014,0)="PRCP ENTER/EDIT INVENTORY ITEMS MENU^E/E Inventory Items^^M^1^^^^^^^" ^ORD(101,1014,1,0)="^^1^1^2951205^^" ^ORD(101,1014,1,1,0)="This protocol menu allows the user to add/edit the inventory item data." ^ORD(101,1014,4)="26^^^EE" ^ORD(101,1014,10,0)="^101.01PA^12^12" ^ORD(101,1014,10,1,0)="1023^DE^4^^^Descriptive" ^ORD(101,1014,10,2,0)="1024^CD^14^^^Costing Data" ^ORD(101,1014,10,3,0)="1025^IU^6^^^Issue Units" ^ORD(101,1014,10,4,0)="1026^LE^8^^^Levels" ^ORD(101,1014,10,5,0)="1027^QT^12^^^Quantities" ^ORD(101,1014,10,6,0)="1028^DI^16^^^Due-Ins" ^ORD(101,1014,10,7,0)="1029^SP^22^^^Special Parameters" ^ORD(101,1014,10,8,0)="1030^VN^26^^^Vendors" ^ORD(101,1014,10,9,0)="1031^DA^24^^^Drug Accountability" ^ORD(101,1014,10,10,0)="1032^AF^2^^^All Fields" ^ORD(101,1014,10,11,0)="1033^RI^28^^^Remove Item From Inv" ^ORD(101,1014,10,12,0)="1034^SI^18^^^Secondary Items" ^ORD(101,1014,10,"B",1023,1)="" ^ORD(101,1014,10,"B",1024,2)="" ^ORD(101,1014,10,"B",1025,3)="" ^ORD(101,1014,10,"B",1026,4)="" ^ORD(101,1014,10,"B",1027,5)="" ^ORD(101,1014,10,"B",1028,6)="" ^ORD(101,1014,10,"B",1029,7)="" ^ORD(101,1014,10,"B",1030,8)="" ^ORD(101,1014,10,"B",1031,9)="" ^ORD(101,1014,10,"B",1032,10)="" ^ORD(101,1014,10,"B",1033,11)="" ^ORD(101,1014,10,"B",1034,12)="" ^ORD(101,1014,20)="" ^ORD(101,1014,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1014,26)="D SHOW^VALM" ^ORD(101,1014,99)="58374,34248" ^ORD(101,1015,0)="PRCP DIST ORDER CHECK^Check Order/Items^^A^1^^^^^^^" ^ORD(101,1015,1,0)="^^3^3^2931020^" ^ORD(101,1015,1,1,0)="This protocol will check the items on a distribution order for errors" ^ORD(101,1015,1,2,0)="in the inventory point. Errors include, issue and receipt units," ^ORD(101,1015,1,3,0)="available quantity on-hand, etc." ^ORD(101,1015,4)="^^^CO" ^ORD(101,1015,20)="D CHECKORD^PRCPOPER" ^ORD(101,1015,24)="" ^ORD(101,1015,99)="58374,34248" ^ORD(101,1016,0)="PRCP DIST ORDER RELEASE^Release Order^^A^1^^^^^^^" ^ORD(101,1016,1,0)="^^2^2^2931020^" ^ORD(101,1016,1,1,0)="This protocol allows the user to release a distribution order for filling" ^ORD(101,1016,1,2,0)="by the primary inventory point." ^ORD(101,1016,4)="^^^RO" ^ORD(101,1016,20)="D RELEASEL^PRCPOPR" ^ORD(101,1016,24)="I $$CHECK^PRCPOPL(""RELEASE"")" ^ORD(101,1016,99)="58374,34248" ^ORD(101,1017,0)="PRCP DIST ORDER PROCESSING^Distribution Order Processing^^M^1^^^^^^^" ^ORD(101,1017,1,0)="^^2^2^2931020^" ^ORD(101,1017,1,1,0)="This protocol menu provides the options to generate and post orders from" ^ORD(101,1017,1,2,0)="a primary inventory point to a secondary inventory point." ^ORD(101,1017,4)="26^^^DP" ^ORD(101,1017,10,0)="^101.01PA^9^9" ^ORD(101,1017,10,1,0)="1018^DO^23^^^Delete Order" ^ORD(101,1017,10,2,0)="1019^EI^11^^^Edit Items On Order" ^ORD(101,1017,10,3,0)="1020^DI^21^^^Delete Item On Order" ^ORD(101,1017,10,4,0)="1015^CO^15^^^Check Order/Items" ^ORD(101,1017,10,5,0)="1016^RO^31^^^Release Order" ^ORD(101,1017,10,6,0)="1021^PT^33^^^Picking Ticket Print" ^ORD(101,1017,10,7,0)="1022^PO^35^^^Post Order" ^ORD(101,1017,10,8,0)="1035^EE^17^^^E/E Inventory Items" ^ORD(101,1017,10,9,0)="3021^SO^32" ^ORD(101,1017,10,"B",1015,4)="" ^ORD(101,1017,10,"B",1016,5)="" ^ORD(101,1017,10,"B",1018,1)="" ^ORD(101,1017,10,"B",1019,2)="" ^ORD(101,1017,10,"B",1020,3)="" ^ORD(101,1017,10,"B",1021,6)="" ^ORD(101,1017,10,"B",1022,7)="" ^ORD(101,1017,10,"B",1035,8)="" ^ORD(101,1017,10,"B",3021,9)="" ^ORD(101,1017,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1017,26)="D SHOW^VALM" ^ORD(101,1017,99)="58498,37903" ^ORD(101,1018,0)="PRCP DIST ORDER DELETE^Delete Distribution Order^^A^1^^^^^^^" ^ORD(101,1018,1,0)="^^1^1^2931020^" ^ORD(101,1018,1,1,0)="This protocol will delete the distribution order from the system." ^ORD(101,1018,4)="^^^DO" ^ORD(101,1018,20)="D ORDRDELM^PRCPOPD" ^ORD(101,1018,24)="I $$CHECK^PRCPOPL(""DELETE"")" ^ORD(101,1018,99)="58374,34248" ^ORD(101,1019,0)="PRCP DIST ORDER ITEM EDIT^Edit Items on Distribution Order^^A^1^^^^^^^" ^ORD(101,1019,1,0)="^^1^1^2931020^" ^ORD(101,1019,1,1,0)="This protocol allows the user to add/edit items to the distribution order." ^ORD(101,1019,4)="^^^EI" ^ORD(101,1019,20)="D EDIT^PRCPOPEE" ^ORD(101,1019,24)="I $$CHECK^PRCPOPL(""EDIT"")" ^ORD(101,1019,99)="58374,34248" ^ORD(101,1020,0)="PRCP DIST ORDER ITEM DELETE^Delete Items on Distribution Order^^A^1^^^^^^^" ^ORD(101,1020,1,0)="^101.06^2^2^3000427^^" ^ORD(101,1020,1,1,0)="This protocol allows the user to delete specific items from the" ^ORD(101,1020,1,2,0)="distribution order." ^ORD(101,1020,4)="^^^DI" ^ORD(101,1020,10,0)="^101.01PA^^0" ^ORD(101,1020,20)="D ITEMDELM^PRCPOPD" ^ORD(101,1020,24)="I $$CHECK^PRCPOPL(""DELETE""),$$CHECK^PRCPOPL(""DELETEITEM"")" ^ORD(101,1020,99)="58498,37903" ^ORD(101,1021,0)="PRCP DIST ORDER PICKING TICKET^Picking Ticket Print^^A^1^^^^^^^" ^ORD(101,1021,1,0)="^^2^2^2931020^" ^ORD(101,1021,1,1,0)="This protocol allows the user to print a picking ticket of the order." ^ORD(101,1021,1,2,0)="Before the picking ticket can be printed, the order must be released." ^ORD(101,1021,4)="^^^PT" ^ORD(101,1021,20)="D PICKLM^PRCPOPT" ^ORD(101,1021,24)="I $$CHECK^PRCPOPL(""PICKTICK"")" ^ORD(101,1021,99)="58374,34248" ^ORD(101,1022,0)="PRCP DIST ORDER POSTING^Post Order^^A^1^^^^^^^" ^ORD(101,1022,1,0)="^^3^3^2931020^" ^ORD(101,1022,1,1,0)="This protocol allows the user to post the items on the distribution order" ^ORD(101,1022,1,2,0)="to the secondary inventory point. Before the order can be posted, the" ^ORD(101,1022,1,3,0)="order must have the picking ticket printed on a printer." ^ORD(101,1022,4)="^^^PO" ^ORD(101,1022,20)="D POST^PRCPOPP" ^ORD(101,1022,24)="I $$CHECK^PRCPOPL(""POST"")" ^ORD(101,1022,99)="58374,34248" ^ORD(101,1023,0)="PRCP EDIT ITEM DESCRIPTION^Edit Item Description^^A^1^^^^^^^" ^ORD(101,1023,1,0)="1" ^ORD(101,1023,1,1,0)="This protocol allows the user to edit the items descriptive data." ^ORD(101,1023,4)="^^^DE" ^ORD(101,1023,20)="D DESCRIP^PRCPEIL1" ^ORD(101,1023,99)="58374,34248" ^ORD(101,1024,0)="PRCP EDIT COSTING DATA^Edit Costing Data^^A^1^^^^^^^" ^ORD(101,1024,1,0)="^^1^1^2931020^" ^ORD(101,1024,1,1,0)="This protocol allows the user to edit the item costing data." ^ORD(101,1024,4)="^^^CD" ^ORD(101,1024,20)="D COST^PRCPEIL1" ^ORD(101,1024,24)="I $$CHECK^PRCPEILM" ^ORD(101,1024,99)="58374,34248" ^ORD(101,1025,0)="PRCP EDIT ISSUE UNITS^Edit Issue Units^^A^1^^^^^^^" ^ORD(101,1025,1,0)="^^1^1^2931020^" ^ORD(101,1025,1,1,0)="This protocol allows the user to edit the items issue units." ^ORD(101,1025,4)="^^^IU" ^ORD(101,1025,20)="D ISSUNITS^PRCPEIL1" ^ORD(101,1025,99)="58374,34248" ^ORD(101,1026,0)="PRCP EDIT LEVELS^Edit Levels^^A^1^^^^^^^" ^ORD(101,1026,1,0)="^^1^1^2931020^" ^ORD(101,1026,1,1,0)="This protocol allows the user to edit the items levels." ^ORD(101,1026,4)="^^^LE" ^ORD(101,1026,20)="D LEVELS^PRCPEIL1" ^ORD(101,1026,99)="58374,34248" ^ORD(101,1027,0)="PRCP EDIT QUANTITIES^Edit Quantities^^A^1^^^^^^^" ^ORD(101,1027,1,0)="^^2^2^2951205^^" ^ORD(101,1027,1,1,0)="This protocol allows the user to make adjustments to the inventory quantity" ^ORD(101,1027,1,2,0)="on-hand and total value." ^ORD(101,1027,4)="^^^QT" ^ORD(101,1027,20)="D QUANTITY^PRCPEIL1" ^ORD(101,1027,24)="I PRCPTYPE'=""W""" ^ORD(101,1027,99)="58374,34248" ^ORD(101,1028,0)="PRCP EDIT DUEINS^Edit Due-Ins^^A^1^^^^^^^" ^ORD(101,1028,1,0)="^^1^1^2931020^" ^ORD(101,1028,1,1,0)="This protocol allows the user to edit the items due-ins." ^ORD(101,1028,4)="^^^DI" ^ORD(101,1028,20)="D DUEIN^PRCPEIL1" ^ORD(101,1028,24)="I $$CHECK^PRCPEILM" ^ORD(101,1028,99)="58374,34248" ^ORD(101,1029,0)="PRCP EDIT SPECIAL PARAMETERS^Edit Special Parameters^^A^1^^^^^^^" ^ORD(101,1029,1,0)="^^2^2^2931020^" ^ORD(101,1029,1,1,0)="This protocol allows the user to edit special miscellaneous item" ^ORD(101,1029,1,2,0)="parameters." ^ORD(101,1029,4)="^^^SP" ^ORD(101,1029,20)="D SPECIAL^PRCPEIL1" ^ORD(101,1029,99)="58374,34248" ^ORD(101,1030,0)="PRCP EDIT SOURCES^Edit Vendors^^A^1^^^^^^^" ^ORD(101,1030,1,0)="^^1^1^2931020^" ^ORD(101,1030,1,1,0)="This protocol allows the user to edit the procurement sources for the item." ^ORD(101,1030,4)="^^^VN" ^ORD(101,1030,20)="D SOURCES^PRCPEIL1" ^ORD(101,1030,99)="58374,34248" ^ORD(101,1031,0)="PRCP EDIT DRUG ACCT^Edit Drug Accountability Parameters^^A^1^^^^^^^" ^ORD(101,1031,1,0)="^^3^3^2931020^" ^ORD(101,1031,1,1,0)="This protocol allows the user to edit the drug accountability parameters." ^ORD(101,1031,1,2,0)="Before this protocol can be selected, the primary inventory point must be" ^ORD(101,1031,1,3,0)="set up as a drug accountability inventory point." ^ORD(101,1031,4)="^^^DA" ^ORD(101,1031,20)="D DRUGACCT^PRCPEIL1" ^ORD(101,1031,24)="I $$CHECK^PRCPEILM,$P($G(^PRCP(445,PRCPINPT,0)),""^"",20)=""D""" ^ORD(101,1031,99)="58374,34248" ^ORD(101,1032,0)="PRCP EDIT ALL FIELDS^Edit All Fields^^A^1^^^^^^^" ^ORD(101,1032,1,0)="^^2^2^2931020^" ^ORD(101,1032,1,1,0)="This protocol allows the user to edit all item data fields. It is mostly" ^ORD(101,1032,1,2,0)="used when adding new items to the inventory point." ^ORD(101,1032,4)="^^^AF" ^ORD(101,1032,20)="D ALL^PRCPEIL1" ^ORD(101,1032,99)="58374,34248" ^ORD(101,1033,0)="PRCP EDIT REMOVE ITEM FROM INVPT^Delete Item From Inventory Point^^A^1^^^^^^^" ^ORD(101,1033,1,0)="^^1^1^2940812^^" ^ORD(101,1033,1,1,0)="This protocol allows the user to remove an item from an inventory point." ^ORD(101,1033,4)="^^^RI" ^ORD(101,1033,20)="D DELETE^PRCPEIL1" ^ORD(101,1033,24)="I $$CHECK^PRCPEILM" ^ORD(101,1033,99)="58374,34248" ^ORD(101,1034,0)="PRCP EDIT SECONDARY ITEMS^Edit Secondary Items^^A^1^^^^^^^" ^ORD(101,1034,1,0)="^^4^4^2931020^" ^ORD(101,1034,1,1,0)="This protocol allows primary inventory point users to edit secondary" ^ORD(101,1034,1,2,0)="inventory point item data. The secondary inventory point must be defined" ^ORD(101,1034,1,3,0)="as a distribution inventory point and the user must be an authorized" ^ORD(101,1034,1,4,0)="inventory point user." ^ORD(101,1034,4)="^^^SI" ^ORD(101,1034,20)="D SECOND^PRCPEIL1" ^ORD(101,1034,24)="I PRCPTYPE=""P""" ^ORD(101,1034,99)="58374,34248" ^ORD(101,1035,0)="PRCP DIST ORDER INV ITEM EDIT^Enter/Edit Inventory Items^^A^1^^^^^^^" ^ORD(101,1035,1,0)="^^3^3^2931020^" ^ORD(101,1035,1,1,0)="This protocol allows the user to enter/edit inventory item data without" ^ORD(101,1035,1,2,0)="having to leave the distribution order processing protocol menu and" ^ORD(101,1035,1,3,0)="return." ^ORD(101,1035,4)="^^^EE" ^ORD(101,1035,20)="D EEITEMS^PRCPOPL" ^ORD(101,1035,99)="58374,34248" ^ORD(101,1036,0)="PRCP CHECK ORDER MENU^Check Distribution Order Menu^^M^1^^^^^^^" ^ORD(101,1036,1,0)="^^3^3^2931020^" ^ORD(101,1036,1,1,0)="This protocol menu is generated if there are errors which need to be" ^ORD(101,1036,1,2,0)="corrected by the user before release and posting of items on a" ^ORD(101,1036,1,3,0)="distribution order." ^ORD(101,1036,4)="^^^CO" ^ORD(101,1036,10,0)="^101.01PA^1^1" ^ORD(101,1036,10,1,0)="1037^EE^5^^^E/E Inventory Items" ^ORD(101,1036,10,"B",1037,1)="" ^ORD(101,1036,26)="D SHOW^VALM" ^ORD(101,1036,99)="58374,34248" ^ORD(101,1037,0)="PRCP CHECK ORDER ITEM EDIT^Enter/Edit Inventory Items^^A^1^^^^^^^" ^ORD(101,1037,1,0)="^^3^3^2931025^^" ^ORD(101,1037,1,1,0)="This protocol allows the user to enter/edit inventory item data and" ^ORD(101,1037,1,2,0)="correct errors on the spot without having to leave the option and" ^ORD(101,1037,1,3,0)="return." ^ORD(101,1037,4)="^^^EE" ^ORD(101,1037,20)="D EEITEMS^PRCPOPER" ^ORD(101,1037,99)="58374,34248" ^ORD(101,1038,0)="PRCP CC/IK EDIT INVENTORY ITEMS^Enter/Edit Inventory Items^^A^1^^^^^^^" ^ORD(101,1038,1,0)="^^3^3^2931020^" ^ORD(101,1038,1,1,0)="This protocol allows the user to enter/edit inventory item data" ^ORD(101,1038,1,2,0)="from within the cc/ik protocol menu without having to leave the" ^ORD(101,1038,1,3,0)="option and return." ^ORD(101,1038,4)="^^^EE" ^ORD(101,1038,20)="D EEITEMS^PRCPOPPC" ^ORD(101,1038,99)="58374,34248" ^ORD(101,1039,0)="PRCP CC/IK CHECK ITEMS MENU^Check CC/IK Items^^M^1^^^^^^^" ^ORD(101,1039,1,0)="^^3^3^2931020^" ^ORD(101,1039,1,1,0)="This protocol menu is generated if there are errors which need to be" ^ORD(101,1039,1,2,0)="corrected by the user before release and posting of items on a" ^ORD(101,1039,1,3,0)="distribution order." ^ORD(101,1039,4)="^^^CO" ^ORD(101,1039,10,0)="^101.01PA^1^1" ^ORD(101,1039,10,1,0)="1040^EE^5^^^E/E Inventory Items" ^ORD(101,1039,10,"B",1040,1)="" ^ORD(101,1039,26)="D SHOW^VALM" ^ORD(101,1039,99)="58374,34248" ^ORD(101,1040,0)="PRCP CC/IK CHECK ITEMS EDIT^Enter/Edit Inventory Items^^A^1^^^^^^^" ^ORD(101,1040,1,0)="^^3^3^2931025^^^" ^ORD(101,1040,1,1,0)="This protocol allows the user to enter/edit inventory item data and" ^ORD(101,1040,1,2,0)="correct errors on the spot without having to leave the option and" ^ORD(101,1040,1,3,0)="return." ^ORD(101,1040,4)="^^^EE" ^ORD(101,1040,20)="D EEITEMS^PRCPOPEC" ^ORD(101,1040,99)="58374,34248" ^ORD(101,1041,0)="PRCP INVENTORY PARAMETERS MENU^E/E Inventory Parameters^^M^1^^^^^^^" ^ORD(101,1041,1,0)="^^2^2^2940126^" ^ORD(101,1041,1,1,0)="This protocol is the main menu for entering and editing the inventory" ^ORD(101,1041,1,2,0)="point parameters." ^ORD(101,1041,4)="26" ^ORD(101,1041,10,0)="^101.01PA^9^9" ^ORD(101,1041,10,1,0)="1042^DE^4^^^Descriptive" ^ORD(101,1041,10,2,0)="1043^SP^7^^^Special Parameters" ^ORD(101,1041,10,3,0)="1044^AF^1^^^All Fields" ^ORD(101,1041,10,4,0)="1045^FC^11^^^Fund Control Points" ^ORD(101,1041,10,5,0)="1046^DP^14^^^Distribution Points" ^ORD(101,1041,10,6,0)="1048^AU^24^^^Authorized Users" ^ORD(101,1041,10,7,0)="1047^MC^27^^^MIS Costing" ^ORD(101,1041,10,8,0)="1049^SB^17^^^Stocked By" ^ORD(101,1041,10,9,0)="1050^FL^21^^^Flags" ^ORD(101,1041,10,"B",1042,1)="" ^ORD(101,1041,10,"B",1043,2)="" ^ORD(101,1041,10,"B",1044,3)="" ^ORD(101,1041,10,"B",1045,4)="" ^ORD(101,1041,10,"B",1046,5)="" ^ORD(101,1041,10,"B",1047,7)="" ^ORD(101,1041,10,"B",1048,6)="" ^ORD(101,1041,10,"B",1049,8)="" ^ORD(101,1041,10,"B",1050,9)="" ^ORD(101,1041,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1041,26)="D SHOW^VALM" ^ORD(101,1041,99)="58374,34248" ^ORD(101,1042,0)="PRCP INVENTORY EDIT DESCRIPTION^Inventory Edit Description^^A^1^^^^^^^" ^ORD(101,1042,1,0)="^^2^2^2940105^^^" ^ORD(101,1042,1,1,0)="This protocol allows the user to edit the inventory descriptive" ^ORD(101,1042,1,2,0)="parameters." ^ORD(101,1042,4)="^^^DE" ^ORD(101,1042,20)="D DESCRIP^PRCPENE1" ^ORD(101,1042,99)="58374,34248" ^ORD(101,1043,0)="PRCP INVENTORY EDIT SPECIAL^Special Parameters^^A^1^^^^^^^" ^ORD(101,1043,1,0)="^^1^1^2940105^^" ^ORD(101,1043,1,1,0)="This protocol allows the user to edit the inventory special parameters." ^ORD(101,1043,4)="^^^SP" ^ORD(101,1043,20)="D SPECIAL^PRCPENE1" ^ORD(101,1043,99)="58374,34248" ^ORD(101,1044,0)="PRCP INVENTORY EDIT ALL FIELDS^All Fields^^A^1^^^^^^^" ^ORD(101,1044,1,0)="^^2^2^2940105^" ^ORD(101,1044,1,1,0)="This protocol allows the user to edit the descriptive, special parameters," ^ORD(101,1044,1,2,0)="inventory user, and mis costing section fields." ^ORD(101,1044,4)="^^^AF" ^ORD(101,1044,20)="D ALL^PRCPENE1" ^ORD(101,1044,99)="58374,34248" ^ORD(101,1045,0)="PRCP INVENTORY EDIT FCP^Fund Control Point^^A^1^^^^^^^" ^ORD(101,1045,1,0)="^^2^2^2940105^" ^ORD(101,1045,1,1,0)="This protocol allows the user to edit the fund control points assigned" ^ORD(101,1045,1,2,0)="to the inventory point." ^ORD(101,1045,4)="^^^FC" ^ORD(101,1045,20)="D FCP^PRCPENE1" ^ORD(101,1045,24)="I PRCPTYPE=""W""!(PRCPTYPE=""P"")" ^ORD(101,1045,99)="58374,34248" ^ORD(101,1046,0)="PRCP INVENTORY EDIT DISTRPTS^Distribution Points^^A^1^^^^^^^" ^ORD(101,1046,1,0)="2" ^ORD(101,1046,1,1,0)="This protocol allows the user to edit the distribution points assigned" ^ORD(101,1046,1,2,0)="to the inventory point." ^ORD(101,1046,4)="^^^DP" ^ORD(101,1046,20)="D DISTRPTS^PRCPENE2" ^ORD(101,1046,24)="I PRCPTYPE=""W""!(PRCPTYPE=""P""&($G(PRCP(""I""))))" ^ORD(101,1046,99)="58374,34248" ^ORD(101,1047,0)="PRCP INVENTORY EDIT MISCOST^MIS Costing^^A^1^^^^^^^" ^ORD(101,1047,1,0)="^^1^1^2940105^" ^ORD(101,1047,1,1,0)="This protocol allows the user to edit the MIS costing section." ^ORD(101,1047,4)="^^^MC" ^ORD(101,1047,20)="D MISCOST^PRCPENE1" ^ORD(101,1047,24)="I PRCPTYPE=""P""!(PRCPTYPE=""S"")" ^ORD(101,1047,99)="58374,34248" ^ORD(101,1048,0)="PRCP INVENTORY EDIT USERS^Authorized Users^^A^1^^^^^^^" ^ORD(101,1048,1,0)="^^2^2^2940105^" ^ORD(101,1048,1,1,0)="This protocol allows the user to give authorized users access to the" ^ORD(101,1048,1,2,0)="inventory point." ^ORD(101,1048,4)="^^^AU" ^ORD(101,1048,20)="D USERS^PRCPENE1" ^ORD(101,1048,99)="58374,34248" ^ORD(101,1049,0)="PRCP INVENTORY EDIT STOCKEDBY^Stocked By^^A^1^^^^^^^" ^ORD(101,1049,1,0)="^^2^2^2940105^" ^ORD(101,1049,1,1,0)="This protocol allows the user to add/delete inventory points which" ^ORD(101,1049,1,2,0)="stock this inventory point." ^ORD(101,1049,4)="^^^SB" ^ORD(101,1049,20)="D STOCKED^PRCPENE2" ^ORD(101,1049,24)="I PRCPTYPE'=""W""" ^ORD(101,1049,99)="58374,34248" ^ORD(101,1050,0)="PRCP INVENTORY EDIT FLAGS^Flags^^A^1^^^^^^^" ^ORD(101,1050,1,0)="^^3^3^2940106^" ^ORD(101,1050,1,1,0)="This protocol allows the user to edit the inventory flags which include" ^ORD(101,1050,1,2,0)="the emergency stock level, automatic purge, and regular whse issues due" ^ORD(101,1050,1,3,0)="date." ^ORD(101,1050,4)="^^^FL" ^ORD(101,1050,20)="D FLAGS^PRCPENE1" ^ORD(101,1050,99)="58374,34248" ^ORD(101,1051,0)="PRCP PURCHASE ORDER RECEIPT MENU^Purchase Order Receipt Menu^^M^1^^^^^^^" ^ORD(101,1051,1,0)="^^2^2^2940126^" ^ORD(101,1051,1,1,0)="This protocol is the main protocol for receiving purchase orders into" ^ORD(101,1051,1,2,0)="the inventory point." ^ORD(101,1051,4)="26^^^PO" ^ORD(101,1051,10,0)="^101.01PA^3^3" ^ORD(101,1051,10,1,0)="1052^RO^^^^Receive Order" ^ORD(101,1051,10,2,0)="1053^DC^1^^^Distribution Cost" ^ORD(101,1051,10,3,0)="1054^EE^4^^^E/E Inventory Item" ^ORD(101,1051,10,"B",1052,1)="" ^ORD(101,1051,10,"B",1053,2)="" ^ORD(101,1051,10,"B",1054,3)="" ^ORD(101,1051,26)="D SHOW^VALM" ^ORD(101,1051,99)="58374,34248" ^ORD(101,1052,0)="PRCP PURCHASE ORDER RECEIVE^Receive Order^^A^1^^^^^^^" ^ORD(101,1052,1,0)="^^2^2^2940107^" ^ORD(101,1052,1,1,0)="This protocol allows the user to receive the purchase order into the" ^ORD(101,1052,1,2,0)="inventory point." ^ORD(101,1052,4)="^^^RO" ^ORD(101,1052,20)="D RECEIVE^PRCPPOL1" ^ORD(101,1052,99)="58374,34248" ^ORD(101,1053,0)="PRCP PURCHASE ORDER DIST COST^Distribution Cost^^A^1^^^^^^^" ^ORD(101,1053,1,0)="^^2^2^2940107^" ^ORD(101,1053,1,1,0)="This protocol allows the user to cost items to distribution points for" ^ORD(101,1053,1,2,0)="those items which are not stored in the inventory point." ^ORD(101,1053,4)="^^^DC" ^ORD(101,1053,20)="D DISTCOST^PRCPPOL0" ^ORD(101,1053,99)="58374,34248" ^ORD(101,1054,0)="PRCP PURCHASE ORDER E/E ITEMS^E/E Inventory Items^^A^1^^^^^^^" ^ORD(101,1054,1,0)="^^1^1^2940107^^" ^ORD(101,1054,1,1,0)="This protocol allows the user to enter/edit inventory item data." ^ORD(101,1054,4)="^^^EE" ^ORD(101,1054,20)="D EEITEMS^PRCPPOL0" ^ORD(101,1054,99)="58374,34248" ^ORD(101,1055,0)="PRCP ISSUE BOOK POSTING MENU^Issue Book Posting^^M^1^^^^^^^" ^ORD(101,1055,1,0)="^^2^2^2940120^^" ^ORD(101,1055,1,1,0)="This is the top level menu for the protocol to Post the Issue Book" ^ORD(101,1055,1,2,0)="from the warehouse to the primary inventory point." ^ORD(101,1055,4)="26^^^IB" ^ORD(101,1055,10,0)="^101.01PA^9^9" ^ORD(101,1055,10,1,0)="1056^EE^1^" ^ORD(101,1055,10,2,0)="1057^QR^17^^^Qty to Remaining" ^ORD(101,1055,10,3,0)="1058^QO^14^^^Qty to On-Hand" ^ORD(101,1055,10,4,0)="1059^QE^11^^^Qty to Enter" ^ORD(101,1055,10,5,0)="1060^SN^4^^^Show NSN" ^ORD(101,1055,10,6,0)="1061^CL^21^^^Cancel Line Item" ^ORD(101,1055,10,7,0)="1062^SL^24^^^Substitute Line Item" ^ORD(101,1055,10,8,0)="1063^PI^27^^^Post Issue Book" ^ORD(101,1055,10,9,0)="1064^MF^7^^^Make Final" ^ORD(101,1055,10,"B",1056,1)="" ^ORD(101,1055,10,"B",1057,2)="" ^ORD(101,1055,10,"B",1058,3)="" ^ORD(101,1055,10,"B",1059,4)="" ^ORD(101,1055,10,"B",1060,5)="" ^ORD(101,1055,10,"B",1061,6)="" ^ORD(101,1055,10,"B",1062,7)="" ^ORD(101,1055,10,"B",1063,8)="" ^ORD(101,1055,10,"B",1064,9)="" ^ORD(101,1055,26)="D SHOW^VALM" ^ORD(101,1055,99)="58374,34249" ^ORD(101,1056,0)="PRCP ISSUE BOOK E/E ITEMS^E/E Inventory Items^^A^1^^^^^^^" ^ORD(101,1056,1,0)="^^3^3^2940120^" ^ORD(101,1056,1,1,0)="This protocol allows the user to jump to the Enter/Edit Inventory Item" ^ORD(101,1056,1,2,0)="data option, change inventory item data, and return to the posting of" ^ORD(101,1056,1,3,0)="the issue book." ^ORD(101,1056,4)="^^^EE" ^ORD(101,1056,20)="D EEITEMS^PRCPWPL0" ^ORD(101,1056,99)="58374,34248" ^ORD(101,1057,0)="PRCP ISSUE BOOK QTY TO REMAIN^Qty (to post) to Remaining^^A^1^^^^^^^" ^ORD(101,1057,1,0)="^^3^3^2940111^" ^ORD(101,1057,1,1,0)="This protocol will allow the user to set the quantity to post to the" ^ORD(101,1057,1,2,0)="quantity remaining to post (outstanding quantity) for all line items" ^ORD(101,1057,1,3,0)="on the issue book request." ^ORD(101,1057,4)="^^^QR" ^ORD(101,1057,20)="D REMAIN^PRCPWPL0" ^ORD(101,1057,99)="58374,34248" ^ORD(101,1058,0)="PRCP ISSUE BOOK QTY TO ONHAND^Qty (to post) to On-Hand^^A^1^^^^^^^" ^ORD(101,1058,1,0)="^^2^2^2940111^" ^ORD(101,1058,1,1,0)="This protocol will allow the user to set the quantity to post to the" ^ORD(101,1058,1,2,0)="current on-hand quantity in the warehouse inventory point." ^ORD(101,1058,4)="^^^QO" ^ORD(101,1058,20)="D ONHAND^PRCPWPL0" ^ORD(101,1058,99)="58374,34248" ^ORD(101,1059,0)="PRCP ISSUE BOOK QTY TO ENTER^Qty (to post) Enter^^A^1^^^^^^^" ^ORD(101,1059,1,0)="^^2^2^2940111^" ^ORD(101,1059,1,1,0)="This protocol allows the user to enter the quantity to post for each" ^ORD(101,1059,1,2,0)="line item." ^ORD(101,1059,4)="^^^QE" ^ORD(101,1059,20)="D ENTER^PRCPWPL0" ^ORD(101,1059,99)="58374,34248" ^ORD(101,1060,0)="PRCP ISSUE BOOK SHOW NSN^Show NSN^^A^1^^^^^^^" ^ORD(101,1060,1,0)="^^2^2^2940112^" ^ORD(101,1060,1,1,0)="This protocol will allow the user to include the items NSN on the list" ^ORD(101,1060,1,2,0)="manager's list." ^ORD(101,1060,4)="^^^SN" ^ORD(101,1060,20)="D SHOWNSN^PRCPWPL0" ^ORD(101,1060,99)="58374,34248" ^ORD(101,1061,0)="PRCP ISSUE BOOK CANCEL LINE^Cancel Line Item^^A^1^^^^^^^" ^ORD(101,1061,1,0)="^^2^2^2940112^" ^ORD(101,1061,1,1,0)="This protocol will allow the user to cancel a line item on the issue" ^ORD(101,1061,1,2,0)="book request." ^ORD(101,1061,4)="^^^CL" ^ORD(101,1061,20)="D CANCEL^PRCPWPL2" ^ORD(101,1061,99)="58374,34249" ^ORD(101,1062,0)="PRCP ISSUE BOOK SUBSTITUTE LINE^Substitute Line Item^^A^1^^^^^^^" ^ORD(101,1062,1,0)="^^3^3^2940112^" ^ORD(101,1062,1,1,0)="This protocol will allow the user to substitute an item for an ordered" ^ORD(101,1062,1,2,0)="item. The line item will be cancelled and a new line item added to the" ^ORD(101,1062,1,3,0)="issue book request." ^ORD(101,1062,4)="^^^SL" ^ORD(101,1062,20)="D SUBST^PRCPWPL1" ^ORD(101,1062,99)="58374,34249" ^ORD(101,1063,0)="PRCP ISSUE BOOK POST^Post Issue Book^^A^1^^^^^^^" ^ORD(101,1063,1,0)="^^2^2^2940112^" ^ORD(101,1063,1,1,0)="This protocol will allow the user to post the issue book to the primary" ^ORD(101,1063,1,2,0)="inventory point." ^ORD(101,1063,4)="^^^PI" ^ORD(101,1063,20)="D POST^PRCPWPL3" ^ORD(101,1063,99)="58374,34249" ^ORD(101,1064,0)="PRCP ISSUE BOOK MAKE FINAL^Make Final^^A^1^^^^^^^" ^ORD(101,1064,1,0)="^^1^1^2940113^" ^ORD(101,1064,1,1,0)="This protocol will allow the user to make the issue book a final." ^ORD(101,1064,4)="^^^MF" ^ORD(101,1064,20)="D FINAL^PRCPWPL2" ^ORD(101,1064,99)="58374,34249" ^ORD(101,1065,0)="PRCP RECEIVE ISSUE BOOK MENU^Issue Book Receiving^^M^1^^^^^^^" ^ORD(101,1065,1,0)="^^2^2^2940120^" ^ORD(101,1065,1,1,0)="This is the top level menu for the protocol to Receive the Issue Book" ^ORD(101,1065,1,2,0)="into the primary inventory point." ^ORD(101,1065,4)="26" ^ORD(101,1065,10,0)="^101.01PA^4^4" ^ORD(101,1065,10,1,0)="1066^EE^1^" ^ORD(101,1065,10,2,0)="1067^QE^11^" ^ORD(101,1065,10,3,0)="1068^QR^14^" ^ORD(101,1065,10,4,0)="1069^RI^21^" ^ORD(101,1065,10,"B",1066,1)="" ^ORD(101,1065,10,"B",1067,2)="" ^ORD(101,1065,10,"B",1068,3)="" ^ORD(101,1065,10,"B",1069,4)="" ^ORD(101,1065,26)="D SHOW^VALM" ^ORD(101,1065,99)="58374,34249" ^ORD(101,1066,0)="PRCP RECEIVE ISSUE BOOK E/E ITEMS^E/E Inventory Items^^A^1^^^^^^^" ^ORD(101,1066,1,0)="^^3^3^2940120^" ^ORD(101,1066,1,1,0)="This protocol allows the user to jump the the Enter/Edit Inventory Item" ^ORD(101,1066,1,2,0)="data option, change inventory item data, and return to the receiving of" ^ORD(101,1066,1,3,0)="the issue book." ^ORD(101,1066,4)="^^^EE" ^ORD(101,1066,20)="D EEITEMS^PRCPWPP0" ^ORD(101,1066,99)="58374,34249" ^ORD(101,1067,0)="PRCP RECEIVE ISSUE BOOK QTY TO ENTER^Qty (Receive) Enter^^A^1^^^^^^^" ^ORD(101,1067,1,0)="^^2^2^2940120^^" ^ORD(101,1067,1,1,0)="This protocol allows the user to enter the quantity to receive for each" ^ORD(101,1067,1,2,0)="line item." ^ORD(101,1067,4)="^^^QE" ^ORD(101,1067,20)="D ENTER^PRCPWPP0" ^ORD(101,1067,99)="58374,34249" ^ORD(101,1068,0)="PRCP RECEIVE ISSUE BOOK QTY TO REMAIN^Qty (Receive) to Remain^^A^1^^^^^^^" ^ORD(101,1068,1,0)="^^3^3^2940120^^^^" ^ORD(101,1068,1,1,0)="This protocol will allow the user to set the quantity to receive to the" ^ORD(101,1068,1,2,0)="difference between the quantity posted by the warehouse and the quantity" ^ORD(101,1068,1,3,0)="received by the primary." ^ORD(101,1068,4)="^^^QR" ^ORD(101,1068,20)="D REMAIN^PRCPWPP0" ^ORD(101,1068,99)="58374,34249" ^ORD(101,1069,0)="PRCP RECEIVE ISSUE BOOK RECEIVING^Receive Issue Book^^A^1^^^^^^^" ^ORD(101,1069,1,0)="^^2^2^2940120^^^" ^ORD(101,1069,1,1,0)="This protocol will allow the user to receive the issue book into the" ^ORD(101,1069,1,2,0)="primary inventory point." ^ORD(101,1069,4)="^^^RI" ^ORD(101,1069,20)="D RECEIVE^PRCPWPP3" ^ORD(101,1069,99)="58374,34249" ^ORD(101,1070,0)="PRCP UPLOAD BARCODE DATA MENU^Upload Barcode Data Menu^^M^1^^^^^^^" ^ORD(101,1070,1,0)="^^1^1^2950224^^" ^ORD(101,1070,1,1,0)="This protocol controls the barcode upload for physical counts and usage." ^ORD(101,1070,4)="26^^^UB" ^ORD(101,1070,10,0)="^101.01PA^3^3" ^ORD(101,1070,10,1,0)="1071^EE^1^^^E/E Inventory Items" ^ORD(101,1070,10,2,0)="1072^EQ^10^^^Edit Uploaded Qty" ^ORD(101,1070,10,3,0)="1073^PI^20^^^Post Uploaded Items" ^ORD(101,1070,10,"B",1071,1)="" ^ORD(101,1070,10,"B",1072,2)="" ^ORD(101,1070,10,"B",1073,3)="" ^ORD(101,1070,26)="D SHOW^VALM" ^ORD(101,1070,99)="58374,34249" ^ORD(101,1071,0)="PRCP UPLOAD BARCODE E/E ITEMS^E/E Inventory Items^^A^1^^^^^^^" ^ORD(101,1071,1,0)="^^3^3^2940203^^" ^ORD(101,1071,1,1,0)="This protocol allows the user to jump to the Enter/Edit Inventory Item" ^ORD(101,1071,1,2,0)="data option, change inventory item data, and return to the uploading" ^ORD(101,1071,1,3,0)="of barcode data." ^ORD(101,1071,4)="^^^EE" ^ORD(101,1071,20)="D EEITEMS^PRCPBAL1" ^ORD(101,1071,99)="58374,34249" ^ORD(101,1072,0)="PRCP UPLOAD BARCODE EDIT QTY^Edit Uploaded Qty^^A^1^^^^^^^" ^ORD(101,1072,1,0)="^^2^2^2940203^" ^ORD(101,1072,1,1,0)="This protocol allows the user to change the quantities for items which" ^ORD(101,1072,1,2,0)="have been uploaded." ^ORD(101,1072,4)="^^^EQ" ^ORD(101,1072,20)="D EDITQTY^PRCPBAL1" ^ORD(101,1072,99)="58374,34249" ^ORD(101,1073,0)="PRCP UPLOAD BARCODE POST^Post Uploaded Items^^A^1^^^^^^^" ^ORD(101,1073,1,0)="^^2^2^2940203^" ^ORD(101,1073,1,1,0)="This protocol allows the user to post the uploaded quantities to the" ^ORD(101,1073,1,2,0)="inventory point items." ^ORD(101,1073,4)="^^^PI" ^ORD(101,1073,20)="D POST^PRCPBAL1" ^ORD(101,1073,99)="58374,34249" ^ORD(101,1074,0)="IBCNSJ PLAN SELECT^Select Plan^^A^1^^^^^^^49" ^ORD(101,1074,20)="D SP^IBCNSU2" ^ORD(101,1074,99)="56795,59147" ^ORD(101,1075,0)="IBCNSJ PLAN LOOKUP^Insurance Plan Look-up^^M^1^^^^^^^49" ^ORD(101,1075,4)="26^4" ^ORD(101,1075,10,0)="^101.01PA^1^1" ^ORD(101,1075,10,1,0)="1074^SP^1" ^ORD(101,1075,10,"B",1074,1)="" ^ORD(101,1075,26)="D SHOW^VALM" ^ORD(101,1075,28)="Select Action: " ^ORD(101,1075,99)="56795,59148" ^ORD(101,1076,0)="IBCNSJ CHANGE PLAN^Change Policy Plan^^A^1^^^^^^^49" ^ORD(101,1076,20)="D CSTP^IBCNSJ2" ^ORD(101,1076,99)="56795,60866" ^ORD(101,1077,0)="IBCNSJ INACTIVATE PLAN^Inactivate Plan^^A^1^^^^^^^49" ^ORD(101,1077,20)="D IA^IBCNSJ1" ^ORD(101,1077,99)="56795,59146" ^ORD(101,1078,0)="IBCNSC INS CO DELETE COMPANY^Delete Company^^A^1^^^^^^^49" ^ORD(101,1078,20)="D ^IBCNSCD" ^ORD(101,1078,99)="59178,55586" ^ORD(101,1079,0)="IBCNSJ EDIT PLAN INFO^Change Plan Info^^A^1^^^^^^^49" ^ORD(101,1079,15)="S VALMBG=1" ^ORD(101,1079,20)="D PI1^IBCNSP11" ^ORD(101,1079,99)="56795,60867" ^ORD(101,1080,0)="IBCNSC PLAN DETAIL^^^M^1^^^^^^^49" ^ORD(101,1080,4)="40^4" ^ORD(101,1080,10,0)="^101.01PA^8^8" ^ORD(101,1080,10,1,0)="1006^EX^8" ^ORD(101,1080,10,2,0)="1079^PI^1" ^ORD(101,1080,10,3,0)="1081^CV^3" ^ORD(101,1080,10,4,0)="1086^IP^5" ^ORD(101,1080,10,5,0)="1089^PC^4" ^ORD(101,1080,10,6,0)="1090^UI^2" ^ORD(101,1080,10,7,0)="1087^CP^7" ^ORD(101,1080,10,8,0)="1085^AB^6" ^ORD(101,1080,10,"B",1006,1)="" ^ORD(101,1080,10,"B",1079,2)="" ^ORD(101,1080,10,"B",1081,3)="" ^ORD(101,1080,10,"B",1085,8)="" ^ORD(101,1080,10,"B",1086,4)="" ^ORD(101,1080,10,"B",1087,7)="" ^ORD(101,1080,10,"B",1089,5)="" ^ORD(101,1080,10,"B",1090,6)="" ^ORD(101,1080,26)="D SHOW^VALM" ^ORD(101,1080,28)="Select Action: " ^ORD(101,1080,99)="59178,55586" ^ORD(101,1081,0)="IBCNSJ INS CO EDIT COVERAGE LIMITS^Add/Edit Coverage^^A^1^^^^^^^49" ^ORD(101,1081,15)="S VALMBG=1" ^ORD(101,1081,20)="D CV1^IBCNSJ5" ^ORD(101,1081,99)="56795,60867" ^ORD(101,1082,0)="IBCNSJ EDIT COVERAGE LIMITS^Add/Edit Coverage^^A^1^^^^^^^49" ^ORD(101,1082,15)="S VALMBG=$G(IB1ST(""PLIM""),1)" ^ORD(101,1082,20)="D CV^IBCNSJ5" ^ORD(101,1082,99)="61029,78050" ^ORD(101,1083,0)="IBCNSC PLAN LIST^Insurance Plan List^^M^1^^^^^^^49" ^ORD(101,1083,4)="40^4" ^ORD(101,1083,10,0)="^101.01PA^4^4" ^ORD(101,1083,10,1,0)="1006^EX^4" ^ORD(101,1083,10,2,0)="1086^IP^3" ^ORD(101,1083,10,3,0)="1084^VP^1^^^View/Edit Plan" ^ORD(101,1083,10,4,0)="1085^AB^2" ^ORD(101,1083,10,"B",1006,1)="" ^ORD(101,1083,10,"B",1084,3)="" ^ORD(101,1083,10,"B",1085,4)="" ^ORD(101,1083,10,"B",1086,2)="" ^ORD(101,1083,26)="D SHOW^VALM" ^ORD(101,1083,28)="Select Action: " ^ORD(101,1083,99)="59178,55586" ^ORD(101,1084,0)="IBCNSJ PLAN VIEW/EDIT^View/Edit Plan^^A^1^^^^^^^49" ^ORD(101,1084,20)="D VP^IBCNSJ5" ^ORD(101,1084,99)="56795,60869" ^ORD(101,1085,0)="IBCNSJ UPDATE ANNUAL BENEFITS^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,1085,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1085,20)="D AB^IBCNSJ5" ^ORD(101,1085,99)="56795,60870" ^ORD(101,1086,0)="IBCNSJ INS CO INACTIVATE PLAN^(In)Activate Plan^^A^1^^^^^^^49" ^ORD(101,1086,20)="D IA^IBCNSJ5" ^ORD(101,1086,99)="56795,60867" ^ORD(101,1087,0)="IBCNSJ SWITCH PLANS^Change Plan^^A^1^^^^^^^49" ^ORD(101,1087,20)="D CP^IBCNSJ5" ^ORD(101,1087,99)="56795,60869" ^ORD(101,1088,0)="IBCNSJ INS CO PLANS^View Plans^^A^1^^^^^^^49" ^ORD(101,1088,4)="^^^VP" ^ORD(101,1088,15)="S VALMBG=1" ^ORD(101,1088,20)="D PL^IBCNSJ5" ^ORD(101,1088,99)="59178,55586" ^ORD(101,1089,0)="IBCNSJ PLAN COMMENT^Edit Comments^^A^1^^^^^^^" ^ORD(101,1089,15)="" ^ORD(101,1089,20)="D PC^IBCNSJ5" ^ORD(101,1089,99)="59178,55586" ^ORD(101,1090,0)="IBCNSJ PLAN UR INFO^UR Info^^A^1^^^^^^^49" ^ORD(101,1090,15)="S VALMBG=1" ^ORD(101,1090,20)="D IT1^IBCNSP1" ^ORD(101,1090,99)="56795,60869" ^ORD(101,1091,0)="IBJP MCCR PARAMETERS MENU^MCCR Parameters Menu^^M^1^^^^^^^49" ^ORD(101,1091,4)="26^4" ^ORD(101,1091,10,0)="^101.01PA^7^6" ^ORD(101,1091,10,1,0)="1114^IB^11^" ^ORD(101,1091,10,2,0)="1115^CT^21^" ^ORD(101,1091,10,3,0)="1116^AB^31^" ^ORD(101,1091,10,4,0)="1121^EX^37^" ^ORD(101,1091,10,5,0)="455^^45^" ^ORD(101,1091,10,7,0)="3495^IV^35^^^" ^ORD(101,1091,10,"B",455,5)="" ^ORD(101,1091,10,"B",1114,1)="" ^ORD(101,1091,10,"B",1115,2)="" ^ORD(101,1091,10,"B",1116,3)="" ^ORD(101,1091,10,"B",1121,4)="" ^ORD(101,1091,10,"B",3495,7)="" ^ORD(101,1091,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1091,20)="K IBFASTXT" ^ORD(101,1091,26)="D SHOW^VALM" ^ORD(101,1091,28)="Select Action: " ^ORD(101,1091,99)="59436,71518" ^ORD(101,1092,0)="IBJT AR ACCOUNT PROFILE MENU^Account Profile Menu^^M^1^^^^^^^49" ^ORD(101,1092,4)="26^4" ^ORD(101,1092,10,0)="^101.01PA^15^15" ^ORD(101,1092,10,1,0)="1129^BC^11" ^ORD(101,1092,10,2,0)="1130^DX^12" ^ORD(101,1092,10,3,0)="1131^PR^13" ^ORD(101,1092,10,4,0)="1138^CI^17" ^ORD(101,1092,10,5,0)="1136^VT^21" ^ORD(101,1092,10,6,0)="1144^CM^22" ^ORD(101,1092,10,7,0)="1141^IR^23" ^ORD(101,1092,10,8,0)="1143^HS^24" ^ORD(101,1092,10,9,0)="1135^AL^27" ^ORD(101,1092,10,10,0)="1126^VI^31" ^ORD(101,1092,10,11,0)="1127^VP^32" ^ORD(101,1092,10,12,0)="1128^AB^33" ^ORD(101,1092,10,13,0)="1140^EL^34" ^ORD(101,1092,10,14,0)="1121^EX^37" ^ORD(101,1092,10,15,0)="455^^19" ^ORD(101,1092,10,"B",455,15)="" ^ORD(101,1092,10,"B",1121,14)="" ^ORD(101,1092,10,"B",1126,10)="" ^ORD(101,1092,10,"B",1127,11)="" ^ORD(101,1092,10,"B",1128,12)="" ^ORD(101,1092,10,"B",1129,1)="" ^ORD(101,1092,10,"B",1130,2)="" ^ORD(101,1092,10,"B",1131,3)="" ^ORD(101,1092,10,"B",1135,9)="" ^ORD(101,1092,10,"B",1136,5)="" ^ORD(101,1092,10,"B",1138,4)="" ^ORD(101,1092,10,"B",1140,13)="" ^ORD(101,1092,10,"B",1141,7)="" ^ORD(101,1092,10,"B",1143,8)="" ^ORD(101,1092,10,"B",1144,6)="" ^ORD(101,1092,15)="I $G(IBPRVSCR)'=""IBJTTA"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1092,20)="K IBFASTXT I $G(IBARCOMM) D REBLD^IBJTTA" ^ORD(101,1092,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1092,28)="Select Action: " ^ORD(101,1092,99)="58917,40145" ^ORD(101,1093,0)="IBJT AR COMMENT HISTORY MENU^Comment History Menu^^M^1^^^^^^^49" ^ORD(101,1093,4)="26^4" ^ORD(101,1093,10,0)="^101.01PA^15^15" ^ORD(101,1093,10,1,0)="1129^BC^11" ^ORD(101,1093,10,2,0)="1130^DX^12" ^ORD(101,1093,10,3,0)="1131^PR^13" ^ORD(101,1093,10,4,0)="1138^CI^17" ^ORD(101,1093,10,5,0)="1132^AR^21" ^ORD(101,1093,10,6,0)="1154^AD^22" ^ORD(101,1093,10,7,0)="1141^IR^23" ^ORD(101,1093,10,8,0)="1143^HS^24" ^ORD(101,1093,10,9,0)="1135^AL^27" ^ORD(101,1093,10,10,0)="1126^VI^31" ^ORD(101,1093,10,11,0)="1127^VP^32" ^ORD(101,1093,10,12,0)="1128^AB^33" ^ORD(101,1093,10,13,0)="1140^EL^34" ^ORD(101,1093,10,14,0)="1121^EX^37" ^ORD(101,1093,10,15,0)="455^^19" ^ORD(101,1093,10,"B",455,15)="" ^ORD(101,1093,10,"B",1121,14)="" ^ORD(101,1093,10,"B",1126,10)="" ^ORD(101,1093,10,"B",1127,11)="" ^ORD(101,1093,10,"B",1128,12)="" ^ORD(101,1093,10,"B",1129,1)="" ^ORD(101,1093,10,"B",1130,2)="" ^ORD(101,1093,10,"B",1131,3)="" ^ORD(101,1093,10,"B",1132,5)="" ^ORD(101,1093,10,"B",1135,9)="" ^ORD(101,1093,10,"B",1138,4)="" ^ORD(101,1093,10,"B",1140,13)="" ^ORD(101,1093,10,"B",1141,7)="" ^ORD(101,1093,10,"B",1143,8)="" ^ORD(101,1093,10,"B",1154,6)="" ^ORD(101,1093,15)="I $G(IBPRVSCR)'=""IBJTTC"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1093,20)="K IBFASTXT" ^ORD(101,1093,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1093,28)="Select Action: " ^ORD(101,1093,99)="61199,28361" ^ORD(101,1094,0)="IBJT BILL CHARGES MENU^Bill Charges Menu^^M^1^^^^^^^49" ^ORD(101,1094,4)="26^4" ^ORD(101,1094,10,0)="^101.01PA^16^16" ^ORD(101,1094,10,1,0)="1130^DX^11" ^ORD(101,1094,10,2,0)="1131^PR^12" ^ORD(101,1094,10,3,0)="1138^CI^17" ^ORD(101,1094,10,4,0)="1132^AR^21" ^ORD(101,1094,10,5,0)="1144^CM^22" ^ORD(101,1094,10,6,0)="1141^IR^23" ^ORD(101,1094,10,7,0)="1143^HS^24" ^ORD(101,1094,10,8,0)="1135^AL^27" ^ORD(101,1094,10,9,0)="1126^VI^31" ^ORD(101,1094,10,10,0)="1127^VP^32" ^ORD(101,1094,10,11,0)="1128^AB^33" ^ORD(101,1094,10,12,0)="1140^EL^34" ^ORD(101,1094,10,13,0)="1121^EX^37" ^ORD(101,1094,10,14,0)="455^^19" ^ORD(101,1094,10,15,0)="457^^18" ^ORD(101,1094,10,16,0)="3166^ED^18" ^ORD(101,1094,10,"B",455,14)="" ^ORD(101,1094,10,"B",457,15)="" ^ORD(101,1094,10,"B",1121,13)="" ^ORD(101,1094,10,"B",1126,9)="" ^ORD(101,1094,10,"B",1127,10)="" ^ORD(101,1094,10,"B",1128,11)="" ^ORD(101,1094,10,"B",1130,1)="" ^ORD(101,1094,10,"B",1131,2)="" ^ORD(101,1094,10,"B",1132,4)="" ^ORD(101,1094,10,"B",1135,8)="" ^ORD(101,1094,10,"B",1138,3)="" ^ORD(101,1094,10,"B",1140,12)="" ^ORD(101,1094,10,"B",1141,6)="" ^ORD(101,1094,10,"B",1143,7)="" ^ORD(101,1094,10,"B",1144,5)="" ^ORD(101,1094,10,"B",3166,16)="" ^ORD(101,1094,15)="I $G(IBPRVSCR)'=""IBJTBA"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1094,20)="K IBFASTXT" ^ORD(101,1094,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1094,28)="Select Action: " ^ORD(101,1094,99)="58917,40145" ^ORD(101,1095,0)="IBJT BILL DX MENU^Bill Diagnosis Menu^^M^1^^^^^^^49" ^ORD(101,1095,4)="26^4" ^ORD(101,1095,10,0)="^101.01PA^16^16" ^ORD(101,1095,10,1,0)="1129^BC^11" ^ORD(101,1095,10,2,0)="1131^PR^12" ^ORD(101,1095,10,3,0)="1138^CI^17" ^ORD(101,1095,10,4,0)="1132^AR^21" ^ORD(101,1095,10,5,0)="1144^CM^22" ^ORD(101,1095,10,6,0)="1141^IR^23" ^ORD(101,1095,10,7,0)="1143^HS^24" ^ORD(101,1095,10,8,0)="1135^AL^27" ^ORD(101,1095,10,9,0)="1126^VI^31" ^ORD(101,1095,10,10,0)="1127^VP^32" ^ORD(101,1095,10,11,0)="1128^AB^33" ^ORD(101,1095,10,12,0)="1140^EL^34" ^ORD(101,1095,10,13,0)="1121^EX^37" ^ORD(101,1095,10,14,0)="455^^19" ^ORD(101,1095,10,15,0)="457^^18" ^ORD(101,1095,10,16,0)="3166^ED^18" ^ORD(101,1095,10,"B",455,14)="" ^ORD(101,1095,10,"B",457,15)="" ^ORD(101,1095,10,"B",1121,13)="" ^ORD(101,1095,10,"B",1126,9)="" ^ORD(101,1095,10,"B",1127,10)="" ^ORD(101,1095,10,"B",1128,11)="" ^ORD(101,1095,10,"B",1129,1)="" ^ORD(101,1095,10,"B",1131,2)="" ^ORD(101,1095,10,"B",1132,4)="" ^ORD(101,1095,10,"B",1135,8)="" ^ORD(101,1095,10,"B",1138,3)="" ^ORD(101,1095,10,"B",1140,12)="" ^ORD(101,1095,10,"B",1141,6)="" ^ORD(101,1095,10,"B",1143,7)="" ^ORD(101,1095,10,"B",1144,5)="" ^ORD(101,1095,10,"B",3166,16)="" ^ORD(101,1095,15)="I $G(IBPRVSCR)'=""IBJTBB"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1095,20)="K IBFASTXT" ^ORD(101,1095,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1095,28)="Select Action: " ^ORD(101,1095,99)="58917,40145" ^ORD(101,1096,0)="IBJT BILL PROCEDURES MENU^Bill Procedures Menu^^M^1^^^^^^^49" ^ORD(101,1096,4)="26^4" ^ORD(101,1096,10,0)="^101.01PA^16^16" ^ORD(101,1096,10,1,0)="1129^BC^11" ^ORD(101,1096,10,2,0)="1130^DX^12" ^ORD(101,1096,10,3,0)="1138^CI^17" ^ORD(101,1096,10,4,0)="1132^AR^21" ^ORD(101,1096,10,5,0)="1144^CM^22" ^ORD(101,1096,10,6,0)="1141^IR^23" ^ORD(101,1096,10,7,0)="1143^HS^24" ^ORD(101,1096,10,8,0)="1135^AL^27" ^ORD(101,1096,10,9,0)="1126^VI^31" ^ORD(101,1096,10,10,0)="1127^VP^32" ^ORD(101,1096,10,11,0)="1128^AB^33" ^ORD(101,1096,10,12,0)="1140^EL^34" ^ORD(101,1096,10,13,0)="1121^EX^37" ^ORD(101,1096,10,14,0)="455^^19" ^ORD(101,1096,10,15,0)="457^^18" ^ORD(101,1096,10,16,0)="3166^ED^18" ^ORD(101,1096,10,"B",455,14)="" ^ORD(101,1096,10,"B",457,15)="" ^ORD(101,1096,10,"B",1121,13)="" ^ORD(101,1096,10,"B",1126,9)="" ^ORD(101,1096,10,"B",1127,10)="" ^ORD(101,1096,10,"B",1128,11)="" ^ORD(101,1096,10,"B",1129,1)="" ^ORD(101,1096,10,"B",1130,2)="" ^ORD(101,1096,10,"B",1132,4)="" ^ORD(101,1096,10,"B",1135,8)="" ^ORD(101,1096,10,"B",1138,3)="" ^ORD(101,1096,10,"B",1140,12)="" ^ORD(101,1096,10,"B",1141,6)="" ^ORD(101,1096,10,"B",1143,7)="" ^ORD(101,1096,10,"B",1144,5)="" ^ORD(101,1096,10,"B",3166,16)="" ^ORD(101,1096,15)="I $G(IBPRVSCR)'=""IBJTBC"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1096,20)="K IBFASTXT" ^ORD(101,1096,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1096,28)="Select Action: " ^ORD(101,1096,99)="58917,40145" ^ORD(101,1097,0)="IBJT CLAIM SCREEN MENU^Claim Information Menu^^M^1^^^^^^^49" ^ORD(101,1097,4)="26^4" ^ORD(101,1097,10,0)="^101.01PA^15^15" ^ORD(101,1097,10,1,0)="1129^BC^11^" ^ORD(101,1097,10,2,0)="1130^DX^12^" ^ORD(101,1097,10,3,0)="1131^PR^13^" ^ORD(101,1097,10,4,0)="1139^CB^14^" ^ORD(101,1097,10,5,0)="1132^AR^21^" ^ORD(101,1097,10,6,0)="1144^CM^22^" ^ORD(101,1097,10,7,0)="1141^IR^23^" ^ORD(101,1097,10,8,0)="1143^HS^24^" ^ORD(101,1097,10,9,0)="1135^AL^27^" ^ORD(101,1097,10,10,0)="1126^VI^31^" ^ORD(101,1097,10,11,0)="1127^VP^32^" ^ORD(101,1097,10,12,0)="1128^AB^33^" ^ORD(101,1097,10,13,0)="1140^EL^34^" ^ORD(101,1097,10,14,0)="1121^EX^37^" ^ORD(101,1097,10,15,0)="3166^ED^19^" ^ORD(101,1097,10,"B",1121,14)="" ^ORD(101,1097,10,"B",1126,10)="" ^ORD(101,1097,10,"B",1127,11)="" ^ORD(101,1097,10,"B",1128,12)="" ^ORD(101,1097,10,"B",1129,1)="" ^ORD(101,1097,10,"B",1130,2)="" ^ORD(101,1097,10,"B",1131,3)="" ^ORD(101,1097,10,"B",1132,5)="" ^ORD(101,1097,10,"B",1135,9)="" ^ORD(101,1097,10,"B",1139,4)="" ^ORD(101,1097,10,"B",1140,13)="" ^ORD(101,1097,10,"B",1141,7)="" ^ORD(101,1097,10,"B",1143,8)="" ^ORD(101,1097,10,"B",1144,6)="" ^ORD(101,1097,10,"B",3166,15)="" ^ORD(101,1097,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1097,20)="K IBFASTXT" ^ORD(101,1097,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1097,28)="Select Action: " ^ORD(101,1097,99)="58917,40145" ^ORD(101,1098,0)="IBJT CT/IR COMMUNICATIONS LIST MENU^Insurance Reviews Menu^^M^1^^^^^^^49" ^ORD(101,1098,4)="26^4" ^ORD(101,1098,10,0)="^101.01PA^15^15" ^ORD(101,1098,10,1,0)="1129^BC^11" ^ORD(101,1098,10,2,0)="1130^DX^12" ^ORD(101,1098,10,3,0)="1131^PR^13" ^ORD(101,1098,10,4,0)="1138^CI^17" ^ORD(101,1098,10,5,0)="1132^AR^21" ^ORD(101,1098,10,6,0)="1144^CM^22" ^ORD(101,1098,10,7,0)="1142^VR^23" ^ORD(101,1098,10,8,0)="1143^HS^24^" ^ORD(101,1098,10,9,0)="1135^AL^27" ^ORD(101,1098,10,10,0)="1126^VI^31" ^ORD(101,1098,10,11,0)="1127^VP^32" ^ORD(101,1098,10,12,0)="1128^AB^33" ^ORD(101,1098,10,13,0)="1140^EL^34" ^ORD(101,1098,10,14,0)="1121^EX^37" ^ORD(101,1098,10,15,0)="455^^19" ^ORD(101,1098,10,"B",455,15)="" ^ORD(101,1098,10,"B",1121,14)="" ^ORD(101,1098,10,"B",1126,10)="" ^ORD(101,1098,10,"B",1127,11)="" ^ORD(101,1098,10,"B",1128,12)="" ^ORD(101,1098,10,"B",1129,1)="" ^ORD(101,1098,10,"B",1130,2)="" ^ORD(101,1098,10,"B",1131,3)="" ^ORD(101,1098,10,"B",1132,5)="" ^ORD(101,1098,10,"B",1135,9)="" ^ORD(101,1098,10,"B",1138,4)="" ^ORD(101,1098,10,"B",1140,13)="" ^ORD(101,1098,10,"B",1142,7)="" ^ORD(101,1098,10,"B",1143,8)="" ^ORD(101,1098,10,"B",1144,6)="" ^ORD(101,1098,15)="I $G(IBPRVSCR)'=""IBJTRA"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1098,20)="K IBFASTXT" ^ORD(101,1098,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1098,28)="Select Action: " ^ORD(101,1098,99)="58917,40145" ^ORD(101,1099,0)="IBJT INACTIVE LIST SCREEN MENU^Inactive Bills Menu^^M^1^^^^^^^49" ^ORD(101,1099,4)="26^4" ^ORD(101,1099,10,0)="^101.01PA^6^6" ^ORD(101,1099,10,1,0)="1137^CI^11" ^ORD(101,1099,10,2,0)="1135^AL^27" ^ORD(101,1099,10,3,0)="1133^CD^31" ^ORD(101,1099,10,4,0)="1121^EX^37" ^ORD(101,1099,10,5,0)="455^^19" ^ORD(101,1099,10,6,0)="457^^29" ^ORD(101,1099,10,"B",455,5)="" ^ORD(101,1099,10,"B",457,6)="" ^ORD(101,1099,10,"B",1121,4)="" ^ORD(101,1099,10,"B",1133,3)="" ^ORD(101,1099,10,"B",1135,2)="" ^ORD(101,1099,10,"B",1137,1)="" ^ORD(101,1099,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1099,20)="K IBFASTXT" ^ORD(101,1099,26)="D BM^IBJU1(21,20),SHOW^VALM" ^ORD(101,1099,28)="Select Action: " ^ORD(101,1099,99)="58917,40145" ^ORD(101,1100,0)="IBJT NS VIEW AN BEN MENU^Annual Benefits Menu^^M^1^^^^^^^49" ^ORD(101,1100,4)="26^4" ^ORD(101,1100,10,0)="^101.01PA^15^15" ^ORD(101,1100,10,1,0)="1129^BC^11" ^ORD(101,1100,10,2,0)="1130^DX^12" ^ORD(101,1100,10,3,0)="1131^PR^13" ^ORD(101,1100,10,4,0)="1138^CI^17" ^ORD(101,1100,10,5,0)="1132^AR^21" ^ORD(101,1100,10,6,0)="1144^CM^22" ^ORD(101,1100,10,7,0)="1141^IR^23" ^ORD(101,1100,10,8,0)="1143^HS^24" ^ORD(101,1100,10,9,0)="1135^AL^27" ^ORD(101,1100,10,10,0)="1126^VI^31" ^ORD(101,1100,10,11,0)="1127^VP^32" ^ORD(101,1100,10,12,0)="1148^AB^33" ^ORD(101,1100,10,13,0)="1140^EL^34" ^ORD(101,1100,10,14,0)="1121^EX^37" ^ORD(101,1100,10,15,0)="455^^19" ^ORD(101,1100,10,"B",455,15)="" ^ORD(101,1100,10,"B",1121,14)="" ^ORD(101,1100,10,"B",1126,10)="" ^ORD(101,1100,10,"B",1127,11)="" ^ORD(101,1100,10,"B",1129,1)="" ^ORD(101,1100,10,"B",1130,2)="" ^ORD(101,1100,10,"B",1131,3)="" ^ORD(101,1100,10,"B",1132,5)="" ^ORD(101,1100,10,"B",1135,9)="" ^ORD(101,1100,10,"B",1138,4)="" ^ORD(101,1100,10,"B",1140,13)="" ^ORD(101,1100,10,"B",1141,7)="" ^ORD(101,1100,10,"B",1143,8)="" ^ORD(101,1100,10,"B",1144,6)="" ^ORD(101,1100,10,"B",1148,12)="" ^ORD(101,1100,15)="I $G(IBPRVSCR)'=""IBCNSA"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1100,20)="K IBFASTXT" ^ORD(101,1100,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1100,28)="Select Action: " ^ORD(101,1100,99)="58917,40145" ^ORD(101,1101,0)="IBJT NS VIEW EXP POL MENU^Policy Menu^^M^1^^^^^^^49" ^ORD(101,1101,4)="26^4" ^ORD(101,1101,10,0)="^101.01PA^15^15" ^ORD(101,1101,10,1,0)="1129^BC^11" ^ORD(101,1101,10,2,0)="1130^DX^12" ^ORD(101,1101,10,3,0)="1131^PR^13" ^ORD(101,1101,10,4,0)="1138^CI^17" ^ORD(101,1101,10,5,0)="1132^AR^21" ^ORD(101,1101,10,6,0)="1144^CM^22" ^ORD(101,1101,10,7,0)="1141^IR^23" ^ORD(101,1101,10,8,0)="1143^HS^24" ^ORD(101,1101,10,9,0)="1135^AL^27" ^ORD(101,1101,10,10,0)="1126^VI^31" ^ORD(101,1101,10,11,0)="1147^VP^32" ^ORD(101,1101,10,12,0)="1128^AB^33" ^ORD(101,1101,10,13,0)="1140^EL^34" ^ORD(101,1101,10,14,0)="1121^EX^37" ^ORD(101,1101,10,15,0)="455^^19" ^ORD(101,1101,10,"B",455,15)="" ^ORD(101,1101,10,"B",1121,14)="" ^ORD(101,1101,10,"B",1126,10)="" ^ORD(101,1101,10,"B",1128,12)="" ^ORD(101,1101,10,"B",1129,1)="" ^ORD(101,1101,10,"B",1130,2)="" ^ORD(101,1101,10,"B",1131,3)="" ^ORD(101,1101,10,"B",1132,5)="" ^ORD(101,1101,10,"B",1135,9)="" ^ORD(101,1101,10,"B",1138,4)="" ^ORD(101,1101,10,"B",1140,13)="" ^ORD(101,1101,10,"B",1141,7)="" ^ORD(101,1101,10,"B",1143,8)="" ^ORD(101,1101,10,"B",1144,6)="" ^ORD(101,1101,10,"B",1147,11)="" ^ORD(101,1101,15)="I $G(IBPRVSCR)'=""IBCNSVP"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1101,20)="K IBFASTXT" ^ORD(101,1101,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1101,28)="Select Action: " ^ORD(101,1101,99)="58917,40145" ^ORD(101,1102,0)="IBJT NS VIEW INS CO MENU^Insurance Company Menu^^M^1^^^^^^^49" ^ORD(101,1102,4)="26^4" ^ORD(101,1102,10,0)="^101.01PA^15^15" ^ORD(101,1102,10,1,0)="1129^BC^11" ^ORD(101,1102,10,2,0)="1130^DX^12" ^ORD(101,1102,10,3,0)="1131^PR^13" ^ORD(101,1102,10,4,0)="1138^CI^17" ^ORD(101,1102,10,5,0)="1132^AR^21" ^ORD(101,1102,10,6,0)="1144^CM^22" ^ORD(101,1102,10,7,0)="1141^IR^23" ^ORD(101,1102,10,8,0)="1143^HS^24" ^ORD(101,1102,10,9,0)="1135^AL^27" ^ORD(101,1102,10,10,0)="1149^VI^31" ^ORD(101,1102,10,11,0)="1127^VP^32" ^ORD(101,1102,10,12,0)="1128^AB^33" ^ORD(101,1102,10,13,0)="1140^EL^34" ^ORD(101,1102,10,14,0)="1121^EX^37" ^ORD(101,1102,10,15,0)="455^^19" ^ORD(101,1102,10,"B",455,15)="" ^ORD(101,1102,10,"B",1121,14)="" ^ORD(101,1102,10,"B",1127,11)="" ^ORD(101,1102,10,"B",1128,12)="" ^ORD(101,1102,10,"B",1129,1)="" ^ORD(101,1102,10,"B",1130,2)="" ^ORD(101,1102,10,"B",1131,3)="" ^ORD(101,1102,10,"B",1132,5)="" ^ORD(101,1102,10,"B",1135,9)="" ^ORD(101,1102,10,"B",1138,4)="" ^ORD(101,1102,10,"B",1140,13)="" ^ORD(101,1102,10,"B",1141,7)="" ^ORD(101,1102,10,"B",1143,8)="" ^ORD(101,1102,10,"B",1144,6)="" ^ORD(101,1102,10,"B",1149,10)="" ^ORD(101,1102,15)="I $G(IBPRVSCR)'=""IBCNSC"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1102,20)="K IBFASTXT" ^ORD(101,1102,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1102,28)="Select Action: " ^ORD(101,1102,99)="58917,40145" ^ORD(101,1103,0)="IBJT PT ELIGIBILITY MENU^Patient Eligibility Menu^^M^1^^^^^^^49" ^ORD(101,1103,4)="26^4" ^ORD(101,1103,10,0)="^101.01PA^15^15" ^ORD(101,1103,10,1,0)="1129^BC^11" ^ORD(101,1103,10,2,0)="1130^DX^12" ^ORD(101,1103,10,3,0)="1131^PR^13" ^ORD(101,1103,10,4,0)="1138^CI^17" ^ORD(101,1103,10,5,0)="1132^AR^21" ^ORD(101,1103,10,6,0)="1144^CM^22" ^ORD(101,1103,10,7,0)="1141^IR^23" ^ORD(101,1103,10,8,0)="1143^HS^24" ^ORD(101,1103,10,9,0)="1135^AL^27" ^ORD(101,1103,10,10,0)="1126^VI^31" ^ORD(101,1103,10,11,0)="1127^VP^32" ^ORD(101,1103,10,12,0)="1128^AB^33" ^ORD(101,1103,10,13,0)="1121^EX^37" ^ORD(101,1103,10,14,0)="455^^19" ^ORD(101,1103,10,15,0)="3166^ED^19" ^ORD(101,1103,10,"B",455,14)="" ^ORD(101,1103,10,"B",1121,13)="" ^ORD(101,1103,10,"B",1126,10)="" ^ORD(101,1103,10,"B",1127,11)="" ^ORD(101,1103,10,"B",1128,12)="" ^ORD(101,1103,10,"B",1129,1)="" ^ORD(101,1103,10,"B",1130,2)="" ^ORD(101,1103,10,"B",1131,3)="" ^ORD(101,1103,10,"B",1132,5)="" ^ORD(101,1103,10,"B",1135,9)="" ^ORD(101,1103,10,"B",1138,4)="" ^ORD(101,1103,10,"B",1141,7)="" ^ORD(101,1103,10,"B",1143,8)="" ^ORD(101,1103,10,"B",1144,6)="" ^ORD(101,1103,10,"B",3166,15)="" ^ORD(101,1103,15)="I $G(IBPRVSCR)'=""IBJTEA"",$G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1103,20)="K IBFASTXT" ^ORD(101,1103,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,1103,28)="Select Action: " ^ORD(101,1103,99)="58917,40145" ^ORD(101,1104,0)="IBJP AUTO BILLING MENU^Auto Billing Menu^^M^1^^^^^^^49" ^ORD(101,1104,4)="26^4" ^ORD(101,1104,10,0)="^101.01PA^6^6" ^ORD(101,1104,10,1,0)="1118^GP^11" ^ORD(101,1104,10,2,0)="1117^IP^21" ^ORD(101,1104,10,3,0)="1120^OP^31" ^ORD(101,1104,10,4,0)="1119^RX^12" ^ORD(101,1104,10,5,0)="1121^EX^37" ^ORD(101,1104,10,6,0)="457^^29" ^ORD(101,1104,10,"B",457,6)="" ^ORD(101,1104,10,"B",1117,2)="" ^ORD(101,1104,10,"B",1118,1)="" ^ORD(101,1104,10,"B",1119,4)="" ^ORD(101,1104,10,"B",1120,3)="" ^ORD(101,1104,10,"B",1121,5)="" ^ORD(101,1104,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1104,20)="K IBFASTXT" ^ORD(101,1104,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1104,26)="D SHOW^VALM" ^ORD(101,1104,28)="Select Action: " ^ORD(101,1104,99)="56795,61207" ^ORD(101,1105,0)="IBJP CLAIMS TRACKING MENU^Claims Tracking Menu^^M^1^^^^^^^49" ^ORD(101,1105,4)="26^4" ^ORD(101,1105,10,0)="^101.01PA^6^6" ^ORD(101,1105,10,1,0)="1112^TP^11" ^ORD(101,1105,10,2,0)="1111^RS^21" ^ORD(101,1105,10,3,0)="1110^GP^31" ^ORD(101,1105,10,4,0)="1113^EA^12" ^ORD(101,1105,10,5,0)="1121^EX^37" ^ORD(101,1105,10,6,0)="457^^29" ^ORD(101,1105,10,"B",457,6)="" ^ORD(101,1105,10,"B",1110,3)="" ^ORD(101,1105,10,"B",1111,2)="" ^ORD(101,1105,10,"B",1112,1)="" ^ORD(101,1105,10,"B",1113,4)="" ^ORD(101,1105,10,"B",1121,5)="" ^ORD(101,1105,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1105,20)="K IBFASTXT" ^ORD(101,1105,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1105,26)="D SHOW^VALM" ^ORD(101,1105,28)="Select Action: " ^ORD(101,1105,99)="56795,61207" ^ORD(101,1106,0)="IBJP IB SITE PARAMETER MENU^IB Site Parameter Menu^^M^1^^^^^^^49" ^ORD(101,1106,4)="26^4" ^ORD(101,1106,10,0)="^101.01PA^3^3" ^ORD(101,1106,10,1,0)="1109^EP^11" ^ORD(101,1106,10,2,0)="1121^EX^37" ^ORD(101,1106,10,3,0)="457^^29" ^ORD(101,1106,10,"B",457,3)="" ^ORD(101,1106,10,"B",1109,1)="" ^ORD(101,1106,10,"B",1121,2)="" ^ORD(101,1106,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1106,20)="K IBFASTXT" ^ORD(101,1106,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1106,26)="D SHOW^VALM" ^ORD(101,1106,28)="Select Action: " ^ORD(101,1106,99)="56795,61208" ^ORD(101,1107,0)="IBJT NS PI VIEW PAT INS MENU^Patient Insurance Menu^^M^1^^^^^^^49" ^ORD(101,1107,4)="26^4" ^ORD(101,1107,10,0)="^101.01PA^6^6" ^ORD(101,1107,10,1,0)="1153^VI^11" ^ORD(101,1107,10,2,0)="1135^AL^17" ^ORD(101,1107,10,3,0)="1152^VP^21" ^ORD(101,1107,10,4,0)="1151^AB^31" ^ORD(101,1107,10,5,0)="1121^EX^37" ^ORD(101,1107,10,6,0)="457^^29" ^ORD(101,1107,10,"B",457,6)="" ^ORD(101,1107,10,"B",1121,5)="" ^ORD(101,1107,10,"B",1135,2)="" ^ORD(101,1107,10,"B",1151,4)="" ^ORD(101,1107,10,"B",1152,3)="" ^ORD(101,1107,10,"B",1153,1)="" ^ORD(101,1107,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1107,20)="K IBFASTXT" ^ORD(101,1107,26)="D BM^IBJU1(21,20),SHOW^VALM" ^ORD(101,1107,28)="Select Action: " ^ORD(101,1107,99)="58917,40145" ^ORD(101,1108,0)="IBJT SHORT MENU^Short Menu^^M^1^^^^^^^49" ^ORD(101,1108,4)="26^4" ^ORD(101,1108,10,0)="^101.01PA^3^3" ^ORD(101,1108,10,1,0)="1135^AL^17" ^ORD(101,1108,10,2,0)="1121^EX^37" ^ORD(101,1108,10,3,0)="457^^29" ^ORD(101,1108,10,"B",457,3)="" ^ORD(101,1108,10,"B",1121,2)="" ^ORD(101,1108,10,"B",1135,1)="" ^ORD(101,1108,15)="I $G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1108,20)="K IBFASTXT" ^ORD(101,1108,26)="D BM^IBJU1(21,21),SHOW^VALM" ^ORD(101,1108,28)="Select Action: " ^ORD(101,1108,99)="58917,40145" ^ORD(101,1109,0)="IBJP IB SITE PARAMETER EDIT^Edit Set^^A^1^^^^^^^49" ^ORD(101,1109,4)="^^^" ^ORD(101,1109,15)="" ^ORD(101,1109,20)="D NXEDIT^IBJPS" ^ORD(101,1109,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1109,99)="56795,61156" ^ORD(101,1110,0)="IBJP CT GENERAL EDIT^General^^A^1^^^^^^^49" ^ORD(101,1110,4)="^^^" ^ORD(101,1110,15)="" ^ORD(101,1110,20)="D CTEDIT^IBJPC(3)" ^ORD(101,1110,24)="I $D(^XUSEC(""IB CLAIMS SUPERVISOR"",DUZ))" ^ORD(101,1110,99)="56795,61155" ^ORD(101,1111,0)="IBJP CT RANDOM SAMPLE EDIT^Random Sample^^A^1^^^^^^^49" ^ORD(101,1111,4)="^^^" ^ORD(101,1111,15)="" ^ORD(101,1111,20)="D CTEDIT^IBJPC(2)" ^ORD(101,1111,24)="I $D(^XUSEC(""IB CLAIMS SUPERVISOR"",DUZ))" ^ORD(101,1111,99)="56795,61156" ^ORD(101,1112,0)="IBJP CT TRACKING EDIT^Tracking^^A^1^^^^^^^49" ^ORD(101,1112,4)="^^^" ^ORD(101,1112,15)="" ^ORD(101,1112,20)="D CTEDIT^IBJPC(1)" ^ORD(101,1112,24)="I $D(^XUSEC(""IB CLAIMS SUPERVISOR"",DUZ))" ^ORD(101,1112,99)="56795,61156" ^ORD(101,1113,0)="IBJP CT EDIT ALL^Edit All^^A^1^^^^^^^49" ^ORD(101,1113,4)="^^^" ^ORD(101,1113,15)="" ^ORD(101,1113,20)="D CTEDIT^IBJPC(0)" ^ORD(101,1113,24)="I $D(^XUSEC(""IB CLAIMS SUPERVISOR"",DUZ))" ^ORD(101,1113,99)="56795,61155" ^ORD(101,1114,0)="IBJP IB SITE PARAMETER SCREEN^Site Parameter^^A^1^^^^^^^49" ^ORD(101,1114,20)="D EN^IBJPS" ^ORD(101,1114,99)="56795,61156" ^ORD(101,1115,0)="IBJP CLAIMS TRACKING SCREEN^Claims Tracking^^A^1^^^^^^^49" ^ORD(101,1115,20)="D EN^IBJPC" ^ORD(101,1115,99)="56795,61155" ^ORD(101,1116,0)="IBJP AUTO BILLING SCREEN^Automated Billing^^A^1^^^^^^^49" ^ORD(101,1116,20)="D EN^IBJPB" ^ORD(101,1116,99)="56795,61155" ^ORD(101,1117,0)="IBJP AB INPATIENT EDIT^Inpatient^^A^1^^^^^^^49" ^ORD(101,1117,20)="D ABEDIT^IBJPB(1)" ^ORD(101,1117,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1117,99)="56795,61153" ^ORD(101,1118,0)="IBJP AB GENERAL EDIT^General^^A^1^^^^^^^49" ^ORD(101,1118,20)="D ABGEDIT^IBJPB" ^ORD(101,1118,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1118,99)="56795,61153" ^ORD(101,1119,0)="IBJP AB PRESCRIPTION EDIT^Prescription^^A^1^^^^^^^49" ^ORD(101,1119,20)="D ABEDIT^IBJPB(4)" ^ORD(101,1119,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1119,99)="56795,61153" ^ORD(101,1120,0)="IBJP AB OUTPATIENT EDIT^Outpatient^^A^1^^^^^^^49" ^ORD(101,1120,20)="D ABEDIT^IBJPB(2)" ^ORD(101,1120,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1120,99)="56795,61153" ^ORD(101,1121,0)="IBJ EXIT^Exit Action^^A^1^^^^^^^49" ^ORD(101,1121,20)="D FASTEXIT^IBJU1" ^ORD(101,1121,99)="56795,61152" ^ORD(101,1122,0)="IBJT ACTIVE LIST SCREEN MENU^Active Bills Menu^^M^1^^^^^^^49" ^ORD(101,1122,4)="26^4" ^ORD(101,1122,10,0)="^101.01PA^6^6" ^ORD(101,1122,10,1,0)="1125^CI^11" ^ORD(101,1122,10,2,0)="1134^CP^12" ^ORD(101,1122,10,3,0)="1124^IL^21" ^ORD(101,1122,10,4,0)="1143^HS^22" ^ORD(101,1122,10,5,0)="1150^PI^31" ^ORD(101,1122,10,6,0)="1140^EL^32" ^ORD(101,1122,10,"B",1124,3)="" ^ORD(101,1122,10,"B",1125,1)="" ^ORD(101,1122,10,"B",1134,2)="" ^ORD(101,1122,10,"B",1140,6)="" ^ORD(101,1122,10,"B",1143,4)="" ^ORD(101,1122,10,"B",1150,5)="" ^ORD(101,1122,15)="I $D(IBFASTXT),IBFASTXT>4 S VALMBCK=""Q""" ^ORD(101,1122,20)="K IBFASTXT" ^ORD(101,1122,26)="D BM^IBJU1(21,20),SHOW^VALM" ^ORD(101,1122,28)="Select Action: " ^ORD(101,1122,99)="56795,61203" ^ORD(101,1123,0)="IBJT ACTIVE LIST SCREEN^Active Bills^^A^1^^^^^^^49" ^ORD(101,1123,10,0)="^101.01PA^0^0" ^ORD(101,1123,15)="" ^ORD(101,1123,20)="D EN^IBJTLA" ^ORD(101,1123,99)="56795,61157" ^ORD(101,1124,0)="IBJT INACTIVE LIST SCREEN^Inactive Bills^^A^1^^^^^^^49" ^ORD(101,1124,15)="" ^ORD(101,1124,20)="D EN^IBJTLB" ^ORD(101,1124,99)="56795,61187" ^ORD(101,1125,0)="IBJT CLAIM SCREEN ACTIVE^Claim Information^^A^1^^^^^^^49" ^ORD(101,1125,20)="D NX^IBJTLA(""IBJT CLAIM INFO"")" ^ORD(101,1125,99)="56795,61176" ^ORD(101,1126,0)="IBJT NS VIEW INS CO SCREEN^Insurance Company^^A^1^^^^^^^49" ^ORD(101,1126,15)="" ^ORD(101,1126,20)="I '$$PRVSCR^IBJTU1(""IBCNSC"") D VI^IBJTNA(0)" ^ORD(101,1126,99)="56795,61200" ^ORD(101,1127,0)="IBJT NS VIEW EXP POL SCREEN^Policy^^A^1^^^^^^^49" ^ORD(101,1127,15)="" ^ORD(101,1127,20)="I '$$PRVSCR^IBJTU1(""IBCNSVP"") D VP^IBJTNB(0)" ^ORD(101,1127,99)="56795,61196" ^ORD(101,1128,0)="IBJT NS VIEW AN BEN SCREEN^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,1128,15)="" ^ORD(101,1128,20)="I '$$PRVSCR^IBJTU1(""IBCNSA"") D AB^IBJTNB(0)" ^ORD(101,1128,99)="56795,61192" ^ORD(101,1129,0)="IBJT BILL CHARGES SCREEN^Bill Charges^^A^1^^^^^^^49" ^ORD(101,1129,15)="" ^ORD(101,1129,20)="I '$$PRVSCR^IBJTU1(""IBJTBA"") D EN^IBJTBA" ^ORD(101,1129,99)="56795,61171" ^ORD(101,1130,0)="IBJT BILL DX SCREEN^Bill Diagnosis^^A^1^^^^^^^49" ^ORD(101,1130,15)="" ^ORD(101,1130,20)="I '$$PRVSCR^IBJTU1(""IBJTBB"") D EN^IBJTBB" ^ORD(101,1130,99)="56795,61173" ^ORD(101,1131,0)="IBJT BILL PROCEDURES SCREEN^Bill Procedures^^A^1^^^^^^^49" ^ORD(101,1131,15)="" ^ORD(101,1131,20)="I '$$PRVSCR^IBJTU1(""IBJTBC"") D EN^IBJTBC" ^ORD(101,1131,99)="56795,61176" ^ORD(101,1132,0)="IBJT AR ACCOUNT PROFILE SCREEN^Account Profile^^A^1^^^^^^^49" ^ORD(101,1132,20)="I '$$PRVSCR^IBJTU1(""IBJTTA"") D EN^IBJTTA" ^ORD(101,1132,99)="56795,61163" ^ORD(101,1133,0)="IBJT CHANGE DATES INACTIVE^Change Dates^^A^1^^^^^^^49" ^ORD(101,1133,15)="" ^ORD(101,1133,20)="D CDI^IBJTA1" ^ORD(101,1133,99)="56795,61176" ^ORD(101,1134,0)="IBJT CHANGE PATIENT^Change Patient^^A^1^^^^^^^49" ^ORD(101,1134,20)="D CP^IBJTA1" ^ORD(101,1134,99)="56795,61176" ^ORD(101,1135,0)="IBJT ACTIVE LIST SCREEN SKIP^Go to Active List^^A^1^^^^^^^49" ^ORD(101,1135,20)="S:'$G(IBNOTPJI) IBFASTXT=4 Q:'$G(IBNOTPJI) D FULL^VALM1 W !!,*7,""This action is not available for the current path into TPJI"" S VALMBCK=""R"" N DIR S DIR(0)=""E"" D ^DIR W !" ^ORD(101,1135,99)="58917,40145" ^ORD(101,1136,0)="IBJT AR TRANSACTION PROFILE SCREEN^Transaction Profile^^A^1^^^^^^^49" ^ORD(101,1136,20)="D NX^IBJTTA(""IBJT AR TRANSACTION PROFILE"")" ^ORD(101,1136,99)="56795,61168" ^ORD(101,1137,0)="IBJT CLAIM SCREEN INACTIVE^Claim Information^^A^1^^^^^^^49" ^ORD(101,1137,20)="D NX^IBJTLB(""IBJT CLAIM INFO"")" ^ORD(101,1137,99)="56795,61176" ^ORD(101,1138,0)="IBJT CLAIM SCREEN SKIP^Go to Claim Screen^^A^1^^^^^^^49" ^ORD(101,1138,20)="S IBFASTXT=3" ^ORD(101,1138,99)="56795,61179" ^ORD(101,1139,0)="IBJT CHANGE BILL^Change Bill^^A^1^^^^^^^49" ^ORD(101,1139,20)="D CB^IBJTA1" ^ORD(101,1139,99)="56795,61176" ^ORD(101,1140,0)="IBJT PT ELIGIBILITY SCREEN^Patient Eligibility^^A^1^^^^^^^49" ^ORD(101,1140,20)="I '$$PRVSCR^IBJTU1(""IBJTEA"") D EN^IBJTEA" ^ORD(101,1140,99)="56795,61203" ^ORD(101,1141,0)="IBJT CT/IR COMMUNICATIONS LIST SCREEN^Insurance Reviews^^A^1^^^^^^^49" ^ORD(101,1141,20)="I '$$PRVSCR^IBJTU1(""IBJTRA"") D EN^IBJTRA" ^ORD(101,1141,99)="56795,61185" ^ORD(101,1142,0)="IBJT CT/IR REVIEWS/APPEALS SCREEN^Reviews/Appeals^^A^1^^^^^^^49" ^ORD(101,1142,20)="D NX^IBJTRA" ^ORD(101,1142,99)="56795,61187" ^ORD(101,1143,0)="IBJT HS HEALTH SUMMARY^Health Summary^^A^1^^^^^^^49" ^ORD(101,1143,20)="D HS^IBJTA1" ^ORD(101,1143,99)="56795,61187" ^ORD(101,1144,0)="IBJT AR COMMENT HISTORY SCREEN^Comment History^^A^1^^^^^^^49" ^ORD(101,1144,20)="I '$$PRVSCR^IBJTU1(""IBJTTC"") D EN^IBJTTC" ^ORD(101,1144,99)="56795,61167" ^ORD(101,1145,0)="IBJT AR TRANSACTION PROFILE MENU^Transaction Profile Menu^^M^1^^^^^^^49" ^ORD(101,1145,4)="26^4" ^ORD(101,1145,10,0)="^101.01PA^3^3" ^ORD(101,1145,10,1,0)="1138^CI^17" ^ORD(101,1145,10,2,0)="1135^AL^27" ^ORD(101,1145,10,3,0)="1121^EX^37" ^ORD(101,1145,10,"B",1121,3)="" ^ORD(101,1145,10,"B",1135,2)="" ^ORD(101,1145,10,"B",1138,1)="" ^ORD(101,1145,15)="I $G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1145,20)="K IBFASTXT" ^ORD(101,1145,26)="D SHOW^VALM" ^ORD(101,1145,28)="Select Action: " ^ORD(101,1145,99)="58917,40145" ^ORD(101,1146,0)="IBJT CT/IR REVIEWS/APPEALS MENU^Reviews/Appeals Menu^^M^1^^^^^^^49" ^ORD(101,1146,4)="26^4" ^ORD(101,1146,10,0)="^101.01PA^3^3" ^ORD(101,1146,10,1,0)="1138^CI^17" ^ORD(101,1146,10,2,0)="1135^AL^27" ^ORD(101,1146,10,3,0)="1121^EX^37" ^ORD(101,1146,10,"B",1121,3)="" ^ORD(101,1146,10,"B",1135,2)="" ^ORD(101,1146,10,"B",1138,1)="" ^ORD(101,1146,15)="I $G(IBFASTXT)>2 S VALMBCK=""Q""" ^ORD(101,1146,20)="K IBFASTXT" ^ORD(101,1146,26)="D SHOW^VALM" ^ORD(101,1146,28)="Select Action: " ^ORD(101,1146,99)="58917,40145" ^ORD(101,1147,0)="IBJT NS VIEW EXP POL REDISPLAY^Policy^^A^1^^^^^^^49" ^ORD(101,1147,20)="D VP^IBJTNB(1)" ^ORD(101,1147,99)="56795,61196" ^ORD(101,1148,0)="IBJT NS VIEW AN BEN REDISPLAY^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,1148,20)="D AB^IBJTNB(1)" ^ORD(101,1148,99)="56795,61192" ^ORD(101,1149,0)="IBJT NS VIEW INS CO REDISPLAY^Insurance Company^^A^1^^^^^^^49" ^ORD(101,1149,20)="D VI^IBJTNA(1)" ^ORD(101,1149,99)="56795,61200" ^ORD(101,1150,0)="IBJT NS PI VIEW PAT INS SCREEN^Patient Insurance^^A^1^^^^^^^49" ^ORD(101,1150,20)="D VPI^IBJTNC" ^ORD(101,1150,99)="56795,61189" ^ORD(101,1151,0)="IBJT NS PI VIEW AN BEN SCREEN^Annual Benefits^^A^1^^^^^^^49" ^ORD(101,1151,20)="D NX^IBJTNC(""IBJT NS VIEW AN BEN"")" ^ORD(101,1151,99)="56795,61188" ^ORD(101,1152,0)="IBJT NS PI VIEW EXP POL SCREEN^Policy^^A^1^^^^^^^49" ^ORD(101,1152,20)="D NX^IBJTNC(""IBJT NS VIEW EXP POL"")" ^ORD(101,1152,99)="56795,61188" ^ORD(101,1153,0)="IBJT NS PI VIEW INS CO SCREEN^Insurance Company^^A^1^^^^^^^49" ^ORD(101,1153,20)="D NX^IBJTNC(""IBJT NS VIEW INS CO"")" ^ORD(101,1153,99)="56795,61188" ^ORD(101,1154,0)="IBJT AR COMMENT ADD^Add Comment^^A^1^^^^^^^49" ^ORD(101,1154,20)="D ARCA^IBJTA1" ^ORD(101,1154,99)="61199,28361" ^ORD(101,1155,0)="IBTRE VIEW PAT INS^View Pat. Ins.^^A^1^^^^^^^49" ^ORD(101,1155,20)="D NX^IBTRCD1(""IBCNS VIEW PAT INS"",1)" ^ORD(101,1155,99)="56795,62848" ^ORD(101,1156,0)="PRCO VENDOR REVIEW^VENDOR REQUEST Review^^M^1^^^^^^^52" ^ORD(101,1156,4)="25^4" ^ORD(101,1156,10,0)="^101.01PA^5^5" ^ORD(101,1156,10,1,0)="1157^RE^1^" ^ORD(101,1156,10,2,0)="1158^EV^2^" ^ORD(101,1156,10,3,0)="1159^SD^3^" ^ORD(101,1156,10,4,0)="1160^DE^4^" ^ORD(101,1156,10,5,0)="1161^PE^5^" ^ORD(101,1156,10,"B",1157,1)="" ^ORD(101,1156,10,"B",1158,2)="" ^ORD(101,1156,10,"B",1159,3)="" ^ORD(101,1156,10,"B",1160,4)="" ^ORD(101,1156,10,"B",1161,5)="" ^ORD(101,1156,20)="" ^ORD(101,1156,26)="D SHOW^VALM" ^ORD(101,1156,28)="Select VRQ Action :" ^ORD(101,1156,99)="58374,34249" ^ORD(101,1157,0)="PRCO REVIEW ENTRY^Review Entry^^A^1^^^^^^^52" ^ORD(101,1157,20)="D REV^PRCORV1" ^ORD(101,1157,99)="58374,34249" ^ORD(101,1158,0)="PRCO EDIT VENDOR ENTRY^Edit Vendor Request^^A^1^^^^^^^52" ^ORD(101,1158,20)="D EDIT^PRCORV1" ^ORD(101,1158,99)="58374,34249" ^ORD(101,1159,0)="PRCO SEND VRQ^Send VENDOR REQUEST^^A^1^^^^^^^52" ^ORD(101,1159,20)="D SEND^PRCORV1" ^ORD(101,1159,28)="Send VENDOR REQUEST" ^ORD(101,1159,99)="58374,34249" ^ORD(101,1160,0)="PRCO DELETE VRQ^Delete VENDOR REQUEST^^A^1^^^^^^^52" ^ORD(101,1160,20)="D DELETE^PRCORV1" ^ORD(101,1160,28)="Delete VENDOR REQUEST" ^ORD(101,1160,99)="58374,34249" ^ORD(101,1161,0)="PRCO PRINT ENTRY^Print Entry^^A^1^^^^^^^52" ^ORD(101,1161,20)="D PRINT^PRCORV" ^ORD(101,1161,99)="58374,34249" ^ORD(101,1162,0)="SC PATIENT PROFILE DISPLAY TEAM INFO^Team Information^^A^1^^^^^^^48" ^ORD(101,1162,1,0)="^^2^2^2960322^^^^" ^ORD(101,1162,1,1,0)="This action allows the user to display team information during the specified" ^ORD(101,1162,1,2,0)="date range." ^ORD(101,1162,2,0)="^101.02A^1^1" ^ORD(101,1162,2,1,0)="TI" ^ORD(101,1162,2,"B","TI",1)="" ^ORD(101,1162,20)="K SDY S SDALL=1,(SDTYP,SDFLG)=7,GBL=""^TMP(""""SDPPALL"""",""_$J_"")"" D ^SDPPALL" ^ORD(101,1162,99)="56809,52846" ^ORD(101,1163,0)="SC PCMM INPATIENT ACTIVITY^PCMM Inpatient Activity^^X^1^^^^^^^" ^ORD(101,1163,1,0)="^^11^11^2960307^" ^ORD(101,1163,1,1,0)="This is used to send MailMan messages to practitioners who are currently" ^ORD(101,1163,1,2,0)="assigned to positions that:" ^ORD(101,1163,1,3,0)=" o Have been assigned to this patient and the position is defined to" ^ORD(101,1163,1,4,0)=" receive inpatient messages for the position's patient panel." ^ORD(101,1163,1,5,0)=" o Are part of teams that have been assigned to this patient and" ^ORD(101,1163,1,6,0)=" the position is defined to receive messages for all patients in" ^ORD(101,1163,1,7,0)=" the team's patient panel." ^ORD(101,1163,1,8,0)=" " ^ORD(101,1163,1,9,0)="The Messages are labeled 'INPATIENT' xxx 'for' yyy. Here xxx is " ^ORD(101,1163,1,10,0)="ADMISSION, TRANSFER, OR DISCHARGE (as appropriate) and yyy is" ^ORD(101,1163,1,11,0)="the patient's name and PID." ^ORD(101,1163,20)="D MAIL^SCMCPM" ^ORD(101,1163,99)="56809,52846" ^ORD(101,1164,0)="SC CLINIC ENROLL/DISCHARGE EVENT DRIVER^CLINIC ENROLL/DISCHARGE EVENT DRIVER^^X^1^^^^^^^48" ^ORD(101,1164,1,0)="^^1^1^2960402^^^^" ^ORD(101,1164,1,1,0)="Generic team event driver to handle the assignment of patients to teams" ^ORD(101,1164,10,0)="^101.01PA^3^3" ^ORD(101,1164,10,2,0)="2368^^2^" ^ORD(101,1164,10,3,0)="1165" ^ORD(101,1164,10,"B",1165,3)="" ^ORD(101,1164,10,"B",2368,2)="" ^ORD(101,1164,15)="D EXIT^SCMCEV3" ^ORD(101,1164,99)="57814,55672" ^ORD(101,1165,0)="SC TEAM AUTO-ADD^TEAM AUTO-ADD^^A^1^^^^^^^" ^ORD(101,1165,1,0)="^^1^1^2960321^^^^" ^ORD(101,1165,1,1,0)="This is the action that adds a patient to a team via the SC TEAM EVENT DRIVER." ^ORD(101,1165,20)="D COMPARE^SCMCEV3(DFN)" ^ORD(101,1165,99)="56809,52847" ^ORD(101,1166,0)="SCMC PATIENT TEAM CHANGES^PCMM Patient Team Update Event Driver^^X^1^^^^^^^48" ^ORD(101,1166,1,0)="^^34^34^2960419^^^^" ^ORD(101,1166,1,1,0)="This is fired off whenever the Patient Team Assignment File (#404.42) is" ^ORD(101,1166,1,2,0)="updated." ^ORD(101,1166,1,3,0)=" " ^ORD(101,1166,1,4,0)="Available Output Variables:" ^ORD(101,1166,1,5,0)="===========================" ^ORD(101,1166,1,6,0)="SCPCTM = 1 if it this is a primary care team assignment, 0 otherwise" ^ORD(101,1166,1,7,0)="SCPTTMB4 = 0 Node of Patient Team Assignment (#404.42) Before " ^ORD(101,1166,1,8,0)="SCPTTMAF = 0 Node of Patient Team Assignment (#404.42) After" ^ORD(101,1166,1,9,0)="SCTMNDB4 = 0 Node of Team (#404.51) Before" ^ORD(101,1166,1,10,0)="SCTMNDAF = 0 Node of Team (#404.51) After" ^ORD(101,1166,1,11,0)="SCPTTM = Pointer to Patient Team Assignment (#404.42)" ^ORD(101,1166,1,12,0)="SCTMB4 = Pointer to Team (404.51) Before" ^ORD(101,1166,1,13,0)="SCTMAF = Pointer to Team (404.51) After" ^ORD(101,1166,1,14,0)=" " ^ORD(101,1166,1,15,0)="Notes:" ^ORD(101,1166,1,16,0)=" o The 7th piece of the Team File (i.e. $P(SCTMND,U,7)) is a pointer " ^ORD(101,1166,1,17,0)=" to the institution file." ^ORD(101,1166,1,18,0)=" o The 8th piece of the Patient Team Assignment File is the Assignment " ^ORD(101,1166,1,19,0)=" Type Field (#.08). Its internal value is '1' if it is a primary " ^ORD(101,1166,1,20,0)=" care assignment. Its value could be either null or '99'. '99' is " ^ORD(101,1166,1,21,0)=" 'Other'. You can check the variable, SCPCTM (1 or 0) to see if " ^ORD(101,1166,1,22,0)=" this is a primary care team assignment." ^ORD(101,1166,1,23,0)=" " ^ORD(101,1166,1,24,0)="Note: Utility: $$INSTPCTM^SCAPMC(DFN,DATE,SCERR)" ^ORD(101,1166,1,25,0)=" Input:" ^ORD(101,1166,1,26,0)=" DFN - ien of PATIENT File (#2)" ^ORD(101,1166,1,27,0)=" DATE - date to check (default=DT)" ^ORD(101,1166,1,28,0)=" SCERR - error array (default=^TMP(""SCERR"",$J)) - contains info " ^ORD(101,1166,1,29,0)=" about bad data. It is only set if there is bad data." ^ORD(101,1166,1,30,0)=" Returned:" ^ORD(101,1166,1,31,0)=" 0 if no Primary Care Team on Date or" ^ORD(101,1166,1,32,0)=" SC4^Institution Name^SCTM^Team Name" ^ORD(101,1166,1,33,0)=" SC4 = ien of Institution File" ^ORD(101,1166,1,34,0)=" SCTM = ien of Team File" ^ORD(101,1166,10,0)="^101.01PA^1^1" ^ORD(101,1166,10,1,0)="1169^^^" ^ORD(101,1166,10,"B",1169,1)="" ^ORD(101,1166,99)="56809,52847" ^ORD(101,1167,0)="SCMC PATIENT TEAM POSITION CHANGES^PCMM Patient Team Position Update Event Driver^^X^1^^^^^^^" ^ORD(101,1167,1,0)="^^23^23^2960405^^^^" ^ORD(101,1167,1,1,0)="This should be fired off whenever the PATIENT TEAM POSITION ASSIGNMENT " ^ORD(101,1167,1,2,0)="file (#404.43) is updated" ^ORD(101,1167,1,3,0)=" " ^ORD(101,1167,1,4,0)="Protocol Name: SCMC Patient Team Position Changes, hang an entry off of " ^ORD(101,1167,1,5,0)="this to use this protocol (I do not believe you will be using this one)" ^ORD(101,1167,1,6,0)=" " ^ORD(101,1167,1,7,0)="Description: This should be fired off whenever the PATIENT TEAM POSITION " ^ORD(101,1167,1,8,0)="ASSIGNMENT file (#404.43)is updated." ^ORD(101,1167,1,9,0)=" " ^ORD(101,1167,1,10,0)="Available Variables:" ^ORD(101,1167,1,11,0)="====================" ^ORD(101,1167,1,12,0)="SCPCTP = null or 0 if not a primary care assignment" ^ORD(101,1167,1,13,0)=" 1 if a primary care practitioner assignment" ^ORD(101,1167,1,14,0)=" 2 if a primary care attending assignment" ^ORD(101,1167,1,15,0)="SCPTTPB4 = 0 Node of Patient Team Position Assignment (#404.43) Before " ^ORD(101,1167,1,16,0)="SCPTTPAF = 0 Node of Patient Team Position Assignment (#404.43) After" ^ORD(101,1167,1,17,0)="SCTMNDB4 = 0 Node of Team (#404.51) Before" ^ORD(101,1167,1,18,0)="SCTMNDAF = 0 Node of Team (#404.51) After" ^ORD(101,1167,1,19,0)="SCTPNDB4 = 0 Node of Team Position (#404.57) Before" ^ORD(101,1167,1,20,0)="SCTPNDAF = 0 Node of Team Position (#404.57) After" ^ORD(101,1167,1,21,0)="SCPTTP = Pointer to Patient Team Position Assignment (#404.43)" ^ORD(101,1167,1,22,0)="SCTPB4 = Pointer to Team Position (404.57) Before" ^ORD(101,1167,1,23,0)="SCTPAF = Pointer to Team Position (404.57) After" ^ORD(101,1167,10,0)="^101.01PA^1^1" ^ORD(101,1167,10,1,0)="1170^^^" ^ORD(101,1167,10,"B",1170,1)="" ^ORD(101,1167,99)="56809,52847" ^ORD(101,1167,101.0431,0)="^^5^5^2960327^" ^ORD(101,1167,101.0431,1,0)=" " ^ORD(101,1167,101.0431,2,0)=" " ^ORD(101,1167,101.0431,3,0)=" " ^ORD(101,1167,101.0431,4,0)=" " ^ORD(101,1167,101.0431,5,0)=" " ^ORD(101,1168,0)="SC DISPLAY TEAM INFO^Display Team Information^^A^1^^^^^^^48" ^ORD(101,1168,1,0)="^^1^1^2990304^^^^" ^ORD(101,1168,1,1,0)="Display team information for a selected patient." ^ORD(101,1168,10,0)="^101.01PA" ^ORD(101,1168,15)="K ^TMP(""SCTI"",$J),TDFN" ^ORD(101,1168,20)="D SEL^SCMCU1 S:$G(TDFN)'>0 VALMBCK=""R"" Q:$G(TDFN)'>0 D EN^VALM(""SC TEAM INFORMATION"")" ^ORD(101,1168,99)="58146,48456" ^ORD(101,1169,0)="SCMC PT TEAM CHANGE MAIL MESSAGE^Patient-Team Changes Mail Message^^A^1^^^^^^^48" ^ORD(101,1169,1,0)="^^1^1^2960419^^^^" ^ORD(101,1169,1,1,0)="This fires off the MailMan Message for changes to File #404.42." ^ORD(101,1169,2,0)="^101.02A^1^1" ^ORD(101,1169,2,1,0)="Item" ^ORD(101,1169,2,"B","Item",1)="" ^ORD(101,1169,20)="D MAIL^SCMCTMM" ^ORD(101,1169,99)="56809,52847" ^ORD(101,1170,0)="SCMC PT POSITION CHANGE MAIL MESSAGE^Patient-Position Changes Mail Message^^A^1^^^^^^^48" ^ORD(101,1170,1,0)="^^1^1^2960404^^^^" ^ORD(101,1170,1,1,0)="This fires off the MailMan Message for changes to File #404.43." ^ORD(101,1170,15)="" ^ORD(101,1170,20)="D MAIL^SCMCTPM" ^ORD(101,1170,99)="56809,52847" ^ORD(101,1171,0)="SC ASSIGN PC TEAM ON DISCHARGE^PCMM Patient PC Team Assignment on Inpatient Discharge^^A^1^^^^^^^48" ^ORD(101,1171,1,0)="^^4^4^2980513^^" ^ORD(101,1171,1,1,0)="This is called from the patient movement event driver. If the movement" ^ORD(101,1171,1,2,0)="is a discharge, and the patient does not have a current or future" ^ORD(101,1171,1,3,0)="assignment to a primary care team - it will prompt the user to assign" ^ORD(101,1171,1,4,0)="the patient to a primary care team." ^ORD(101,1171,20)="D:'$G(^DPT(DFN,.35)) PCMMDIS^SCMCPM1" ^ORD(101,1171,99)="57498,49521" ^ORD(101,1172,0)="GMRADGPM MARK CHART^FIRE MARK CHART BULLETIN ON NEW ADMISSION^^X^1^^^^^^^" ^ORD(101,1172,1,0)="^^3^3^2921028^^^^" ^ORD(101,1172,1,1,0)="This protocol will hang off of the DGPM MOVEMENT EVENTS protocol and for" ^ORD(101,1172,1,2,0)="a new admission, a bulletin to mark that patients chart for all of the" ^ORD(101,1172,1,3,0)="active allergies will be fired." ^ORD(101,1172,4)="^^^FIRE MARK CHART BULLETIN ON NEW ADMISSION" ^ORD(101,1172,5)="" ^ORD(101,1172,20)="D EN1^GMRADGMV" ^ORD(101,1172,21,0)="^101.021A^^0" ^ORD(101,1172,99)="56809,56129" ^ORD(101,1173,0)="GMRAOR ALLERGY ENTER/EDIT^Enter/Edit Patient Allergies^^A^1^^^^^^^" ^ORD(101,1173,1,0)="^^2^2^2960301^^^^" ^ORD(101,1173,1,1,0)="This protocol will allow the user to enter/edit patient allergy/adverse" ^ORD(101,1173,1,2,0)="reaction data." ^ORD(101,1173,20)="N DFN S DFN=$S(ORVP["";DPT("":+ORVP,1:0) D:DFN>0 EN2^GMRAPEM0 K GMRAUSER,GMRAOUT" ^ORD(101,1173,99)="56809,56129" ^ORD(101,1174,0)="GMRA SIGN-OFF ON DATA^Sign-off on Reaction Data^^X^1^^^^^^^" ^ORD(101,1174,1,0)="^^44^44^2960213^" ^ORD(101,1174,1,1,0)="This protocol will be activated whenever a reaction is Signed." ^ORD(101,1174,1,2,0)="Listed below are the variables that will be defined for that reaction." ^ORD(101,1174,1,3,0)=" " ^ORD(101,1174,1,4,0)=" Variables:" ^ORD(101,1174,1,5,0)=" GMRAPA = The Internal Entry Number of the reaction in" ^ORD(101,1174,1,6,0)=" File 120.8 (PATIENT ALLERGIES)" ^ORD(101,1174,1,7,0)=" GMRAPA(0) = The zero node of the entry in File 120.8." ^ORD(101,1174,1,8,0)=" Below is a description of the data for that node." ^ORD(101,1174,1,9,0)=" " ^ORD(101,1174,1,10,0)=" $P Field name Field type" ^ORD(101,1174,1,11,0)=" ---------------------------------------------------------------" ^ORD(101,1174,1,12,0)=" 1 PATIENT Pointer to File 2 (PATIENT)" ^ORD(101,1174,1,13,0)=" 2 REACTANT Free Text of Reaction" ^ORD(101,1174,1,14,0)=" 3 GMR ALLERGY Variable Pointer *" ^ORD(101,1174,1,15,0)=" 4 ORIGINATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1174,1,16,0)=" 5 ORIGINATOR Pointer to File 200 (NEW PERSON)" ^ORD(101,1174,1,17,0)=" 6 OBSERVED/HISTORICAL Set of Codes " ^ORD(101,1174,1,18,0)=" (o=Observed,h=Historical)" ^ORD(101,1174,1,19,0)=" 12 ORIGINATOR SIGN OFF Set of Codes" ^ORD(101,1174,1,20,0)=" (1=Signed,(Zero or Null)=Unsigned)" ^ORD(101,1174,1,21,0)=" 14 MECHANISM Set of Codes" ^ORD(101,1174,1,22,0)=" (U=Unknown,P=Pharmacologic,A=Allergy)" ^ORD(101,1174,1,23,0)=" 16 VERIFIED Set of Codes" ^ORD(101,1174,1,24,0)=" (1=Verified,(0 or Null)=Not Verified)" ^ORD(101,1174,1,25,0)=" 17 VERIFICATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1174,1,26,0)=" 18 VERIFIER Pointer to File 200 " ^ORD(101,1174,1,27,0)=" 20 ALLERGY TYPE Free Text/Set of Codes" ^ORD(101,1174,1,28,0)=" 1 to 3 characters long" ^ORD(101,1174,1,29,0)=" (Where ""D"" = Drug," ^ORD(101,1174,1,30,0)=" ""F"" = Food," ^ORD(101,1174,1,31,0)=" ""O"" = Other)" ^ORD(101,1174,1,32,0)=" " ^ORD(101,1174,1,33,0)=" " ^ORD(101,1174,1,34,0)="*The GMR ALLERGY field is a variable pointer which points to one of five" ^ORD(101,1174,1,35,0)=" possible files. They are: " ^ORD(101,1174,1,36,0)=" " ^ORD(101,1174,1,37,0)="File Name File Reference" ^ORD(101,1174,1,38,0)="--------- --------------" ^ORD(101,1174,1,39,0)="GMR ALLERGIES GMR(120.8, (e.g., 212;GMR(120.8,)" ^ORD(101,1174,1,40,0)=" " ^ORD(101,1174,1,41,0)="NATIONAL DRUG PSNDF(" ^ORD(101,1174,1,42,0)="DRUG PSDRUG(" ^ORD(101,1174,1,43,0)="DRUG INGREDIENTS PS(50.416," ^ORD(101,1174,1,44,0)="VA DRUG CLASS PS(50.605, " ^ORD(101,1174,10,0)="^101.01PA^0^0" ^ORD(101,1174,99)="56809,56129" ^ORD(101,1175,0)="GMRA VERIFY DATA^Verification of Reaction Data^^X^1^^^^^^^" ^ORD(101,1175,1,0)="^^44^44^2960214^^" ^ORD(101,1175,1,1,0)="This protocol will be activated whenever a reaction is Verified." ^ORD(101,1175,1,2,0)="Listed below are the variables that will be defined for that reaction." ^ORD(101,1175,1,3,0)=" " ^ORD(101,1175,1,4,0)=" Variables:" ^ORD(101,1175,1,5,0)=" GMRAPA = The Internal Entry Number of the reaction in" ^ORD(101,1175,1,6,0)=" File 120.8 (PATIENT ALLERGIES)" ^ORD(101,1175,1,7,0)=" GMRAPA(0) = The zero node of the entry in file 120.8." ^ORD(101,1175,1,8,0)=" Below is a description of the data for that node." ^ORD(101,1175,1,9,0)=" " ^ORD(101,1175,1,10,0)=" $P Field name Field type" ^ORD(101,1175,1,11,0)=" ---------------------------------------------------------------" ^ORD(101,1175,1,12,0)=" 1 PATIENT Pointer to File 2 (PATIENT)" ^ORD(101,1175,1,13,0)=" 2 REACTANT Free Text of Reaction" ^ORD(101,1175,1,14,0)=" 3 GMR ALLERGY Variable Pointer *" ^ORD(101,1175,1,15,0)=" 4 ORIGINATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1175,1,16,0)=" 5 ORIGINATOR Pointer to File 200 (NEW PERSON)" ^ORD(101,1175,1,17,0)=" 6 OBSERVED/HISTORICAL Set of Codes " ^ORD(101,1175,1,18,0)=" (o=Observed,h=Historical)" ^ORD(101,1175,1,19,0)=" 12 ORIGINATOR SIGN OFF Set of Codes" ^ORD(101,1175,1,20,0)=" (1=Signed,(Zero or Null)=Unsigned)" ^ORD(101,1175,1,21,0)=" 14 MECHANISM Set of Codes" ^ORD(101,1175,1,22,0)=" (U=Unknown,P=Pharmacologic,A=Allergy)" ^ORD(101,1175,1,23,0)=" 16 VERIFIED Set of Codes" ^ORD(101,1175,1,24,0)=" (1=Verified,(0 or Null)=Not Verified)" ^ORD(101,1175,1,25,0)=" 17 VERIFICATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1175,1,26,0)=" 18 VERIFIER Pointer to File 200 " ^ORD(101,1175,1,27,0)=" 20 ALLERGY TYPE Free Text/Set of Codes" ^ORD(101,1175,1,28,0)=" 1 to 3 characters long" ^ORD(101,1175,1,29,0)=" (Where ""D"" = Drug," ^ORD(101,1175,1,30,0)=" ""F"" = Food," ^ORD(101,1175,1,31,0)=" ""O"" = Other)" ^ORD(101,1175,1,32,0)=" " ^ORD(101,1175,1,33,0)=" " ^ORD(101,1175,1,34,0)="*The GMR ALLERGY field is a variable pointer which points to one of five" ^ORD(101,1175,1,35,0)=" possible files. They are: " ^ORD(101,1175,1,36,0)=" " ^ORD(101,1175,1,37,0)="File Name File Reference" ^ORD(101,1175,1,38,0)="--------- --------------" ^ORD(101,1175,1,39,0)="GMR ALLERGIES GMR(120.8, (e.g., 212;GMR(120.8,)" ^ORD(101,1175,1,40,0)=" " ^ORD(101,1175,1,41,0)="NATIONAL DRUG PSNDF(" ^ORD(101,1175,1,42,0)="DRUG PSDRUG(" ^ORD(101,1175,1,43,0)="DRUG INGREDIENTS PS(50.416," ^ORD(101,1175,1,44,0)="VA DRUG CLASS PS(50.605, " ^ORD(101,1175,10,0)="^101.01PA^0^0" ^ORD(101,1175,99)="56809,56129" ^ORD(101,1176,0)="GMRA ENTERED IN ERROR^Reaction Data Entered in Error^^X^1^^^^^^^" ^ORD(101,1176,1,0)="^^42^42^2960213^" ^ORD(101,1176,1,1,0)="This protocol will be activated whenever a reaction is Entered in Error." ^ORD(101,1176,1,2,0)="Listed below are the variables that will be defined for that reaction." ^ORD(101,1176,1,3,0)=" " ^ORD(101,1176,1,4,0)=" Variables:" ^ORD(101,1176,1,5,0)=" GMRAPA = The Internal Entry Number of the reaction in" ^ORD(101,1176,1,6,0)=" File 120.8 (PATIENT ALLERGIES)" ^ORD(101,1176,1,7,0)=" GMRAPA(0) = The zero node of the entry in File 120.8." ^ORD(101,1176,1,8,0)=" Below is a description of the data for that node." ^ORD(101,1176,1,9,0)=" " ^ORD(101,1176,1,10,0)=" $P Field name Field type" ^ORD(101,1176,1,11,0)=" ---------------------------------------------------------------" ^ORD(101,1176,1,12,0)=" 1 PATIENT Pointer to File 2 (PATIENT)" ^ORD(101,1176,1,13,0)=" 2 REACTANT Free Text of Reaction" ^ORD(101,1176,1,14,0)=" 3 GMR ALLERGY Variable Pointer *" ^ORD(101,1176,1,15,0)=" 4 ORIGINATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1176,1,16,0)=" 5 ORIGINATOR Pointer to File 200 (NEW PERSON)" ^ORD(101,1176,1,17,0)=" 6 OBSERVED/HISTORICAL Set of Codes " ^ORD(101,1176,1,18,0)=" (o=Observed,h=Historical)" ^ORD(101,1176,1,19,0)=" 12 ORIGINATOR SIGN OFF Set of Codes" ^ORD(101,1176,1,20,0)=" (1=Signed,(Zero or Null)=Unsigned)" ^ORD(101,1176,1,21,0)=" 14 MECHANISM Set of Codes" ^ORD(101,1176,1,22,0)=" (U=Unknown,P=Pharmacologic,A=Allergy)" ^ORD(101,1176,1,23,0)=" 16 VERIFIED Set of Codes" ^ORD(101,1176,1,24,0)=" (1=Verified,(0 or Null)=Not Verified)" ^ORD(101,1176,1,25,0)=" 17 VERIFICATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1176,1,26,0)=" 18 VERIFIER Pointer to File 200 " ^ORD(101,1176,1,27,0)=" 20 ALLERGY TYPE Free Text/Set of Codes" ^ORD(101,1176,1,28,0)=" 1 to 3 characters long" ^ORD(101,1176,1,29,0)=" (Where ""D"" = Drug," ^ORD(101,1176,1,30,0)=" ""F"" = Food," ^ORD(101,1176,1,31,0)=" ""O"" = Other)" ^ORD(101,1176,1,32,0)=" " ^ORD(101,1176,1,33,0)="*The GMR ALLERGY field is a variable pointer which points to one of five" ^ORD(101,1176,1,34,0)=" possible files. They are: " ^ORD(101,1176,1,35,0)=" " ^ORD(101,1176,1,36,0)="File Name File Reference" ^ORD(101,1176,1,37,0)="--------- --------------" ^ORD(101,1176,1,38,0)="GMR ALLERGIES GMR(120.8, (e.g., 212;GMR(120.8,)" ^ORD(101,1176,1,39,0)="NATIONAL DRUG PSNDF(" ^ORD(101,1176,1,40,0)="DRUG PSDRUG(" ^ORD(101,1176,1,41,0)="DRUG INGREDIENTS PS(50.416," ^ORD(101,1176,1,42,0)="VA DRUG CLASS PS(50.605, " ^ORD(101,1176,10,0)="^101.01PA^0^0" ^ORD(101,1176,99)="56809,56129" ^ORD(101,1177,0)="GMRA MEDWATCH DATA COMPLETE^MEDWatch data evaluated^^X^1^^^^^^^" ^ORD(101,1177,1,0)="^^74^74^2960213^" ^ORD(101,1177,1,1,0)="This protocol will be activated whenever a reaction has a MEDWatch form" ^ORD(101,1177,1,2,0)="entered. Listed below are the variables that will be defined for that" ^ORD(101,1177,1,3,0)="reaction." ^ORD(101,1177,1,4,0)=" " ^ORD(101,1177,1,5,0)=" Variables:" ^ORD(101,1177,1,6,0)=" GMRAPA = The Internal Entry Number of the reaction in" ^ORD(101,1177,1,7,0)=" File 120.8 (PATIENT ALLERGIES)" ^ORD(101,1177,1,8,0)=" GMRAPA(0) = The zero node of the entry in File 120.8." ^ORD(101,1177,1,9,0)=" Below is a description of the data for that node." ^ORD(101,1177,1,10,0)=" " ^ORD(101,1177,1,11,0)=" $P Field name Field type" ^ORD(101,1177,1,12,0)=" ---------------------------------------------------------------" ^ORD(101,1177,1,13,0)=" 1 PATIENT Pointer to File 2 (PATIENT)" ^ORD(101,1177,1,14,0)=" 2 REACTANT Free Text of Reaction" ^ORD(101,1177,1,15,0)=" 3 GMR ALLERGY Variable Pointer *" ^ORD(101,1177,1,16,0)=" 4 ORIGINATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1177,1,17,0)=" 5 ORIGINATOR Pointer to File 200 (NEW PERSON)" ^ORD(101,1177,1,18,0)=" 6 OBSERVED/HISTORICAL Set of Codes " ^ORD(101,1177,1,19,0)=" (o=Observed,h=Historical)" ^ORD(101,1177,1,20,0)=" 12 ORIGINATOR SIGN OFF Set of Codes" ^ORD(101,1177,1,21,0)=" (1=Signed,(Zero or Null)=Unsigned)" ^ORD(101,1177,1,22,0)=" 14 MECHANISM Set of Codes" ^ORD(101,1177,1,23,0)=" (U=Unknown,P=Pharmacologic,A=Allergy)" ^ORD(101,1177,1,24,0)=" 16 VERIFIED Set of Codes" ^ORD(101,1177,1,25,0)=" (1=Verified,(0 or Null)=Not Verified)" ^ORD(101,1177,1,26,0)=" 17 VERIFICATION DATE/TIME Date/Time (FileMan format)" ^ORD(101,1177,1,27,0)=" 18 VERIFIER Pointer to File 200 " ^ORD(101,1177,1,28,0)=" 20 ALLERGY TYPE Free Text/Set of Codes" ^ORD(101,1177,1,29,0)=" 1 to 3 characters long" ^ORD(101,1177,1,30,0)=" (Where ""D"" = Drug," ^ORD(101,1177,1,31,0)=" ""F"" = Food," ^ORD(101,1177,1,32,0)=" ""O"" = Other)" ^ORD(101,1177,1,33,0)=" " ^ORD(101,1177,1,34,0)=" GMRAPA1 = The Internal Entry Number of the reaction in" ^ORD(101,1177,1,35,0)=" File 120.85 (ADVERSE REACTION REPORTING)" ^ORD(101,1177,1,36,0)=" GMRAPA1(0) = The zero node of the entry in File 120.85." ^ORD(101,1177,1,37,0)=" Below is a description of the data for that node." ^ORD(101,1177,1,38,0)=" " ^ORD(101,1177,1,39,0)=" $P Field name Field type" ^ORD(101,1177,1,40,0)=" ---------------------------------------------------------------" ^ORD(101,1177,1,41,0)=" 1 DATE/TIME OF EVENT Date/Time (FileMan format)" ^ORD(101,1177,1,42,0)=" 2 PATIENT Pointer to File 2 (PATIENT)" ^ORD(101,1177,1,43,0)=" 3 QUESTION #1 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,44,0)=" 4 QUESTION #2 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,45,0)=" 5 QUESTION #3 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,46,0)=" 6 QUESTION #4 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,47,0)=" 7 QUESTION #5 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,48,0)=" 8 NO. DAY HOSPITALIZED Numeric" ^ORD(101,1177,1,49,0)=" 9 QUESTION #6 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,50,0)=" 10 QUESTION #7 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,51,0)=" 11 QUESTION #8 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,52,0)=" 12 DATE MD NOTIFIED Date/Time (FileMan format)" ^ORD(101,1177,1,53,0)=" 13 OBSERVER Pointer to File 200 (NEW PERSON)" ^ORD(101,1177,1,54,0)=" 14 SEVERITY Set of Codes" ^ORD(101,1177,1,55,0)=" (1=Mild," ^ORD(101,1177,1,56,0)=" 2=Moderate," ^ORD(101,1177,1,57,0)=" 3=Severe)" ^ORD(101,1177,1,58,0)=" 15 RELATED REACTION Pointer to File 120.8 (PATIENT" ^ORD(101,1177,1,59,0)=" ALLERGIES)" ^ORD(101,1177,1,60,0)=" 16 QUESTION #9 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,61,0)=" 17 QUESTION #10 Set of Codes (y=YES,n=NO)" ^ORD(101,1177,1,62,0)=" " ^ORD(101,1177,1,63,0)=" " ^ORD(101,1177,1,64,0)="*The GMR ALLERGY field is a variable pointer which points to one of five" ^ORD(101,1177,1,65,0)=" possible files. They are: " ^ORD(101,1177,1,66,0)=" " ^ORD(101,1177,1,67,0)="File Name File Reference" ^ORD(101,1177,1,68,0)="--------- --------------" ^ORD(101,1177,1,69,0)="GMR ALLERGIES GMR(120.8, (e.g., 212;GMR(120.8,)" ^ORD(101,1177,1,70,0)=" " ^ORD(101,1177,1,71,0)="NATIONAL DRUG PSNDF(" ^ORD(101,1177,1,72,0)="DRUG PSDRUG(" ^ORD(101,1177,1,73,0)="DRUG INGREDIENTS PS(50.416," ^ORD(101,1177,1,74,0)="VA DRUG CLASS PS(50.605, " ^ORD(101,1177,10,0)="^101.01PA^0^0" ^ORD(101,1177,99)="56809,56129" ^ORD(101,1178,0)="GMRA RECEIVE^Receive HL7 message from OE/RR^^A^1^^^^^^^" ^ORD(101,1178,1,0)="^^1^1^2951213^" ^ORD(101,1178,1,1,0)="Receive a Health Level Seven (HL7) message from the OE/RR package." ^ORD(101,1178,20)="D EN1^GMRAOR4(.XQORMSG)" ^ORD(101,1178,99)="56809,56129" ^ORD(101,1179,0)="IBDF HIDDEN ACTIONS^HIDDEN ACTIONS^^M^1^^^^^^^76" ^ORD(101,1179,4)="26" ^ORD(101,1179,10,0)="^101.01PA^22^14" ^ORD(101,1179,10,1,0)="442^+^11^" ^ORD(101,1179,10,2,0)="443^-^12^" ^ORD(101,1179,10,3,0)="447^UP^13^" ^ORD(101,1179,10,4,0)="448^DN^14^" ^ORD(101,1179,10,5,0)="444^RD^24^" ^ORD(101,1179,10,7,0)="452^PL^26^" ^ORD(101,1179,10,8,0)="463^>^15^" ^ORD(101,1179,10,9,0)="464^<^16^" ^ORD(101,1179,10,12,0)="774^PR^33^" ^ORD(101,1179,10,13,0)="445^LS^22^" ^ORD(101,1179,10,14,0)="446^FS^21^" ^ORD(101,1179,10,15,0)="466^GO^23^" ^ORD(101,1179,10,21,0)="1183^EX^35^^^Exit Option" ^ORD(101,1179,10,22,0)="450^QU^34^^^Quit Screen" ^ORD(101,1179,10,"B",442,1)="" ^ORD(101,1179,10,"B",443,2)="" ^ORD(101,1179,10,"B",444,5)="" ^ORD(101,1179,10,"B",445,13)="" ^ORD(101,1179,10,"B",446,14)="" ^ORD(101,1179,10,"B",447,3)="" ^ORD(101,1179,10,"B",448,4)="" ^ORD(101,1179,10,"B",450,22)="" ^ORD(101,1179,10,"B",452,7)="" ^ORD(101,1179,10,"B",463,8)="" ^ORD(101,1179,10,"B",464,9)="" ^ORD(101,1179,10,"B",466,15)="" ^ORD(101,1179,10,"B",774,12)="" ^ORD(101,1179,10,"B",1183,21)="" ^ORD(101,1179,99)="61199,28361" ^ORD(101,1180,0)="IBDF PCE EVENT^Process events from PCE^^A^1^^^^^^^76" ^ORD(101,1180,1,0)="^^14^14^2951214^" ^ORD(101,1180,1,1,0)="This protocol is the event handler attached" ^ORD(101,1180,1,2,0)="to the PXK VISIT DATA EVENT protocol." ^ORD(101,1180,1,3,0)="" ^ORD(101,1180,1,4,0)="In order to determine if all data from encounter" ^ORD(101,1180,1,5,0)="forms has been collected it is necessary to flag" ^ORD(101,1180,1,6,0)="all printed forms as having data input. If the" ^ORD(101,1180,1,7,0)="input is from AICS then the Form Tracking file is" ^ORD(101,1180,1,8,0)="automatically updated. If data entry is done through" ^ORD(101,1180,1,9,0)="Scheduling or PCE then the form tracking file is not" ^ORD(101,1180,1,10,0)="updated." ^ORD(101,1180,1,11,0)=" " ^ORD(101,1180,1,12,0)="This protocol ensures that data during data entry" ^ORD(101,1180,1,13,0)="through PCE or scheduling flags a manual data entry" ^ORD(101,1180,1,14,0)="field in the Form Tracking file." ^ORD(101,1180,20)="D MAN^IBDFPCE" ^ORD(101,1180,99)="57099,59875" ^ORD(101,1181,0)="PXCA DATA EVENT^PCE Device Interface Module's Data Event^^X^1^^^^^^^" ^ORD(101,1181,1,0)="^^4^4^2951106^^^^" ^ORD(101,1181,1,1,0)="This is the event point invoked by PCE Device Interface Module when it" ^ORD(101,1181,1,2,0)="has not found any errors in the data passed to it. This makes the data" ^ORD(101,1181,1,3,0)="available to other users of the data including users of any Local data" ^ORD(101,1181,1,4,0)="that may be included." ^ORD(101,1181,10,0)="^101.01PA^1^1" ^ORD(101,1181,10,1,0)="1180" ^ORD(101,1181,10,"B",1180,1)="" ^ORD(101,1181,99)="57099,59875" ^ORD(101,1182,0)="PXK VISIT DATA EVENT^VISIT RELATED DATA^^X^1^^^^^^^" ^ORD(101,1182,1,0)="^^5^5^2951106^^^^" ^ORD(101,1182,1,1,0)="This is a Protocol that PIMS can hook onto to find the data that" ^ORD(101,1182,1,2,0)="was collected by PCE using List Manager,Scanning etc." ^ORD(101,1182,1,3,0)=" " ^ORD(101,1182,1,4,0)="PIMS has developed a protocol, SDAM PCE EVENT, which will use the visit" ^ORD(101,1182,1,5,0)="related data to do an auto-checkout." ^ORD(101,1182,10,0)="^101.01PA^5^5" ^ORD(101,1182,10,1,0)="1180" ^ORD(101,1182,10,2,0)="1449" ^ORD(101,1182,10,3,0)="2726" ^ORD(101,1182,10,4,0)="3281" ^ORD(101,1182,10,5,0)="3414" ^ORD(101,1182,10,"B",1180,1)="" ^ORD(101,1182,10,"B",1449,2)="" ^ORD(101,1182,10,"B",2726,3)="" ^ORD(101,1182,10,"B",3281,4)="" ^ORD(101,1182,10,"B",3414,5)="" ^ORD(101,1182,15)="K PXKSPX" ^ORD(101,1182,20)="S PXKSPX=1" ^ORD(101,1182,99)="60332,49903" ^ORD(101,1183,0)="IBDF EF QUIT^EXIT^^A^1^^^^^^^76" ^ORD(101,1183,.1)="EXIT" ^ORD(101,1183,1,0)="^^2^2^2950809^^^^" ^ORD(101,1183,1,1,0)="Allows the user to exit the system without quitting through the hierarchy of" ^ORD(101,1183,1,2,0)="screens, or the user can exit to the previous screen." ^ORD(101,1183,2,0)="^101.02A^2^1" ^ORD(101,1183,2,2,0)="EXIT" ^ORD(101,1183,2,"B","EXIT",2)="" ^ORD(101,1183,10,0)="^101.01PA^0^0" ^ORD(101,1183,20)="D FASTEXIT^IBDFU3" ^ORD(101,1183,99)="57099,59875" ^ORD(101,1183,101.0431,0)="^^3^3^2950809^^" ^ORD(101,1183,101.0431,1,0)=" " ^ORD(101,1183,101.0431,2,0)=" " ^ORD(101,1183,101.0431,3,0)=" " ^ORD(101,1184,0)="IBDF EF QUEUE PARMS MENU^EF Queue Parameters^^M^1^^^^^^^76" ^ORD(101,1184,4)="26^4" ^ORD(101,1184,10,0)="^101.01PA^12^10" ^ORD(101,1184,10,1,0)="1185^EP^11^" ^ORD(101,1184,10,2,0)="1186^AP^12^" ^ORD(101,1184,10,5,0)="1189^JP^13^" ^ORD(101,1184,10,6,0)="1190^PF^34^" ^ORD(101,1184,10,7,0)="1191^CG^31^" ^ORD(101,1184,10,8,0)="1193^QS^35^" ^ORD(101,1184,10,9,0)="1194^EX^99^" ^ORD(101,1184,10,10,0)="1202^HL^34^" ^ORD(101,1184,10,11,0)="1606^TI^36^" ^ORD(101,1184,10,12,0)="1240^DG^50^" ^ORD(101,1184,10,"B",1185,1)="" ^ORD(101,1184,10,"B",1186,2)="" ^ORD(101,1184,10,"B",1189,5)="" ^ORD(101,1184,10,"B",1190,6)="" ^ORD(101,1184,10,"B",1191,7)="" ^ORD(101,1184,10,"B",1193,8)="" ^ORD(101,1184,10,"B",1194,9)="" ^ORD(101,1184,10,"B",1202,10)="" ^ORD(101,1184,10,"B",1240,12)="" ^ORD(101,1184,10,"B",1606,11)="" ^ORD(101,1184,26)="D SHOW^VALM" ^ORD(101,1184,28)="Select Action: " ^ORD(101,1184,99)="57099,59876" ^ORD(101,1185,0)="IBDF EF EDIT QUEUE PARMS^Edit Parameter Grp.^^A^1^^^^^^^76" ^ORD(101,1185,20)="D EDT^IBDFPE1" ^ORD(101,1185,99)="57099,59875" ^ORD(101,1186,0)="IBDF EF ADD QUEUE PARMS^Add Parameter Grp.^^A^1^^^^^^^76" ^ORD(101,1186,20)="D ADD^IBDFPE1" ^ORD(101,1186,99)="57099,59875" ^ORD(101,1187,0)="IBDF EF CLINIC GROUP ADD^Add Clinic Group^^A^1^^^^^^^76" ^ORD(101,1187,20)="D ADD1^IBDFCG" ^ORD(101,1187,99)="57099,59875" ^ORD(101,1188,0)="IBDF EF CLINIC GROUP MENU^Clinic Group Menu w/actions^^M^1^^^^^^^76" ^ORD(101,1188,1,0)="^^2^2^2960220^^^^" ^ORD(101,1188,1,1,0)=" " ^ORD(101,1188,1,2,0)=" " ^ORD(101,1188,4)="26^4" ^ORD(101,1188,10,0)="^101.01PA^6^5" ^ORD(101,1188,10,1,0)="1187^AC^11^" ^ORD(101,1188,10,2,0)="1192^JP^21^" ^ORD(101,1188,10,4,0)="1195^EC^13^" ^ORD(101,1188,10,5,0)="1183^EX^90^" ^ORD(101,1188,10,6,0)="1239^DG^80^" ^ORD(101,1188,10,"B",1183,5)="" ^ORD(101,1188,10,"B",1187,1)="" ^ORD(101,1188,10,"B",1192,2)="" ^ORD(101,1188,10,"B",1195,4)="" ^ORD(101,1188,10,"B",1239,6)="" ^ORD(101,1188,20)="" ^ORD(101,1188,26)="D SHOW^VALM" ^ORD(101,1188,28)="Select Action: " ^ORD(101,1188,99)="57099,59876" ^ORD(101,1189,0)="IBDF EF PARAMETER GROUP JUMP^Jump to Param. Grp.^^A^1^^^^^^^76" ^ORD(101,1189,20)="D JUMP^IBDFPE" ^ORD(101,1189,99)="57099,59875" ^ORD(101,1190,0)="IBDF EF QUEUE PRINT FORMS^Print Forms One Group^^A^1^^^^^^^76" ^ORD(101,1190,20)="D ^IBDFQS" ^ORD(101,1190,99)="57099,59875" ^ORD(101,1191,0)="IBDF EF CLINIC GROUP MENU ACTION^Clinic Group Menu^^A^1^^^^^^^76" ^ORD(101,1191,10,0)="^101.01PA^0^0" ^ORD(101,1191,15)="K IBDFCG I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1191,20)="D EN^IBDFCG" ^ORD(101,1191,28)="" ^ORD(101,1191,99)="57099,59875" ^ORD(101,1192,0)="IBDF EF CLINIC GROUP JUMP^Jump to Clinic Grp.^^A^1^^^^^^^76" ^ORD(101,1192,20)="D JUMP^IBDFCG" ^ORD(101,1192,99)="57099,59875" ^ORD(101,1193,0)="IBDF EF QUEUE STATS^Queue Status^^A^1^^^^^^^76" ^ORD(101,1193,20)="D STAT^IBDFPE1" ^ORD(101,1193,99)="57099,59875" ^ORD(101,1194,0)="IBDF EF EXIT^Exit^^A^1^^^^^^^76" ^ORD(101,1194,20)="S VALMBCK=""Q""" ^ORD(101,1194,99)="57099,59875" ^ORD(101,1195,0)="IBDF EF CLINIC GROUP EDIT^Edit Clinic Group^^A^1^^^^^^^76" ^ORD(101,1195,20)="D EDIT^IBDFCG" ^ORD(101,1195,99)="57099,59875" ^ORD(101,1196,0)="IBDF RESEQUENCE LIST^RESEQUENCE LIST^^A^1^^^^^^^76" ^ORD(101,1196,1,0)="^^1^1^2950224^" ^ORD(101,1196,1,1,0)="Allows the list to be resequenced by any subcolumn." ^ORD(101,1196,2,0)="^101.02A^1^1" ^ORD(101,1196,2,1,0)="RS" ^ORD(101,1196,2,"B","RS",1)="" ^ORD(101,1196,20)="D SEQUENCE^IBDF4" ^ORD(101,1196,99)="57099,59875" ^ORD(101,1197,0)="IBDFC ADD FORM TO LIST^ADD FORM TO LIST^^A^1^^^^^^^76" ^ORD(101,1197,1,0)="^^1^1^2950228^" ^ORD(101,1197,1,1,0)="Allows a single form to be added to the list for conversion." ^ORD(101,1197,2,0)="^101.02A^1^1" ^ORD(101,1197,2,1,0)="AF" ^ORD(101,1197,2,"B","AF",1)="" ^ORD(101,1197,20)="D ADDONE^IBDFC" ^ORD(101,1197,99)="57099,59875" ^ORD(101,1198,0)="IBDFC CONVERSION UTILITY MENU^CONVERSION UTILITY^^M^1^^^^^^^76" ^ORD(101,1198,1,0)="^^1^1^2950228^^^" ^ORD(101,1198,1,1,0)="Menu for the conversion utility screen." ^ORD(101,1198,2,0)="^101.02A^1^1" ^ORD(101,1198,2,1,0)="CNV" ^ORD(101,1198,2,"B","CNV",1)="" ^ORD(101,1198,4)="26^4" ^ORD(101,1198,10,0)="^101.01PA^4^4" ^ORD(101,1198,10,1,0)="1197^AF^1^^^Add Form To List" ^ORD(101,1198,10,2,0)="1199^RF^3^^^Remove From List" ^ORD(101,1198,10,3,0)="1201^VL^6^^^View Conversion Log" ^ORD(101,1198,10,4,0)="1204^CL^5^" ^ORD(101,1198,10,"B",1197,1)="" ^ORD(101,1198,10,"B",1199,2)="" ^ORD(101,1198,10,"B",1201,3)="" ^ORD(101,1198,10,"B",1204,4)="" ^ORD(101,1198,26)="D SHOW^VALM" ^ORD(101,1198,99)="57099,59875" ^ORD(101,1199,0)="IBDFC REMOVE FORM FROM LIST^REMOVE FROM LIST^^A^1^^^^^^^76" ^ORD(101,1199,1,0)="^^2^2^2950302^" ^ORD(101,1199,1,1,0)="Used to remove a form from the current list of forms to be converted for" ^ORD(101,1199,1,2,0)="scanning." ^ORD(101,1199,2,0)="^101.02A^1^1" ^ORD(101,1199,2,1,0)="RF" ^ORD(101,1199,2,"B","RF",1)="" ^ORD(101,1199,20)="D REMOVE^IBDFC" ^ORD(101,1199,99)="57099,59875" ^ORD(101,1200,0)="IBDFC MENU FOR CONVERTED FORMS^MENU FOR CONVERTED FORMS^^M^1^^^^^^^76" ^ORD(101,1200,1,0)="^^1^1^2950302^" ^ORD(101,1200,1,1,0)="Menu for working with the list of converted forms." ^ORD(101,1200,2,0)="^101.02A^2^1" ^ORD(101,1200,2,2,0)="LIST" ^ORD(101,1200,2,"B","LIST",2)="" ^ORD(101,1200,4)="26^4" ^ORD(101,1200,10,0)="^101.01PA^7^7" ^ORD(101,1200,10,1,0)="750^EF^2^" ^ORD(101,1200,10,2,0)="779^NM^1^" ^ORD(101,1200,10,3,0)="1205^VW^3^" ^ORD(101,1200,10,4,0)="1207^SI^4^" ^ORD(101,1200,10,5,0)="1206^RC^5^" ^ORD(101,1200,10,6,0)="1208^DF^6^" ^ORD(101,1200,10,7,0)="1209^PG^8^" ^ORD(101,1200,10,"B",750,1)="" ^ORD(101,1200,10,"B",779,2)="" ^ORD(101,1200,10,"B",1205,3)="" ^ORD(101,1200,10,"B",1206,5)="" ^ORD(101,1200,10,"B",1207,4)="" ^ORD(101,1200,10,"B",1208,6)="" ^ORD(101,1200,10,"B",1209,7)="" ^ORD(101,1200,26)="D SHOW^VALM" ^ORD(101,1200,99)="57099,59875" ^ORD(101,1201,0)="IBDFC LIST CONVERTED FORMS^View Conversion Log^^A^1^^^^^^^76" ^ORD(101,1201,1,0)="^^1^1^2950306^^" ^ORD(101,1201,1,1,0)="Used to go to the screen that lists all of the converted forms." ^ORD(101,1201,2,0)="^101.02A^1^1" ^ORD(101,1201,2,1,0)="VL" ^ORD(101,1201,2,"B","VL",1)="" ^ORD(101,1201,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1201,20)="D LIST^IBDFC1" ^ORD(101,1201,99)="57099,59875" ^ORD(101,1202,0)="IBDF EF HELP SPEC INST^Special Instruc Help^^A^1^^^^^^^76" ^ORD(101,1202,20)="D EN^IBDFHLP" ^ORD(101,1202,99)="57099,59875" ^ORD(101,1203,0)="IBDF EF HELP MENU^Help Menu^^M^1^^^^^^^76" ^ORD(101,1203,4)="26^4" ^ORD(101,1203,10,0)="^101.01PA^0^0" ^ORD(101,1203,26)="D SHOW^VALM" ^ORD(101,1203,28)="Select Action: " ^ORD(101,1203,99)="57099,59875" ^ORD(101,1204,0)="IBDFC CONVERT LISTED FORMS^Convert List^^A^1^^^^^^^76" ^ORD(101,1204,1,0)="^^3^3^2951208^^" ^ORD(101,1204,1,1,0)="Converts all the forms on the list. The original forms are left unchanged." ^ORD(101,1204,1,2,0)="The forms are copied, the copied form is renamed with a CNV. prefix, and" ^ORD(101,1204,1,3,0)="it is the copy that is converted." ^ORD(101,1204,2,0)="^101.02A^1^1" ^ORD(101,1204,2,1,0)="CL" ^ORD(101,1204,2,"B","CL",1)="" ^ORD(101,1204,20)="D CNVTLIST^IBDFC" ^ORD(101,1204,99)="57099,59875" ^ORD(101,1205,0)="IBDFC VIEW SCANNING WARNINGS^View Warnings^^A^1^^^^^^^76" ^ORD(101,1205,1,0)="^^2^2^2950306^^^" ^ORD(101,1205,1,1,0)="Allows the potential problems discovered durring the conversion process to" ^ORD(101,1205,1,2,0)="be viewed." ^ORD(101,1205,2,0)="^101.02A^1^1" ^ORD(101,1205,2,1,0)="VW" ^ORD(101,1205,2,"B","VW",1)="" ^ORD(101,1205,20)="D WARNINGS^IBDFC1" ^ORD(101,1205,99)="57099,59875" ^ORD(101,1206,0)="IBDFC REPLACE IN CLINICS^Replace In Clinics^^A^1^^^^^^^76" ^ORD(101,1206,1,0)="^^2^2^2950306^^^" ^ORD(101,1206,1,1,0)="Used to substitute the converted forms for the original forms in the" ^ORD(101,1206,1,2,0)="clinics." ^ORD(101,1206,2,0)="^101.02A^1^1" ^ORD(101,1206,2,1,0)="RC" ^ORD(101,1206,2,"B","RC",1)="" ^ORD(101,1206,20)="D REPLACE^IBDFC3" ^ORD(101,1206,99)="57099,59875" ^ORD(101,1207,0)="IBDF PRINT FORM DEFINITION^Scanning Info^^A^1^^^^^^^76" ^ORD(101,1207,1,0)="^^2^2^2950309^^" ^ORD(101,1207,1,1,0)="Allows the information in the Form Definition table to be printed. This is" ^ORD(101,1207,1,2,0)="the information used form scanning." ^ORD(101,1207,2,0)="^101.02A^1^1" ^ORD(101,1207,2,1,0)="SI" ^ORD(101,1207,2,"B","SI",1)="" ^ORD(101,1207,20)="D FORMDEF^IBDFC4" ^ORD(101,1207,99)="57099,59875" ^ORD(101,1208,0)="IBDFC DELETE CONVERTED FORM^Delete Converted Form^^A^1^^^^^^^76" ^ORD(101,1208,1,0)="^^2^2^2950309^" ^ORD(101,1208,1,1,0)="Allows a form listed in the conversion log to be deleted if it is not in" ^ORD(101,1208,1,2,0)="use." ^ORD(101,1208,2,0)="^101.02A^1^1" ^ORD(101,1208,2,1,0)="DF" ^ORD(101,1208,2,"B","DF",1)="" ^ORD(101,1208,20)="D DELFORM^IBDFC1" ^ORD(101,1208,99)="57099,59875" ^ORD(101,1209,0)="IBDFC PURGE CONVERSION LOG^Purge Conversion Log^^A^1^^^^^^^76" ^ORD(101,1209,1,0)="^^1^1^2950309^" ^ORD(101,1209,1,1,0)="Allows the log to be purged." ^ORD(101,1209,2,0)="^101.02A^2^1" ^ORD(101,1209,2,2,0)="PG" ^ORD(101,1209,2,"B","PG",2)="" ^ORD(101,1209,10,0)="^101.01PA^0^0" ^ORD(101,1209,20)="D PURGE^IBDFC1" ^ORD(101,1209,99)="57099,59875" ^ORD(101,1210,0)="IBDF EF TASK INTERUPT^Task Interupt^^A^1^^^^^^^76" ^ORD(101,1210,15)="K IBDFSTOP" ^ORD(101,1210,20)="S IBDFSTOP=1 D STAT^IBDFPE1" ^ORD(101,1210,99)="56811,66998" ^ORD(101,1211,0)="IBDF UTIL PRIMARY PROTOCOL^Utility Protocol^^M^1^^^^^^^76" ^ORD(101,1211,4)="26^4" ^ORD(101,1211,10,0)="^101.01PA^7^6" ^ORD(101,1211,10,2,0)="1212^JP^33^" ^ORD(101,1211,10,3,0)="1213^CL^23^" ^ORD(101,1211,10,4,0)="1214^DL^24^" ^ORD(101,1211,10,5,0)="1215^IC^26^" ^ORD(101,1211,10,6,0)="1218^RC^23^" ^ORD(101,1211,10,7,0)="452^PL^35^" ^ORD(101,1211,10,"B",452,7)="" ^ORD(101,1211,10,"B",1212,2)="" ^ORD(101,1211,10,"B",1213,3)="" ^ORD(101,1211,10,"B",1214,4)="" ^ORD(101,1211,10,"B",1215,5)="" ^ORD(101,1211,10,"B",1218,6)="" ^ORD(101,1211,26)="D SHOW^VALM" ^ORD(101,1211,28)="Select Action: " ^ORD(101,1211,99)="61142,58433" ^ORD(101,1212,0)="IBDF UTIL JUMP^Jump^^A^1^^^^^^^76" ^ORD(101,1212,20)="D JUMP^IBDFUTL2" ^ORD(101,1212,99)="57099,59875" ^ORD(101,1213,0)="IBDF UTIL CHANGE LIST^Change List^^A^1^^^^^^^76" ^ORD(101,1213,15)="K IBDF1" ^ORD(101,1213,20)="S IBDF1=1 D CHGLST^IBDFUTL2" ^ORD(101,1213,99)="57099,59875" ^ORD(101,1214,0)="IBDF UTIL DELETE FROM SELECTION LIST^Delete From List^^A^1^^^^^^^76" ^ORD(101,1214,20)="D DELETE^IBDFUTL2" ^ORD(101,1214,99)="57099,59875" ^ORD(101,1215,0)="IBDF UTIL COMPLETE INVALID LIST^Invalid Code List^^A^1^^^^^^^76" ^ORD(101,1215,20)="D START^IBDFLST" ^ORD(101,1215,99)="57099,59875" ^ORD(101,1216,0)="IBDF UTIL COMPLETE LIST MENU^Complete List Menu^^M^1^^^^^^^76" ^ORD(101,1216,4)="26^4" ^ORD(101,1216,10,0)="^101.01PA^1^1" ^ORD(101,1216,10,1,0)="1217^JP^11^" ^ORD(101,1216,10,"B",1217,1)="" ^ORD(101,1216,26)="D SHOW^VALM" ^ORD(101,1216,28)="Select Action: " ^ORD(101,1216,99)="57099,59875" ^ORD(101,1217,0)="IBDF UTIL INVALID CODES JUMP^Jump^^A^1^^^^^^^76" ^ORD(101,1217,20)="D JUMP^IBDFLST" ^ORD(101,1217,99)="57099,59875" ^ORD(101,1218,0)="IBDF UTIL REPLACE CODE^Replace Code^^A^1^^^^^^^76" ^ORD(101,1218,20)="D REPLACE^IBDFUTL3" ^ORD(101,1218,99)="57099,59875" ^ORD(101,1219,0)="IBDF QUICK SELECTION EDIT^Quick Selection Edit^^A^1^^^^^^^76" ^ORD(101,1219,20)="D ^IBDFQSL" ^ORD(101,1219,99)="57099,59875" ^ORD(101,1220,0)="IBDF QUICK EDIT ACTIONS MENU^Quick Edit Menu^^M^1^^^^^^^76" ^ORD(101,1220,4)="26^4" ^ORD(101,1220,10,0)="^101.01PA^10^10" ^ORD(101,1220,10,1,0)="1221^ES^2^" ^ORD(101,1220,10,2,0)="1222^DS^3^^^Delete Selection" ^ORD(101,1220,10,3,0)="1223^AS^1^^^Add Selection" ^ORD(101,1220,10,4,0)="1224^PH^4^^^New Place Holder" ^ORD(101,1220,10,5,0)="1225^FA^5^" ^ORD(101,1220,10,6,0)="1226^GA^6^" ^ORD(101,1220,10,7,0)="1233^GC^7^" ^ORD(101,1220,10,8,0)="1236^GD^8^" ^ORD(101,1220,10,9,0)="1238^GE^9^" ^ORD(101,1220,10,10,0)="1611^RS^10^" ^ORD(101,1220,10,"B",1221,1)="" ^ORD(101,1220,10,"B",1222,2)="" ^ORD(101,1220,10,"B",1223,3)="" ^ORD(101,1220,10,"B",1224,4)="" ^ORD(101,1220,10,"B",1225,5)="" ^ORD(101,1220,10,"B",1226,6)="" ^ORD(101,1220,10,"B",1233,7)="" ^ORD(101,1220,10,"B",1236,8)="" ^ORD(101,1220,10,"B",1238,9)="" ^ORD(101,1220,10,"B",1611,10)="" ^ORD(101,1220,26)="D SHOW^VALM" ^ORD(101,1220,28)="Select Action: " ^ORD(101,1220,99)="57099,59876" ^ORD(101,1221,0)="IBDF QUICK ACTION EDIT^Edit Selection^^A^1^^^^^^^76" ^ORD(101,1221,20)="D EDIT^IBDFQEA" ^ORD(101,1221,99)="57099,59875" ^ORD(101,1222,0)="IBDF QUICK ACTION DELETE^Delete Selection^^A^1^^^^^^^76" ^ORD(101,1222,20)="D DELETE^IBDFQEA" ^ORD(101,1222,99)="57099,59875" ^ORD(101,1223,0)="IBDF QUICK ACTION ADD^Add Selection^^A^1^^^^^^^76" ^ORD(101,1223,20)="D ADDSLCTN^IBDFQEA" ^ORD(101,1223,99)="57099,59875" ^ORD(101,1224,0)="IBDF QUICK ACTION ADD BLANK^Add Blank^^A^1^^^^^^^76" ^ORD(101,1224,20)="D ADDBLANK^IBDFQEA" ^ORD(101,1224,99)="57099,59875" ^ORD(101,1225,0)="IBDF QUICK ACTION FORMAT GROUP^Format All^^A^1^^^^^^^76" ^ORD(101,1225,20)="D FORMAT^IBDFQEA" ^ORD(101,1225,99)="57099,59875" ^ORD(101,1226,0)="IBDF QUICK GROUP ADD^Group Add^^A^1^^^^^^^76" ^ORD(101,1226,20)="D GROUPADD^IBDFQEA" ^ORD(101,1226,99)="57099,59875" ^ORD(101,1227,0)="IBDF QUICK SELECTION EDIT 2ND SCREEN^Quick Selection Edit^^A^1^^^^^^^76" ^ORD(101,1227,20)="D EDITBLK^IBDFQSL,IDXFORM^IBDF5A()" ^ORD(101,1227,99)="57099,59875" ^ORD(101,1228,0)="IBDF FT MENU^Form Tracking Menu^^M^1^^^^^^^76" ^ORD(101,1228,4)="26^4" ^ORD(101,1228,10,0)="^101.01PA^6^6" ^ORD(101,1228,10,1,0)="1229^SA^1^" ^ORD(101,1228,10,2,0)="1231^SS^2^" ^ORD(101,1228,10,3,0)="452^PL^3^" ^ORD(101,1228,10,4,0)="1237^CL^4^" ^ORD(101,1228,10,5,0)="1391^DL^5^" ^ORD(101,1228,10,6,0)="1612^RF^6^" ^ORD(101,1228,10,"B",452,3)="" ^ORD(101,1228,10,"B",1229,1)="" ^ORD(101,1228,10,"B",1231,2)="" ^ORD(101,1228,10,"B",1237,4)="" ^ORD(101,1228,10,"B",1391,5)="" ^ORD(101,1228,10,"B",1612,6)="" ^ORD(101,1228,26)="D SHOW^VALM" ^ORD(101,1228,28)="Select Action: " ^ORD(101,1228,99)="61142,58433" ^ORD(101,1229,0)="IBDF FT STATISTICS^Statistics^^A^1^^^^^^^76" ^ORD(101,1229,20)="D EN^IBDFST" ^ORD(101,1229,99)="57099,59875" ^ORD(101,1230,0)="IBDF FT STATS MENU^Statistics^^M^1^^^^^^^76" ^ORD(101,1230,4)="26^4" ^ORD(101,1230,10,0)="^101.01PA^1^1" ^ORD(101,1230,10,1,0)="452^PL^1^" ^ORD(101,1230,10,"B",452,1)="" ^ORD(101,1230,26)="D SHOW^VALM" ^ORD(101,1230,28)="Select Action: " ^ORD(101,1230,99)="61142,58433" ^ORD(101,1231,0)="IBDF FT STATUS SELECT^Status Select^^A^1^^^^^^^76" ^ORD(101,1231,20)="D START^IBDFSS,EN^IBDFSS" ^ORD(101,1231,99)="57099,59876" ^ORD(101,1232,0)="IBDF FT STATUS SELECT MENU^Status Select Menu^^M^1^^^^^^^76" ^ORD(101,1232,4)="26^4" ^ORD(101,1232,10,0)="^101.01PA^1^1" ^ORD(101,1232,10,1,0)="452^PL^3^" ^ORD(101,1232,10,"B",452,1)="" ^ORD(101,1232,26)="D SHOW^VALM" ^ORD(101,1232,28)="Select Action: " ^ORD(101,1232,99)="61142,58433" ^ORD(101,1233,0)="IBDF QUICK GRP COPY^Group Copy^^A^1^^^^^^^76" ^ORD(101,1233,15)="D INIT^IBDFQSL1 S VALMBCK=""R""" ^ORD(101,1233,20)="D ^IBDFGRP" ^ORD(101,1233,99)="57099,59876" ^ORD(101,1234,0)="IBDF QUICK GRP MENU^Group Copy Menu^^M^1^^^^^^^76" ^ORD(101,1234,4)="26^4" ^ORD(101,1234,10,0)="^101.01PA^1^1" ^ORD(101,1234,10,1,0)="1235^GC^1^" ^ORD(101,1234,10,"B",1235,1)="" ^ORD(101,1234,26)="D SHOW^VALM" ^ORD(101,1234,28)="Select Action: " ^ORD(101,1234,99)="57099,59876" ^ORD(101,1235,0)="IBDF QUICK GROUP COPY SELECTION^Group Copy Selection^^A^1^^^^^^^76" ^ORD(101,1235,20)="D GRPCOPY^IBDFGRP" ^ORD(101,1235,99)="57099,59876" ^ORD(101,1236,0)="IBDF QUICK GRP DELETE^Group Delete^^A^1^^^^^^^76" ^ORD(101,1236,20)="D GRPDEL^IBDFQEA" ^ORD(101,1236,99)="57099,59876" ^ORD(101,1237,0)="IBDF FT CHANGE LIST^Change List^^A^1^^^^^^^76" ^ORD(101,1237,15)="K IBDF1" ^ORD(101,1237,20)="S IBDF1=1 D CHGLST^IBDFFT" ^ORD(101,1237,99)="57099,59876" ^ORD(101,1238,0)="IBDF QUICK EDIT GRP^Group Edit^^A^1^^^^^^^76" ^ORD(101,1238,20)="D GRPEDIT^IBDFQEA" ^ORD(101,1238,99)="57099,59876" ^ORD(101,1239,0)="IBDF EF CLINIC GROUP DELETE^Delete Clinic Grp^^A^1^^^^^^^76" ^ORD(101,1239,20)="D DEL^IBDFCG" ^ORD(101,1239,99)="57099,59876" ^ORD(101,1240,0)="IBDF EF DELETE QUEUE PARMS^Delete Param Grp^^A^1^^^^^^^76" ^ORD(101,1240,20)="D DEL^IBDFPE1" ^ORD(101,1240,99)="57099,59876" ^ORD(101,1241,0)="PSJ OR PAT OE^Inpatient Medications^^O^1^^^^^^^77" ^ORD(101,1241,1,0)="^^3^3^2920625^^^^" ^ORD(101,1241,1,1,0)=" This protocol allows the entry of Unit Dose and non-fluid IV orders" ^ORD(101,1241,1,2,0)="through the Order Entry/Results Reporting package. This protocol assumes" ^ORD(101,1241,1,3,0)="that the patient has been selected prior to this protocol being selected." ^ORD(101,1241,5)="" ^ORD(101,1241,20)="D ^PSJORA" ^ORD(101,1241,99)="57814,55441" ^ORD(101,1242,0)="PSJU OR PAT PR^Unit Dose Medications Profile^^A^1^^^^^^^" ^ORD(101,1242,1,0)="^^6^6^2920122^^^^" ^ORD(101,1242,1,1,0)=" This allows a user to print to any device a profile (list) of a patient's" ^ORD(101,1242,1,2,0)="Unit Dose orders for the patient's current or last (if patient has been" ^ORD(101,1242,1,3,0)="discharged) admission. If the user's terminal is selected as the printing" ^ORD(101,1242,1,4,0)="device, this option will allow the user to select any of the printed orders" ^ORD(101,1242,1,5,0)="to be shown in complete detail, including the activity logs, if any." ^ORD(101,1242,1,6,0)=" This protocol assumes that a patient has already been selected." ^ORD(101,1242,5)="" ^ORD(101,1242,20)="D ENOR^PSGPR" ^ORD(101,1242,99)="57814,55441" ^ORD(101,1243,0)="PSJ OR PAT MENU^Inpatient Medications Patient Reports^^Q^1^^^^^^^77" ^ORD(101,1243,1,0)="^^3^3^2931001^^^^" ^ORD(101,1243,1,1,0)=" This contains Inpatient (Unit Dose and IV) Medications reports for use" ^ORD(101,1243,1,2,0)="with the OE/RR package. These reports assume that the patient has been" ^ORD(101,1243,1,3,0)="selected prior to the protocol being selected." ^ORD(101,1243,4)="40" ^ORD(101,1243,5)="" ^ORD(101,1243,10,0)="^101.01PA^9^9" ^ORD(101,1243,10,1,0)="1242^^^" ^ORD(101,1243,10,2,0)="1255^^^" ^ORD(101,1243,10,3,0)="1251^^^" ^ORD(101,1243,10,4,0)="1252^^^" ^ORD(101,1243,10,5,0)="1258^^^" ^ORD(101,1243,10,6,0)="1259^^^" ^ORD(101,1243,10,7,0)="1254^^^" ^ORD(101,1243,10,8,0)="1253^^^" ^ORD(101,1243,10,9,0)="1244^^^" ^ORD(101,1243,10,"B",1242,1)="" ^ORD(101,1243,10,"B",1244,9)="" ^ORD(101,1243,10,"B",1251,3)="" ^ORD(101,1243,10,"B",1252,4)="" ^ORD(101,1243,10,"B",1253,8)="" ^ORD(101,1243,10,"B",1254,7)="" ^ORD(101,1243,10,"B",1255,2)="" ^ORD(101,1243,10,"B",1258,5)="" ^ORD(101,1243,10,"B",1259,6)="" ^ORD(101,1243,99)="57814,55637" ^ORD(101,1244,0)="PSJI OR PAT PR^IV Medications Profile^^A^1^^^^^^^" ^ORD(101,1244,1,0)="^^4^4^2920122^^^^" ^ORD(101,1244,1,1,0)=" This will allow a patient's IV profile to be sent to a printer." ^ORD(101,1244,1,2,0)="With each profile printed, a view of each order within the profile can" ^ORD(101,1244,1,3,0)="also be printed. This protocol assumes that a patient has been selected" ^ORD(101,1244,1,4,0)="prior to this protocol being selected." ^ORD(101,1244,5)="" ^ORD(101,1244,20)="D ENOR^PSIVPR" ^ORD(101,1244,99)="57814,55441" ^ORD(101,1245,0)="PSJU OR VBW^Non-Verified Orders (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1245,1,0)="^^7^7^2920122^^^^" ^ORD(101,1245,1,1,0)=" This allows the user to verify (or take other actions) on non-verified" ^ORD(101,1245,1,2,0)="Unit Dose orders for patients. If the user is a pharmacist, this protocol" ^ORD(101,1245,1,3,0)="will show all orders not verified by a pharmacist for a ward group, ward, or" ^ORD(101,1245,1,4,0)="single patient, as the user chooses. If the user is a nurse, this protocol" ^ORD(101,1245,1,5,0)="will show all orders not verified by a nurse. If the user is ward staff," ^ORD(101,1245,1,6,0)="this protocol will show patients with orders not verified by a nurse, but" ^ORD(101,1245,1,7,0)="not allow any action to be taken." ^ORD(101,1245,5)="" ^ORD(101,1245,20)="D ^PSGVBW" ^ORD(101,1245,99)="57814,55441" ^ORD(101,1246,0)="PSJ OR MENU^Inpatient Medications Ward Reports^^Q^1^^^^^^^77" ^ORD(101,1246,1,0)="^^2^2^2920121^^^^" ^ORD(101,1246,1,1,0)=" This contains Inpatient (Unit Dose and IV) Medications reports that may be" ^ORD(101,1246,1,2,0)="run by ward personnel through the OE/RR package." ^ORD(101,1246,4)="40" ^ORD(101,1246,5)="" ^ORD(101,1246,10,0)="^101.01PA^9^9" ^ORD(101,1246,10,1,0)="1245^^^" ^ORD(101,1246,10,2,0)="1250^^^" ^ORD(101,1246,10,3,0)="1249^^^" ^ORD(101,1246,10,4,0)="1247^^^" ^ORD(101,1246,10,5,0)="1248^^^" ^ORD(101,1246,10,6,0)="1256^^^" ^ORD(101,1246,10,7,0)="1257^^^" ^ORD(101,1246,10,8,0)="1261^^^" ^ORD(101,1246,10,9,0)="1262^^^" ^ORD(101,1246,10,"B",1245,1)="" ^ORD(101,1246,10,"B",1247,4)="" ^ORD(101,1246,10,"B",1248,5)="" ^ORD(101,1246,10,"B",1249,3)="" ^ORD(101,1246,10,"B",1250,2)="" ^ORD(101,1246,10,"B",1256,6)="" ^ORD(101,1246,10,"B",1257,7)="" ^ORD(101,1246,10,"B",1261,8)="" ^ORD(101,1246,10,"B",1262,9)="" ^ORD(101,1246,99)="57814,55441" ^ORD(101,1247,0)="PSJU OR AP-1^Action Profile #1^^A^1^^^^^^^" ^ORD(101,1247,1,0)="^^4^4^2940803^^^^" ^ORD(101,1247,1,1,0)=" This allows the user to print a profile of patients' active Unit Dose" ^ORD(101,1247,1,2,0)="orders for review by the physician. It includes places for the physician" ^ORD(101,1247,1,3,0)="to mark each order and sign the profile. When possible, space is also" ^ORD(101,1247,1,4,0)="included for new orders." ^ORD(101,1247,5)="" ^ORD(101,1247,20)="D ^PSGAP" ^ORD(101,1247,99)="57814,55441" ^ORD(101,1248,0)="PSJU OR AP-2^Action Profile #2^^A^1^^^^^^^" ^ORD(101,1248,1,0)="^^4^4^2920122^^^^" ^ORD(101,1248,1,1,0)=" This allows the user to print a profile of patients' active Unit Dose" ^ORD(101,1248,1,2,0)="orders for review by the physician. It includes places for the physician" ^ORD(101,1248,1,3,0)="to mark each order and sign the profile. When possible, space is also" ^ORD(101,1248,1,4,0)="included for new orders." ^ORD(101,1248,5)="" ^ORD(101,1248,20)="D ^PSGCAP" ^ORD(101,1248,99)="57814,55441" ^ORD(101,1249,0)="PSJU OR 7D MAR^7 Day MAR (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1249,1,0)="^^4^4^2940308^^^^" ^ORD(101,1249,1,1,0)=" This allows the user to print selected patients' Unit Dose orders on a" ^ORD(101,1249,1,2,0)="Medication Administration Record (MAR) for the charting of the" ^ORD(101,1249,1,3,0)="administration of the orders over a seven day period. It is designed to" ^ORD(101,1249,1,4,0)="replace the manual Continuing Medication Record (CMR)." ^ORD(101,1249,5)="" ^ORD(101,1249,20)="D EN7^PSGMMAR" ^ORD(101,1249,99)="57814,55441" ^ORD(101,1250,0)="PSJU OR 14D MAR^14 Day MAR (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1250,1,0)="^^4^4^2920122^^^^" ^ORD(101,1250,1,1,0)=" This allows the user to print selected patients' Unit Dose orders on a" ^ORD(101,1250,1,2,0)="Medication Administration Record (MAR) for the charting of the" ^ORD(101,1250,1,3,0)="administration of the orders over a fourteen day period. It is designed to" ^ORD(101,1250,1,4,0)="replace the manual Continuing Medication Record (CMR)." ^ORD(101,1250,5)="" ^ORD(101,1250,20)="D EN14^PSGMMAR" ^ORD(101,1250,99)="57814,55441" ^ORD(101,1251,0)="PSJU OR PAT AP-1^Action Profile #1 (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1251,1,0)="^^5^5^2940720^^^^" ^ORD(101,1251,1,1,0)=" This allows the user to print a profile of a patient's active Unit Dose" ^ORD(101,1251,1,2,0)="orders for review by the physician. It includes places for the physician" ^ORD(101,1251,1,3,0)="to mark each order and sign the profile. When possible, space is also" ^ORD(101,1251,1,4,0)="included for new orders. This protocol assumes that a patient has already" ^ORD(101,1251,1,5,0)="been selected." ^ORD(101,1251,5)="" ^ORD(101,1251,20)="D ENOR^PSGAP" ^ORD(101,1251,99)="57814,55441" ^ORD(101,1252,0)="PSJU OR PAT AP-2^Action Profile #2 (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1252,1,0)="^^5^5^2920122^^^^" ^ORD(101,1252,1,1,0)=" This allows the user to print a profile of a patient's active Unit Dose" ^ORD(101,1252,1,2,0)="orders for review by the physician. It includes places for the physician" ^ORD(101,1252,1,3,0)="to mark each order and sign the profile. When possible, space is also" ^ORD(101,1252,1,4,0)="included for new orders. This protocol assumes that a patient has already" ^ORD(101,1252,1,5,0)="been selected." ^ORD(101,1252,5)="" ^ORD(101,1252,20)="D ENOR^PSGCAP0" ^ORD(101,1252,99)="57814,55441" ^ORD(101,1253,0)="PSJU OR PAT VBW^Non-Verified Orders (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1253,1,0)="^^7^7^2920122^^^^" ^ORD(101,1253,1,1,0)=" This allows the user to verify (or take other actions) on non-verified" ^ORD(101,1253,1,2,0)="Unit Dose orders for a patient. If the user is a pharmacist, this protocol" ^ORD(101,1253,1,3,0)="will show all orders not verified by a pharmacist for a selected patient." ^ORD(101,1253,1,4,0)="If the user is a nurse, this protocol will show all orders not verified by" ^ORD(101,1253,1,5,0)="a nurse. If the user is ward staff, this protocol will show the patient's" ^ORD(101,1253,1,6,0)="orders not verified by a nurse, but not allow any action to be taken." ^ORD(101,1253,1,7,0)=" This protocol assumes that a patient has already been selected." ^ORD(101,1253,5)="" ^ORD(101,1253,20)="D ENOR^PSGVBW" ^ORD(101,1253,99)="57814,55441" ^ORD(101,1254,0)="PSJU OR PAT DS^Discharge Summary (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1254,1,0)="^^5^5^2940720^^^^" ^ORD(101,1254,1,1,0)=" This gives the physician and/or Outpatient Pharmacy a report of the active" ^ORD(101,1254,1,2,0)="Unit Dose medications for a patient about to be discharged or transferred to" ^ORD(101,1254,1,3,0)="Authorized Absence, and allows the physician to mark the appropriate" ^ORD(101,1254,1,4,0)="action deemed necessary for each medication. This protocol assumes that a" ^ORD(101,1254,1,5,0)="patient has already been selected." ^ORD(101,1254,5)="" ^ORD(101,1254,20)="D ENOR^PSGDS" ^ORD(101,1254,99)="57814,55441" ^ORD(101,1255,0)="PSJ OR PAT PR^Inpatient Medications Profile^^A^1^^^^^^^77" ^ORD(101,1255,1,0)="^^2^2^2920121^^^^" ^ORD(101,1255,1,1,0)=" This allows the user to print Inpatient Medications orders for a selected" ^ORD(101,1255,1,2,0)="patient. This protocol assumes that the patient has already been selected." ^ORD(101,1255,5)="" ^ORD(101,1255,15)="K PSGP" ^ORD(101,1255,20)="S:'$G(PSGP)&(+$G(ORVP)) PSGP=+ORVP Q:'$D(PSGP) D ENOR^PSJPR(PSGP)" ^ORD(101,1255,99)="57814,55637" ^ORD(101,1256,0)="PSJU OR DS^Authorized Absence/Discharge Summary (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1256,1,0)="^^4^4^2920122^^^^" ^ORD(101,1256,1,1,0)=" This gives the physician and/or Outpatient Pharmacy a report of the active" ^ORD(101,1256,1,2,0)="Unit Dose medications for patients about to be discharged or transferred to" ^ORD(101,1256,1,3,0)="Authorized Absence, and allows the physician to mark the appropriate" ^ORD(101,1256,1,4,0)="action deemed necessary for each medication." ^ORD(101,1256,5)="" ^ORD(101,1256,20)="D ^PSGDS" ^ORD(101,1256,99)="57814,55441" ^ORD(101,1257,0)="PSJU OR PR^Patient Profile (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1257,1,0)="^^7^7^2920122^^^^" ^ORD(101,1257,1,1,0)=" This allows a user to print to any device a profile (list) of patients'" ^ORD(101,1257,1,2,0)="Unit Dose orders for the patient's current or last (if patient has been" ^ORD(101,1257,1,3,0)="discharged) admission. If the user's terminal is selected as the printing" ^ORD(101,1257,1,4,0)="device, this protocol will allow the user to select any of the printed" ^ORD(101,1257,1,5,0)="orders to be shown in complete detail, including the activity logs, if any." ^ORD(101,1257,1,6,0)="The user may print patients' profiles for a single patient, or for an entire" ^ORD(101,1257,1,7,0)="ward group or an entire ward." ^ORD(101,1257,5)="" ^ORD(101,1257,20)="D ^PSGPR" ^ORD(101,1257,99)="57814,55441" ^ORD(101,1258,0)="PSJU OR PAT 14D MAR^14 Day MAR (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1258,1,0)="^^5^5^2940323^^^^" ^ORD(101,1258,1,1,0)=" This allows the user to print a selected patient's Unit Dose orders on a" ^ORD(101,1258,1,2,0)="Medication Administration Record (MAR) for the charting of the" ^ORD(101,1258,1,3,0)="administration of the orders over a fourteen day period. It is designed to" ^ORD(101,1258,1,4,0)="replace the manual Continuing Medication Record (CMR). This protocol" ^ORD(101,1258,1,5,0)="assumes that a patient has already been selected." ^ORD(101,1258,5)="" ^ORD(101,1258,20)="S PSGMARDF=14 D ENOR^PSGMMAR" ^ORD(101,1258,99)="57814,55441" ^ORD(101,1259,0)="PSJU OR PAT 7D MAR^7 Day MAR (Unit Dose)^^A^1^^^^^^^" ^ORD(101,1259,1,0)="^^5^5^2920122^^^^" ^ORD(101,1259,1,1,0)=" This allows the user to print a selected patient's Unit Dose orders on a" ^ORD(101,1259,1,2,0)="Medication Administration Record (MAR) for the charting of the" ^ORD(101,1259,1,3,0)="administration of the orders over a seven day period. It is designed to" ^ORD(101,1259,1,4,0)="replace the manual Continuing Medication Record (CMR). This protocol" ^ORD(101,1259,1,5,0)="assumes that a patient has already been selected." ^ORD(101,1259,5)="" ^ORD(101,1259,20)="S PSGMARDF=7 D ENOR^PSGMMAR" ^ORD(101,1259,99)="57814,55441" ^ORD(101,1260,0)="PSJ OR PAT PR MENU^Inpatient Medications Profiles^^M^1^^^^^^^77" ^ORD(101,1260,1,0)="^^3^3^2920625^^^^" ^ORD(101,1260,1,1,0)=" These are Inpatient Medications profiles for use with the OE/RR package." ^ORD(101,1260,1,2,0)="These protocols all assume that the patient has already been selected " ^ORD(101,1260,1,3,0)="through the OE/RR package." ^ORD(101,1260,4)="40" ^ORD(101,1260,5)="" ^ORD(101,1260,10,0)="^101.01PA^4^4" ^ORD(101,1260,10,1,0)="1255^^97^" ^ORD(101,1260,10,2,0)="1242^^96^" ^ORD(101,1260,10,3,0)="1244^^95^" ^ORD(101,1260,10,4,0)="1250^^^" ^ORD(101,1260,10,"B",1242,2)="" ^ORD(101,1260,10,"B",1244,3)="" ^ORD(101,1260,10,"B",1250,4)="" ^ORD(101,1260,10,"B",1255,1)="" ^ORD(101,1260,26)="" ^ORD(101,1260,99)="57814,55637" ^ORD(101,1261,0)="PSJ OR PR^Inpatient Medications Profile^^A^1^^^^^^^77" ^ORD(101,1261,1,0)="^^2^2^2920122^^^^" ^ORD(101,1261,1,1,0)=" This allows the user to print Inpatient Medications orders for selected" ^ORD(101,1261,1,2,0)="patients. Profiles can be printed by patient, ward, or ward group." ^ORD(101,1261,5)="" ^ORD(101,1261,20)="D ^PSJPR" ^ORD(101,1261,99)="57814,55441" ^ORD(101,1262,0)="PSJI OR PR^IV Medications Profile^^A^1^^^^^^^" ^ORD(101,1262,1,0)="^^3^3^2920122^^^^" ^ORD(101,1262,1,1,0)=" This will allow a patient's IV profile to be sent to a printer." ^ORD(101,1262,1,2,0)="With each profile printed, a view of each order within the profile can" ^ORD(101,1262,1,3,0)="also be printed. " ^ORD(101,1262,5)="" ^ORD(101,1262,20)="D ^PSIVXU Q:$D(XQUIT) D ^PSIVPR,ENIVKV^PSGSETU K J,N2,ORIFN,P17" ^ORD(101,1262,99)="57814,55441" ^ORD(101,1263,0)="PSJ OR PAT ADT^Inpatient Medications Actions on Patient ADT^^A^1^^^^^^^77" ^ORD(101,1263,1,0)="^^4^4^2940720^^^^" ^ORD(101,1263,1,1,0)=" This takes the appropriate action on a patient's Inpatient" ^ORD(101,1263,1,2,0)="Medication orders whenever the patient is Admitted, Discharged, or" ^ORD(101,1263,1,3,0)="Transferred (ADT). This is an action protocol to be used within the DG" ^ORD(101,1263,1,4,0)="MOVEMENT EVENTS protocol." ^ORD(101,1263,5)="" ^ORD(101,1263,20)="D ^PSJADT" ^ORD(101,1263,99)="57814,55441" ^ORD(101,1264,0)="PSJI OR PAT FLUID OE^IV Fluids^^O^1^^^^^^^" ^ORD(101,1264,1,0)="^^3^3^2931001^^^^" ^ORD(101,1264,1,1,0)=" This allows entry of IV fluids orders through OE/RR. This protocol" ^ORD(101,1264,1,2,0)="assumes that a patient has been selected prior to this protocol being" ^ORD(101,1264,1,3,0)="selected." ^ORD(101,1264,5)="" ^ORD(101,1264,20)="D ^PSIVORA" ^ORD(101,1264,99)="57814,55441" ^ORD(101,1265,0)="PSJI OR PAT HYPERAL OE^IV Hyperal^^A^1^^^^^^^" ^ORD(101,1265,1,0)="^^1^1^2920124^^^^" ^ORD(101,1265,1,1,0)=" This allows limited processing of IV Hyperal orders through OE/RR." ^ORD(101,1265,5)="" ^ORD(101,1265,20)="S ORPK=""TESTING ORPK SET"" D ^PSIVORH" ^ORD(101,1265,99)="57814,55441" ^ORD(101,1266,0)="PSJI OR PAT FLUID OE MENU^IV FLUIDS...^^Q^1^^^^^^^77" ^ORD(101,1266,1,0)="^^1^1^2931014^^^^" ^ORD(101,1266,1,1,0)="Placeholder, possible replacement: PSJI OR PAT FLUID OE" ^ORD(101,1266,10,0)="^101.01PA^1^1" ^ORD(101,1266,10,1,0)="1264^^^" ^ORD(101,1266,10,"B",1264,1)="" ^ORD(101,1266,20)="" ^ORD(101,1266,99)="57814,55441" ^ORD(101,1267,0)="PSJ OR PAT OE MENU^Inpatient Medications^^Q^1^^^^^^^77" ^ORD(101,1267,1,0)="^^3^3^2931001^^^^" ^ORD(101,1267,1,1,0)=" This is a menu that allows the entry of Unit Dose and non-fluid IV orders" ^ORD(101,1267,1,2,0)="through OE/RR. This menu should contain the Inpatients Medications order" ^ORD(101,1267,1,3,0)="entry protocol and any Inpatient Medications quick order protocols." ^ORD(101,1267,4)="80" ^ORD(101,1267,10,0)="^101.01PA^2^2" ^ORD(101,1267,10,1,0)="1241^^2^" ^ORD(101,1267,10,2,0)="1266^1^1^^^IV FLUIDS" ^ORD(101,1267,10,"B",1241,1)="" ^ORD(101,1267,10,"B",1266,2)="" ^ORD(101,1267,99)="57814,55441" ^ORD(101,1268,0)="PSJQ4 AMY^AMY^^O^1^^^^^^^" ^ORD(101,1268,20)="D PROCESS^PSJQSET(4)" ^ORD(101,1268,99)="56812,47328" ^ORD(101,1269,0)="PSJQ5 MAI^MAI^^O^1^^^^^^^" ^ORD(101,1269,20)="D PROCESS^PSJQSET(5)" ^ORD(101,1269,99)="56812,47328" ^ORD(101,1270,0)="VAQ PDX1 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1270,1,0)="^^1^1^2930609^^^^" ^ORD(101,1270,1,1,0)="display custom options to user for status screen PDX1" ^ORD(101,1270,4)="26^4^^CUSTOM ENTRIES FOR PDX1" ^ORD(101,1270,10,0)="^101.01PA^2^2" ^ORD(101,1270,10,1,0)="1271^DP^21" ^ORD(101,1270,10,2,0)="1272^CR^11" ^ORD(101,1270,10,"B",1271,1)="" ^ORD(101,1270,10,"B",1272,2)="" ^ORD(101,1270,20)="" ^ORD(101,1270,26)="D SHOW^VALM" ^ORD(101,1270,28)="Select Action: " ^ORD(101,1270,99)="56816,56824" ^ORD(101,1271,0)="VAQ DISPLAY PDX^Display PDX^^A^1^^^^^^^85" ^ORD(101,1271,4)="^^^DISPLAYS PDX DATA" ^ORD(101,1271,10,0)="^101.01PA^0^0" ^ORD(101,1271,20)="D DIS^VAQREQ01" ^ORD(101,1271,99)="56816,56820" ^ORD(101,1272,0)="VAQ CREATE REQUEST^Create Request^^A^1^^^^^^^85" ^ORD(101,1272,1,0)="^^1^1^2930311^^^^" ^ORD(101,1272,1,1,0)="CALLS REQUEST SCREEN (PDX2)" ^ORD(101,1272,4)="^^^CREATE PDX REQUEST" ^ORD(101,1272,20)="D EP^VAQREQ02" ^ORD(101,1272,99)="56816,56820" ^ORD(101,1273,0)="VAQ PDX2 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1273,1,0)="^^1^1^2930604^^^^" ^ORD(101,1273,1,1,0)="display custom options to user for status screen PDX2" ^ORD(101,1273,4)="26^4^^CUSTOM ENTRIES FOR PDX2" ^ORD(101,1273,10,0)="^101.01PA^4^4" ^ORD(101,1273,10,1,0)="1274^CP^31" ^ORD(101,1273,10,2,0)="1275^AE^11" ^ORD(101,1273,10,3,0)="1276^TR^12" ^ORD(101,1273,10,4,0)="1277^CO^21" ^ORD(101,1273,10,"B",1274,1)="" ^ORD(101,1273,10,"B",1275,2)="" ^ORD(101,1273,10,"B",1276,3)="" ^ORD(101,1273,10,"B",1277,4)="" ^ORD(101,1273,20)="" ^ORD(101,1273,26)="D SHOW^VALM" ^ORD(101,1273,28)="Select Action: " ^ORD(101,1273,99)="56816,56837" ^ORD(101,1274,0)="VAQ CHANGE PATIENT^Change Patient^^A^1^^^^^^^85" ^ORD(101,1274,4)="^^^VAQ CHANGE PATIENT" ^ORD(101,1274,15)="D EXIT^VAQREQ02" ^ORD(101,1274,20)="D PAT^VAQREQ02" ^ORD(101,1274,99)="56816,56819" ^ORD(101,1275,0)="VAQ ADD/EDIT REQUEST^Add/Edit Request^^A^1^^^^^^^85" ^ORD(101,1275,1,0)="^^1^1^2930528^^^^" ^ORD(101,1275,1,1,0)="ADD/EDIT INFO TO CREATE A PDX REQUEST" ^ORD(101,1275,4)="^^^ADD/EDIT PDX REQUEST" ^ORD(101,1275,20)="D REQ^VAQREQ02" ^ORD(101,1275,99)="56816,56819" ^ORD(101,1276,0)="VAQ TRANSMIT REQUEST^Transmit Request^^A^1^^^^^^^85" ^ORD(101,1276,1,0)="^^1^1^2930318^^^^" ^ORD(101,1276,1,1,0)="TRANSMIT PDX REQUEST, UPDATE TRANSACTION FILE" ^ORD(101,1276,4)="^^^TRANSMIT PDX REQUEST" ^ORD(101,1276,20)="D TRAN^VAQREQ02" ^ORD(101,1276,99)="56816,56837" ^ORD(101,1277,0)="VAQ COPY REQUEST^Copy Request^^A^1^^^^^^^85" ^ORD(101,1277,1,0)="^^1^1^2930721^^^^" ^ORD(101,1277,1,1,0)="Allows the users to create multiple entries" ^ORD(101,1277,4)="^^^COPY REQUEST" ^ORD(101,1277,20)="D COPY^VAQREQ02" ^ORD(101,1277,99)="56816,56819" ^ORD(101,1278,0)="VAQ PDX3 (MENU)^List Process Options^^M^1^^^^^^^85" ^ORD(101,1278,1,0)="^^1^1^2930513^^^^" ^ORD(101,1278,1,1,0)="display custom options to user for manual process PDX activity screen PDX3" ^ORD(101,1278,4)="26^4^^custom entries for PDX3" ^ORD(101,1278,10,0)="^101.01PA^1^1" ^ORD(101,1278,10,1,0)="1282^PM^11" ^ORD(101,1278,10,"B",1282,1)="" ^ORD(101,1278,26)="D SHOW^VALM" ^ORD(101,1278,28)="Select Action:" ^ORD(101,1278,99)="56816,56836" ^ORD(101,1279,0)="VAQ PROCESS RELEASE^Release W/Comment^^A^1^^^^^^^85" ^ORD(101,1279,1,0)="^^1^1^2930326^^^^" ^ORD(101,1279,1,1,0)="Manual process PDX request, Release" ^ORD(101,1279,4)="^^^ PROCESS RELEASE W/COMMENT" ^ORD(101,1279,20)="D REL^VAQEXT02" ^ORD(101,1279,99)="56816,56837" ^ORD(101,1280,0)="VAQ PROCESS REJECT^Reject W/Comment^^A^1^^^^^^^85" ^ORD(101,1280,1,0)="^^1^1^2930326^^^^" ^ORD(101,1280,1,1,0)="Manual process PDX, Reject" ^ORD(101,1280,4)="^^^PROCESS REJECT W/COMMENT" ^ORD(101,1280,20)="D REJ^VAQEXT02" ^ORD(101,1280,99)="56816,56837" ^ORD(101,1281,0)="VAQ PDX4 (MENU)^List Process Options^^M^1^^^^^^^85" ^ORD(101,1281,1,0)="^^1^1^2931008^^^^" ^ORD(101,1281,1,1,0)="display custom options to user for manual process screen PDX4" ^ORD(101,1281,4)="26^4^^VAQ PDX4 MANUAL PROCESS" ^ORD(101,1281,10,0)="^101.01PA^2^2" ^ORD(101,1281,10,1,0)="1279^RL^11" ^ORD(101,1281,10,2,0)="1280^RJ^12" ^ORD(101,1281,10,"B",1279,1)="" ^ORD(101,1281,10,"B",1280,2)="" ^ORD(101,1281,26)="D SHOW^VALM" ^ORD(101,1281,28)="Select Action:" ^ORD(101,1281,99)="56816,56837" ^ORD(101,1282,0)="VAQ PROCESS MANUAL^Process Manual^^A^1^^^^^^^85" ^ORD(101,1282,1,0)="^^1^1^2930513^^^" ^ORD(101,1282,1,1,0)="This option allows the user to select the PDX to manually process" ^ORD(101,1282,4)="^^^PROCESS MANUAL PDX REQUEST" ^ORD(101,1282,20)="D PM^VAQEXT04" ^ORD(101,1282,99)="56816,56836" ^ORD(101,1283,0)="VAQ PDX5 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1283,1,0)="^^1^1^2930423^^^^" ^ORD(101,1283,1,1,0)="display custom options to user for status screen PDX5" ^ORD(101,1283,4)="26^4^^VAQ LED STATUS MENU" ^ORD(101,1283,10,0)="^101.01PA^1^1" ^ORD(101,1283,10,1,0)="1284^LE^11" ^ORD(101,1283,10,"B",1284,1)="" ^ORD(101,1283,26)="D SHOW^VALM" ^ORD(101,1283,28)="Select Action:" ^ORD(101,1283,99)="56816,56832" ^ORD(101,1284,0)="VAQ LOAD EDIT^Load/Edit^^A^1^^^^^^^85" ^ORD(101,1284,4)="^^^LOAD EDIT SELECTOR" ^ORD(101,1284,20)="D LED^VAQLED01" ^ORD(101,1284,99)="56816,56820" ^ORD(101,1285,0)="VAQ PDX6 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1285,1,0)="^^1^1^2930423^^^^" ^ORD(101,1285,1,1,0)="display custom options to user for status screen PDX6" ^ORD(101,1285,4)="26^4^^VAQ LED DIFFERENCES MENU" ^ORD(101,1285,10,0)="^101.01PA^2^2" ^ORD(101,1285,10,1,0)="1286^LD^12" ^ORD(101,1285,10,2,0)="1287^LF^11" ^ORD(101,1285,10,"B",1286,1)="" ^ORD(101,1285,10,"B",1287,2)="" ^ORD(101,1285,26)="D SHOW^VALM" ^ORD(101,1285,28)="Select Action:" ^ORD(101,1285,99)="56816,56833" ^ORD(101,1286,0)="VAQ LOAD DATA^Load Data (all)^^A^1^^^^^^^85" ^ORD(101,1286,1,0)="^^1^1^2930422^^^^" ^ORD(101,1286,1,1,0)="LOADS ALL FIELDS IN DATA SEGMENT TO THE LOCAL PATIENT FILE " ^ORD(101,1286,4)="^^^LOAD PDX DATA" ^ORD(101,1286,20)="D LOAD^VAQLED02" ^ORD(101,1286,99)="56816,56820" ^ORD(101,1287,0)="VAQ LOAD FIELD^Load Field(s)^^A^1^^^^^^^85" ^ORD(101,1287,1,0)="^^1^1^2930421^^^" ^ORD(101,1287,1,1,0)="LOADS THE FIELD OR FIELDS SELECTED TO THE LOCAL DATA BASE" ^ORD(101,1287,4)="^^^LOAD FIELD" ^ORD(101,1287,20)="D FIELD^VAQLED02" ^ORD(101,1287,99)="56816,56820" ^ORD(101,1288,0)="VAQ PDX8 (MENU)^List Process Options^^M^1^^^^^^^85" ^ORD(101,1288,1,0)="^^1^1^2930721^^^^" ^ORD(101,1288,1,1,0)="display custom options to user for possiable matches screen" ^ORD(101,1288,4)="26^4^^VAQ LED POSSIABLE MATCHES MENU" ^ORD(101,1288,10,0)="^101.01PA^2^2" ^ORD(101,1288,10,1,0)="1289^UE^11^^^Update Entry" ^ORD(101,1288,10,2,0)="1299^NP^12^^^New Patient" ^ORD(101,1288,10,"B",1289,1)="" ^ORD(101,1288,10,"B",1299,2)="" ^ORD(101,1288,26)="D SHOW^VALM" ^ORD(101,1288,28)="Select Action:" ^ORD(101,1288,99)="56816,56836" ^ORD(101,1289,0)="VAQ DUPLICATE^Select Entry^^A^1^^^^^^^85" ^ORD(101,1289,4)="^^^VAQ DUPLICATE SELECTOR" ^ORD(101,1289,20)="D SEL^VAQLED03" ^ORD(101,1289,99)="56816,56820" ^ORD(101,1290,0)="VAQ PDX7 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1290,1,0)="^^1^1^2930721^^^^" ^ORD(101,1290,1,1,0)="display custom options to user for update screen PDX7" ^ORD(101,1290,4)="26^4^^VAQ LED ADD PT MENU" ^ORD(101,1290,10,0)="^101.01PA^1^1" ^ORD(101,1290,10,1,0)="1291^AP^11" ^ORD(101,1290,10,"B",1291,1)="" ^ORD(101,1290,26)="D SHOW^VALM" ^ORD(101,1290,28)="Select Action:" ^ORD(101,1290,99)="56816,56834" ^ORD(101,1291,0)="VAQ ADD PATIENT^Add Patient^^A^1^^^^^^^85" ^ORD(101,1291,1,0)="^^1^1^2930528^^^^" ^ORD(101,1291,1,1,0)="ADDS PATIENT TO LOCAL DATA BASE" ^ORD(101,1291,4)="^^^ADD PATIENT" ^ORD(101,1291,20)="D ADD^VAQLED07" ^ORD(101,1291,99)="56816,56818" ^ORD(101,1292,0)="VAQ DIS1 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1292,1,0)="^^1^1^2930528^^^^" ^ORD(101,1292,1,1,0)="display custom options to user for display screen DIS1" ^ORD(101,1292,4)="26^4^^PDX DISPLAY MENU 1" ^ORD(101,1292,10,0)="^101.01PA^0^0" ^ORD(101,1292,26)="D SHOW^VALM" ^ORD(101,1292,28)="Select Action:" ^ORD(101,1292,99)="56816,56820" ^ORD(101,1293,0)="VAQ PDX9 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1293,1,0)="^^1^1^2930930^^^^" ^ORD(101,1293,1,1,0)="display custom options to user for display screen PDX9" ^ORD(101,1293,4)="26^4^^OPTIONS MENU FOR PDX DISPLAY" ^ORD(101,1293,10,0)="^101.01PA^1^1" ^ORD(101,1293,10,1,0)="1294^SE^11" ^ORD(101,1293,10,"B",1294,1)="" ^ORD(101,1293,26)="D SHOW^VALM" ^ORD(101,1293,28)="Select Action:" ^ORD(101,1293,99)="56816,56836" ^ORD(101,1294,0)="VAQ DISPLAY SELECT^Select Entry^^A^1^^^^^^^85" ^ORD(101,1294,4)="^^^SELECTS ENTRY FOR DISPLAY" ^ORD(101,1294,20)="D SEL^VAQDIS11" ^ORD(101,1294,99)="56816,56820" ^ORD(101,1295,0)="VAQ PDX11 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1295,1,0)="^^1^1^2930506^^^^" ^ORD(101,1295,1,1,0)="display custom options to user for segment screen PDX11" ^ORD(101,1295,4)="26^4^^MENU FOR DISPLAY SEGMENT" ^ORD(101,1295,10,0)="^101.01PA^2^2" ^ORD(101,1295,10,1,0)="1296^DS^11" ^ORD(101,1295,10,2,0)="1297^DA^12" ^ORD(101,1295,10,"B",1296,1)="" ^ORD(101,1295,10,"B",1297,2)="" ^ORD(101,1295,26)="D SHOW^VALM" ^ORD(101,1295,28)="Select Action:" ^ORD(101,1295,99)="56816,56827" ^ORD(101,1296,0)="VAQ DIS SELECTED SEGMENT^Display Selected^^A^1^^^^^^^85" ^ORD(101,1296,4)="^^^DISPLAY SELECTED SEGMENT(S)" ^ORD(101,1296,20)="D SEL^VAQDIS15" ^ORD(101,1296,99)="56816,56820" ^ORD(101,1297,0)="VAQ DIS ALL SEGMENT^Display all^^A^1^^^^^^^85" ^ORD(101,1297,4)="^^^DISPLAYS ALL SEGMENTS" ^ORD(101,1297,20)="D ALL^VAQDIS15" ^ORD(101,1297,99)="56816,56820" ^ORD(101,1298,0)="VAQ PDX12 (MENU)^List Request Options^^M^1^^^^^^^85" ^ORD(101,1298,1,0)="^^1^1^2930528^^^^" ^ORD(101,1298,1,1,0)="display custom options to user for data display screen PDX12" ^ORD(101,1298,4)="26^4^^MENU OPTIONS FOR PDX DISPLAY SCREEN" ^ORD(101,1298,10,0)="^101.01PA^0^0" ^ORD(101,1298,26)="D SHOW^VALM" ^ORD(101,1298,28)="Select Action:" ^ORD(101,1298,99)="56816,56827" ^ORD(101,1299,0)="VAQ NEW PATIENT^New Patient^^A^1^^^^^^^85" ^ORD(101,1299,1,0)="^^1^1^2930721^^^^" ^ORD(101,1299,1,1,0)="Allows the users to a new patient in the database" ^ORD(101,1299,4)="^^^NEW PATIENT" ^ORD(101,1299,10,0)="^101.01PA^1^1" ^ORD(101,1299,10,1,0)="1289^" ^ORD(101,1299,10,"B",1289,1)="" ^ORD(101,1299,20)="D NEW^VAQLED03" ^ORD(101,1299,99)="56816,56823" ^ORD(101,1300,0)="VAQ DISPLAY BY REQUESTOR^DISPLAY PDX BY REQUESTOR^^A^1^^^^^^^85" ^ORD(101,1300,4)="^^^SELECTS ENTRY FOR DISPLAY" ^ORD(101,1300,20)="D SEL^VAQDIS12" ^ORD(101,1300,99)="56816,56820" ^ORD(101,1301,0)="VAQ PDX10 (MENU)^MENU FOR DISPLAY BY REQUESTOR^^M^1^^^^^^^85" ^ORD(101,1301,1,0)="^^1^1^2930930^^^^" ^ORD(101,1301,1,1,0)="display custom options to user for display screen PDX9" ^ORD(101,1301,4)="26^4^^OPTIONS MENU FOR PDX DISPLAY" ^ORD(101,1301,10,0)="^101.01PA^1^1" ^ORD(101,1301,10,1,0)="1300^SE^11^^^Select Entry" ^ORD(101,1301,10,"B",1300,1)="" ^ORD(101,1301,26)="D SHOW^VALM" ^ORD(101,1301,28)="Select Action:" ^ORD(101,1301,99)="56816,56825" ^ORD(101,1368,0)="PPP (MENU) FF XREF^List Request Options^^M^1^^^^^^^89" ^ORD(101,1368,1,0)="^^1^1^2941230^^^^" ^ORD(101,1368,1,1,0)="display custom options to user for PPP Xref edit screen" ^ORD(101,1368,4)="26^4^^PPP Edit FF XREF file menu" ^ORD(101,1368,10,0)="^101.01PA^4^4" ^ORD(101,1368,10,1,0)="1371^AE^11^^^Add Entry" ^ORD(101,1368,10,2,0)="1370^DE^31^^^Delete Entry" ^ORD(101,1368,10,2,1)="" ^ORD(101,1368,10,3,0)="1369^ED^21^^^Edit Entry" ^ORD(101,1368,10,4,0)="453^EE^51^^^Expand Entry" ^ORD(101,1368,10,"B",453,4)="" ^ORD(101,1368,10,"B",1369,3)="" ^ORD(101,1368,10,"B",1370,2)="" ^ORD(101,1368,10,"B",1371,1)="" ^ORD(101,1368,26)="D SHOW^VALM" ^ORD(101,1368,28)="Select Action:" ^ORD(101,1368,99)="59837,55803" ^ORD(101,1369,0)="PPP EDIT FF ENTRY^Edit entry in PPP FOREIGN FACILITY XREF file^^A^1^^^^^^^89" ^ORD(101,1369,1,0)="^^2^2^2940602^^^^" ^ORD(101,1369,1,1,0)="This option allows the user to edit and entry in the FOREIGN FACILITY XREF" ^ORD(101,1369,1,2,0)="file." ^ORD(101,1369,4)="^^^EDIT FF ENTRY" ^ORD(101,1369,20)="D EDIT^PPPEDT15" ^ORD(101,1369,99)="56816,63983" ^ORD(101,1370,0)="PPP DEL FF ENTRY^Delete entry in FOREIGN FACILITY XREF file^^A^1^^^^^^^89" ^ORD(101,1370,1,0)="^^2^2^2940602^^^^" ^ORD(101,1370,1,1,0)="This option allows the user to delete an entry in the FOREIGN FACILITY XREF" ^ORD(101,1370,1,2,0)="file." ^ORD(101,1370,4)="^^^DELETE FF ENTRY" ^ORD(101,1370,20)="D DEL^PPPEDT16" ^ORD(101,1370,28)="Delete Entry" ^ORD(101,1370,99)="56816,63982" ^ORD(101,1371,0)="PPP ADD FF ENTRY^Add entry in FOREIGN FACILITY XREF file^^A^1^^^^^^^89" ^ORD(101,1371,1,0)="^^1^1^2940602^^^^" ^ORD(101,1371,1,1,0)="This option allows users to add entries to the FOREIGN FACILITY XREF file." ^ORD(101,1371,4)="^^^ADD FF ENTRY" ^ORD(101,1371,20)="D ADD^PPPEDT14" ^ORD(101,1371,99)="56816,63982" ^ORD(101,1372,0)="PPP DISPL OTHER^Display Other^^A^1^^^^^^^89" ^ORD(101,1372,1,0)="^^2^2^2940217^" ^ORD(101,1372,1,1,0)="This option allows the user to display the pharmacy data from other " ^ORD(101,1372,1,2,0)="facilities only" ^ORD(101,1372,4)="^^^DISPLAY OTHER FACILITY PHARMACY DATA" ^ORD(101,1372,20)="D OTH^PPPDSP4" ^ORD(101,1372,99)="56816,63983" ^ORD(101,1373,0)="PPP DISPL BOTH^Display Both^^A^1^^^^^^^89" ^ORD(101,1373,1,0)="^^2^2^2940222^^" ^ORD(101,1373,1,1,0)="This option allows the user to display pharmacy data for both local and" ^ORD(101,1373,1,2,0)="other facilities" ^ORD(101,1373,4)="^^^DISPLAY BOTH FACILITIES PHARMACY DATA" ^ORD(101,1373,20)="D BOTH^PPPDSP4" ^ORD(101,1373,99)="56816,63983" ^ORD(101,1374,0)="PPP (MENU) VISITS^List Request Options^^M^1^^^^^^^89" ^ORD(101,1374,1,0)="^^1^1^2940428^^^^" ^ORD(101,1374,1,1,0)="Display custom options to user for PPP display of pharmacy data" ^ORD(101,1374,4)="35^4^^PPP VISIT" ^ORD(101,1374,10,0)="^101.01PA^2^2" ^ORD(101,1374,10,1,0)="1372^DO^11^^^Display Other Pharmacy Data" ^ORD(101,1374,10,1,1)="Display Other" ^ORD(101,1374,10,2,0)="1373^DB^21^^^Display Both Pharmacy Data" ^ORD(101,1374,10,2,1)="" ^ORD(101,1374,10,"B",1372,1)="" ^ORD(101,1374,10,"B",1373,2)="" ^ORD(101,1374,26)="D SHOW^VALM" ^ORD(101,1374,28)="Select Action:" ^ORD(101,1374,99)="56816,63983" ^ORD(101,1375,0)="PPP (MENU) DOM^List Request Options^^M^1^^^^^^^89" ^ORD(101,1375,1,0)="^^1^1^2940428^^^^" ^ORD(101,1375,1,1,0)="Display custom options to user for PPP display of unresolved domain entries" ^ORD(101,1375,4)="35^4^^PPP DOMAIN" ^ORD(101,1375,10,0)="^101.01PA^2^2" ^ORD(101,1375,10,1,0)="1376^CD^11^^^Change Domain" ^ORD(101,1375,10,2,0)="1377^CA^21^^^Change All Domains" ^ORD(101,1375,10,"B",1376,1)="" ^ORD(101,1375,10,"B",1377,2)="" ^ORD(101,1375,26)="D SHOW^VALM" ^ORD(101,1375,28)="Select Action:" ^ORD(101,1375,99)="56816,63982" ^ORD(101,1376,0)="PPP CHANGE DOM^Add entry in FOREIGN FACILITY XREF file^^A^1^^^^^^^89" ^ORD(101,1376,1,0)="^^1^1^2940426^^^^" ^ORD(101,1376,1,1,0)="This option allows users to change domain entries in the FOREIGN FACILITY XREF file." ^ORD(101,1376,4)="^^^CHANGE DOMAIN IN FFX FILE OF PPP" ^ORD(101,1376,20)="D CHNG^PPPEDT22" ^ORD(101,1376,99)="56816,63982" ^ORD(101,1377,0)="PPP CHANGE ALL DOM^Change domain entry in FOREIGN FACILITY XREF file^^A^1^^^^^^^89" ^ORD(101,1377,1,0)="^^1^1^2940428^^^^" ^ORD(101,1377,1,1,0)="This option allows users to change all domain entries in the FOREIGN FACILITY XREF file for a given institution." ^ORD(101,1377,4)="^^^CHANGES ALL DOMAINS IN FFX" ^ORD(101,1377,20)="D CHNGA^PPPEDT22" ^ORD(101,1377,99)="56816,63982" ^ORD(101,1379,0)="DVBA DISCHARGE TYPES (MENU)^DISCHARGE TYPES MENU^^M^1^^^^^^^93" ^ORD(101,1379,1,0)="^^1^1^2941109^" ^ORD(101,1379,1,1,0)=" " ^ORD(101,1379,4)="26^3^^TEST MENU ID" ^ORD(101,1379,10,0)="^101.01PA^5^5" ^ORD(101,1379,10,1,0)="1386^AL^1" ^ORD(101,1379,10,2,0)="1383^AD^2" ^ORD(101,1379,10,3,0)="1384^DT^3" ^ORD(101,1379,10,4,0)="1385^CL^4" ^ORD(101,1379,10,5,0)="450^QU^5" ^ORD(101,1379,10,"B",450,5)="" ^ORD(101,1379,10,"B",1383,2)="" ^ORD(101,1379,10,"B",1384,3)="" ^ORD(101,1379,10,"B",1385,4)="" ^ORD(101,1379,10,"B",1386,1)="" ^ORD(101,1379,20)="S XQORM(""B"")=""AL""" ^ORD(101,1379,26)="DO SHOW^VALM" ^ORD(101,1379,99)="61199,28361" ^ORD(101,1380,0)="DVBA C&P SCHD EVENT^AMIE 2507 Exam to C&P Appointment Link Processing^AMIE LINK OUT OF ORDER^A^1^^^^^^^" ^ORD(101,1380,1,0)="^^4^4^2950224^^^^" ^ORD(101,1380,1,1,0)="AMIE C&P appointment processing protocol. This protocol is executed from" ^ORD(101,1380,1,2,0)="the SDAM APPOINTMENT EVENTS protocol as an Item. It asks a series of" ^ORD(101,1380,1,3,0)="questions to any user making a C&P appointment. It's purpose is to provide" ^ORD(101,1380,1,4,0)="a tracking mechanism between AMIE 2507 exams and C&P appointments." ^ORD(101,1380,20)="D ^DVBCSDEV" ^ORD(101,1380,99)="56844,57783" ^ORD(101,1380,101.0431,0)="^^1^1^2941205^^^^" ^ORD(101,1380,101.0431,1,0)=" " ^ORD(101,1383,0)="DVBA ADD DISCHARGE TYPE^ADD TYPES^^A^1^^^^^^^93" ^ORD(101,1383,4)="^^^IDENTIFIRE" ^ORD(101,1383,10,0)="^101.01PA^0^0" ^ORD(101,1383,20)="D ADD^DVBALD" ^ORD(101,1383,26)="" ^ORD(101,1383,99)="56844,57783" ^ORD(101,1384,0)="DVBA DELETE DISCHARGE TYPES^DELETE TYPES^^A^1^^^^^^^93" ^ORD(101,1384,20)="D DELETE^DVBALD" ^ORD(101,1384,99)="56844,57783" ^ORD(101,1385,0)="DVBA CREATE DISCHARGE TYPE LIST^CREATE NEW LIST^^A^1^^^^^^^93" ^ORD(101,1385,20)="D CREATE^DVBALD" ^ORD(101,1385,99)="56844,57783" ^ORD(101,1386,0)="DVBA ACCEPT DISCHARGE TYPES^ACCEPT TYPES^^A^1^^^^^^^93" ^ORD(101,1386,1,0)="^^1^1^2941209^" ^ORD(101,1386,1,1,0)="///" ^ORD(101,1386,20)="D ACCEPT^DVBALD" ^ORD(101,1386,99)="56844,57783" ^ORD(101,1388,0)="SR SURGERY REQUEST^Surgery Request^^O^1^^^^^^^127" ^ORD(101,1388,1,0)="^^2^2^2920713^^^^" ^ORD(101,1388,1,1,0)="This protocol allows the entry and editing of operation requests through" ^ORD(101,1388,1,2,0)="OE/RR." ^ORD(101,1388,2,0)="^101.02A^1^1" ^ORD(101,1388,2,1,0)="SR" ^ORD(101,1388,2,"B","SR",1)="" ^ORD(101,1388,3,0)="^101.03PA^0^0" ^ORD(101,1388,4)="^^^" ^ORD(101,1388,10,0)="^101.01PA^0^0" ^ORD(101,1388,15)="K SRSITE,^TMP($J,""SRCUSS"")" ^ORD(101,1388,20)="D EN^SROERR" ^ORD(101,1388,99)="56854,52012" ^ORD(101,1388,101.01)="1" ^ORD(101,1389,0)="DVB ADMISSION HINQ^HINQ on Admission^^A^1^^^^^^^91" ^ORD(101,1389,15)="Q" ^ORD(101,1389,20)="D EVENT^DVBHT2" ^ORD(101,1389,99)="56845,48389" ^ORD(101,1390,0)="YS PATIENT MOVEMENT^MHS PATIENT MOVEMENT^^A^1^^^^^^^" ^ORD(101,1390,20)="D BEGIN^YSCUP" ^ORD(101,1390,99)="57309,65459" ^ORD(101,1391,0)="IBDF FT DELETE^Delete Entry^^A^1^^^^^^^" ^ORD(101,1391,1,0)="^^2^2^2960626^" ^ORD(101,1391,1,1,0)="Allows for deleting of Forms Tracking Entries that are not associated with" ^ORD(101,1391,1,2,0)="an appointment." ^ORD(101,1391,20)="D DELFT^IBDFDEA" ^ORD(101,1391,99)="57099,59876" ^ORD(101,1392,0)="VSIT PATIENT STATUS^VSIT PATIENT STATUS^^X^1^^^^^^^" ^ORD(101,1392,1,0)="^^4^4^2960709^" ^ORD(101,1392,1,1,0)="This option is called from the EVENT DRIVER (DGPM MOVEMENT EVENTS) when" ^ORD(101,1392,1,2,0)="a patient is admitted or discharged or an admission or discharge is" ^ORD(101,1392,1,3,0)="edited. The visits for that patient are updated with inpatient or" ^ORD(101,1392,1,4,0)="outpatient status based upon the admission and discharge dates." ^ORD(101,1392,20)="D EN^VSITSTAT" ^ORD(101,1392,99)="56847,61720" ^ORD(101,1393,0)="PXK SDAM TO V-FILES^SDAM to V-Files^^A^1^^^^^^^" ^ORD(101,1393,1,0)="^^7^7^2951106^^^^" ^ORD(101,1393,1,1,0)="Populates the V-Provider file based on the Provider identified" ^ORD(101,1393,1,2,0)="by MAS clerks in the PIMS Check-out process." ^ORD(101,1393,1,3,0)=" " ^ORD(101,1393,1,4,0)="The V-Provider entry will only be created if the PIMS Check-out process" ^ORD(101,1393,1,5,0)="has the Visit entry that the V-Provider entry should be related to." ^ORD(101,1393,1,6,0)=" " ^ORD(101,1393,1,7,0)="This protocol should be attached to the SDAM APPOINTMENT EVENTS Protocol." ^ORD(101,1393,2,0)="^101.02A^1^1" ^ORD(101,1393,2,1,0)="PR" ^ORD(101,1393,2,"B","PR",1)="" ^ORD(101,1393,20)="D EN1^PXKCO" ^ORD(101,1393,99)="56847,61782" ^ORD(101,1394,0)="PXCE ADD/EDIT^Update Encounter^^A^1^^^^^^^111" ^ORD(101,1394,1,0)="^^7^7^2951106^" ^ORD(101,1394,1,1,0)="This action allows you to edit existing encounters or add one or more of" ^ORD(101,1394,1,2,0)="the following: measurements, providers, problems treated at visit, CPT" ^ORD(101,1394,1,3,0)="procedures, immunizations, skin tests, patient education, exams, health" ^ORD(101,1394,1,4,0)="factors or treatments." ^ORD(101,1394,1,5,0)=" " ^ORD(101,1394,1,6,0)="You may also select an encounter to update by entering the number" ^ORD(101,1394,1,7,0)="associated with the item at the ""Select Item(s)"" prompt." ^ORD(101,1394,4)="^^^UE" ^ORD(101,1394,15)="D MAKELIST^PXCENEW,DONE^PXCE" ^ORD(101,1394,20)="D GETVIEN^PXCEAE,EN^PXCEAE" ^ORD(101,1394,26)="" ^ORD(101,1394,99)="56847,61782" ^ORD(101,1395,0)="PXCE ADD/EDIT DISPLAY BRIEF^Display Brief^^A^1^^^^^^^111" ^ORD(101,1395,1,0)="^^2^2^2951106^^^" ^ORD(101,1395,1,1,0)="This action allows you to display a summarized profile of the selected" ^ORD(101,1395,1,2,0)="patient encounter." ^ORD(101,1395,4)="^^^DB" ^ORD(101,1395,10,0)="^101.01PA^0^0" ^ORD(101,1395,15)="D DONE^PXCE" ^ORD(101,1395,20)="S VALMBG=1,PXCEAEVW=""B"" D BUILD^PXCEAE1(PXCEVIEN,PXCEAEVW,""^TMP(""""PXCEAE"""",$J)"",""^TMP(""""PXCEAEIX"""",$J)"")" ^ORD(101,1395,99)="56847,61782" ^ORD(101,1396,0)="PXCE ADD/EDIT DISPLAY DETAIL^Display Detail^^A^1^^^^^^^111" ^ORD(101,1396,1,0)="^^3^3^2960329^" ^ORD(101,1396,1,1,0)="This action allows you to expand the display to include all available" ^ORD(101,1396,1,2,0)="information related to the encounter, including the encounter date and" ^ORD(101,1396,1,3,0)="time, the patient name, the hospital location and the workload credit stop." ^ORD(101,1396,4)="^^^DD" ^ORD(101,1396,10,0)="^101.01PA^0^0" ^ORD(101,1396,15)="D DONE^PXCE" ^ORD(101,1396,20)="S VALMBG=1,PXCEAEVW=""D"" D BUILD^PXCEAE1(PXCEVIEN,PXCEAEVW,""^TMP(""""PXCEAE"""",$J)"",""^TMP(""""PXCEAEIX"""",$J)"")" ^ORD(101,1396,99)="56847,61782" ^ORD(101,1397,0)="PXCE ADD/EDIT HIDDEN^Hidden actions of Update Encounter^^M^1^^^^^^^111" ^ORD(101,1397,1,0)="^^1^1^2960329^^" ^ORD(101,1397,1,1,0)="This is the menu of hidden actions of the Update Encounter screen." ^ORD(101,1397,4)="26" ^ORD(101,1397,10,0)="^101.01PA^33^17" ^ORD(101,1397,10,1,0)="1400^SP^35^^^Leave Update and" ^ORD(101,1397,10,18,0)="1447^^37^^^ Select New Patient" ^ORD(101,1397,10,19,0)="442^+^11" ^ORD(101,1397,10,20,0)="443^-^12" ^ORD(101,1397,10,21,0)="447^UP^13" ^ORD(101,1397,10,22,0)="448^DN^14" ^ORD(101,1397,10,23,0)="444^RD^24" ^ORD(101,1397,10,24,0)="451^PS^25" ^ORD(101,1397,10,25,0)="452^PL^26" ^ORD(101,1397,10,26,0)="463^>^15" ^ORD(101,1397,10,27,0)="464^<^16" ^ORD(101,1397,10,28,0)="454^ADPL^32" ^ORD(101,1397,10,29,0)="456^SL^31" ^ORD(101,1397,10,30,0)="445^LS^22" ^ORD(101,1397,10,31,0)="446^FS^21" ^ORD(101,1397,10,32,0)="466^GO^23" ^ORD(101,1397,10,33,0)="457^^34" ^ORD(101,1397,10,"B",442,19)="" ^ORD(101,1397,10,"B",443,20)="" ^ORD(101,1397,10,"B",444,23)="" ^ORD(101,1397,10,"B",445,30)="" ^ORD(101,1397,10,"B",446,31)="" ^ORD(101,1397,10,"B",447,21)="" ^ORD(101,1397,10,"B",448,22)="" ^ORD(101,1397,10,"B",451,24)="" ^ORD(101,1397,10,"B",452,25)="" ^ORD(101,1397,10,"B",454,28)="" ^ORD(101,1397,10,"B",456,29)="" ^ORD(101,1397,10,"B",457,33)="" ^ORD(101,1397,10,"B",463,26)="" ^ORD(101,1397,10,"B",464,27)="" ^ORD(101,1397,10,"B",466,32)="" ^ORD(101,1397,10,"B",1400,1)="" ^ORD(101,1397,10,"B",1447,18)="" ^ORD(101,1397,99)="61142,58433" ^ORD(101,1398,0)="PXCE ADD/EDIT KNOWN ENCOUNTER^Add/Edit Known Encounter^^A^1^^^^^^^111" ^ORD(101,1398,1,0)="^^4^4^2960507^^" ^ORD(101,1398,1,1,0)="THIS PROTOCOL IS CALLED BY ANOTHER PROTOCOL" ^ORD(101,1398,1,2,0)=" " ^ORD(101,1398,1,3,0)="Use this action to add new items or edit items about a patient" ^ORD(101,1398,1,4,0)="encounter." ^ORD(101,1398,15)="D MAKELIST^PXCENEW,DONE^PXCE" ^ORD(101,1398,20)="I $G(PXCEVIEN)>0,$D(^AUPNVSIT(PXCEVIEN,0))#2 D EN^PXCEAE" ^ORD(101,1398,99)="56909,58803" ^ORD(101,1399,0)="PXCE ADD/EDIT MENU^Add/Edit Menu^^M^1^^^^^^^111" ^ORD(101,1399,1,0)="^^1^1^2960312^" ^ORD(101,1399,1,1,0)="This is the protocol menu of actions on the Update Encounter screen." ^ORD(101,1399,4)="26^4" ^ORD(101,1399,10,0)="^101.01PA^17^16" ^ORD(101,1399,10,1,0)="1409^ED^2^" ^ORD(101,1399,10,2,0)="1424^QU^99^" ^ORD(101,1399,10,3,0)="1407^DE^4^" ^ORD(101,1399,10,4,0)="1423^PR^10^" ^ORD(101,1399,10,5,0)="1422^DX^11^" ^ORD(101,1399,10,6,0)="1405^CP^12^" ^ORD(101,1399,10,8,0)="1410^EN^8^" ^ORD(101,1399,10,9,0)="1415^IM^20^" ^ORD(101,1399,10,10,0)="1421^PE^21^" ^ORD(101,1399,10,11,0)="1431^ST^22^" ^ORD(101,1399,10,12,0)="1432^TR^13^" ^ORD(101,1399,10,13,0)="1412^XA^23^" ^ORD(101,1399,10,14,0)="1413^HF^24^" ^ORD(101,1399,10,15,0)="1396^DD^40^" ^ORD(101,1399,10,16,0)="1395^DB^41^" ^ORD(101,1399,10,17,0)="1441^IN^95^" ^ORD(101,1399,10,"B",1395,16)="" ^ORD(101,1399,10,"B",1396,15)="" ^ORD(101,1399,10,"B",1405,6)="" ^ORD(101,1399,10,"B",1407,3)="" ^ORD(101,1399,10,"B",1409,1)="" ^ORD(101,1399,10,"B",1410,8)="" ^ORD(101,1399,10,"B",1412,13)="" ^ORD(101,1399,10,"B",1413,14)="" ^ORD(101,1399,10,"B",1415,9)="" ^ORD(101,1399,10,"B",1421,10)="" ^ORD(101,1399,10,"B",1422,5)="" ^ORD(101,1399,10,"B",1423,4)="" ^ORD(101,1399,10,"B",1424,2)="" ^ORD(101,1399,10,"B",1431,11)="" ^ORD(101,1399,10,"B",1432,12)="" ^ORD(101,1399,10,"B",1441,17)="" ^ORD(101,1399,26)="D KEYS^PXCEAE(""PXCE EDIT V-FILE"",+$G(^TMP(""PXCEAEIX"",$J,0))),SHOW^VALM" ^ORD(101,1399,28)="Select Action: " ^ORD(101,1399,99)="57030,63079" ^ORD(101,1400,0)="PXCE ADD/EDIT PATIENT CHANGE^Leave Update & Select New Patient^^A^1^^^^^^^111" ^ORD(101,1400,1,0)="9^^9^9^2960329^" ^ORD(101,1400,1,1,0)="This action allows selection of a new patient without returning to the" ^ORD(101,1400,1,2,0)="""Appointment List"" or ""Encounter List"" screen. After you select a new" ^ORD(101,1400,1,3,0)="patient, a current list of appointments or encounters will be displayed" ^ORD(101,1400,1,4,0)="for the selected patient." ^ORD(101,1400,1,5,0)=" " ^ORD(101,1400,1,6,0)="Enter the name in one of the standard formats:" ^ORD(101,1400,1,7,0)="LASTNAME,FIRSTNAME" ^ORD(101,1400,1,8,0)="LASTNAME, FIRST INITIAL" ^ORD(101,1400,1,9,0)="First letter of last name + last 4 digits of SSN" ^ORD(101,1400,4)="^^^SP" ^ORD(101,1400,15)="Q" ^ORD(101,1400,20)="D NEWPAT2^PXCEPAT" ^ORD(101,1400,99)="56847,61782" ^ORD(101,1401,0)="PXCE BLANK 1^^^A^1^^^^^^^111" ^ORD(101,1401,1,0)="^^1^1^2951106^^^^" ^ORD(101,1401,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1402,0)="PXCE BLANK 2^^^A^1^^^^^^^111" ^ORD(101,1402,1,0)="^^1^1^2951106^^^^" ^ORD(101,1402,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1403,0)="PXCE BLANK 3^^^A^1^^^^^^^111" ^ORD(101,1403,1,0)="^^1^1^2951106^^^^" ^ORD(101,1403,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1404,0)="PXCE CHANGE HOSPITAL LOCATION^Change Clinic^^A^1^^^^^^^111" ^ORD(101,1404,1,0)="^^5^5^2960620^^^^" ^ORD(101,1404,1,1,0)="This action allows you to change the list of encounters based on the" ^ORD(101,1404,1,2,0)="hospital location. If the list includes encounters for all locations, and" ^ORD(101,1404,1,3,0)="a list for a specific location is desired, you may select a new location." ^ORD(101,1404,1,4,0)="The list will be redisplayed with encounters that relate to the new" ^ORD(101,1404,1,5,0)="location." ^ORD(101,1404,4)="^^^CC" ^ORD(101,1404,15)="D DONE^PXCE" ^ORD(101,1404,20)="D NEWHLOC^PXCENEW" ^ORD(101,1404,28)="" ^ORD(101,1404,99)="57194,42674" ^ORD(101,1405,0)="PXCE CPT ADD^CPT (Procedure)^^A^1^^^^^^^111" ^ORD(101,1405,1,0)="^^4^4^2951106^" ^ORD(101,1405,1,1,0)="The action allows you to add/edit CPT coded procedures for a patient" ^ORD(101,1405,1,2,0)="encounter. Additional information related to the CPT code may also be" ^ORD(101,1405,1,3,0)="entered. This information may include: provider information, provider" ^ORD(101,1405,1,4,0)="narrative, quantity, and diagnosis." ^ORD(101,1405,4)="^^^CP" ^ORD(101,1405,15)="D INIT^PXCEAE" ^ORD(101,1405,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""CPT"")" ^ORD(101,1405,99)="56847,61782" ^ORD(101,1406,0)="PXCE DATE CHANGE^Change Date Range^^A^1^^^^^^^111" ^ORD(101,1406,1,0)="^^3^3^2951106^^^^" ^ORD(101,1406,1,1,0)="This action allows you to change the date range used for displaying" ^ORD(101,1406,1,2,0)="encounters or appointments. You may change the beginning and/or ending" ^ORD(101,1406,1,3,0)="date." ^ORD(101,1406,4)="^^^CD" ^ORD(101,1406,15)="D DONE^PXCE" ^ORD(101,1406,20)="D NEWDATE^PXCEDATE" ^ORD(101,1406,99)="57194,42674" ^ORD(101,1407,0)="PXCE DELETE V-FILE^Delete an Item^^A^1^^^^^^^111" ^ORD(101,1407,1,0)="^^5^5^2960618^^^^" ^ORD(101,1407,1,1,0)="This action allows you to delete any item associated with an encounter," ^ORD(101,1407,1,2,0)="including providers, CPT codes, diagnoses, exams, immunizations, etc." ^ORD(101,1407,1,3,0)=" " ^ORD(101,1407,1,4,0)="You may delete one item, several items separated by commas, or a range of" ^ORD(101,1407,1,5,0)="items separated by a hyphen." ^ORD(101,1407,4)="^^^D" ^ORD(101,1407,15)="D DONE^PXCE" ^ORD(101,1407,20)="D DEL^PXCEAE" ^ORD(101,1407,99)="56847,61782" ^ORD(101,1408,0)="PXCE DISPLAY DETAIL^Display Detail^^A^1^^^^^^^111" ^ORD(101,1408,1,0)="^^4^4^2970226^^^^" ^ORD(101,1408,1,1,0)="This action allows you to expand the display to include all available" ^ORD(101,1408,1,2,0)="information related to the encounter, including the encounter date and" ^ORD(101,1408,1,3,0)="time, the patient name, the hospital location and the workload credit" ^ORD(101,1408,1,4,0)="stop." ^ORD(101,1408,4)="^^^DD" ^ORD(101,1408,15)="S:'VALMCC VALMBCK=""R""" ^ORD(101,1408,20)="I $D(^TMP(""VALM DATA"",$J,VALMEVL,""EXP"")),^(""EXP"")]"""" X ^(""EXP"")" ^ORD(101,1408,99)="57194,42674" ^ORD(101,1409,0)="PXCE EDIT V-FILE^Edit an Item^^A^1^^^^^^^111" ^ORD(101,1409,1,0)="^^7^7^2951106^" ^ORD(101,1409,1,1,0)="This action allows you to edit an entry for a selected encounter." ^ORD(101,1409,1,2,0)=" " ^ORD(101,1409,1,3,0)="You may edit one item, several items separated by commas, or a range of" ^ORD(101,1409,1,4,0)="items separated by a hyphen." ^ORD(101,1409,1,5,0)=" " ^ORD(101,1409,1,6,0)="You may also edit entries by entering the number associated with the item" ^ORD(101,1409,1,7,0)="at the ""Select Item(s)"" prompt." ^ORD(101,1409,4)="^^^E" ^ORD(101,1409,15)="D DONE^PXCE" ^ORD(101,1409,20)="D EDIT^PXCEAE" ^ORD(101,1409,99)="56847,61782" ^ORD(101,1410,0)="PXCE ENCOUNTER EDIT^Encounter^^A^1^^^^^^^111" ^ORD(101,1410,1,0)="^^7^7^2951106^" ^ORD(101,1410,1,1,0)="This action displays encounter information related to the encounter," ^ORD(101,1410,1,2,0)="including the Encounter Date and Time, the Check Out Date and Time," ^ORD(101,1410,1,3,0)="the Evaluation and Management code, the Service Connected Status, Agent" ^ORD(101,1410,1,4,0)="Orange Exposure, Ionizing Radiation Exposure, and Persian Gulf Exposure." ^ORD(101,1410,1,5,0)=" " ^ORD(101,1410,1,6,0)="If this is a main encounter, you may edit the Check Out Date and Time, the" ^ORD(101,1410,1,7,0)="Evaluation and Management code and Service Connected. " ^ORD(101,1410,4)="^^^EN" ^ORD(101,1410,15)="D INIT^PXCEAE" ^ORD(101,1410,20)="S PXCEFIEN=+^TMP(""PXCEAEIX"",$J,1) D EN^PXCEVFIL($S($P(^AUPNVSIT(+PXCEFIEN,0),""^"",7)=""E"":""HIST"",1:""VST""))" ^ORD(101,1410,99)="56847,61782" ^ORD(101,1411,0)="PXCE ENCOUNTER LIST^List by Encounter^^A^1^^^^^^^111" ^ORD(101,1411,1,0)="^^2^2^2951106^^" ^ORD(101,1411,1,1,0)="This action allows you to change the display from a list of appointments" ^ORD(101,1411,1,2,0)="for this patient to a list of encounters for this patient." ^ORD(101,1411,4)="^^^LI" ^ORD(101,1411,20)="S $P(PXCEVIEW,""^"",2)=""V"" S PXCECONT=1 Q" ^ORD(101,1411,99)="57194,42674" ^ORD(101,1412,0)="PXCE EXAM ADD^Exam^^A^1^^^^^^^111" ^ORD(101,1412,1,0)="^^3^3^2951106^^" ^ORD(101,1412,1,1,0)="This action allows you to add an exam for the patient. You may enter" ^ORD(101,1412,1,2,0)="additional information related to the exam such as the results of the" ^ORD(101,1412,1,3,0)="exam, provider information and comments." ^ORD(101,1412,4)="^^^EX" ^ORD(101,1412,15)="D INIT^PXCEAE" ^ORD(101,1412,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""XAM"")" ^ORD(101,1412,99)="56847,61782" ^ORD(101,1413,0)="PXCE HEALTH FACTORS ADD^Health Factors^^A^1^^^^^^^111" ^ORD(101,1413,1,0)="^^3^3^2951106^^" ^ORD(101,1413,1,1,0)="This action allows you to add/edit a Health Factor for a patient" ^ORD(101,1413,1,2,0)="encounter. You may also add additional information such as Level/Severity" ^ORD(101,1413,1,3,0)="and Comments." ^ORD(101,1413,4)="^^^HF" ^ORD(101,1413,15)="D INIT^PXCEAE" ^ORD(101,1413,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""HF"")" ^ORD(101,1413,99)="56847,61782" ^ORD(101,1414,0)="PXCE HOSPITAL LOCATION VIEW^View by Clinic^^A^1^^^^^^^111" ^ORD(101,1414,1,0)="^^6^6^2960620^" ^ORD(101,1414,1,1,0)="This action allows you to change the display of appointments or" ^ORD(101,1414,1,2,0)="encounters based on a clinic. For example, if your current list" ^ORD(101,1414,1,3,0)="includes all appointments for a specified date range for the selected" ^ORD(101,1414,1,4,0)="patient, and you want to display all appointments for a specific clinic," ^ORD(101,1414,1,5,0)="you may use this action to change the display to include appointments or" ^ORD(101,1414,1,6,0)="encounters for the desired clinic." ^ORD(101,1414,4)="^^^VC" ^ORD(101,1414,15)="D DONE^PXCE" ^ORD(101,1414,20)="D NEWHOSL^PXCENEW" ^ORD(101,1414,99)="57194,42674" ^ORD(101,1415,0)="PXCE IMMUNIZATION ADD^Immunization^^A^1^^^^^^^111" ^ORD(101,1415,1,0)="^^3^3^2951106^^" ^ORD(101,1415,1,1,0)="This action allows you to add an immunization for a patient encounter." ^ORD(101,1415,1,2,0)="You may also add additional information such as the encounter provider," ^ORD(101,1415,1,3,0)="the series (optional), reaction, date and time, and ordering provider." ^ORD(101,1415,4)="^^^IM" ^ORD(101,1415,15)="D INIT^PXCEAE" ^ORD(101,1415,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""IMM"")" ^ORD(101,1415,99)="56847,61782" ^ORD(101,1416,0)="PXCE SDAM LIST MENU^Appointment Lists^^M^1^^^^^^^111" ^ORD(101,1416,1,0)="^^5^5^2951106^" ^ORD(101,1416,1,1,0)="This action allows you to change which appointments will be displayed" ^ORD(101,1416,1,2,0)="based on their status of the appointments. For example, you may change the" ^ORD(101,1416,1,3,0)="display to list cancelled, checked in, checked out, future appointments," ^ORD(101,1416,1,4,0)="inpatient appointments, appointment where no action has been taken, non" ^ORD(101,1416,1,5,0)="count appointments, no show appointments or all appointments." ^ORD(101,1416,4)="40^^^AL" ^ORD(101,1416,10,0)="^101.01PA^18^9" ^ORD(101,1416,10,10,0)="624^CI^1" ^ORD(101,1416,10,11,0)="625^NS^2" ^ORD(101,1416,10,12,0)="626^TA^3" ^ORD(101,1416,10,13,0)="628^NA^4" ^ORD(101,1416,10,14,0)="647^CA^5" ^ORD(101,1416,10,15,0)="653^FU^6" ^ORD(101,1416,10,16,0)="654^IP^7" ^ORD(101,1416,10,17,0)="678^NC^8" ^ORD(101,1416,10,18,0)="627^CO^9" ^ORD(101,1416,10,"B",624,10)="" ^ORD(101,1416,10,"B",625,11)="" ^ORD(101,1416,10,"B",626,12)="" ^ORD(101,1416,10,"B",627,18)="" ^ORD(101,1416,10,"B",628,13)="" ^ORD(101,1416,10,"B",647,14)="" ^ORD(101,1416,10,"B",653,15)="" ^ORD(101,1416,10,"B",654,16)="" ^ORD(101,1416,10,"B",678,17)="" ^ORD(101,1416,15)="S:'$D(VALMBCK) VALMBCK="""" D EXIT^PXCESDAM" ^ORD(101,1416,20)="D FULL^VALM1 S XQORM(0)=""1A""" ^ORD(101,1416,26)="W """"" ^ORD(101,1416,28)="Select List:" ^ORD(101,1416,29)="Total Appt Profile" ^ORD(101,1416,99)="57194,42674" ^ORD(101,1417,0)="PXCE MAIN HIDDEN ACTIONS^Hidden Actions for PCE's User Interface^^M^1^^^^^^^111" ^ORD(101,1417,1,0)="^^1^1^2960329^^" ^ORD(101,1417,1,1,0)="This is the hidden actions for the PCE Encounter List display." ^ORD(101,1417,4)="26" ^ORD(101,1417,10,0)="^101.01PA^18^18" ^ORD(101,1417,10,1,0)="1425^QU^33^" ^ORD(101,1417,10,2,0)="442^+^11" ^ORD(101,1417,10,3,0)="443^-^12" ^ORD(101,1417,10,4,0)="447^UP^13" ^ORD(101,1417,10,5,0)="448^DN^14" ^ORD(101,1417,10,6,0)="444^RD^24" ^ORD(101,1417,10,7,0)="451^PS^25" ^ORD(101,1417,10,8,0)="452^PL^26" ^ORD(101,1417,10,9,0)="463^>^15" ^ORD(101,1417,10,10,0)="464^<^16" ^ORD(101,1417,10,11,0)="454^ADPL^32" ^ORD(101,1417,10,12,0)="456^SL^31" ^ORD(101,1417,10,13,0)="445^LS^22" ^ORD(101,1417,10,14,0)="446^FS^21" ^ORD(101,1417,10,15,0)="466^GO^23" ^ORD(101,1417,10,16,0)="457^^34" ^ORD(101,1417,10,17,0)="458^^35" ^ORD(101,1417,10,18,0)="459^^36" ^ORD(101,1417,10,"B",442,2)="" ^ORD(101,1417,10,"B",443,3)="" ^ORD(101,1417,10,"B",444,6)="" ^ORD(101,1417,10,"B",445,13)="" ^ORD(101,1417,10,"B",446,14)="" ^ORD(101,1417,10,"B",447,4)="" ^ORD(101,1417,10,"B",448,5)="" ^ORD(101,1417,10,"B",451,7)="" ^ORD(101,1417,10,"B",452,8)="" ^ORD(101,1417,10,"B",454,11)="" ^ORD(101,1417,10,"B",456,12)="" ^ORD(101,1417,10,"B",457,16)="" ^ORD(101,1417,10,"B",458,17)="" ^ORD(101,1417,10,"B",459,18)="" ^ORD(101,1417,10,"B",463,9)="" ^ORD(101,1417,10,"B",464,10)="" ^ORD(101,1417,10,"B",466,15)="" ^ORD(101,1417,10,"B",1425,1)="" ^ORD(101,1417,99)="61142,58433" ^ORD(101,1418,0)="PXCE MAIN MENU^PCE Encounter Capture^^M^1^^^^^^^111" ^ORD(101,1418,1,0)="^^2^2^2960620^^" ^ORD(101,1418,1,1,0)="This is the list of protocols that are the actions on the PCE Encounter" ^ORD(101,1418,1,2,0)="List display." ^ORD(101,1418,4)="26^4^^" ^ORD(101,1418,10,0)="^101.01PA^18^18" ^ORD(101,1418,10,1,0)="1394^UE^1^" ^ORD(101,1418,10,2,0)="1419^AD^5^" ^ORD(101,1418,10,3,0)="1428^LI^3^" ^ORD(101,1418,10,4,0)="1445^HI^10^" ^ORD(101,1418,10,5,0)="1437^^15^" ^ORD(101,1418,10,6,0)="1420^SP^21^" ^ORD(101,1418,10,7,0)="1406^CD^23^" ^ORD(101,1418,10,8,0)="1404^CC^25^" ^ORD(101,1418,10,9,0)="1443^IN^28^" ^ORD(101,1418,10,10,0)="1438^^35^" ^ORD(101,1418,10,11,0)="1414^VC^70^" ^ORD(101,1418,10,12,0)="1408^DD^71^" ^ORD(101,1418,10,13,0)="1402^^98^" ^ORD(101,1418,10,14,0)="1425^QU^99^" ^ORD(101,1418,10,15,0)="1439^^100^" ^ORD(101,1418,10,16,0)="2141^GF^73" ^ORD(101,1418,10,17,0)="3071^TI^34" ^ORD(101,1418,10,18,0)="3070^PC^33" ^ORD(101,1418,10,"B",1394,1)="" ^ORD(101,1418,10,"B",1402,13)="" ^ORD(101,1418,10,"B",1404,8)="" ^ORD(101,1418,10,"B",1406,7)="" ^ORD(101,1418,10,"B",1408,12)="" ^ORD(101,1418,10,"B",1414,11)="" ^ORD(101,1418,10,"B",1419,2)="" ^ORD(101,1418,10,"B",1420,6)="" ^ORD(101,1418,10,"B",1425,14)="" ^ORD(101,1418,10,"B",1428,3)="" ^ORD(101,1418,10,"B",1437,5)="" ^ORD(101,1418,10,"B",1438,10)="" ^ORD(101,1418,10,"B",1439,15)="" ^ORD(101,1418,10,"B",1443,9)="" ^ORD(101,1418,10,"B",1445,4)="" ^ORD(101,1418,10,"B",2141,16)="" ^ORD(101,1418,10,"B",3070,18)="" ^ORD(101,1418,10,"B",3071,17)="" ^ORD(101,1418,26)="D KEYS^PXCEAE(""PXCE ADD/EDIT"",+$G(^TMP(""PXCEIDX"",$J,0))),SHOW^VALM" ^ORD(101,1418,28)="Select Action: " ^ORD(101,1418,99)="59624,66093" ^ORD(101,1419,0)="PXCE NEW ENCOUNTER^Add Standalone Enc.^^X^1^^^^^^^111" ^ORD(101,1419,1,0)="^^1^1^2960507^^^" ^ORD(101,1419,1,1,0)="This action allows you to add a new encounter for a patient." ^ORD(101,1419,4)="^^^AD" ^ORD(101,1419,10,0)="^101.01PA^1^1" ^ORD(101,1419,10,1,0)="1398^^^" ^ORD(101,1419,10,"B",1398,1)="" ^ORD(101,1419,15)="" ^ORD(101,1419,20)="S PXCEVIEN="""" D EN^PXCEVFIL(""SIT"")" ^ORD(101,1419,21,0)="^101.021A^^0" ^ORD(101,1419,99)="56909,58803" ^ORD(101,1420,0)="PXCE PATIENT CHANGE^Select New Patient^^A^1^^^^^^^111" ^ORD(101,1420,1,0)="^^3^3^2951106^^" ^ORD(101,1420,1,1,0)="This action allows you to change the display of encounters based on the" ^ORD(101,1420,1,2,0)="patient. If you select a new patient, the display will include" ^ORD(101,1420,1,3,0)="encounters or appointments for the selected patient." ^ORD(101,1420,4)="^^^SP" ^ORD(101,1420,10,0)="^101.01PA^0^0" ^ORD(101,1420,15)="D DONE^PXCE" ^ORD(101,1420,20)="D NEWPAT^PXCEPAT" ^ORD(101,1420,99)="57194,42674" ^ORD(101,1421,0)="PXCE PATIENT ED ADD^Patient Ed^^A^1^^^^^^^111" ^ORD(101,1421,1,0)="^^3^3^2960329^" ^ORD(101,1421,1,1,0)="This action allows you to add an education topic to indicate that the" ^ORD(101,1421,1,2,0)="patient received education. Additional information such as level of" ^ORD(101,1421,1,3,0)="understanding, encounter provider, and ordering provider may also be added." ^ORD(101,1421,4)="^^^PE" ^ORD(101,1421,15)="D INIT^PXCEAE" ^ORD(101,1421,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""PED"")" ^ORD(101,1421,99)="56847,61782" ^ORD(101,1422,0)="PXCE POV ADD^Diagnosis (ICD-9)^^A^1^^^^^^^111" ^ORD(101,1422,1,0)="^^2^2^2951106^^^^" ^ORD(101,1422,1,1,0)="This action allows you to add/edit enter an ICD-9 coded diagnoses for an" ^ORD(101,1422,1,2,0)="patient encounter." ^ORD(101,1422,4)="^^^DX" ^ORD(101,1422,15)="D INIT^PXCEAE" ^ORD(101,1422,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""POV"")" ^ORD(101,1422,99)="56847,61782" ^ORD(101,1423,0)="PXCE PROVIDER ADD^Provider^^A^1^^^^^^^111" ^ORD(101,1423,1,0)="^^2^2^2951106^" ^ORD(101,1423,1,1,0)="This action allows you to enter or edit one or more providers for an" ^ORD(101,1423,1,2,0)="encounter." ^ORD(101,1423,4)="^^^PR" ^ORD(101,1423,15)="D INIT^PXCEAE" ^ORD(101,1423,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""PRV"")" ^ORD(101,1423,99)="56847,61782" ^ORD(101,1424,0)="PXCE QUIT^Quit^^A^1^^^^^^^111" ^ORD(101,1424,1,0)="^^2^2^2951106^" ^ORD(101,1424,1,1,0)="This action allows you to exit the PCE Update Encounter screen and return" ^ORD(101,1424,1,2,0)="to the Appointment or Encounter List screen." ^ORD(101,1424,2,0)="^101.02A^^0" ^ORD(101,1424,4)="^^^QU" ^ORD(101,1424,15)="D:'PXCEEXIT DONE^PXCE" ^ORD(101,1424,20)="D CHECK^PXCEVFI5 Q:PXCEEXIT" ^ORD(101,1424,99)="56847,61782" ^ORD(101,1425,0)="PXCE QUIT COMPLETELY^Quit^^A^1^^^^^^^111" ^ORD(101,1425,1,0)="^^1^1^2951106^" ^ORD(101,1425,1,1,0)="This action allows you to exit PCE and return to your menu." ^ORD(101,1425,4)="^^^QU" ^ORD(101,1425,20)="K PXCEVIEW,PXCECONT Q" ^ORD(101,1425,99)="57194,42674" ^ORD(101,1426,0)="PXCE SDAM DISPLAY DETAIL^Display Detail^^A^1^^^^^^^111" ^ORD(101,1426,1,0)="^^2^2^2951106^" ^ORD(101,1426,1,1,0)="This action expands the display to include all available information" ^ORD(101,1426,1,2,0)="related to one encounter for a selected appointment." ^ORD(101,1426,4)="^^^DD" ^ORD(101,1426,15)="S:'VALMCC VALMBCK=""R""" ^ORD(101,1426,20)="I $D(^TMP(""VALM DATA"",$J,VALMEVL,""EXP"")),^(""EXP"")]"""" X ^(""EXP"")" ^ORD(101,1426,99)="57194,42674" ^ORD(101,1427,0)="PXCE SDAM EXPAND^Expand Appointment^^A^1^^^^^^^111" ^ORD(101,1427,1,0)="^^4^4^2951106^" ^ORD(101,1427,1,1,0)="This action allows you to display all the patient demographics and" ^ORD(101,1427,1,2,0)="appointment event log items that have been entered for a selected patient" ^ORD(101,1427,1,3,0)="appointment. This action displays information from the Scheduling package" ^ORD(101,1427,1,4,0)="and not from PCE." ^ORD(101,1427,4)="^^^EP" ^ORD(101,1427,10,0)="^101.01PA^0^0" ^ORD(101,1427,15)="S:'VALMCC VALMBCK=""R""" ^ORD(101,1427,20)="D EN^SDAMEP" ^ORD(101,1427,99)="57194,42674" ^ORD(101,1428,0)="PXCE SDAM LIST^List by Appointment^^A^1^^^^^^^111" ^ORD(101,1428,1,0)="^^2^2^2951106^" ^ORD(101,1428,1,1,0)="This action allows you to change your view from a list of existing" ^ORD(101,1428,1,2,0)="encounters to a list of appointments." ^ORD(101,1428,4)="^^^LI" ^ORD(101,1428,10,0)="^101.01PA^0^0" ^ORD(101,1428,15)="" ^ORD(101,1428,20)="S $P(PXCEVIEW,""^"",2)=""A"",PXCECONT=1 K:PXCEVIEW[""P"" PXCEHLOC Q" ^ORD(101,1428,99)="57194,42674" ^ORD(101,1429,0)="PXCE SDAM MENU^Appointment Menu^^M^1^^^^^^^111" ^ORD(101,1429,1,0)="^^2^2^2960312^" ^ORD(101,1429,1,1,0)="This is the list of protocols that are the actions on the PCE Appointment" ^ORD(101,1429,1,2,0)="List screen." ^ORD(101,1429,4)="26^4^^AV" ^ORD(101,1429,10,0)="^101.01PA^20^20" ^ORD(101,1429,10,1,0)="1420^SP^21^" ^ORD(101,1429,10,2,0)="1425^QU^99^" ^ORD(101,1429,10,3,0)="1406^CD^23^" ^ORD(101,1429,10,4,0)="1414^VC^41^" ^ORD(101,1429,10,5,0)="1430^UE^1^" ^ORD(101,1429,10,6,0)="1411^LI^3^" ^ORD(101,1429,10,7,0)="1427^EP^81^" ^ORD(101,1429,10,9,0)="1426^DD^71^" ^ORD(101,1429,10,10,0)="1416^AL^8^" ^ORD(101,1429,10,12,0)="1442^IN^28^" ^ORD(101,1429,10,13,0)="1437^^15^" ^ORD(101,1429,10,14,0)="1438^^35^" ^ORD(101,1429,10,15,0)="1439^^100^" ^ORD(101,1429,10,17,0)="1448^AD^5^" ^ORD(101,1429,10,18,0)="2141^GF^26" ^ORD(101,1429,10,19,0)="3070^PC^33" ^ORD(101,1429,10,20,0)="3071^TI^34" ^ORD(101,1429,10,"B",1406,3)="" ^ORD(101,1429,10,"B",1411,6)="" ^ORD(101,1429,10,"B",1414,4)="" ^ORD(101,1429,10,"B",1416,10)="" ^ORD(101,1429,10,"B",1420,1)="" ^ORD(101,1429,10,"B",1425,2)="" ^ORD(101,1429,10,"B",1426,9)="" ^ORD(101,1429,10,"B",1427,7)="" ^ORD(101,1429,10,"B",1430,5)="" ^ORD(101,1429,10,"B",1437,13)="" ^ORD(101,1429,10,"B",1438,14)="" ^ORD(101,1429,10,"B",1439,15)="" ^ORD(101,1429,10,"B",1442,12)="" ^ORD(101,1429,10,"B",1448,17)="" ^ORD(101,1429,10,"B",2141,18)="" ^ORD(101,1429,10,"B",3070,19)="" ^ORD(101,1429,10,"B",3071,20)="" ^ORD(101,1429,26)="D KEYS^PXCEAE(""PXCE SDAM UPDATE ENCOUNTER"",+$O(^TMP(""SDAMIDX"",$J,""""),-1)),SHOW^VALM" ^ORD(101,1429,28)="Select Action: " ^ORD(101,1429,99)="59624,66093" ^ORD(101,1430,0)="PXCE SDAM UPDATE ENCOUNTER^Update Encounter^^A^1^^^^^^^111" ^ORD(101,1430,1,0)="^^8^8^2951106^" ^ORD(101,1430,1,1,0)="This action allows you to edit an encounter that is associated with an" ^ORD(101,1430,1,2,0)="appointment. You may also edit additional information such as provider," ^ORD(101,1430,1,3,0)="diagnosis, procedure, treatment, measurement, immunization, skin test," ^ORD(101,1430,1,4,0)="patient education, exams, and treatments." ^ORD(101,1430,1,5,0)=" " ^ORD(101,1430,1,6,0)="You may also edit an encounter that is associated with an appointment by" ^ORD(101,1430,1,7,0)="entering the number associated with the item at the ""Select Item(s)""" ^ORD(101,1430,1,8,0)="prompt." ^ORD(101,1430,4)="^^^UE" ^ORD(101,1430,15)="D MAKELIST^PXCENEW,DONE^PXCE" ^ORD(101,1430,20)="D SEL^PXCESDAM" ^ORD(101,1430,99)="56847,61782" ^ORD(101,1431,0)="PXCE SKIN TEST ADD^Skin Test^^A^1^^^^^^^111" ^ORD(101,1431,1,0)="^^1^1^2951106^" ^ORD(101,1431,1,1,0)="This action allows you to enter a skin test or skin test code." ^ORD(101,1431,4)="^^^ST" ^ORD(101,1431,15)="D INIT^PXCEAE" ^ORD(101,1431,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""SK"")" ^ORD(101,1431,99)="56847,61782" ^ORD(101,1432,0)="PXCE TREATMENT ADD^Treatment^^A^1^^^^^^^111" ^ORD(101,1432,1,0)="^^3^3^2960724^" ^ORD(101,1432,1,1,0)="This action allows you to record one or more treatments for a patient" ^ORD(101,1432,1,2,0)="encounter. A treatment is a procedure that can not be associated with a" ^ORD(101,1432,1,3,0)="CPT code." ^ORD(101,1432,4)="^^^TR" ^ORD(101,1432,15)="D INIT^PXCEAE" ^ORD(101,1432,20)="S PXCEFIEN="""" D EN^PXCEVFIL(""TRT"")" ^ORD(101,1432,99)="56847,61783" ^ORD(101,1433,0)="PXK CPT-SCH TO V-CPT^CPT-SCH TO V-CPT^^A^1^^^^^^^111" ^ORD(101,1433,1,0)="^^3^3^2951106^^^^" ^ORD(101,1433,1,1,0)=" This will only be connected to the protocol that is used by scheduling" ^ORD(101,1433,1,2,0)="Redesign to transfer prodecures from the scheduling file to the V-CPT" ^ORD(101,1433,1,3,0)="file along with associated diagnosis and provider." ^ORD(101,1433,20)="D EN1^PXSCH1" ^ORD(101,1433,99)="56847,61783" ^ORD(101,1434,0)="PXCE GMRP REVIEW SCREEN^Progress Notes^^X^1^^^^^^^111" ^ORD(101,1434,1,0)="^^3^3^2960806^^^^" ^ORD(101,1434,1,1,0)="This protocol can be added to the PCE menu protocols, PXCE MAIN MENU and " ^ORD(101,1434,1,2,0)="PXCE SDAM MENU, to allow the user of PCE's user interface to go to " ^ORD(101,1434,1,3,0)="Progress Notes without leaving the interface." ^ORD(101,1434,4)="^^^PN" ^ORD(101,1434,10,0)="^101.01PA^^0" ^ORD(101,1434,15)="D JUSTDFNK^PXCEPAT,DONE^PXCE" ^ORD(101,1434,20)="D FULL^VALM1,JUSTDFN^PXCEPAT S:$G(DFN)'>0 XQORQUIT=1" ^ORD(101,1434,99)="58574,49845" ^ORD(101,1435,0)="PXCE GMTS HS ADHOC^Health Summary^^X^1^^^^^^^111" ^ORD(101,1435,1,0)="^^3^3^2960806^^^^" ^ORD(101,1435,1,1,0)="This protocol can be added to the PCE menu protocols, PXCE MAIN MENU and " ^ORD(101,1435,1,2,0)="PXCE SDAM MENU, to allow the user of PCE's user interface to go to " ^ORD(101,1435,1,3,0)="Health Summary without leaving the interface." ^ORD(101,1435,4)="^^^HS" ^ORD(101,1435,10,0)="^101.01PA^2^1" ^ORD(101,1435,10,2,0)="366" ^ORD(101,1435,10,"B",366,2)="" ^ORD(101,1435,15)="D JUSTDFNK^PXCEPAT,DONE^PXCE" ^ORD(101,1435,20)="D FULL^VALM1,JUSTDFN^PXCEPAT S:$G(DFN)'>0 XQORQUIT=1" ^ORD(101,1435,99)="56847,61817" ^ORD(101,1436,0)="PXCE GMPL OE DATA ENTRY^Patient Problem List^^X^1^^^^^^^111" ^ORD(101,1436,1,0)="3^^3^3^2960806^^^" ^ORD(101,1436,1,1,0)="This protocol can be added to the PCE menu protocols, PXCE MAIN MENU and " ^ORD(101,1436,1,2,0)="PXCE SDAM MENU, to allow the user of PCE's user interface to go to " ^ORD(101,1436,1,3,0)="Problem List without leaving the interface." ^ORD(101,1436,4)="^^^PL" ^ORD(101,1436,10,0)="^101.01PA^0^0" ^ORD(101,1436,15)="D JUSTDFNK^PXCEPAT,DONE^PXCE" ^ORD(101,1436,20)="D FULL^VALM1,JUSTDFN^PXCEPAT S:$G(DFN)'>0 XQORQUIT=1" ^ORD(101,1436,99)="56847,61783" ^ORD(101,1437,0)="PXCE BLANK PL^^^A^1^^^^^^^111" ^ORD(101,1437,1,0)="^^1^1^2951106^^^^" ^ORD(101,1437,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1438,0)="PXCE BLANK PN^^^A^1^^^^^^^111" ^ORD(101,1438,1,0)="^^1^1^2951106^^^^" ^ORD(101,1438,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1439,0)="PXCE BLANK HS^^^A^1^^^^^^^111" ^ORD(101,1439,1,0)="^^1^1^2951106^^^^" ^ORD(101,1439,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1440,0)="PXCE BLANK 4^^^A^1^^^^^^^111" ^ORD(101,1440,1,0)="^^1^1^2951106^^^^" ^ORD(101,1440,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1441,0)="PXCE ADD/EDIT INTERVIEW^Check Out Interview^^A^1^^^^^^^111" ^ORD(101,1441,1,0)="^^2^2^2960429^^^^" ^ORD(101,1441,1,1,0)="This action allows you to go through the interview questions for this" ^ORD(101,1441,1,2,0)="encounter." ^ORD(101,1441,4)="^^^IN" ^ORD(101,1441,15)="D INIT^PXCEAE" ^ORD(101,1441,20)="D UPDATENC^PXCEINTR" ^ORD(101,1441,99)="56847,61783" ^ORD(101,1442,0)="PXCE SDAM INTERVIEW^Check Out Interview^^A^1^^^^^^^111" ^ORD(101,1442,1,0)="^^7^7^2960312^^" ^ORD(101,1442,1,1,0)="This action allows you to go through the interview questions for an" ^ORD(101,1442,1,2,0)="encounter that is associated with an appointment. You may also edit" ^ORD(101,1442,1,3,0)="additional information such as provider, diagnosis, and procedure. " ^ORD(101,1442,1,4,0)=" " ^ORD(101,1442,1,5,0)="You may also edit an encounter that is associated with an appointment by" ^ORD(101,1442,1,6,0)="entering the number associated with the item at the ""Select Item(s)""" ^ORD(101,1442,1,7,0)="prompt or using the Update Encounter." ^ORD(101,1442,4)="^^^IN" ^ORD(101,1442,15)="D MAKELIST^PXCENEW,DONE^PXCE" ^ORD(101,1442,20)="D SDINTRVW^PXCEINTR(""INTV"")" ^ORD(101,1442,99)="56847,61783" ^ORD(101,1443,0)="PXCE INTERVIEW^Check Out Interview^^A^1^^^^^^^111" ^ORD(101,1443,1,0)="^^7^7^2960312^^" ^ORD(101,1443,1,1,0)="This action allows you to go through the interview questions for an" ^ORD(101,1443,1,2,0)="encounters. You may also edit additional information such as provider," ^ORD(101,1443,1,3,0)="diagnosis, and procedure. " ^ORD(101,1443,1,4,0)=" " ^ORD(101,1443,1,5,0)="You may also select an encounter to update by entering the number" ^ORD(101,1443,1,6,0)="associated with the item at the ""Select Item(s)"" prompt or by using the" ^ORD(101,1443,1,7,0)="Update Encounter." ^ORD(101,1443,4)="^^^IN" ^ORD(101,1443,15)="D MAKELIST^PXCENEW,DONE^PXCE" ^ORD(101,1443,20)="D INTRVIEW^PXCEINTR" ^ORD(101,1443,99)="56847,61783" ^ORD(101,1445,0)="PXCE HISTORICAL ENCOUNTER^Make Historical Enc.^^X^1^^^^^^^111" ^ORD(101,1445,1,0)="^^2^2^2960312^^" ^ORD(101,1445,1,1,0)="Record an old encounter or an encounter at a different facility even on VA" ^ORD(101,1445,1,2,0)="facilities." ^ORD(101,1445,4)="^^^HI" ^ORD(101,1445,10,0)="^101.01PA^1^1" ^ORD(101,1445,10,1,0)="1398^^^" ^ORD(101,1445,10,"B",1398,1)="" ^ORD(101,1445,20)="S PXCEVIEN="""" D NEWENC^PXCEHELP D:Y EN^PXCEVFIL(""HIST"")" ^ORD(101,1445,99)="56909,58803" ^ORD(101,1446,0)="PXCE CHANGE CLINIC STOP^Change Credit Stop^^A^1^^^^^^^111" ^ORD(101,1446,1,0)="^^7^7^2951106^^" ^ORD(101,1446,1,1,0)="This action allows you to change the display of encounters based on" ^ORD(101,1446,1,2,0)="the credit stop. You may select from the following credit stop views:" ^ORD(101,1446,1,3,0)="(M) Main Encounter Only; (A) All Encounters; or (O) One Clinic Stop." ^ORD(101,1446,1,4,0)=" " ^ORD(101,1446,1,5,0)="If you select ""M"", ony the main encounters will be displayed. If you" ^ORD(101,1446,1,6,0)="select ""A"", all encounters will be displayed. If you select ""O"", you will" ^ORD(101,1446,1,7,0)="be prompted to specify a Clinic Stop." ^ORD(101,1446,4)="^^^CS" ^ORD(101,1446,15)="D DONE^PXCE" ^ORD(101,1446,20)="D NEWCLST^PXCENEW" ^ORD(101,1446,99)="56847,61783" ^ORD(101,1447,0)="PXCE BLANK SELECT NEW PATIENT^ Select New Patient^^A^1^^^^^^^111" ^ORD(101,1447,1,0)="^^1^1^2951106^^^^" ^ORD(101,1447,1,1,0)="This protocol is used to format spaces in menu lists." ^ORD(101,1447,99)="56847,61783" ^ORD(101,1448,0)="PXCE SDAM STANDALONE^Add Standalone Enc.^^X^1^^^^^^^111" ^ORD(101,1448,1,0)="^^1^1^2960521^^^^" ^ORD(101,1448,1,1,0)="This action allows you to add a new encounter for a patient." ^ORD(101,1448,4)="^^^AD" ^ORD(101,1448,10,0)="^101.01PA^1^1" ^ORD(101,1448,10,1,0)="1398^^^" ^ORD(101,1448,10,"B",1398,1)="" ^ORD(101,1448,15)="D SDKALONE^PXCEPAT" ^ORD(101,1448,20)="D SDSALONE^PXCEPAT S PXCEVIEN=$$VISITLST^PXAPI($G(PXCEPAT),PXCEDBEG,PXCEDEND,$G(PXCEHLOC),""OP"",-1,""A"") D:PXCEVIEN=""A"" EN^PXCEVFIL(""SIT"")" ^ORD(101,1448,99)="56909,58803" ^ORD(101,1449,0)="SDAM PCE EVENT^PROCESS PCE EVENT DATA^^A^1^^^^^^^48" ^ORD(101,1449,1,0)="^^8^8^2950726^^" ^ORD(101,1449,1,1,0)="This protocol is the event handler attached" ^ORD(101,1449,1,2,0)="to the PXK VISIT DATA EVENT protocol." ^ORD(101,1449,1,3,0)=" " ^ORD(101,1449,1,4,0)="The protocol processes scheduled appointment" ^ORD(101,1449,1,5,0)="check out data made available by this PCE" ^ORD(101,1449,1,6,0)="event point. PCE currently obtains this check out" ^ORD(101,1449,1,7,0)="data from MCCR data capture pilots and also a" ^ORD(101,1449,1,8,0)="manual entry module within the PCE package." ^ORD(101,1449,20)="D EN^SDPCE" ^ORD(101,1449,99)="56847,61845" ^ORD(101,1450,0)="SDAM CPT^Procedure Update^^A^1^^^^^^^48" ^ORD(101,1450,1,0)="^^2^2^2960513^" ^ORD(101,1450,1,1,0)="This action permits the user to update the procedures associated " ^ORD(101,1450,1,2,0)="with appointments that have a check out date/time." ^ORD(101,1450,4)="^^^CPT" ^ORD(101,1450,20)="D CO^SDCOAM(""CPT"",""procedure"")" ^ORD(101,1450,24)="I $$PKGON^VSIT(""SD"")" ^ORD(101,1450,99)="56847,61845" ^ORD(101,1451,0)="SDCO CPT^Procedure Update^^A^1^^^^^^^48" ^ORD(101,1451,1,0)="^^2^2^2960524^" ^ORD(101,1451,1,1,0)="This action permits the user to update the procedures associated with " ^ORD(101,1451,1,2,0)="appointments that have a check out date/time." ^ORD(101,1451,4)="^^^PU" ^ORD(101,1451,20)="D EN^SDCO9" ^ORD(101,1451,24)="I $$PKGON^VSIT(""SD"")" ^ORD(101,1451,99)="56847,61845" ^ORD(101,1452,0)="FB BATCH STATUS^BATCH STATUS^^A^1^^^^^^^114" ^ORD(101,1452,15)="K FBPR" ^ORD(101,1452,20)="S FBPR=""BS"" D ^FBPHON2" ^ORD(101,1452,99)="56847,67851" ^ORD(101,1453,0)="FB INVOICE DISPLAY^INVOICE DISPLAY^^A^1^^^^^^^114" ^ORD(101,1453,4)="^^^ID" ^ORD(101,1453,15)="K FBPR" ^ORD(101,1453,20)="S FBPR=""INV"" D ^FBPHON2" ^ORD(101,1453,99)="56847,67851" ^ORD(101,1454,0)="FB DISPLAY VENDOR^DISPLAY VENDOR^^A^1^^^^^^^114" ^ORD(101,1454,20)="D DV^FBPHON2" ^ORD(101,1454,99)="56847,67851" ^ORD(101,1455,0)="FB LIST BATCH^LIST BATCH^^A^1^^^^^^^114" ^ORD(101,1455,15)="K FBPR" ^ORD(101,1455,20)="S FBPR=""BT"" D ^FBPHON2" ^ORD(101,1455,99)="56847,67851" ^ORD(101,1456,0)="FB DISPLAY AUTHORIZATION^DISPLAY AUTH/7078/583^^A^1^^^^^^^114" ^ORD(101,1456,15)="K FBPR" ^ORD(101,1456,20)="S FBPR=""DA"" D ^FBPHON2" ^ORD(101,1456,99)="56847,67851" ^ORD(101,1457,0)="FB PHONE MENU^Fee Basis Phone Menu^^M^1^^^^^^^114" ^ORD(101,1457,4)="26^4^N" ^ORD(101,1457,10,0)="^101.01PA^10^10" ^ORD(101,1457,10,1,0)="1455^LB^12" ^ORD(101,1457,10,2,0)="1453^ID^13" ^ORD(101,1457,10,3,0)="1452^BS^11" ^ORD(101,1457,10,4,0)="1454^DV^32" ^ORD(101,1457,10,5,0)="1456^DA^31" ^ORD(101,1457,10,6,0)="1461^EV^21" ^ORD(101,1457,10,7,0)="1459^CP^22" ^ORD(101,1457,10,8,0)="1458^CV^23" ^ORD(101,1457,10,9,0)="1460^DC^33" ^ORD(101,1457,10,10,0)="1462^LC^14" ^ORD(101,1457,10,"B",1452,3)="" ^ORD(101,1457,10,"B",1453,2)="" ^ORD(101,1457,10,"B",1454,4)="" ^ORD(101,1457,10,"B",1455,1)="" ^ORD(101,1457,10,"B",1456,5)="" ^ORD(101,1457,10,"B",1458,8)="" ^ORD(101,1457,10,"B",1459,7)="" ^ORD(101,1457,10,"B",1460,9)="" ^ORD(101,1457,10,"B",1461,6)="" ^ORD(101,1457,10,"B",1462,10)="" ^ORD(101,1457,15)="" ^ORD(101,1457,20)="" ^ORD(101,1457,26)="D SHOW^VALM" ^ORD(101,1457,28)="Select Action:" ^ORD(101,1457,99)="56847,67852" ^ORD(101,1458,0)="FB CHANGE VENDOR^CHANGE VENDOR^^A^1^^^^^^^114" ^ORD(101,1458,20)="D CV^FBPHON2" ^ORD(101,1458,99)="56847,67851" ^ORD(101,1459,0)="FB CHANGE VETERAN^CHANGE PATIENT^^A^1^^^^^^^114" ^ORD(101,1459,20)="D CP^FBPHON2" ^ORD(101,1459,99)="56847,67851" ^ORD(101,1460,0)="FB DISPLAY CHECK^DISPLAY CHECK^^A^1^^^^^^^114" ^ORD(101,1460,15)="K FBPR" ^ORD(101,1460,20)="S FBPR=""DC"" D ^FBPHON2" ^ORD(101,1460,99)="56847,67851" ^ORD(101,1461,0)="FB EXPAND VIEW^EXPAND VIEW^^A^1^^^^^^^114" ^ORD(101,1461,15)="K FBPR" ^ORD(101,1461,20)="S FBPR=""EV"" D ^FBPHON2" ^ORD(101,1461,99)="56847,67851" ^ORD(101,1462,0)="FB CPT DESCRIPTION^LOOKUP CPT/MODIFIER^^A^1^^^^^^^114" ^ORD(101,1462,15)="K FBPR" ^ORD(101,1462,20)="S FBPR=""CD"" D EN^FBPHON2" ^ORD(101,1462,99)="56847,67851" ^ORD(101,1463,0)="RA OERR EXAM^RAD/NUC MED^^O^1^^^^^^^" ^ORD(101,1463,1,0)="^^3^3^2941214^^^^" ^ORD(101,1463,1,1,0)="This option is used to link the Rad/Nuc Med Package with" ^ORD(101,1463,1,2,0)="the Order Entry Package (OE/RR) being developed by the" ^ORD(101,1463,1,3,0)="Salt Lake City ISC." ^ORD(101,1463,1,"B","Salt Lake City ISC.",3)="" ^ORD(101,1463,1,"B","This option is used to link th",1)="" ^ORD(101,1463,1,"B","the Order Entry Package (OE/RR",2)="" ^ORD(101,1463,5)="RA OERR EXAM;DIC(19," ^ORD(101,1463,10,0)="^101.01PA^0^0" ^ORD(101,1463,20)="D ^RAORR" ^ORD(101,1463,99)="56848,35918" ^ORD(101,1463,100)="" ^ORD(101,1463,100.1)="" ^ORD(101,1463,100.2)="" ^ORD(101,1464,0)="RA OERR PROFILE^Rad/Nuc Med Profile^^A^1^^^^^^^" ^ORD(101,1464,1,0)="^^2^2^2940610^^^^" ^ORD(101,1464,1,1,0)="This action protocal is used in OE/RR for reporting results" ^ORD(101,1464,1,2,0)="of radiology and nuclear medicine reports." ^ORD(101,1464,15)="K RAF1,RAREPORT D READ^ORUTL" ^ORD(101,1464,20)="Q:'$D(ORVP) S RADFN=+ORVP,RAHEAD=""**** RAD/NUC MED PATIENT EXAMS ****"" S (RAF1,RAREPORT)=1 D ^RAPTLU Q:X[""^""!'$D(RADUP) D OERR^RAORDQ" ^ORD(101,1464,99)="56848,35918" ^ORD(101,1465,0)="RA OERR DEFAULT PROTOCOL^Default Protocol for Rad/Nuc Med^^O^1^^^^^^^" ^ORD(101,1465,20)="D ^RAORR" ^ORD(101,1465,99)="56848,35918" ^ORD(101,1466,0)="RA ORDERABLE ITEM UPDATE^Update Radiology/Nuc Med orderable item^^X^1^^^^^^^115" ^ORD(101,1466,1,0)="^^12^12^2941214^^^^" ^ORD(101,1466,1,1,0)="Invoked whenever a single Radiology/Nuc Med procedure is added or edited." ^ORD(101,1466,1,2,0)="Creates an HL7 message array containing all data associated with the" ^ORD(101,1466,1,3,0)="procedure. The triggering event may be an add/edit of an entry in the" ^ORD(101,1466,1,4,0)="Rad/Nuc Med Procedure file (which can change any data item related to a" ^ORD(101,1466,1,5,0)="procedure), or an add/edit of the Rad/Nuc Med Common Procedure file (which" ^ORD(101,1466,1,6,0)="only affects the Common Order Flag of the ZRA segment)." ^ORD(101,1466,1,7,0)=" " ^ORD(101,1466,1,8,0)="An initial, one-time only population of the OE/RR Orderable file with" ^ORD(101,1466,1,9,0)="Rad/Nuc Med procedures will occur at the point in time when both OE/RR V3" ^ORD(101,1466,1,10,0)="and Radiology/Nuclear Medicine V4.5 have been installed at a site." ^ORD(101,1466,1,11,0)="This protocol is NOT used for this initial population. Instead, function" ^ORD(101,1466,1,12,0)="calls are used in this one-time event." ^ORD(101,1466,4)="^^^RA ORDERABLE" ^ORD(101,1466,10,0)="^101.01PA^1^1" ^ORD(101,1466,10,1,0)="2182^^1" ^ORD(101,1466,10,"B",2182,1)="" ^ORD(101,1466,15)="K:$L($G(RAVARBLE)) @RAVARBLE,RAVARBLE" ^ORD(101,1466,20)="" ^ORD(101,1466,99)="57814,55356" ^ORD(101,1467,0)="RA EVSEND OR^Radiology event sent to OE/RR^^X^1^^^^^^^115" ^ORD(101,1467,1,0)="^^3^3^2960529^^^^" ^ORD(101,1467,1,1,0)="Invoked when a request is created or changed by the Radiology/Nuclear" ^ORD(101,1467,1,2,0)="Medicine package (the ""backdoor"") and the data is passed to the Order" ^ORD(101,1467,1,3,0)="Entry package, Version 3.0 or greater." ^ORD(101,1467,4)="^^^RA EVSEND" ^ORD(101,1467,10,0)="^101.01PA^1^1" ^ORD(101,1467,10,1,0)="2179^^1" ^ORD(101,1467,10,2,0)="2252" ^ORD(101,1467,10,"B",2179,1)="" ^ORD(101,1467,10,"B",2252,2)="" ^ORD(101,1467,15)="K:$L($G(RAVARBLE)) @RAVARBLE,RAVARBLE" ^ORD(101,1467,20)="" ^ORD(101,1467,99)="57983,77781" ^ORD(101,1468,0)="RA RECEIVE^Rad/NM receives order msg from OE/RR^^A^1^^^^^^^" ^ORD(101,1468,20)="D EN1^RAO7RO(.XQORMSG)" ^ORD(101,1468,99)="56848,35918" ^ORD(101,1469,0)="RA REG^Rad/Nuc Med exam registered^^E^1^^^^^^^115" ^ORD(101,1469,1,0)="^^5^5^2961211^^^^" ^ORD(101,1469,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is" ^ORD(101,1469,1,2,0)="registered. It executes code that creates an HL7 ORM message consisting" ^ORD(101,1469,1,3,0)="of PID, ORC, OBR and OBX segments. The message contains all relevant" ^ORD(101,1469,1,4,0)="information about the exam, including procedure, time of registration," ^ORD(101,1469,1,5,0)="procedure modifiers, patient allergies, and clinical history." ^ORD(101,1469,10,0)="^101.01PA^^0" ^ORD(101,1469,20)="Q" ^ORD(101,1469,99)="58310,55362" ^ORD(101,1469,770)="^^5^38^^^^^^1^" ^ORD(101,1469,772)="Q" ^ORD(101,1469,775,0)="^101.0775PA^1^1" ^ORD(101,1469,775,1,0)="1593^^^" ^ORD(101,1469,775,"B",1593,1)="" ^ORD(101,1471,0)="RA CANCEL^Rad/Nuc Med exam cancellation^^E^1^^^^^^^115" ^ORD(101,1471,1,0)="^^5^5^2961209^^^" ^ORD(101,1471,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam is" ^ORD(101,1471,1,2,0)="cancelled. It executes code that creates an HL7 ORM message consisting of" ^ORD(101,1471,1,3,0)="PID, ORC, OBR and OBX segments. The message contains all relevant" ^ORD(101,1471,1,4,0)="information about the exam, including procedure, time of cancellation," ^ORD(101,1471,1,5,0)="procedure modifiers, patient allergies and clinical history." ^ORD(101,1471,10,0)="^101.01PA^^0" ^ORD(101,1471,20)="Q" ^ORD(101,1471,99)="58310,55362" ^ORD(101,1471,770)="^^5^38^^^^^^1^" ^ORD(101,1471,772)="Q" ^ORD(101,1471,775,0)="^101.0775PA^1^1" ^ORD(101,1471,775,1,0)="1593^^^" ^ORD(101,1471,775,"B",1593,1)="" ^ORD(101,1472,0)="RA RPT^Rad/Nuc Med report released/verified^^E^1^^^^^^^" ^ORD(101,1472,1,0)="^^6^6^2961209^^" ^ORD(101,1472,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine report" ^ORD(101,1472,1,2,0)="enters into a status of Verified or Released/Not Verified. It executes" ^ORD(101,1472,1,3,0)="code that creates an HL7 ORU message consisting of PID, OBR and OBX" ^ORD(101,1472,1,4,0)="segments. The message contains relevant information about the report," ^ORD(101,1472,1,5,0)="including procedure, procedure modifiers, diagnostic code, interpreting" ^ORD(101,1472,1,6,0)="physician, impression text and report text." ^ORD(101,1472,10,0)="^101.01PA^^0" ^ORD(101,1472,20)="Q" ^ORD(101,1472,99)="58310,55362" ^ORD(101,1472,770)="^^3^46^^^^^^1^" ^ORD(101,1472,771)="" ^ORD(101,1472,772)="Q" ^ORD(101,1472,775,0)="^101.0775PA^1^1" ^ORD(101,1472,775,1,0)="1594^^^" ^ORD(101,1472,775,"B",1594,1)="" ^ORD(101,1473,0)="IVM MEANS TEST EVENT^IVM MEANS TEST EVENT^^X^1^^^^^^^120" ^ORD(101,1473,1,0)="^^10^10^2940501^^^^" ^ORD(101,1473,1,1,0)=" " ^ORD(101,1473,1,2,0)="This event will be called each time a means test is added, edited, or" ^ORD(101,1473,1,3,0)="deleted. It will check two things:" ^ORD(101,1473,1,4,0)=" " ^ORD(101,1473,1,5,0)=" 1) If the means test meets IVM criteria for tranmsission, it will" ^ORD(101,1473,1,6,0)=" send demographic and income information to the IVM Center." ^ORD(101,1473,1,7,0)=" " ^ORD(101,1473,1,8,0)=" 2) If the IVM Center has already received data about the patient for" ^ORD(101,1473,1,9,0)=" the means test year, updated information will be sent to the IVM" ^ORD(101,1473,1,10,0)=" Center." ^ORD(101,1473,5)="" ^ORD(101,1473,20)="D ^IVMPMTE" ^ORD(101,1473,99)="56848,51365" ^ORD(101,1474,0)="IVM INSURANCE EVENT^IVM INSURANCE EVENT^^X^1^^^^^^^120" ^ORD(101,1474,1,0)="^^10^10^2940501^" ^ORD(101,1474,1,1,0)="This event will be called when patient insurance policy data is added," ^ORD(101,1474,1,2,0)="edited, or deleted. Two checks are performed:" ^ORD(101,1474,1,3,0)=" " ^ORD(101,1474,1,4,0)=" 1) If the insurance status of an active IVM patient has changed" ^ORD(101,1474,1,5,0)=" since that patient's Means Test data was last transmitted to" ^ORD(101,1474,1,6,0)=" the IVM Center, the data will be queued for re-transmission." ^ORD(101,1474,1,7,0)=" " ^ORD(101,1474,1,8,0)=" 2) If the patient is Category C, has no active case record, and" ^ORD(101,1474,1,9,0)=" does not have active insurance, a case record is added and" ^ORD(101,1474,1,10,0)=" that patient's Means Test data is queued for transmission." ^ORD(101,1474,20)="D ^IVMPINS" ^ORD(101,1474,99)="56848,51365" ^ORD(101,1475,0)="IBAMTV REV PASS CHARGE^Pass Charge^^A^1^^^^^^^49" ^ORD(101,1475,20)="D PC^IBAMTV32" ^ORD(101,1475,99)="56848,51364" ^ORD(101,1476,0)="IBAMTV REV IND CHARGES^Review Charges^^M^1^^^^^^^49" ^ORD(101,1476,4)="26^4" ^ORD(101,1476,10,0)="^101.01PA^2^2" ^ORD(101,1476,10,1,0)="1477^CC^2" ^ORD(101,1476,10,2,0)="1475^PC^1" ^ORD(101,1476,10,"B",1475,2)="" ^ORD(101,1476,10,"B",1477,1)="" ^ORD(101,1476,26)="D SHOW^VALM" ^ORD(101,1476,28)="Select Action: " ^ORD(101,1476,99)="56848,51368" ^ORD(101,1477,0)="IBAMTV REV CANC CHARGE^Cancel Charge^^A^1^^^^^^^49" ^ORD(101,1477,20)="D CC^IBAMTV32" ^ORD(101,1477,99)="56848,51364" ^ORD(101,1478,0)="IBAMTV SEL PATIENT^Select Patient^^A^1^^^^^^^49" ^ORD(101,1478,20)="D SP^IBAMTV31" ^ORD(101,1478,99)="56848,51364" ^ORD(101,1479,0)="IBAMTV REV PATIENT^Review Patients^^M^1^^^^^^^49" ^ORD(101,1479,4)="26^4" ^ORD(101,1479,10,0)="^101.01PA^1^1" ^ORD(101,1479,10,1,0)="1478^SP" ^ORD(101,1479,10,"B",1478,1)="" ^ORD(101,1479,26)="D SHOW^VALM" ^ORD(101,1479,28)="Select Action: " ^ORD(101,1479,99)="56848,51368" ^ORD(101,1480,0)="IVMLS PURGE SSN^Purge Entry^^A^1^^^^^^^120" ^ORD(101,1480,1,0)="^^3^3^2940203^^^^" ^ORD(101,1480,1,1,0)=" " ^ORD(101,1480,1,2,0)="This protocol will be used by the IVM SSN Update utility to purge an entry" ^ORD(101,1480,1,3,0)="on the list if the user feels it is not appropriate." ^ORD(101,1480,2,0)="^101.02A^1^1" ^ORD(101,1480,2,1,0)="PU" ^ORD(101,1480,2,"B","PU",1)="" ^ORD(101,1480,20)="D PU^IVMLSU2" ^ORD(101,1480,99)="56848,51366" ^ORD(101,1481,0)="IVMLS UPLOAD SSN^Update SSN^^A^1^^^^^^^120" ^ORD(101,1481,1,0)="^^3^3^2940125^^^" ^ORD(101,1481,1,1,0)=" " ^ORD(101,1481,1,2,0)="This protocol may be used to upload an SSN from the list of suggested SSN" ^ORD(101,1481,1,3,0)="received back from the Social Security Administration (SSA)." ^ORD(101,1481,2,0)="^101.02A^1^1" ^ORD(101,1481,2,1,0)="UP" ^ORD(101,1481,2,"B","UP",1)="" ^ORD(101,1481,10,0)="^101.01PA^0^0" ^ORD(101,1481,20)="D UP^IVMLSU2" ^ORD(101,1481,99)="56848,51366" ^ORD(101,1482,0)="IVMLS SSN UPLOAD^Upload IVM Information^^M^1^^^^^^^120" ^ORD(101,1482,1,0)="^^3^3^2940126^" ^ORD(101,1482,1,1,0)=" " ^ORD(101,1482,1,2,0)="This menu contains all the activities allowed when updating IVM information" ^ORD(101,1482,1,3,0)="using the Upload IVM Data option." ^ORD(101,1482,4)="26^4" ^ORD(101,1482,10,0)="^101.01PA^2^2" ^ORD(101,1482,10,1,0)="1480^PU^2" ^ORD(101,1482,10,2,0)="1481^UP^1" ^ORD(101,1482,10,"B",1480,1)="" ^ORD(101,1482,10,"B",1481,2)="" ^ORD(101,1482,26)="D SHOW^VALM" ^ORD(101,1482,28)="Select Action: " ^ORD(101,1482,99)="56848,51366" ^ORD(101,1483,0)="IVMLI DISPLAY ENTRY^Display Entry^^A^1^^^^^^^120" ^ORD(101,1483,2,0)="^101.02A^2^2" ^ORD(101,1483,2,1,0)="EP" ^ORD(101,1483,2,2,0)="DE" ^ORD(101,1483,2,"B","DE",2)="" ^ORD(101,1483,2,"B","EP",1)="" ^ORD(101,1483,10,0)="^101.01PA^0^0" ^ORD(101,1483,20)="D DE^IVMLINS1" ^ORD(101,1483,99)="56848,51366" ^ORD(101,1484,0)="IVMLI INSURANCE UPLOAD^IVM Insurance Upload^^M^1^^^^^^^120" ^ORD(101,1484,4)="26^3" ^ORD(101,1484,10,0)="^101.01PA^2^2" ^ORD(101,1484,10,1,0)="1483^DE^1" ^ORD(101,1484,10,2,0)="1493^EH^21" ^ORD(101,1484,10,"B",1483,1)="" ^ORD(101,1484,10,"B",1493,2)="" ^ORD(101,1484,26)="D SHOW^VALM" ^ORD(101,1484,28)="Select Action: " ^ORD(101,1484,99)="56848,51366" ^ORD(101,1485,0)="IVMLD SELECT UPLOADABLE^Display Uploadable^^A^1^^^^^^^120" ^ORD(101,1485,4)="^3" ^ORD(101,1485,20)="D UD^IVMLDEM1" ^ORD(101,1485,99)="56848,51366" ^ORD(101,1486,0)="IVMLD DEMO UPLOAD^Upload IVM Demographic Information^^M^1^^^^^^^120" ^ORD(101,1486,4)="25^3" ^ORD(101,1486,10,0)="^101.01PA^3^3" ^ORD(101,1486,10,1,0)="1485^DU^1" ^ORD(101,1486,10,2,0)="1489^VN^21" ^ORD(101,1486,10,3,0)="1491^EH^31" ^ORD(101,1486,10,"B",1485,1)="" ^ORD(101,1486,10,"B",1489,2)="" ^ORD(101,1486,10,"B",1491,3)="" ^ORD(101,1486,26)="D SHOW^VALM" ^ORD(101,1486,28)="Select Action: " ^ORD(101,1486,99)="56848,51366" ^ORD(101,1487,0)="IVMLD UPLOADABLE DEMO^Uploadable Demographic Fields^^M^1^^^^^^^120" ^ORD(101,1487,4)="30^4" ^ORD(101,1487,10,0)="^101.01PA^2^2" ^ORD(101,1487,10,1,0)="1488^UF^1" ^ORD(101,1487,10,2,0)="1490^DF^21" ^ORD(101,1487,10,"B",1488,1)="" ^ORD(101,1487,10,"B",1490,2)="" ^ORD(101,1487,26)="D SHOW^VALM" ^ORD(101,1487,28)="Select Action: " ^ORD(101,1487,99)="56848,51366" ^ORD(101,1488,0)="IVMLD UPLOAD FIELDS^Upload Demographic Fields^^A^1^^^^^^^120" ^ORD(101,1488,4)="^2" ^ORD(101,1488,20)="D UF^IVMLDEM4" ^ORD(101,1488,99)="56848,51366" ^ORD(101,1489,0)="IVMLD SELECT NON-UPLOADABLE^View Non Uploadable^^A^1^^^^^^^120" ^ORD(101,1489,4)="^3" ^ORD(101,1489,20)="D ND^IVMLDEM1" ^ORD(101,1489,99)="56848,51366" ^ORD(101,1490,0)="IVMLD DELETE FIELDS^Delete Demographic Fields^^A^1^^^^^^^120" ^ORD(101,1490,4)="^2^^DF" ^ORD(101,1490,20)="D DF^IVMLDEM4" ^ORD(101,1490,28)="Select Action:" ^ORD(101,1490,99)="56848,51365" ^ORD(101,1491,0)="IVMLD SELECT HELP^Extended Help^^A^1^^^^^^^120" ^ORD(101,1491,4)="^3" ^ORD(101,1491,20)="D EN^IVMLDEM5" ^ORD(101,1491,99)="56848,51366" ^ORD(101,1492,0)="IVMLD NON-UPLOADABLE FIELDS^Non-uploadable Demographic Fields^^M^1^^^^^^^120" ^ORD(101,1492,4)="30^4" ^ORD(101,1492,10,0)="^101.01PA^1^1" ^ORD(101,1492,10,1,0)="1490^DF^1" ^ORD(101,1492,10,"B",1490,1)="" ^ORD(101,1492,26)="D SHOW^VALM" ^ORD(101,1492,28)="Select Action: " ^ORD(101,1492,99)="56848,51366" ^ORD(101,1493,0)="IVMLI SELECT HELP^Extended Help^^A^1^^^^^^^120" ^ORD(101,1493,4)="^3" ^ORD(101,1493,20)="D EXHLP^IVMLINS5" ^ORD(101,1493,99)="56848,51366" ^ORD(101,1494,0)="SCDX AMBCARE EVENT^AMBCARE EVENT HANDLER^^A^1^^^^^^^48" ^ORD(101,1494,1,0)="^^4^4^2960711^^^^" ^ORD(101,1494,1,1,0)="This is the ambcare event handler that will hang off of the Scheduling" ^ORD(101,1494,1,2,0)="event driver. It will monitor the events that are happening and populate" ^ORD(101,1494,1,3,0)="the necessary Ambcare files in the case of new encounters, edits or deletes" ^ORD(101,1494,1,4,0)="to existing encounters." ^ORD(101,1494,15)="" ^ORD(101,1494,20)="D EN^SCDXHLDR" ^ORD(101,1494,99)="56878,81497" ^ORD(101,1495,0)="SCDX AMBCARE SEND SERVER FOR ADT-Z00^AMBCARE SERVER FOR SENDING ADT-Z00 TO NPCDB^^E^1^^^^^^^48" ^ORD(101,1495,1,0)="^^4^4^2960805^^^^" ^ORD(101,1495,1,1,0)="HL7 server protocol for the sending of batch ADT-Z00 messages by the" ^ORD(101,1495,1,2,0)="Ambulatory Care Reporting Project. These batch messages will contain" ^ORD(101,1495,1,3,0)="ADT-A08 & ADT-A23 messages as required and used by the National Patient" ^ORD(101,1495,1,4,0)="Care Databse." ^ORD(101,1495,10,0)="^101.01PA^1^1" ^ORD(101,1495,10,1,0)="1496^^^" ^ORD(101,1495,10,"B",1496,1)="" ^ORD(101,1495,99)="56878,81497" ^ORD(101,1495,770)="AMBCARE-DHCP^^ADT^Z00^^P^^NE^AL^2.2^ADT" ^ORD(101,1495,772)="D ACKZ00^SCDXACK" ^ORD(101,1495,775,0)="^101.0775PA^1^1" ^ORD(101,1495,775,1,0)="1496^^^" ^ORD(101,1495,775,"B",1496,1)="" ^ORD(101,1496,0)="SCDX AMBCARE SEND CLIENT FOR ADT-Z00^AMBCARE CLIENT FOR SENDING ADT-Z00 TO NPCDB^^S^1^^^^^^^48" ^ORD(101,1496,1,0)="^^4^4^2960805^^^^" ^ORD(101,1496,1,1,0)="HL7 client protocol for the sending of batch ADT-Z00 messages by the" ^ORD(101,1496,1,2,0)="Ambulatory Care Reporting Project. These batch messages will contain" ^ORD(101,1496,1,3,0)="ADT-A08 & ADT-A23 messages as required and used by the National Patient" ^ORD(101,1496,1,4,0)="Care Databse." ^ORD(101,1496,99)="56878,81497" ^ORD(101,1496,770)="^NPCD-AAC^ADT^Z00^^P^AMB-CARE^^^2.2^ADT" ^ORD(101,1496,771)="Q" ^ORD(101,1496,773)="1^1^0^1" ^ORD(101,1497,0)="GMPL HIDDEN MENU^Problem List Hidden Actions^^M^1^^^^^^^135" ^ORD(101,1497,1,0)="^^3^3^2930811^" ^ORD(101,1497,1,1,0)="This menu contains the List Manager functions relevant to the operation" ^ORD(101,1497,1,2,0)="of the Problem List application; it is accessible from any ""Select Action""" ^ORD(101,1497,1,3,0)="prompt by entering ""??""." ^ORD(101,1497,4)="26" ^ORD(101,1497,10,0)="^101.01PA^15^15" ^ORD(101,1497,10,1,0)="457^^34" ^ORD(101,1497,10,2,0)="458^^35" ^ORD(101,1497,10,3,0)="448^DN^14" ^ORD(101,1497,10,4,0)="446^FS^21" ^ORD(101,1497,10,5,0)="466^GO^15" ^ORD(101,1497,10,6,0)="445^LS^22" ^ORD(101,1497,10,7,0)="442^+^11" ^ORD(101,1497,10,8,0)="443^-^12" ^ORD(101,1497,10,9,0)="452^PL^25" ^ORD(101,1497,10,10,0)="451^PS^24" ^ORD(101,1497,10,11,0)="450^Q^33" ^ORD(101,1497,10,12,0)="444^RD^23" ^ORD(101,1497,10,13,0)="456^SL^31" ^ORD(101,1497,10,14,0)="454^ADPL^32" ^ORD(101,1497,10,15,0)="447^UP^13" ^ORD(101,1497,10,"B",442,7)="" ^ORD(101,1497,10,"B",443,8)="" ^ORD(101,1497,10,"B",444,12)="" ^ORD(101,1497,10,"B",445,6)="" ^ORD(101,1497,10,"B",446,4)="" ^ORD(101,1497,10,"B",447,15)="" ^ORD(101,1497,10,"B",448,3)="" ^ORD(101,1497,10,"B",450,11)="" ^ORD(101,1497,10,"B",451,10)="" ^ORD(101,1497,10,"B",452,9)="" ^ORD(101,1497,10,"B",454,14)="" ^ORD(101,1497,10,"B",456,13)="" ^ORD(101,1497,10,"B",457,1)="" ^ORD(101,1497,10,"B",458,2)="" ^ORD(101,1497,10,"B",466,5)="" ^ORD(101,1497,99)="61199,28361" ^ORD(101,1498,0)="GMPL PROBLEM LIST^Problem List^^M^1^^^^^^^135" ^ORD(101,1498,1,0)="^^7^7^2930811^^^^" ^ORD(101,1498,1,1,0)="This menu uses the List Manager utility to display a patient's problem" ^ORD(101,1498,1,2,0)="list with data relevant to the needs of a clinician. Various actions" ^ORD(101,1498,1,3,0)="may be taken here such as adding, removing, editing, inactivating, and" ^ORD(101,1498,1,4,0)="appending comments; the user may also see a detailed display of selected" ^ORD(101,1498,1,5,0)="problem(s) or change which problems appear on the displayed view of the" ^ORD(101,1498,1,6,0)="list. A new patient's list may be selected or a printout of the list" ^ORD(101,1498,1,7,0)="generated." ^ORD(101,1498,4)="26^4" ^ORD(101,1498,10,0)="^101.01PA^12^12" ^ORD(101,1498,10,1,0)="1511^SP^23^^^" ^ORD(101,1498,10,2,0)="1507^AD^1" ^ORD(101,1498,10,3,0)="1509^CM^13^^^" ^ORD(101,1498,10,3,1)="^^^" ^ORD(101,1498,10,4,0)="1513^IN^11" ^ORD(101,1498,10,5,0)="1510^DT^15" ^ORD(101,1498,10,6,0)="1516^ED^5" ^ORD(101,1498,10,7,0)="1517^RM^3" ^ORD(101,1498,10,8,0)="1571^VW^21" ^ORD(101,1498,10,9,0)="1514^^7" ^ORD(101,1498,10,10,0)="1512^PP^25" ^ORD(101,1498,10,11,0)="1532^$^17^^^" ^ORD(101,1498,10,12,0)="450^Q^27" ^ORD(101,1498,10,"B",450,12)="" ^ORD(101,1498,10,"B",1507,2)="" ^ORD(101,1498,10,"B",1509,3)="" ^ORD(101,1498,10,"B",1510,5)="" ^ORD(101,1498,10,"B",1511,1)="" ^ORD(101,1498,10,"B",1512,10)="" ^ORD(101,1498,10,"B",1513,4)="" ^ORD(101,1498,10,"B",1514,9)="" ^ORD(101,1498,10,"B",1516,6)="" ^ORD(101,1498,10,"B",1517,7)="" ^ORD(101,1498,10,"B",1532,11)="" ^ORD(101,1498,10,"B",1571,8)="" ^ORD(101,1498,20)="" ^ORD(101,1498,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1498,25,0)="2494" ^ORD(101,1498,25,2)="CF" ^ORD(101,1498,26)="D KEYS^GMPLMGR1,SHOW^VALM S:'$G(GMPCOUNT) XQORM(""B"")=""Add New Problems""" ^ORD(101,1498,28)="Select Action: " ^ORD(101,1498,99)="61199,28361" ^ORD(101,1498,"B",2494,25)="" ^ORD(101,1499,0)="GMPL DATA ENTRY^Problem List Data Entry^^M^1^^^^^^^135" ^ORD(101,1499,1,0)="^^4^4^2930811^^" ^ORD(101,1499,1,1,0)="This menu uses the List Manager utility to display a patient's problem" ^ORD(101,1499,1,2,0)="list with data relevant to the needs of a clinic or billing clerk." ^ORD(101,1499,1,3,0)="Various actions may be taken here such as adding, removing, editing," ^ORD(101,1499,1,4,0)="and printing problems." ^ORD(101,1499,4)="26^4" ^ORD(101,1499,10,0)="^101.01PA^11^11" ^ORD(101,1499,10,1,0)="1507^AD^1" ^ORD(101,1499,10,2,0)="1516^ED^5" ^ORD(101,1499,10,3,0)="1514^^7" ^ORD(101,1499,10,4,0)="1517^RM^3" ^ORD(101,1499,10,5,0)="1534^PP^23" ^ORD(101,1499,10,6,0)="1513^IN^11" ^ORD(101,1499,10,7,0)="1509^CM^13^^^" ^ORD(101,1499,10,8,0)="1511^SP^21" ^ORD(101,1499,10,9,0)="1515^^17" ^ORD(101,1499,10,10,0)="1567^VW^15" ^ORD(101,1499,10,11,0)="450^Q^25" ^ORD(101,1499,10,"B",450,11)="" ^ORD(101,1499,10,"B",1507,1)="" ^ORD(101,1499,10,"B",1509,7)="" ^ORD(101,1499,10,"B",1511,8)="" ^ORD(101,1499,10,"B",1513,6)="" ^ORD(101,1499,10,"B",1514,3)="" ^ORD(101,1499,10,"B",1515,9)="" ^ORD(101,1499,10,"B",1516,2)="" ^ORD(101,1499,10,"B",1517,4)="" ^ORD(101,1499,10,"B",1534,5)="" ^ORD(101,1499,10,"B",1567,10)="" ^ORD(101,1499,20)="" ^ORD(101,1499,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1499,26)="D KEY^GMPLMGR1,SHOW^VALM" ^ORD(101,1499,28)="Select Action: " ^ORD(101,1499,99)="61199,28361" ^ORD(101,1500,0)="GMPL DT MENU^Detailed Display^^M^1^^^^^^^135" ^ORD(101,1500,1,0)="^^4^4^2930908^^" ^ORD(101,1500,1,1,0)="This menu contains actions available for navigating the problems" ^ORD(101,1500,1,2,0)="selected to review in the ""Detailed Display"" action. The user may" ^ORD(101,1500,1,3,0)="go on to the next selected problem when finished reviewing, or exit" ^ORD(101,1500,1,4,0)="and return to the problem list." ^ORD(101,1500,4)="40^4" ^ORD(101,1500,10,0)="^101.01PA^3^3" ^ORD(101,1500,10,1,0)="1514^^2^^^" ^ORD(101,1500,10,2,0)="1533^NP^1" ^ORD(101,1500,10,3,0)="450^Q^3^^^Quit to Problem List" ^ORD(101,1500,10,"B",450,3)="" ^ORD(101,1500,10,"B",1514,1)="" ^ORD(101,1500,10,"B",1533,2)="" ^ORD(101,1500,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),U),24)) ^(24)" ^ORD(101,1500,26)="D KEY^GMPLMGR1,SHOW^VALM S:XQORM(""B"")=""Quit"" XQORM(""B"")=$$DEFLT^GMPLDISP" ^ORD(101,1500,28)="Select Action: " ^ORD(101,1500,99)="61199,28361" ^ORD(101,1501,0)="GMPL EDIT MENU^Edit Problem Values^^M^1^^^^^^^135" ^ORD(101,1501,1,0)="^^3^3^2930811^^^^" ^ORD(101,1501,1,1,0)="This protocol is for use with the List Manager utility, to display" ^ORD(101,1501,1,2,0)="the current editable values of the selected problem entry in a list" ^ORD(101,1501,1,3,0)="format for editing." ^ORD(101,1501,4)="40^4" ^ORD(101,1501,10,0)="^101.01PA^5^5" ^ORD(101,1501,10,1,0)="1520^RM^11" ^ORD(101,1501,10,2,0)="1519^SC^13" ^ORD(101,1501,10,3,0)="1531^CM^1^^^Additional Comments" ^ORD(101,1501,10,4,0)="1515^^5" ^ORD(101,1501,10,5,0)="450^Q^3^^^Quit w/o Saving Changes" ^ORD(101,1501,10,"B",450,5)="" ^ORD(101,1501,10,"B",1515,4)="" ^ORD(101,1501,10,"B",1519,2)="" ^ORD(101,1501,10,"B",1520,1)="" ^ORD(101,1501,10,"B",1531,3)="" ^ORD(101,1501,20)="" ^ORD(101,1501,24)="" ^ORD(101,1501,26)="D INIT^GMPLEDIT:$G(GMPREBLD),KEYS^GMPLEDT3,SHOW^VALM S:XQORM(""B"")=""Quit""&$$EDITED^GMPLEDT2 XQORM(""B"")=""Save Changes and Exit""" ^ORD(101,1501,27)="" ^ORD(101,1501,28)="Select Item(s): " ^ORD(101,1501,99)="61199,28361" ^ORD(101,1502,0)="GMPL USER PREFS^Preferred View of Problem List^^M^1^^^^^^^135" ^ORD(101,1502,1,0)="^^6^6^2930811^^" ^ORD(101,1502,1,1,0)="This menu contains actions allowing a user to change his/her preferred" ^ORD(101,1502,1,2,0)="view of patient problem lists. A set of services may be defined here" ^ORD(101,1502,1,3,0)="that will be used as a default screen when displaying patient problem" ^ORD(101,1502,1,4,0)="lists for this user; the view may be changed dynamically within the" ^ORD(101,1502,1,5,0)="Problem List application through the ""Change View"" action, but" ^ORD(101,1502,1,6,0)="it will not be stored as a new default unless updated here." ^ORD(101,1502,4)="40^4" ^ORD(101,1502,10,0)="^101.01PA^7^7" ^ORD(101,1502,10,1,0)="1563^AD^1" ^ORD(101,1502,10,2,0)="1564^RM^2" ^ORD(101,1502,10,3,0)="1565^SV^13" ^ORD(101,1502,10,4,0)="1514^^4" ^ORD(101,1502,10,5,0)="1572^VW^3" ^ORD(101,1502,10,6,0)="1574^DV^11" ^ORD(101,1502,10,7,0)="450^Q^15^^^Quit w/o Saving Changes" ^ORD(101,1502,10,"B",450,7)="" ^ORD(101,1502,10,"B",1514,4)="" ^ORD(101,1502,10,"B",1563,1)="" ^ORD(101,1502,10,"B",1564,2)="" ^ORD(101,1502,10,"B",1565,3)="" ^ORD(101,1502,10,"B",1572,5)="" ^ORD(101,1502,10,"B",1574,6)="" ^ORD(101,1502,26)="D KEY^GMPLMGR1,SHOW^VALM" ^ORD(101,1502,28)="Select Action: " ^ORD(101,1502,99)="61199,28361" ^ORD(101,1503,0)="GMPL LIST MENU^List Commonly Seen Problems^^M^1^^^^^^^135" ^ORD(101,1503,1,0)="^^3^3^2931213^^^" ^ORD(101,1503,1,1,0)="This protocol is for use with the List Manager utility, to display" ^ORD(101,1503,1,2,0)="the user's preferred list of commonly seen problems to facilitate" ^ORD(101,1503,1,3,0)="selection and addition to the patient's problem list." ^ORD(101,1503,4)="40^4" ^ORD(101,1503,10,0)="^101.01PA^3^3" ^ORD(101,1503,10,1,0)="1514^^3" ^ORD(101,1503,10,2,0)="1549^AD^1" ^ORD(101,1503,10,3,0)="450^Q^11^^^Quit to Problem List" ^ORD(101,1503,10,"B",450,3)="" ^ORD(101,1503,10,"B",1514,1)="" ^ORD(101,1503,10,"B",1549,2)="" ^ORD(101,1503,24)="" ^ORD(101,1503,26)="W:$D(GMPLGRP) !!,""Rebuilding menu ..."" D BUILD^GMPLMENU:$D(GMPLGRP),KEYS^GMPLMENU,SHOW^VALM S:XQORM(""B"")=""Quit"" XQORM(""B"")=""Quit to Problem List"" K GMPLGRP" ^ORD(101,1503,28)="Select Item(s): " ^ORD(101,1503,99)="61199,28361" ^ORD(101,1504,0)="GMPL MENU BUILD LIST^Build Problem Selection List^^M^1^^^^^^^135" ^ORD(101,1504,1,0)="^^4^4^2931213^^^^" ^ORD(101,1504,1,1,0)="This menu allows the creation of lists of problems, to facilitate" ^ORD(101,1504,1,2,0)="selecting a new problem to add to a patient's problem list." ^ORD(101,1504,1,3,0)="Problems are added or removed in categories, which may also be ordered" ^ORD(101,1504,1,4,0)="or titled for clarity." ^ORD(101,1504,4)="26^4" ^ORD(101,1504,10,0)="^101.01PA^12^12" ^ORD(101,1504,10,1,0)="1541^AD^1^^^" ^ORD(101,1504,10,2,0)="1542^CD^13" ^ORD(101,1504,10,3,0)="1543^RM^3^^^Remove Category" ^ORD(101,1504,10,4,0)="1546^SQ^11" ^ORD(101,1504,10,5,0)="1545^VW^21^^^" ^ORD(101,1504,10,6,0)="1547^SV^25" ^ORD(101,1504,10,7,0)="1544^CL^23" ^ORD(101,1504,10,8,0)="1514^^7" ^ORD(101,1504,10,9,0)="1515^^17" ^ORD(101,1504,10,10,0)="1551^EC^5^^^" ^ORD(101,1504,10,11,0)="1566^SS^15" ^ORD(101,1504,10,12,0)="450^Q^27" ^ORD(101,1504,10,"B",450,12)="" ^ORD(101,1504,10,"B",1514,8)="" ^ORD(101,1504,10,"B",1515,9)="" ^ORD(101,1504,10,"B",1541,1)="" ^ORD(101,1504,10,"B",1542,2)="" ^ORD(101,1504,10,"B",1543,3)="" ^ORD(101,1504,10,"B",1544,7)="" ^ORD(101,1504,10,"B",1545,5)="" ^ORD(101,1504,10,"B",1546,4)="" ^ORD(101,1504,10,"B",1547,6)="" ^ORD(101,1504,10,"B",1551,10)="" ^ORD(101,1504,10,"B",1566,11)="" ^ORD(101,1504,26)="D KEY^GMPLMGR1,SHOW^VALM" ^ORD(101,1504,28)="Select Action: " ^ORD(101,1504,99)="61199,28361" ^ORD(101,1505,0)="GMPL MENU BUILD GROUP^Build Problem Categories^^M^1^^^^^^^135" ^ORD(101,1505,1,0)="^^4^4^2931213^^" ^ORD(101,1505,1,1,0)="This menu allows the creation of categories of problems, to facilitate" ^ORD(101,1505,1,2,0)="selecting a new problem to add to a patient's problem list. Categories" ^ORD(101,1505,1,3,0)="may then be linked together to form lists, in which they may be ordered" ^ORD(101,1505,1,4,0)="and titled. Categories may be reused in multiple lists, as well." ^ORD(101,1505,4)="26^4" ^ORD(101,1505,10,0)="^101.01PA^11^11" ^ORD(101,1505,10,1,0)="1554^AD^1^^^Add Problems" ^ORD(101,1505,10,2,0)="1555^RM^3^^^Remove a Problem" ^ORD(101,1505,10,3,0)="1556^SQ^11" ^ORD(101,1505,10,4,0)="1557^ED^5" ^ORD(101,1505,10,5,0)="1514^^7" ^ORD(101,1505,10,6,0)="1552^SV^21" ^ORD(101,1505,10,7,0)="1550^DL^13" ^ORD(101,1505,10,8,0)="1553^CC^23" ^ORD(101,1505,10,9,0)="1558^VW^15" ^ORD(101,1505,10,10,0)="1515^^17" ^ORD(101,1505,10,11,0)="450^Q^25" ^ORD(101,1505,10,"B",450,11)="" ^ORD(101,1505,10,"B",1514,5)="" ^ORD(101,1505,10,"B",1515,10)="" ^ORD(101,1505,10,"B",1550,7)="" ^ORD(101,1505,10,"B",1552,6)="" ^ORD(101,1505,10,"B",1553,8)="" ^ORD(101,1505,10,"B",1554,1)="" ^ORD(101,1505,10,"B",1555,2)="" ^ORD(101,1505,10,"B",1556,3)="" ^ORD(101,1505,10,"B",1557,4)="" ^ORD(101,1505,10,"B",1558,9)="" ^ORD(101,1505,26)="D KEY^GMPLMGR1,SHOW^VALM" ^ORD(101,1505,99)="61199,28361" ^ORD(101,1506,0)="GMPL CODE LIST^Problem List ICD Codes^^M^1^^^^^^^135" ^ORD(101,1506,1,0)="^^4^4^2931105^" ^ORD(101,1506,1,1,0)="This menu uses the List Manager utility to display all of a patient's" ^ORD(101,1506,1,2,0)="problems with data relevant to a billing clerk/coder. Only the ICD code" ^ORD(101,1506,1,3,0)="may be edited, but a detailed display of all information stored about" ^ORD(101,1506,1,4,0)="a problem is available to facilitate the assignment of a code." ^ORD(101,1506,4)="40^4" ^ORD(101,1506,10,0)="^101.01PA^6^6" ^ORD(101,1506,10,1,0)="1510^DT^1" ^ORD(101,1506,10,2,0)="1511^SP^11" ^ORD(101,1506,10,3,0)="1514^^5" ^ORD(101,1506,10,4,0)="1559^CD^3" ^ORD(101,1506,10,5,0)="1515^^15" ^ORD(101,1506,10,6,0)="450^Q^13" ^ORD(101,1506,10,"B",450,6)="" ^ORD(101,1506,10,"B",1510,1)="" ^ORD(101,1506,10,"B",1511,2)="" ^ORD(101,1506,10,"B",1514,3)="" ^ORD(101,1506,10,"B",1515,5)="" ^ORD(101,1506,10,"B",1559,4)="" ^ORD(101,1506,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1506,26)="D KEY^GMPLMGR1,SHOW^VALM" ^ORD(101,1506,28)="Select Action: " ^ORD(101,1506,99)="61199,28361" ^ORD(101,1507,0)="GMPL NEW PROBLEM^Add New Problems^^A^1^^^^^^^" ^ORD(101,1507,1,0)="^^3^3^2930908^^^^" ^ORD(101,1507,1,1,0)="This action will allow the addition of a new entry to a patient's problem" ^ORD(101,1507,1,2,0)="list. The user will be asked to select a term from the Clinical Lexicon" ^ORD(101,1507,1,3,0)="Utility describing the problem, and to enter other relevant information." ^ORD(101,1507,20)="D ADD^GMPL" ^ORD(101,1507,99)="56880,60287" ^ORD(101,1508,0)="GMPL EDIT REFORMULATE^Reformulate Problem Description^^A^1^^^^^^^" ^ORD(101,1508,1,0)="^^6^6^2930811^^^^" ^ORD(101,1508,1,1,0)="This action allows limited reformulation of the current problem." ^ORD(101,1508,1,2,0)="If new problem text is entered, the narrative is passed to the" ^ORD(101,1508,1,3,0)="Clinical Lexicon Utility to find a match; both the user's narrative" ^ORD(101,1508,1,4,0)="and the new Clinical term will be stored, as with a new problem entry." ^ORD(101,1508,1,5,0)="If the new problem selected from the CLU is already an entry on" ^ORD(101,1508,1,6,0)="the patient's list, the user will be alerted." ^ORD(101,1508,15)="D CK^GMPLEDT3" ^ORD(101,1508,20)="D TERM^GMPLEDT1" ^ORD(101,1508,99)="56880,60284" ^ORD(101,1509,0)="GMPL ANNOTATE^Comment on a Problem^^A^1^^^^^^^" ^ORD(101,1509,1,0)="^^2^2^2940517^^^" ^ORD(101,1509,1,1,0)="This action will append a brief comment(s) to a problem entry, up to" ^ORD(101,1509,1,2,0)="60 characters in length." ^ORD(101,1509,20)="D NOTES^GMPL" ^ORD(101,1509,24)="I +$G(GMPCOUNT)>0" ^ORD(101,1509,99)="56880,60282" ^ORD(101,1510,0)="GMPL DETAILED DISPLAY^Detailed Display^^A^1^^^^^^^135" ^ORD(101,1510,1,0)="^^4^4^2930811^^^^" ^ORD(101,1510,1,1,0)="This action will present an expanded display of each problem selected" ^ORD(101,1510,1,2,0)="from the patient's problem list. All available information will be" ^ORD(101,1510,1,3,0)="shown, including comments by all authors and an audit trail of changes" ^ORD(101,1510,1,4,0)="made to the problem." ^ORD(101,1510,20)="D EXPAND^GMPL" ^ORD(101,1510,24)="I +$G(GMPCOUNT)>0" ^ORD(101,1510,99)="56880,60283" ^ORD(101,1511,0)="GMPL PATIENT^Select New Patient^^A^1^^^^^^^" ^ORD(101,1511,1,0)="^^2^2^2930811^^^^" ^ORD(101,1511,1,1,0)="This allows selection of a new patient from within the Problem List" ^ORD(101,1511,1,2,0)="application; a new list will be generated and displayed for review." ^ORD(101,1511,20)="D NEWPAT^GMPLMGR1" ^ORD(101,1511,99)="56880,60287" ^ORD(101,1512,0)="GMPL PRINT^Print Problem List^^A^1^^^^^^^135" ^ORD(101,1512,1,0)="^^3^3^2940119^^^^" ^ORD(101,1512,1,1,0)="This action allows printing a copy of the problem list, either the" ^ORD(101,1512,1,2,0)="currently displayed view (which may be abbreviated) or the complete" ^ORD(101,1512,1,3,0)="list in chartable format." ^ORD(101,1512,20)="D EN^GMPLPRNT" ^ORD(101,1512,99)="56880,60287" ^ORD(101,1513,0)="GMPL INACTIVATE^Inactivate Problems^^A^1^^^^^^^" ^ORD(101,1513,1,0)="^^1^1^2930811^^^^" ^ORD(101,1513,1,1,0)="This action allows a problem to be inactivated." ^ORD(101,1513,20)="D STATUS^GMPL" ^ORD(101,1513,24)="I +$G(GMPCOUNT)>0,$G(GMPLVIEW(""ACT""))'=""I""" ^ORD(101,1513,99)="56880,60284" ^ORD(101,1514,0)="GMPLX BLANK1^ ^^A^1^^^^^^^" ^ORD(101,1514,1,0)="^^1^1^2930811^^^^" ^ORD(101,1514,1,1,0)="Blank placeholder for menu actions." ^ORD(101,1514,20)="Q" ^ORD(101,1514,99)="56880,60291" ^ORD(101,1515,0)="GMPLX BLANK2^ ^^A^1^^^^^^^" ^ORD(101,1515,1,0)="^^1^1^2931001^^^^" ^ORD(101,1515,1,1,0)="Blank placeholder for menu actions." ^ORD(101,1515,20)="Q" ^ORD(101,1515,99)="56880,60291" ^ORD(101,1516,0)="GMPL EDIT PROBLEM^Edit a Problem^^A^1^^^^^^^135" ^ORD(101,1516,1,0)="^^4^4^2930811^^^^" ^ORD(101,1516,1,1,0)="This option allows editing of select fields of a problem entry;" ^ORD(101,1516,1,2,0)="all changes made to a patient's problem are recorded in the" ^ORD(101,1516,1,3,0)="Problem Audit file. A problem is selected, and control is" ^ORD(101,1516,1,4,0)="transferred to the List Manager and GMPL EDIT MENU protocol." ^ORD(101,1516,20)="D EDIT^GMPL" ^ORD(101,1516,24)="I +$G(GMPCOUNT)>0" ^ORD(101,1516,99)="56880,60284" ^ORD(101,1517,0)="GMPL DELETE^Remove Problems^^A^1^^^^^^^135" ^ORD(101,1517,1,0)="^^3^3^2930811^^" ^ORD(101,1517,1,1,0)="This action will remove an entry from a patient's problem list;" ^ORD(101,1517,1,2,0)="the problem is not physically deleted from the file, but flagged" ^ORD(101,1517,1,3,0)="as ""removed"" and, except for historical purposes, generally ignored." ^ORD(101,1517,20)="D DELETE^GMPL" ^ORD(101,1517,24)="I +$G(GMPCOUNT)>0" ^ORD(101,1517,99)="56880,60283" ^ORD(101,1518,0)="GMPL EDIT PROVIDER^Primary Provider^^A^1^^^^^^^135" ^ORD(101,1518,1,0)="^^2^2^2930811^" ^ORD(101,1518,1,1,0)="This action allows the entry/editing of the primary provider of care" ^ORD(101,1518,1,2,0)="for this problem." ^ORD(101,1518,15)="D CK^GMPLEDT3" ^ORD(101,1518,20)="D PROV^GMPLEDT1" ^ORD(101,1518,99)="56880,60284" ^ORD(101,1519,0)="GMPL EDIT SAVE^Save Changes and Exit^^A^1^^^^^^^135" ^ORD(101,1519,1,0)="^^4^4^2930908^^" ^ORD(101,1519,1,1,0)="This action allows the user to save any changes made to the current" ^ORD(101,1519,1,2,0)="problem, and return to the entire problem list. If this action is" ^ORD(101,1519,1,3,0)="not selected and the problem has been changed, the user will be asked" ^ORD(101,1519,1,4,0)="when exiting if s/he wishes to save the changes." ^ORD(101,1519,15)="S VALMBCK=""Q""" ^ORD(101,1519,20)="W !!,""Saving ..."" D EN^GMPLSAVE W "" done.""" ^ORD(101,1519,99)="56880,60284" ^ORD(101,1520,0)="GMPL EDIT REMOVE^Remove Problem from List^^A^1^^^^^^^135" ^ORD(101,1520,1,0)="^^4^4^2930811^^" ^ORD(101,1520,1,1,0)="This action will remove the current entry from the patient's list;" ^ORD(101,1520,1,2,0)="the problem is not physically deleted from the file, but flagged" ^ORD(101,1520,1,3,0)="as ""removed"" and, except for historical purposes, generally ignored." ^ORD(101,1520,1,4,0)="The user is then returned to the entire problem list." ^ORD(101,1520,20)="D DELETE^GMPLEDT2" ^ORD(101,1520,99)="56880,60284" ^ORD(101,1521,0)="GMPL EDIT NOTES^Edit Existing Note(s)^^A^1^^^^^^^135" ^ORD(101,1521,1,0)="^^5^5^2930908^^^" ^ORD(101,1521,1,1,0)="This action will allow editing of comments that have previously been" ^ORD(101,1521,1,2,0)="appended to a problem entry. Notes will be displayed for editing" ^ORD(101,1521,1,3,0)="only if the current user is the author of the note; accessing this" ^ORD(101,1521,1,4,0)="action through the Manager's Menu will set a flag allowing all notes" ^ORD(101,1521,1,5,0)="for the current problem to be displayed and edited." ^ORD(101,1521,2,0)="^101.02A^^0" ^ORD(101,1521,15)="D CK^GMPLEDT3" ^ORD(101,1521,20)="D NTES^GMPLEDT4" ^ORD(101,1521,24)="" ^ORD(101,1521,99)="56880,60284" ^ORD(101,1522,0)="GMPL EDIT STATUS^Status^^A^1^^^^^^^135" ^ORD(101,1522,1,0)="^^2^2^2930908^" ^ORD(101,1522,1,1,0)="This action allows editing the status assigned to a problem; if the" ^ORD(101,1522,1,2,0)="problem is inactivated, the user will be asked for Date Resolved also." ^ORD(101,1522,2,0)="^101.02A^^0" ^ORD(101,1522,15)="D CK^GMPLEDT3" ^ORD(101,1522,20)="D STATUS^GMPLEDT1" ^ORD(101,1522,99)="56880,60284" ^ORD(101,1523,0)="GMPL EDIT ONSET^Onset^^A^1^^^^^^^135" ^ORD(101,1523,1,0)="^^1^1^2931126^^" ^ORD(101,1523,1,1,0)="This action allows the entry/editing of the date of onset of a problem." ^ORD(101,1523,2,0)="^101.02A^^0" ^ORD(101,1523,15)="D CK^GMPLEDT3" ^ORD(101,1523,20)="D ONSET^GMPLEDT1" ^ORD(101,1523,99)="56880,60284" ^ORD(101,1524,0)="GMPL EDIT SC^Service Connection^^A^1^^^^^^^135" ^ORD(101,1524,1,0)="^^5^5^2930811^^^" ^ORD(101,1524,1,1,0)="This action allows editing the service connection status of the current" ^ORD(101,1524,1,2,0)="problem; if the service connection of this problem was previously" ^ORD(101,1524,1,3,0)="unknown, it may be entered here. Data will only be asked for if the" ^ORD(101,1524,1,4,0)="patient has service connection indicated in the Patient file. MCCR" ^ORD(101,1524,1,5,0)="will be using this data for billing purposes." ^ORD(101,1524,2,0)="^101.02A^^0" ^ORD(101,1524,15)="D CK^GMPLEDT3" ^ORD(101,1524,20)="D SC^GMPLEDT1 I 'GMPSC W !!,""This patient has no service-connection on file."",! H 2" ^ORD(101,1524,99)="56880,60284" ^ORD(101,1525,0)="GMPL VIEW ACTIVE^Active only^^A^1^^^^^^^135" ^ORD(101,1525,1,0)="^^2^2^2930811^^^^" ^ORD(101,1525,1,1,0)="This action will screen the problems from the current patient's list" ^ORD(101,1525,1,2,0)="for only those that are currently active." ^ORD(101,1525,20)="S:GMPLVIEW(""ACT"")'=""A"" GMPREBLD=1,GMPLVIEW(""ACT"")=""A""" ^ORD(101,1525,99)="56880,60289" ^ORD(101,1526,0)="GMPL VIEW SERVICE^Selected Service(s)^^A^1^^^^^^^135" ^ORD(101,1526,1,0)="^^2^2^2930811^^" ^ORD(101,1526,1,1,0)="This action will screen the problems from the current patient's list" ^ORD(101,1526,1,2,0)="for only those associated with the selected service(s) for care." ^ORD(101,1526,20)="D NEWSRV^GMPLMGR1" ^ORD(101,1526,24)="" ^ORD(101,1526,99)="56880,60291" ^ORD(101,1527,0)="GMPL VIEW PROVIDER^Selected Provider^^A^1^^^^^^^135" ^ORD(101,1527,1,0)="^^2^2^2930811^^" ^ORD(101,1527,1,1,0)="This action will screen the problems from the current patient's list" ^ORD(101,1527,1,2,0)="for only those listed as being treated by the selected provider." ^ORD(101,1527,20)="D NEWPROV^GMPLMGR1" ^ORD(101,1527,99)="56880,60291" ^ORD(101,1528,0)="GMPL VIEW INACTIVE^Inactive only^^A^1^^^^^^^135" ^ORD(101,1528,1,0)="^^2^2^2930811^^" ^ORD(101,1528,1,1,0)="This action will screen the problems from the current patient's list" ^ORD(101,1528,1,2,0)="for only those that are currently inactive." ^ORD(101,1528,20)="S:GMPLVIEW(""ACT"")'=""I"" GMPREBLD=1,GMPLVIEW(""ACT"")=""I""" ^ORD(101,1528,99)="56880,60289" ^ORD(101,1529,0)="GMPL VIEW BOTH^Active & Inactive^^A^1^^^^^^^135" ^ORD(101,1529,1,0)="^^2^2^2930811^^" ^ORD(101,1529,1,1,0)="This action will remove any current screen on problem status and include" ^ORD(101,1529,1,2,0)="problems that are both active and inactive on the display." ^ORD(101,1529,20)="S:GMPLVIEW(""ACT"")'="""" GMPREBLD=1,GMPLVIEW(""ACT"")=""""" ^ORD(101,1529,99)="56880,60289" ^ORD(101,1530,0)="GMPL EDIT SERVICE^Service or Clinic^^A^1^^^^^^^135" ^ORD(101,1530,1,0)="^^3^3^2930908^^" ^ORD(101,1530,1,1,0)="This action allows the entry/editing of the service primarily responsible" ^ORD(101,1530,1,2,0)="for the care of this problem. This data will be used for screening and" ^ORD(101,1530,1,3,0)="grouping the problems displayed in the user's selected view of the list." ^ORD(101,1530,15)="D CK^GMPLEDT3" ^ORD(101,1530,20)="D SOURCE^GMPLEDT1" ^ORD(101,1530,99)="56880,60284" ^ORD(101,1531,0)="GMPL EDIT NEW NOTE^Append a new note to problem^^A^1^^^^^^^135" ^ORD(101,1531,1,0)="^^2^2^2930811^" ^ORD(101,1531,1,1,0)="This action will allow appending addtional comment(s) to the currently" ^ORD(101,1531,1,2,0)="selected problem." ^ORD(101,1531,15)="D CK^GMPLEDT3" ^ORD(101,1531,20)="D NOTE^GMPLEDT1" ^ORD(101,1531,99)="56880,60284" ^ORD(101,1532,0)="GMPL VERIFY^Verify Problems^^A^1^^^^^^^135" ^ORD(101,1532,1,0)="^^6^6^2930811^" ^ORD(101,1532,1,1,0)="If the parameter ""Verify Transcribed Problems"" is turned on in the" ^ORD(101,1532,1,2,0)="Problem List Site Parameters file (#125.99), this action will allow" ^ORD(101,1532,1,3,0)="a clinician to mark the selected problem(s) as verified. A ""$"" will" ^ORD(101,1532,1,4,0)="appear immediately in front of the problem text for problems that were" ^ORD(101,1532,1,5,0)="transcribed in by a clerk and the above described parameter is on;" ^ORD(101,1532,1,6,0)="entering a ""$"" at the ""Select Action"" prompt will invoke this action." ^ORD(101,1532,20)="D VERIFY^GMPL" ^ORD(101,1532,24)="I ('$P($G(^GMPL(125.99,1,0)),U,2))!(+$G(GMPCOUNT)>0)" ^ORD(101,1532,99)="56880,60289" ^ORD(101,1533,0)="GMPL DT CONTINUE^Continue to Next Selected Problem^^A^1^^^^^^^135" ^ORD(101,1533,1,0)="^^3^3^2930811^" ^ORD(101,1533,1,1,0)="If multiple problems were selected for review under the ""Detailed" ^ORD(101,1533,1,2,0)="Display"" action, this will allow retrieval of the data from the" ^ORD(101,1533,1,3,0)="next problem of those selected." ^ORD(101,1533,20)="D EN^GMPLDISP" ^ORD(101,1533,24)="I $G(GMPI)<$G(GMPLNO)" ^ORD(101,1533,99)="56880,60283" ^ORD(101,1534,0)="GMPL PRINT LIST^Print Problem List^^A^1^^^^^^^135" ^ORD(101,1534,1,0)="^^3^3^2940201^^^^" ^ORD(101,1534,1,1,0)="This action will generate a complete listing of the patient's problem" ^ORD(101,1534,1,2,0)="list in chartable format. Active and inactive problems will appear" ^ORD(101,1534,1,3,0)="here in this listing." ^ORD(101,1534,20)="S Y=""A"",VALMBCK=$S(VALMCC:"""",1:""R"") D EN1^GMPLPRNT" ^ORD(101,1534,99)="56880,60287" ^ORD(101,1535,0)="GMPL VIEW ALL PROV^All Providers^^A^1^^^^^^^135" ^ORD(101,1535,1,0)="^^2^2^2930811^^" ^ORD(101,1535,1,1,0)="This action will remove any current screen on primary providers of care" ^ORD(101,1535,1,2,0)="for problems, and include problems being treated by all providers." ^ORD(101,1535,20)="S:GMPLVIEW(""PROV"")'=0 GMPLVIEW(""PROV"")=0,GMPREBLD=1" ^ORD(101,1535,99)="56880,60289" ^ORD(101,1536,0)="GMPL VIEW ALL SERV^All Services^^A^1^^^^^^^135" ^ORD(101,1536,1,0)="^^2^2^2930811^^" ^ORD(101,1536,1,1,0)="This action will remove any current screen on services associated with" ^ORD(101,1536,1,2,0)="problems, and include problems being treated by all services." ^ORD(101,1536,20)="S:""S""'[GMPLVIEW(""VIEW"") GMPLVIEW(""VIEW"")=""S"",GMPREBLD=1" ^ORD(101,1536,24)="" ^ORD(101,1536,99)="56880,60289" ^ORD(101,1537,0)="GMPL EDIT SP^Special Exposure^^A^1^^^^^^^135" ^ORD(101,1537,1,0)="^^6^6^2930811^" ^ORD(101,1537,1,1,0)="This action allows editing the special exposures associated with the" ^ORD(101,1537,1,2,0)="current problem; if exposures related to this problem were previously" ^ORD(101,1537,1,3,0)="unknown, it may be entered here. Data will only be asked for if the" ^ORD(101,1537,1,4,0)="patient is indicated for Agent Orange, Ionizing Radiation, or Persian" ^ORD(101,1537,1,5,0)="Gulf exposures in the Patient file. MCCR will be using this data" ^ORD(101,1537,1,6,0)="for billing." ^ORD(101,1537,15)="D CK^GMPLEDT3" ^ORD(101,1537,20)="D SP^GMPLEDT1 I 'GMPAGTOR,'GMPION,'GMPGULF W !!,""This patient has no special exposures on file."",! H 2" ^ORD(101,1537,99)="56880,60284" ^ORD(101,1538,0)="GMPL OE PROBLEM LIST^Patient Problem List^^A^1^^^^^^^135" ^ORD(101,1538,1,0)="^^3^3^2930811^" ^ORD(101,1538,1,1,0)="This action will allow entry to the Problem List application from" ^ORD(101,1538,1,2,0)="the OE/RR Clinician and Nurse menus. The variable ORVP is checked" ^ORD(101,1538,1,3,0)="for the current patient, and then control is passed to the PL." ^ORD(101,1538,20)="S DFN=+$G(ORVP) D:DFN DEM^VADPT S:DFN GMPDFN=DFN_U_VADM(1)_U_$E(VADM(1))_VA(""BID"") D EN^GMPL" ^ORD(101,1538,99)="56880,60287" ^ORD(101,1539,0)="GMPL OE DATA ENTRY^Patient Problem List^^A^1^^^^^^^135" ^ORD(101,1539,1,0)="^^3^3^2930811^^" ^ORD(101,1539,1,1,0)="This action will allow entry to the Problem List application from" ^ORD(101,1539,1,2,0)="the OE/RR Ward Clerk menu. The variable ORVP is checked for the" ^ORD(101,1539,1,3,0)="current patient, and then control is passed to the PL." ^ORD(101,1539,20)="S DFN=+$G(ORVP) D:DFN DEM^VADPT S:DFN GMPDFN=DFN_U_VADM(1)_U_$E(VADM(1))_VA(""BID"") D DE^GMPL" ^ORD(101,1539,99)="56880,60287" ^ORD(101,1540,0)="GMPL EDIT VERIFY^Verify^^A^1^^^^^^^135" ^ORD(101,1540,1,0)="^^6^6^2930811^^" ^ORD(101,1540,1,1,0)="If the parameter ""Verify Transcribed Problems"" is turned on in the" ^ORD(101,1540,1,2,0)="Problem List Site Parameters file (#125.99), this action will allow" ^ORD(101,1540,1,3,0)="a clinician to mark the current problem as verified. A ""$"" will" ^ORD(101,1540,1,4,0)="appear immediately in front of the problem text if the current problem" ^ORD(101,1540,1,5,0)="was transcribed in by a clerk and the above described parameter is on;" ^ORD(101,1540,1,6,0)="entering a ""$"" at the ""Select Item"" prompt will invoke this action." ^ORD(101,1540,15)="D CK^GMPLEDT3" ^ORD(101,1540,20)="D VERIFY^GMPLEDT2" ^ORD(101,1540,99)="56880,60284" ^ORD(101,1541,0)="GMPL MENU ADD GROUP^Add Category to List^^A^1^^^^^^^135" ^ORD(101,1541,1,0)="^^2^2^2931213^^^" ^ORD(101,1541,1,1,0)="This action allows adding one or more problem categories to a selection" ^ORD(101,1541,1,2,0)="list." ^ORD(101,1541,20)="D ADD^GMPLBLD" ^ORD(101,1541,99)="56880,60285" ^ORD(101,1542,0)="GMPL MENU EDIT GROUP DISPLAY^Edit Category Display^^A^1^^^^^^^135" ^ORD(101,1542,1,0)="^^3^3^2931213^^^^" ^ORD(101,1542,1,1,0)="This action allows the user to change the text that appears as the subheader" ^ORD(101,1542,1,2,0)="of a category of problems, and whether or not to display the problems in" ^ORD(101,1542,1,3,0)="the category automatically on entry to the list." ^ORD(101,1542,20)="D EDIT^GMPLBLD1" ^ORD(101,1542,99)="56880,60287" ^ORD(101,1543,0)="GMPL MENU REMOVE GROUP^Remove Category from List^^A^1^^^^^^^135" ^ORD(101,1543,1,0)="^^2^2^2931213^^^^" ^ORD(101,1543,1,1,0)="This action allows the user to remove a problem category from the current" ^ORD(101,1543,1,2,0)="list; it remains in the Problem Selection Category file for future use." ^ORD(101,1543,20)="D REMOVE^GMPLBLD" ^ORD(101,1543,99)="56880,60287" ^ORD(101,1544,0)="GMPL MENU NEW LIST^Change Selection Lists^^A^1^^^^^^^135" ^ORD(101,1544,1,0)="^^2^2^2931213^^^^" ^ORD(101,1544,1,1,0)="This action allows the user to switch to editing a new problem selection" ^ORD(101,1544,1,2,0)="list." ^ORD(101,1544,20)="D NEWLST^GMPLBLD2" ^ORD(101,1544,99)="56880,60287" ^ORD(101,1545,0)="GMPL MENU VIEW LIST^View w/wo Seq Numbers^^A^1^^^^^^^135" ^ORD(101,1545,1,0)="^^3^3^2940202^^^^" ^ORD(101,1545,1,1,0)="This action allows the user to toggle between displaying the sequence" ^ORD(101,1545,1,2,0)="numbers assigned to each category for ordering, or the display numbers" ^ORD(101,1545,1,3,0)="only." ^ORD(101,1545,4)="^" ^ORD(101,1545,10,0)="^101.01PA^0^0" ^ORD(101,1545,15)="W !,""Rebuilding selection list display to""_$S(GMPLMODE=""E"":"" not"",1:"""")_"" show sequence numbers ..."" D BUILD^GMPLBLD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE)" ^ORD(101,1545,20)="S GMPLMODE=$S(GMPLMODE=""E"":""I"",1:""E""),VALMBCK=""R"",VALMSG=$$MSG^GMPLX" ^ORD(101,1545,26)="" ^ORD(101,1545,28)="" ^ORD(101,1545,99)="56880,60508" ^ORD(101,1546,0)="GMPL MENU RESEQUENCE GROUPS^Resequence Categories^^A^1^^^^^^^135" ^ORD(101,1546,1,0)="^^2^2^2931213^^^^" ^ORD(101,1546,1,1,0)="This action allows the user to place the problem caetgories on the current" ^ORD(101,1546,1,2,0)="list in a different order; problems will be automatically renumbered." ^ORD(101,1546,15)="I $D(GMPREBLD) D BUILD^GMPLBLD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE) K GMPREBLD" ^ORD(101,1546,20)="D RESEQ^GMPLBLD1" ^ORD(101,1546,99)="56880,60506" ^ORD(101,1547,0)="GMPL MENU SAVE LIST^Save List and Quit^^A^1^^^^^^^135" ^ORD(101,1547,1,0)="^^2^2^2931213^^^^" ^ORD(101,1547,1,1,0)="This action allows the user to save any changes that have been made to" ^ORD(101,1547,1,2,0)="the current list and exit the utility." ^ORD(101,1547,15)="S ^GMPL(125,+GMPLSLST,0)=$P(GMPLSLST,U,2)_U_DT D HDR^GMPLBLD" ^ORD(101,1547,20)="D SAVE^GMPLBLD2" ^ORD(101,1547,99)="56880,60287" ^ORD(101,1548,0)="GMPL LIST SELECT ITEM^Select Item from Menu^^A^1^^^^^^^135" ^ORD(101,1548,1,0)="^^6^6^2931213^^" ^ORD(101,1548,1,1,0)="This action will allow selection of a problem listed in the displayed" ^ORD(101,1548,1,2,0)="menu, to be added to the current patient's problem list. The same" ^ORD(101,1548,1,3,0)="prompts will be stepped through for each problem selected as if it had" ^ORD(101,1548,1,4,0)="been entered through the regular 'Add' action. If the item selected" ^ORD(101,1548,1,5,0)="is a category heading, the list will be expanded to include all the" ^ORD(101,1548,1,6,0)="problems included in that category for selection." ^ORD(101,1548,15)="D CK^GMPLMENU" ^ORD(101,1548,20)="D ITEM^GMPLMENU" ^ORD(101,1548,99)="56880,60285" ^ORD(101,1549,0)="GMPL LIST CLU^Add a Problem not on the Menu^^A^1^^^^^^^135" ^ORD(101,1549,1,0)="^^4^4^2931213^^" ^ORD(101,1549,1,1,0)="This action will allow selection of a problem not listed in the displayed" ^ORD(101,1549,1,2,0)="menu, to be added to the current patient's problem list. The code" ^ORD(101,1549,1,3,0)="invoked here is the same as for the regular 'Add' action, possibly" ^ORD(101,1549,1,4,0)="allowing a look-up into the Clinical Lexicon Utility." ^ORD(101,1549,15)="D CK^GMPLMENU" ^ORD(101,1549,20)="D CLU^GMPLMENU" ^ORD(101,1549,99)="56880,60284" ^ORD(101,1550,0)="GMPL MENU DELETE GROUP^Delete Category^^A^1^^^^^^^135" ^ORD(101,1550,1,0)="^^3^3^2931213^^^^" ^ORD(101,1550,1,1,0)="This action allows the user to delete a problem category; it will be" ^ORD(101,1550,1,2,0)="completely removed from the Problem Selection Category file, if no" ^ORD(101,1550,1,3,0)="list currently contains it." ^ORD(101,1550,20)="D DELETE^GMPLBLD2" ^ORD(101,1550,99)="56880,60287" ^ORD(101,1551,0)="GMPL MENU CREATE GROUP^Enter/Edit Category^^A^1^^^^^^^135" ^ORD(101,1551,1,0)="^^7^7^2940304^^^^" ^ORD(101,1551,1,1,0)="This action transfers control to the List Manager utility, to bring up" ^ORD(101,1551,1,2,0)="a new screen allowing the entry/editing of any problem category." ^ORD(101,1551,1,3,0)="The user will be asked for the category s/he wishes to review and edit," ^ORD(101,1551,1,4,0)="and a screen similar to the 'Build List' menu will be shown allowing" ^ORD(101,1551,1,5,0)="similar actions to edit the contents of the selected category. A new" ^ORD(101,1551,1,6,0)="category may be entered here, which will be available to add to the" ^ORD(101,1551,1,7,0)="current list upon return to the 'Build List' screen when finished." ^ORD(101,1551,15)="I $D(GMPSAVED) D BUILD^GMPLBLD(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE),HDR^GMPLBLD K GMPSAVED" ^ORD(101,1551,20)="D EDIT^GMPLBLD" ^ORD(101,1551,99)="56880,60506" ^ORD(101,1552,0)="GMPL MENU SAVE GROUP^Save Category and Quit^^A^1^^^^^^^135" ^ORD(101,1552,1,0)="^^2^2^2931213^^^^" ^ORD(101,1552,1,1,0)="This action allows the user to save any changes that have been made to" ^ORD(101,1552,1,2,0)="the current category and exit the utility." ^ORD(101,1552,15)="S ^GMPL(125.11,+GMPLGRP,0)=$P(GMPLGRP,U,2)_U_DT D HDR^GMPLBLDC" ^ORD(101,1552,20)="D SAVE^GMPLBLD2" ^ORD(101,1552,99)="56880,60287" ^ORD(101,1553,0)="GMPL MENU NEW GROUP^Change Categories^^A^1^^^^^^^135" ^ORD(101,1553,1,0)="^^1^1^2931213^^" ^ORD(101,1553,1,1,0)="This action allows the user to switch to editing a new problem category." ^ORD(101,1553,20)="D NEWGRP^GMPLBLD2" ^ORD(101,1553,99)="56880,60287" ^ORD(101,1554,0)="GMPL MENU ADD PROBLEM^Add Problems to Category^^A^1^^^^^^^135" ^ORD(101,1554,1,0)="^^1^1^2931213^^" ^ORD(101,1554,1,1,0)="This action allows adding one or more problems to a problem category." ^ORD(101,1554,20)="D ADD^GMPLBLDC" ^ORD(101,1554,99)="56880,60285" ^ORD(101,1555,0)="GMPL MENU REMOVE PROBLEM^Remove Problem from Category^^A^1^^^^^^^135" ^ORD(101,1555,1,0)="^^1^1^2931213^^" ^ORD(101,1555,1,1,0)="This action allows the user to remove a problem from the current category." ^ORD(101,1555,20)="D REMOVE^GMPLBLDC" ^ORD(101,1555,99)="56880,60287" ^ORD(101,1556,0)="GMPL MENU RESEQUENCE PROBLEMS^Resequence Problems^^A^1^^^^^^^135" ^ORD(101,1556,1,0)="^^3^3^2931213^^" ^ORD(101,1556,1,1,0)="This action allows the user to place the problems in the current category" ^ORD(101,1556,1,2,0)="in a different order; problems will be automatically renumbered for" ^ORD(101,1556,1,3,0)="display and selection purposes." ^ORD(101,1556,15)="I $D(GMPREBLD) D BUILD^GMPLBLDC(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE) K GMPREBLD" ^ORD(101,1556,20)="D RESEQ^GMPLBLD1" ^ORD(101,1556,99)="56880,60506" ^ORD(101,1557,0)="GMPL MENU EDIT PROBLEM^Edit Problems^^A^1^^^^^^^135" ^ORD(101,1557,1,0)="^^2^2^2931213^^^" ^ORD(101,1557,1,1,0)="This action allows the user to edit the problem and its associated code;" ^ORD(101,1557,1,2,0)="if no code is currently assigned to the problem, one may be entered." ^ORD(101,1557,20)="D EDIT^GMPLBLDC" ^ORD(101,1557,99)="56880,60287" ^ORD(101,1558,0)="GMPL MENU VIEW GROUP^View w/wo Seq Numbers^^A^1^^^^^^^135" ^ORD(101,1558,1,0)="^^3^3^2940202^^^" ^ORD(101,1558,1,1,0)="This action allows the user to toggle between displaying the sequence" ^ORD(101,1558,1,2,0)="numbers assigned to each problem for ordering, or the display numbers" ^ORD(101,1558,1,3,0)="only." ^ORD(101,1558,4)="^" ^ORD(101,1558,10,0)="^101.01PA^0^0" ^ORD(101,1558,15)="W !,""Rebuilding problem category display to""_$S(GMPLMODE=""E"":"" not"",1:"""")_"" show sequence numbers ..."" D BUILD^GMPLBLDC(""^TMP(""""GMPLIST"""",$J)"",GMPLMODE)" ^ORD(101,1558,20)="S GMPLMODE=$S(GMPLMODE=""E"":""I"",1:""E""),VALMBCK=""R"",VALMSG=$$MSG^GMPLX" ^ORD(101,1558,26)="" ^ORD(101,1558,28)="" ^ORD(101,1558,99)="56880,60508" ^ORD(101,1559,0)="GMPL CODE ICD SEARCH^Search ICD Diagnoses for Codes^^A^1^^^^^^^135" ^ORD(101,1559,1,0)="^^3^3^2931105^" ^ORD(101,1559,1,1,0)="This option allows the user to search the ICD Diagnosis file for the" ^ORD(101,1559,1,2,0)="selected problem's text; for this option it is recommended that the" ^ORD(101,1559,1,3,0)="Multi-Term Lookup utility be setup to operate on this file (#80)." ^ORD(101,1559,20)="D EDIT^GMPLCODE" ^ORD(101,1559,24)="I +$G(GMPCOUNT)>0" ^ORD(101,1559,99)="56880,60282" ^ORD(101,1560,0)="GMPL EDIT ICD^ICD Code^^A^1^^^^^^^135" ^ORD(101,1560,1,0)="^^2^2^2931126^" ^ORD(101,1560,1,1,0)="This action allows a user with the GMPL ICD CODE key to assign a [new]" ^ORD(101,1560,1,2,0)="ICD Code to a problem." ^ORD(101,1560,15)="D CK^GMPLEDT3" ^ORD(101,1560,20)="D ICD^GMPLEDT1" ^ORD(101,1560,99)="56880,60284" ^ORD(101,1561,0)="GMPL VIEW OUTPAT^Outpatient View Menu^^M^1^^^^^^^135" ^ORD(101,1561,1,0)="^^6^6^2940111^^^^" ^ORD(101,1561,1,1,0)="This menu contains actions allowing the user to change his/her current" ^ORD(101,1561,1,2,0)="view of the patient's problem list. The problems displayed onscreen" ^ORD(101,1561,1,3,0)="may be changed by selecting the status, clinic, and/or provider" ^ORD(101,1561,1,4,0)="from which the user wishes to see problems listed. The number of" ^ORD(101,1561,1,5,0)="problems listed and the total number of problems will be shown in" ^ORD(101,1561,1,6,0)="the upper right-hand corner of the screen." ^ORD(101,1561,4)="26^4" ^ORD(101,1561,10,0)="^101.01PA^9^9" ^ORD(101,1561,10,1,0)="1525^AT^1" ^ORD(101,1561,10,2,0)="1527^SP^21" ^ORD(101,1561,10,3,0)="1528^IA^2" ^ORD(101,1561,10,4,0)="1529^BO^3" ^ORD(101,1561,10,5,0)="1535^AP^22" ^ORD(101,1561,10,6,0)="1569^SC^11" ^ORD(101,1561,10,7,0)="1568^CL^12" ^ORD(101,1561,10,8,0)="1562^PV^23" ^ORD(101,1561,10,9,0)="1575^IP^13" ^ORD(101,1561,10,"B",1525,1)="" ^ORD(101,1561,10,"B",1527,2)="" ^ORD(101,1561,10,"B",1528,3)="" ^ORD(101,1561,10,"B",1529,4)="" ^ORD(101,1561,10,"B",1535,5)="" ^ORD(101,1561,10,"B",1562,8)="" ^ORD(101,1561,10,"B",1568,7)="" ^ORD(101,1561,10,"B",1569,6)="" ^ORD(101,1561,10,"B",1575,9)="" ^ORD(101,1561,15)="" ^ORD(101,1561,20)="" ^ORD(101,1561,24)="" ^ORD(101,1561,26)="W """"" ^ORD(101,1561,27)="" ^ORD(101,1561,28)="Select View: " ^ORD(101,1561,99)="56880,60291" ^ORD(101,1562,0)="GMPL VIEW RESTORE^Preferred View^^A^1^^^^^^^135" ^ORD(101,1562,1,0)="^^2^2^2940323^^^^" ^ORD(101,1562,1,1,0)="This action will replace the currently specified view with the" ^ORD(101,1562,1,2,0)="user's pre-defined preferred view." ^ORD(101,1562,20)="S X=$$VIEW^GMPLX1(DUZ) W:'$L(X) !,""You have no preferred view defined."",! Q:'$L(X) S:X'=GMPLVIEW(""VIEW"") GMPREBLD=1,GMPLVIEW(""VIEW"")=X K X S:GMPLVIEW(""PROV"") GMPLVIEW(""PROV"")=0,GMPREBLD=1 S:GMPLVIEW(""ACT"")'=""A"" GMPLVIEW(""ACT"")=""A"",GMPREBLD=1" ^ORD(101,1562,24)="" ^ORD(101,1562,99)="56880,60291" ^ORD(101,1563,0)="GMPL UP ADD ITEM^Add Items to View^^A^1^^^^^^^135" ^ORD(101,1563,1,0)="^^2^2^2930811^^" ^ORD(101,1563,1,1,0)="This action allows the user to include additional service(s) in his/her" ^ORD(101,1563,1,2,0)="preferred view of patient problem lists." ^ORD(101,1563,20)="D ADD^GMPLPRF1" ^ORD(101,1563,99)="56880,60288" ^ORD(101,1564,0)="GMPL UP REMOVE ITEM^Remove Items from View^^A^1^^^^^^^135" ^ORD(101,1564,1,0)="^^2^2^2930811^" ^ORD(101,1564,1,1,0)="This action allows the user to remove service(s) from his/her preferred" ^ORD(101,1564,1,2,0)="view of patient problem lists." ^ORD(101,1564,20)="D REMOVE^GMPLPRF1" ^ORD(101,1564,99)="56880,60288" ^ORD(101,1565,0)="GMPL UP SAVE VIEW^Save Preferred View & Exit^^A^1^^^^^^^135" ^ORD(101,1565,1,0)="^^3^3^2930811^" ^ORD(101,1565,1,1,0)="This action allows the user to save any changes made to his/her" ^ORD(101,1565,1,2,0)="preferred view of patient problem lists; control is passed back" ^ORD(101,1565,1,3,0)="to the User Preferences menu." ^ORD(101,1565,20)="S GMPSAVED=1,VALMBCK=""Q"" D SAVE^GMPLPRF1" ^ORD(101,1565,99)="56880,60288" ^ORD(101,1566,0)="GMPL MENU ASSIGN LIST^Assign List^^A^1^^^^^^^135" ^ORD(101,1566,1,0)="^^6^6^2940202^^^^" ^ORD(101,1566,1,1,0)="This action allows the user to assign this list to a clinic or to user(s)." ^ORD(101,1566,1,2,0)="Linking a list to a clinic will invoke the list whenever a user selects" ^ORD(101,1566,1,3,0)="that clinic as the location where the patient was seen, when adding" ^ORD(101,1566,1,4,0)="new problems. If a list is linked to a user, this is the list that will" ^ORD(101,1566,1,5,0)="always be invoked when that user is adding new problems, regardless of" ^ORD(101,1566,1,6,0)="the clinic specified that the patient was seen in." ^ORD(101,1566,20)="D ASSIGN^GMPLBLD3" ^ORD(101,1566,99)="56880,60285" ^ORD(101,1567,0)="GMPL VIEW INCLUDE INACTIVE^Show All Problems^^A^1^^^^^^^135" ^ORD(101,1567,1,0)="^^3^3^2940107^" ^ORD(101,1567,1,1,0)="This action will include problems that are both active and inactive on" ^ORD(101,1567,1,2,0)="the list of problems displayed; active problems will appear first, followed" ^ORD(101,1567,1,3,0)="by the inactive problems." ^ORD(101,1567,20)="D INACTIVE^GMPLMGR1" ^ORD(101,1567,99)="56880,60289" ^ORD(101,1568,0)="GMPL VIEW ALL CLIN^All Clinics^^A^1^^^^^^^135" ^ORD(101,1568,1,0)="^^2^2^2940110^" ^ORD(101,1568,1,1,0)="This action will remove any current screen on clinics associated with" ^ORD(101,1568,1,2,0)="problems, and include problems being followed by all clinics." ^ORD(101,1568,20)="S:""C""'[GMPLVIEW(""VIEW"") GMPLVIEW(""VIEW"")=""C"",GMPREBLD=1" ^ORD(101,1568,24)="" ^ORD(101,1568,99)="56880,60289" ^ORD(101,1569,0)="GMPL VIEW CLINIC^Selected Clinic(s)^^A^1^^^^^^^135" ^ORD(101,1569,1,0)="^^2^2^2940110^" ^ORD(101,1569,1,1,0)="This action will screen the problems from the current patient's list for" ^ORD(101,1569,1,2,0)="only those associated with the selected clinic(s) for care." ^ORD(101,1569,20)="D NEWCLIN^GMPLMGR1" ^ORD(101,1569,24)="" ^ORD(101,1569,99)="56880,60289" ^ORD(101,1570,0)="GMPL VIEW INPAT^Inpatient View Menu^^M^1^^^^^^^135" ^ORD(101,1570,1,0)="^^6^6^2940111^^^^" ^ORD(101,1570,1,1,0)="This menu contains actions allowing the user to change his/her current" ^ORD(101,1570,1,2,0)="view of the patient's problem list. The problems displayed onscreen" ^ORD(101,1570,1,3,0)="may be changed by selecting the status, service, and/or provider" ^ORD(101,1570,1,4,0)="from which the user wishes to see problems listed. The number of" ^ORD(101,1570,1,5,0)="problems listed and the total number of problems will be shown in" ^ORD(101,1570,1,6,0)="the upper right-hand corner of the screen." ^ORD(101,1570,4)="26^4" ^ORD(101,1570,10,0)="^101.01PA^9^9" ^ORD(101,1570,10,1,0)="1525^AT^1" ^ORD(101,1570,10,2,0)="1527^SP^21" ^ORD(101,1570,10,3,0)="1528^IA^2" ^ORD(101,1570,10,4,0)="1529^BO^3" ^ORD(101,1570,10,5,0)="1535^AP^22" ^ORD(101,1570,10,6,0)="1526^SS^11" ^ORD(101,1570,10,7,0)="1536^AS^12" ^ORD(101,1570,10,8,0)="1562^PV^23" ^ORD(101,1570,10,9,0)="1575^OP^13^^^Outpatient View" ^ORD(101,1570,10,"B",1525,1)="" ^ORD(101,1570,10,"B",1526,6)="" ^ORD(101,1570,10,"B",1527,2)="" ^ORD(101,1570,10,"B",1528,3)="" ^ORD(101,1570,10,"B",1529,4)="" ^ORD(101,1570,10,"B",1535,5)="" ^ORD(101,1570,10,"B",1536,7)="" ^ORD(101,1570,10,"B",1562,8)="" ^ORD(101,1570,10,"B",1575,9)="" ^ORD(101,1570,26)="W """"" ^ORD(101,1570,28)="Select View:" ^ORD(101,1570,99)="56880,60291" ^ORD(101,1571,0)="GMPL VIEW^Select View of List^^A^1^^^^^^^135" ^ORD(101,1571,1,0)="^^4^4^2940111^" ^ORD(101,1571,1,1,0)="This allows the user to change the problems displayed onscreen in the" ^ORD(101,1571,1,2,0)="patient's list, on-the-fly. Various attributes are presented for selection" ^ORD(101,1571,1,3,0)="such as status, provider, and clinic (or service if the patient is currently" ^ORD(101,1571,1,4,0)="admitted)." ^ORD(101,1571,15)="D EXVIEW^GMPLMGR2" ^ORD(101,1571,20)="D ENVIEW^GMPLMGR2" ^ORD(101,1571,99)="56880,60289" ^ORD(101,1572,0)="GMPL UP SWITCH^Select New View of Problems^^A^1^^^^^^^135" ^ORD(101,1572,1,0)="^^6^6^2940113^" ^ORD(101,1572,1,1,0)="This action allows the user to switch to a different preferred view." ^ORD(101,1572,1,2,0)="If one is currently editing a service view of problem lists, this" ^ORD(101,1572,1,3,0)="action will clear the current view and bring up a list of clinics from" ^ORD(101,1572,1,4,0)="which to select a view, and vice-versa from clinic to service list." ^ORD(101,1572,1,5,0)=" " ^ORD(101,1572,1,6,0)="NOTE: Each user may have only ONE preferred view at a time!" ^ORD(101,1572,20)="D SWITCH^GMPLPRF1" ^ORD(101,1572,99)="56880,60288" ^ORD(101,1573,0)="GMPL EDIT RECORDED^Date Recorded^^A^1^^^^^^^135" ^ORD(101,1573,1,0)="^^3^3^2940118^" ^ORD(101,1573,1,1,0)="This action allows editing of the date the problem was originally recorded;" ^ORD(101,1573,1,2,0)="date will default to NOW when entering a new problem, but may be changed" ^ORD(101,1573,1,3,0)="to an earlier date to reflect entry in the paper chart." ^ORD(101,1573,15)="D CK^GMPLEDT3" ^ORD(101,1573,20)="D RECORDED^GMPLEDT1" ^ORD(101,1573,99)="56880,60284" ^ORD(101,1574,0)="GMPL UP DELETE VIEW^Delete Preferred View & Exit^^A^1^^^^^^^135" ^ORD(101,1574,1,0)="^^3^3^2940127^" ^ORD(101,1574,1,1,0)="This action allows the user to delete his/her preferred view and exit" ^ORD(101,1574,1,2,0)="the utility. The user will again see all active problems, when initially" ^ORD(101,1574,1,3,0)="displaying a patient's problem list." ^ORD(101,1574,20)="D DELETE^GMPLPRF1" ^ORD(101,1574,99)="56880,60288" ^ORD(101,1575,0)="GMPL VIEW SWITCH^Inpatient View^^A^1^^^^^^^135" ^ORD(101,1575,1,0)="^^5^5^2940323^" ^ORD(101,1575,1,1,0)="This action will allow the user to switch from displaying the problems" ^ORD(101,1575,1,2,0)="in an outpatient mode to an inpatient mode, or vice-versa. If clinic" ^ORD(101,1575,1,3,0)="information is currently being displayed, service and provider will now" ^ORD(101,1575,1,4,0)="be displayed after selecting this action; likewise, if service and" ^ORD(101,1575,1,5,0)="provider information are currently displayed, clinic will now be shown." ^ORD(101,1575,20)="S X=$E(GMPLVIEW(""VIEW"")),GMPLVIEW(""VIEW"")=$S(X=""S"":""C"",1:""S""),GMPREBLD=1,Y=$S(X=""S"":""Clinic"",1:""Service/Provider"") D CHGCAP^VALM(""CLINIC"",Y) K X,Y" ^ORD(101,1575,99)="56880,60291" ^ORD(101,1577,0)="SCDX MENU FOR RETRAN REJECTS FROM NPCDB^RETRANSMIT REJECTS FROM NPCDB^^M^1^^^^^^^48" ^ORD(101,1577,4)="36^4" ^ORD(101,1577,10,0)="^101.01PA^6^6" ^ORD(101,1577,10,1,0)="1578^SP^11^" ^ORD(101,1577,10,2,0)="1579^SA^13^" ^ORD(101,1577,10,3,0)="1580^DP^21^" ^ORD(101,1577,10,4,0)="1581^DA^23^" ^ORD(101,1577,10,5,0)="1583^SN^12^" ^ORD(101,1577,10,6,0)="1582^DN^22^" ^ORD(101,1577,10,"B",1578,1)="" ^ORD(101,1577,10,"B",1579,2)="" ^ORD(101,1577,10,"B",1580,3)="" ^ORD(101,1577,10,"B",1581,4)="" ^ORD(101,1577,10,"B",1582,6)="" ^ORD(101,1577,10,"B",1583,5)="" ^ORD(101,1577,26)="D SHOW^VALM" ^ORD(101,1577,28)="Select Action: " ^ORD(101,1577,99)="56909,58821" ^ORD(101,1578,0)="SCDX SELECT PATIENT FOR RETRAN REJECTS FROM NPCDB^Select Patient(s) to retransmit^^A^1^^^^^^^48" ^ORD(101,1578,20)="D MARKPT^SCDXRT02(0)" ^ORD(101,1578,99)="56909,58821" ^ORD(101,1579,0)="SCDX SELECT ALL FOR RETRAN REJECTS FROM NPCDB^Select All for retransmission^^A^1^^^^^^^48" ^ORD(101,1579,20)="D MARKALL^SCDXRT02(0)" ^ORD(101,1579,99)="56909,58821" ^ORD(101,1580,0)="SCDX DESELECT PATIENT FOR RETRAN REJECTS FROM NPCDB^Deselect Patient(s) for retransmit^^A^1^^^^^^^48" ^ORD(101,1580,20)="D MARKPT^SCDXRT02(1)" ^ORD(101,1580,99)="56909,58821" ^ORD(101,1581,0)="SCDX DESELECT ALL FOR RETRAN REJECTS FROM NPCDB^Deselect All from retransmission^^A^1^^^^^^^48" ^ORD(101,1581,20)="D MARKALL^SCDXRT02(1)" ^ORD(101,1581,99)="56909,58821" ^ORD(101,1582,0)="SCDX DESELECT RETRANS BY NUMBER^Deselect by Number for retransmit^^A^1^^^^^^^48" ^ORD(101,1582,20)="D MARK^SCDXRT02(1)" ^ORD(101,1582,99)="56909,58821" ^ORD(101,1583,0)="SCDX SELECT RETRANS BY NUMBER^Select by Number for retransmit^^A^1^^^^^^^48" ^ORD(101,1583,20)="D MARK^SCDXRT02(0)" ^ORD(101,1583,99)="56909,58821" ^ORD(101,1584,0)="PRCO EDI GENERATOR^Reconciliation Report^^A^1^^^^^^^52" ^ORD(101,1584,10,0)="^101.01PA" ^ORD(101,1584,20)="D REPORTS^PRCOER1" ^ORD(101,1584,99)="58374,34249" ^ORD(101,1585,0)="PRCO EDI REPORTS^EDI Reports Options^^M^1^^^^^^^52" ^ORD(101,1585,4)="30^4" ^ORD(101,1585,10,0)="^101.01PA^4^4" ^ORD(101,1585,10,1,0)="1584^RR^1^" ^ORD(101,1585,10,2,0)="1586^TS^2^" ^ORD(101,1585,10,3,0)="1587^ER^3^" ^ORD(101,1585,10,4,0)="2923^PD^4^" ^ORD(101,1585,10,"B",1584,1)="" ^ORD(101,1585,10,"B",1586,2)="" ^ORD(101,1585,10,"B",1587,3)="" ^ORD(101,1585,10,"B",2923,4)="" ^ORD(101,1585,15)="K ^TMP(""PRCOER"")" ^ORD(101,1585,26)="D SHOW^VALM" ^ORD(101,1585,28)="Select EDI Reports Action :" ^ORD(101,1585,99)="58374,34249" ^ORD(101,1586,0)="PRCO EDI STATS SUMMARY^Transaction Summary Report^^A^1^^^^^^^52" ^ORD(101,1586,1,0)="^^3^3^2960726^" ^ORD(101,1586,1,1,0)="This protocol is called from the PRCO EDI " ^ORD(101,1586,1,2,0)="list manager template. It generates a summary review of" ^ORD(101,1586,1,3,0)="all data stored in file 443.75." ^ORD(101,1586,20)="D ^PRCOER2" ^ORD(101,1586,99)="58374,34249" ^ORD(101,1587,0)="PRCO EDI EXCEPTION^Exceptions Report^^A^1^^^^^^^" ^ORD(101,1587,1,0)="^^2^2^2960827^" ^ORD(101,1587,1,1,0)="This report includes exceptions in PRJ and POA transactions," ^ORD(101,1587,1,2,0)="for a date range." ^ORD(101,1587,20)="D ^PRCOER4" ^ORD(101,1587,99)="58374,34249" ^ORD(101,1588,0)="DGQE HL7 A08 VIC SERVER^HL7 server for a VIC event ^^E^1^^^^^^^47" ^ORD(101,1588,1,0)="^^2^2^2961127^^^^" ^ORD(101,1588,1,1,0)="This event is trigger from the stand-alone option when a user request an ID" ^ORD(101,1588,1,2,0)="card" ^ORD(101,1588,10,0)="^101.01PA^1^1" ^ORD(101,1588,10,1,0)="1589^^^" ^ORD(101,1588,10,"B",1589,1)="" ^ORD(101,1588,99)="56971,48613" ^ORD(101,1588,770)="7^^6^8^^P^^^^2^" ^ORD(101,1588,772)="D EN^DGQEACK" ^ORD(101,1588,775,0)="^101.0775PA^1^1" ^ORD(101,1588,775,1,0)="1589^^^" ^ORD(101,1588,775,"B",1589,1)="" ^ORD(101,1589,0)="DGQE VIC A08 CLIENT^DGQE VIC A08 CLIENT^^S^1^^^^^^^47" ^ORD(101,1589,1,0)="^^1^1^2961120^^^^" ^ORD(101,1589,1,1,0)="This is the client used for the HL7 interface with DataCard" ^ORD(101,1589,99)="56971,48613" ^ORD(101,1589,770)="^8^1^8^i^P^2^^^2^6" ^ORD(101,1589,771)="D EN^DGQEACK" ^ORD(101,1590,0)="LREPI^EMERGIN PATHOGEN^^E^1^^^^^^^14" ^ORD(101,1590,1,0)="^^3^3^2970219^^" ^ORD(101,1590,1,1,0)="This event driver protocol defines the associated parameters needed to build " ^ORD(101,1590,1,2,0)="the HL7 Message used to send the EPI data to Austin." ^ORD(101,1590,1,3,0)="" ^ORD(101,1590,10,0)="^101.01PA^1^1" ^ORD(101,1590,10,1,0)="1591^^^" ^ORD(101,1590,10,"B",1591,1)="" ^ORD(101,1590,99)="59795,59745" ^ORD(101,1590,770)="9^9^3^46^^P^3^3^3^2^" ^ORD(101,1590,775,0)="^101.0775PA^1^1" ^ORD(101,1590,775,1,0)="1591^^^" ^ORD(101,1590,775,"B",1591,1)="" ^ORD(101,1591,0)="LREPI CLIENT^EPI^^S^1^^^^^^^14" ^ORD(101,1591,1,0)="^101.06^2^2^3040414^^^^" ^ORD(101,1591,1,1,0)="This subscriber protocol defines the parameter needed by the HL7 package to " ^ORD(101,1591,1,2,0)="determine were to send the HL7 formatted message containing the EPI information." ^ORD(101,1591,99)="59795,59745" ^ORD(101,1591,770)="^9^3^46^i^P^3^^^2^3" ^ORD(101,1591,771)="D PROCESS^LREPIRP" ^ORD(101,1591,772)="" ^ORD(101,1591,773)="^" ^ORD(101,1592,0)="RA EXAMINED^Rad/Nuc Med examined case^^E^1^^^^^^^115" ^ORD(101,1592,1,0)="^^5^5^2961209^" ^ORD(101,1592,1,1,0)="This protocol is triggered whenever a Radiology/Nuclear Medicine exam" ^ORD(101,1592,1,2,0)="has reached a status where GENERATE EXAMINED HL7 MSG is Y at" ^ORD(101,1592,1,3,0)="that (or at a lower) status. This message contains all relevant" ^ORD(101,1592,1,4,0)="information about the exam, including procedure, time of registration," ^ORD(101,1592,1,5,0)="procedure modifiers, patient allergies, and clinical history." ^ORD(101,1592,10,0)="^101.01PA^^0" ^ORD(101,1592,20)="Q" ^ORD(101,1592,99)="58310,55362" ^ORD(101,1592,770)="^^5^38^^^^^^1^" ^ORD(101,1592,772)="Q" ^ORD(101,1592,775,0)="^101.0775PA^1^1" ^ORD(101,1592,775,1,0)="1593^^^" ^ORD(101,1592,775,"B",1593,1)="" ^ORD(101,1593,0)="RA SEND ORM^Client for Imaging (ORM)^^S^1^^^^^^^115" ^ORD(101,1593,1,0)="^^1^1^2970117^^" ^ORD(101,1593,1,1,0)="This protocol receives the HL7 message." ^ORD(101,1593,15)="Q" ^ORD(101,1593,20)="Q" ^ORD(101,1593,99)="57058,44547" ^ORD(101,1593,770)="^11^^38^^P^^^^1^" ^ORD(101,1593,771)="Q" ^ORD(101,1593,773)="0^0^0^1" ^ORD(101,1594,0)="RA SEND ORU^Client for Imaging (ORU)^^S^1^^^^^^^115" ^ORD(101,1594,1,0)="^^1^1^2970116^" ^ORD(101,1594,1,1,0)="This protocol receives the HL7 message." ^ORD(101,1594,15)="Q" ^ORD(101,1594,20)="Q" ^ORD(101,1594,99)="57058,44547" ^ORD(101,1594,770)="^11^^46^^P^^^^1^" ^ORD(101,1594,771)="Q" ^ORD(101,1594,773)="0^0^0^1" ^ORD(101,1595,0)="PSD PAT ADT^^^A^1^^^^^^^" ^ORD(101,1595,20)="D ^PSDADT1" ^ORD(101,1596,0)="PSD A01 SERVER^Controlled Substances admit (A01) server^^E^1^^^^^^^83" ^ORD(101,1596,1,0)="^^1^1^2960329^^^^" ^ORD(101,1596,1,1,0)="Triggered by the DGPM MOVEMENT DRIVER, this protocol serves admissions." ^ORD(101,1596,10,0)="^101.01PA^1^1" ^ORD(101,1596,10,1,0)="1597" ^ORD(101,1596,10,"B",1597,1)="" ^ORD(101,1596,99)="57076,67794" ^ORD(101,1596,770)="12^^6^1^^P^^^^1^" ^ORD(101,1596,772)="Q" ^ORD(101,1596,775,0)="^101.0775PA^1^1" ^ORD(101,1596,775,1,0)="1597" ^ORD(101,1596,775,"B",1597,1)="" ^ORD(101,1597,0)="PSD A01 CLIENT^Controlled Substances admit client^^S^1^^^^^^^83" ^ORD(101,1597,1,0)="^^1^1^2961231^^^^" ^ORD(101,1597,1,1,0)="Delivers admit (A01) messages to narcotic dispensing equipment systems." ^ORD(101,1597,99)="57076,67794" ^ORD(101,1597,770)="^13^1^1^^P^6^^^1^6" ^ORD(101,1597,773)="^^^" ^ORD(101,1598,0)="PSD A02 SERVER^Controlled Substances transfer (A02) server^^E^1^^^^^^^83" ^ORD(101,1598,1,0)="^^1^1^2960329^^^" ^ORD(101,1598,1,1,0)="Triggered by the DGPM MOVEMENT DRIVER, it serves admissions." ^ORD(101,1598,10,0)="^101.01PA^1^1" ^ORD(101,1598,10,1,0)="1599" ^ORD(101,1598,10,"B",1599,1)="" ^ORD(101,1598,99)="57076,67794" ^ORD(101,1598,770)="12^^6^2^^P^^^^1^" ^ORD(101,1598,772)="Q" ^ORD(101,1598,775,0)="^101.0775PA^1^1" ^ORD(101,1598,775,1,0)="1599" ^ORD(101,1598,775,"B",1599,1)="" ^ORD(101,1599,0)="PSD A02 CLIENT^Controlled Substances transfer (A02) client^^S^1^^^^^^^83" ^ORD(101,1599,1,0)="^^1^1^2960329^^^^" ^ORD(101,1599,1,1,0)="Delivers transfers (A02) to narcotic dispensing equipment systems." ^ORD(101,1599,99)="57076,67794" ^ORD(101,1599,770)="^13^1^2^^P^6^^^1^6" ^ORD(101,1599,773)="^^^" ^ORD(101,1600,0)="PSD A03 SERVER^Controlled Substances discharge (A03) server^^E^1^^^^^^^83" ^ORD(101,1600,1,0)="^^1^1^2960329^^^" ^ORD(101,1600,1,1,0)="Triggered by the DGPM MOVEMENT DRIVER, it serves discharges." ^ORD(101,1600,10,0)="^101.01PA^1^1" ^ORD(101,1600,10,1,0)="1601" ^ORD(101,1600,10,"B",1601,1)="" ^ORD(101,1600,99)="57076,67795" ^ORD(101,1600,770)="12^^6^3^^P^^^^1^" ^ORD(101,1600,772)="Q" ^ORD(101,1600,775,0)="^101.0775PA^1^1" ^ORD(101,1600,775,1,0)="1601" ^ORD(101,1600,775,"B",1601,1)="" ^ORD(101,1601,0)="PSD A03 CLIENT^Controlled Substances discharge (A03) client^^S^1^^^^^^^83" ^ORD(101,1601,1,0)="^^1^1^2960329^^^^" ^ORD(101,1601,1,1,0)="Delivers discharges to narcotic dispensing equipment systems" ^ORD(101,1601,99)="57076,67795" ^ORD(101,1601,770)="^13^1^3^^P^6^^^1^6" ^ORD(101,1601,773)="^^^" ^ORD(101,1602,0)="PSD DFT SERVER^DFT messages record dispensing activity.^^E^1^^^^^^^83" ^ORD(101,1602,1,0)="^^2^2^2960329^^" ^ORD(101,1602,1,1,0)="These messages record dispensing activity as it occurs at narcotic" ^ORD(101,1602,1,2,0)="dispensing equipment systems." ^ORD(101,1602,10,0)="^101.01PA^1^1" ^ORD(101,1602,10,1,0)="1603" ^ORD(101,1602,10,"B",1603,1)="" ^ORD(101,1602,99)="57076,67795" ^ORD(101,1602,770)="13^^9^42^^P^^^^1^" ^ORD(101,1602,775,0)="^101.0775PA^1^1" ^ORD(101,1602,775,1,0)="1603" ^ORD(101,1602,775,"B",1603,1)="" ^ORD(101,1603,0)="PSD DFT CLIENT^Receives DFT messages from narcotic dispensing equipment.^^S^1^^^^^^^83" ^ORD(101,1603,1,0)="^^2^2^2960329^^^^" ^ORD(101,1603,1,1,0)="Records dispensing activity when it occurs at narcotic dispensing" ^ORD(101,1603,1,2,0)="equipment systems." ^ORD(101,1603,99)="57076,67795" ^ORD(101,1603,770)="^12^9^42^i^P^6^^^1^1" ^ORD(101,1603,771)="D ^PSDFT1" ^ORD(101,1603,773)="1^1^^1" ^ORD(101,1606,0)="IBDF EF TASK INTERRUPT^Task Interrupt^^A^1^^^^^^^76" ^ORD(101,1606,15)="K IBDFSTOP" ^ORD(101,1606,20)="S IBDFSTOP=1 D STAT^IBDFPE1" ^ORD(101,1606,99)="57099,59876" ^ORD(101,1607,0)="IBDF FORM COMPONENT MENU^Form Component Display Menu^^M^1^^^^^^^" ^ORD(101,1607,4)="26^4" ^ORD(101,1607,10,0)="^101.01PA^2^2" ^ORD(101,1607,10,1,0)="453^EX^11^^^Expand Item" ^ORD(101,1607,10,2,0)="1610^BC^13^" ^ORD(101,1607,10,"B",453,1)="" ^ORD(101,1607,10,"B",1610,2)="" ^ORD(101,1607,26)="D SHOW^VALM" ^ORD(101,1607,28)="Select Action: " ^ORD(101,1607,99)="59837,55803" ^ORD(101,1608,0)="IBDF FORM COMPONENT ACTION^Form Component Action^^A^1^^^^^^^" ^ORD(101,1608,4)="^^^CA" ^ORD(101,1608,20)="D INIT^IBDFCMP" ^ORD(101,1608,99)="57099,59876" ^ORD(101,1609,0)="IBDF COMPONENT EXP PROTO^Expand Entry^^M^1^^^^^^^" ^ORD(101,1609,4)="26^4^^EX" ^ORD(101,1609,10,0)="^101.01PA^0^0" ^ORD(101,1609,26)="D SHOW^VALM" ^ORD(101,1609,28)="Select Action: " ^ORD(101,1609,99)="57099,59876" ^ORD(101,1610,0)="IBDF COMP EXP^Block Components^^A^1^^^^^^^" ^ORD(101,1610,1,0)="^^1^1^2960827^^" ^ORD(101,1610,1,1,0)=" " ^ORD(101,1610,4)="^^^BC" ^ORD(101,1610,20)="D ^IBDFCMP1" ^ORD(101,1610,99)="57099,59876" ^ORD(101,1611,0)="IBDF QUICK GROUP RESEQUENCE^Resequence Group^^A^1^^^^^^^" ^ORD(101,1611,4)="^^^RS" ^ORD(101,1611,20)="D GRPRESEQ^IBDFQEA" ^ORD(101,1611,99)="57099,59876" ^ORD(101,1612,0)="IBDF FT RELEASE^Rel Forms w/Lost Pages^^A^1^^^^^^^76" ^ORD(101,1612,1,0)="^^5^5^2970327^" ^ORD(101,1612,1,1,0)="This option should be used to free a Forms Tracking entry when not all" ^ORD(101,1612,1,2,0)="pages of the form have been received, but the remaining pages have been" ^ORD(101,1612,1,3,0)="lost. This option will take the data that has been stored temporarily" ^ORD(101,1612,1,4,0)="in Forms Tracking (from the pages that were scanned), and will pass it" ^ORD(101,1612,1,5,0)="across to PCE." ^ORD(101,1612,20)="D FREEFT^IBDFFRFT" ^ORD(101,1612,99)="57099,59876" ^ORD(101,1613,0)="DGPRE RG MENU^Pre-registration menu^^M^1^^^^^^^47" ^ORD(101,1613,1,0)="^^1^1^2970127^^" ^ORD(101,1613,1,1,0)="Menu for Preregistration List Manager Call List" ^ORD(101,1613,4)="40^4" ^ORD(101,1613,10,0)="^101.01PA^7^4" ^ORD(101,1613,10,1,0)="1614^CP^1^" ^ORD(101,1613,10,2,0)="1616^XH^2^" ^ORD(101,1613,10,6,0)="1617^EH^3^" ^ORD(101,1613,10,7,0)="1620^IN^4^" ^ORD(101,1613,10,"B",1614,1)="" ^ORD(101,1613,10,"B",1616,2)="" ^ORD(101,1613,10,"B",1617,6)="" ^ORD(101,1613,10,"B",1620,7)="" ^ORD(101,1613,26)="D SHOW^VALM" ^ORD(101,1613,99)="57131,81648" ^ORD(101,1614,0)="DGPRE RG CP^Call Patient^^A^1^^^^^^^" ^ORD(101,1614,4)="40^4" ^ORD(101,1614,20)="D EDIT^DGPREP1 S VALMBCK=""R""" ^ORD(101,1614,99)="57131,81648" ^ORD(101,1615,0)="DGPRE RG EDIT^Edit Patient Info^^A^1^^^^^^^47" ^ORD(101,1615,4)="40^4" ^ORD(101,1615,20)="D EDIT^DGPREP0 S VALMBCK=""R""" ^ORD(101,1615,99)="57131,81648" ^ORD(101,1616,0)="DGPRE RG XH^Expand History^^A^1^^^^^^^" ^ORD(101,1616,4)="40^4" ^ORD(101,1616,20)="D STAT^DGPREP1 S VALMBCK=""R""" ^ORD(101,1616,99)="57131,81648" ^ORD(101,1617,0)="DGPRE RG EH^Edit Call History^^A^1^^^^^^^" ^ORD(101,1617,4)="40^4" ^ORD(101,1617,20)="D EH^DGPREP1" ^ORD(101,1617,99)="57131,81648" ^ORD(101,1618,0)="DGPRE HIST SC^Show Comments^^A^1^^^^^^^47" ^ORD(101,1618,1,0)="^^1^1^2970103^" ^ORD(101,1618,1,1,0)="Displays comments associated with the call attempt in the Call Log." ^ORD(101,1618,4)="^4" ^ORD(101,1618,20)="D EXPND^DGPREP2 S VALMBCK=""R""" ^ORD(101,1618,99)="57131,81648" ^ORD(101,1619,0)="DGPRE HIST MENU^Pre-registration history menu^^M^1^^^^^^^47" ^ORD(101,1619,4)="40^4" ^ORD(101,1619,10,0)="^101.01PA^0^0" ^ORD(101,1619,26)="D SHOW^VALM" ^ORD(101,1619,99)="57131,81648" ^ORD(101,1620,0)="DGPRE EXPAND PATIENT^Patient Inquiry^^A^1^^^^^^^47" ^ORD(101,1620,1,0)="^^1^1^2970127^" ^ORD(101,1620,1,1,0)="Displays the patient inquiry screens for Load/Edit for selected patient" ^ORD(101,1620,4)="^4" ^ORD(101,1620,20)="D PTINQ^DGPREP2 S VALMBCK=""R""" ^ORD(101,1620,99)="57131,81648" ^ORD(101,1621,0)="GMRVORMENU^Vital/Measurements^^Q^1^^^^^^^104" ^ORD(101,1621,4)="40" ^ORD(101,1621,5)="" ^ORD(101,1621,10,0)="^101.01PA^9^9" ^ORD(101,1621,10,1,0)="1622^1^1^" ^ORD(101,1621,10,2,0)="1623^2^2^" ^ORD(101,1621,10,3,0)="1624^5^5^" ^ORD(101,1621,10,4,0)="1625^3^3^" ^ORD(101,1621,10,5,0)="1626^4^4^" ^ORD(101,1621,10,6,0)="1627^6^6^" ^ORD(101,1621,10,7,0)="1628^7^7^" ^ORD(101,1621,10,8,0)="1629^8^8^" ^ORD(101,1621,10,9,0)="1630^9^9^" ^ORD(101,1621,10,"B",1622,1)="" ^ORD(101,1621,10,"B",1623,2)="" ^ORD(101,1621,10,"B",1624,3)="" ^ORD(101,1621,10,"B",1625,4)="" ^ORD(101,1621,10,"B",1626,5)="" ^ORD(101,1621,10,"B",1627,6)="" ^ORD(101,1621,10,"B",1628,7)="" ^ORD(101,1621,10,"B",1629,8)="" ^ORD(101,1621,10,"B",1630,9)="" ^ORD(101,1621,99)="57139,49891" ^ORD(101,1622,0)="GMRVORTPR^TPR^^L^1^^^^^^^104" ^ORD(101,1622,5)="" ^ORD(101,1622,10,0)="^101.01PA^3^3" ^ORD(101,1622,10,1,0)="1628^^^" ^ORD(101,1622,10,2,0)="1625^^^" ^ORD(101,1622,10,3,0)="1629^^^" ^ORD(101,1622,10,"B",1625,2)="" ^ORD(101,1622,10,"B",1628,1)="" ^ORD(101,1622,10,"B",1629,3)="" ^ORD(101,1622,20)="D EN1^GMRVORE0" ^ORD(101,1622,99)="57139,49891" ^ORD(101,1623,0)="GMRVORTPR B/P^TPR B/P^^L^1^^^^^^^104" ^ORD(101,1623,5)="" ^ORD(101,1623,10,0)="^101.01PA^4^4" ^ORD(101,1623,10,1,0)="1628^^^" ^ORD(101,1623,10,2,0)="1625^^^" ^ORD(101,1623,10,3,0)="1629^^^" ^ORD(101,1623,10,4,0)="1626^^^" ^ORD(101,1623,10,"B",1625,2)="" ^ORD(101,1623,10,"B",1626,4)="" ^ORD(101,1623,10,"B",1628,1)="" ^ORD(101,1623,10,"B",1629,3)="" ^ORD(101,1623,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1623,99)="57139,49891" ^ORD(101,1624,0)="GMRVORADMIT V/M^TPR-B/P-Ht.-Wt.^^L^1^^^^^^^104" ^ORD(101,1624,5)="" ^ORD(101,1624,10,0)="^101.01PA^6^6" ^ORD(101,1624,10,1,0)="1628^^^" ^ORD(101,1624,10,2,0)="1625^^^" ^ORD(101,1624,10,3,0)="1629^^^" ^ORD(101,1624,10,4,0)="1626^^^" ^ORD(101,1624,10,5,0)="1630^^^" ^ORD(101,1624,10,6,0)="1627^^^" ^ORD(101,1624,10,"B",1625,2)="" ^ORD(101,1624,10,"B",1626,4)="" ^ORD(101,1624,10,"B",1627,6)="" ^ORD(101,1624,10,"B",1628,1)="" ^ORD(101,1624,10,"B",1629,3)="" ^ORD(101,1624,10,"B",1630,5)="" ^ORD(101,1624,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1624,99)="57139,49891" ^ORD(101,1625,0)="GMRVORPULSE^PULSE^^O^1^^^^^^^104" ^ORD(101,1625,5)="" ^ORD(101,1625,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1625,99)="57139,49891" ^ORD(101,1626,0)="GMRVORB/P^B/P^^O^1^^^^^^^104" ^ORD(101,1626,5)="" ^ORD(101,1626,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1626,99)="57139,49891" ^ORD(101,1627,0)="GMRVORWT^WEIGHT^^O^1^^^^^^^104" ^ORD(101,1627,5)="" ^ORD(101,1627,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1627,99)="57139,49891" ^ORD(101,1628,0)="GMRVORTEMP^TEMPERATURE^^O^1^^^^^^^104" ^ORD(101,1628,5)="" ^ORD(101,1628,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1628,99)="57139,49891" ^ORD(101,1629,0)="GMRVORRESP^RESPIRATION^^O^1^^^^^^^104" ^ORD(101,1629,5)="" ^ORD(101,1629,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1629,99)="57139,49891" ^ORD(101,1630,0)="GMRVORHT^HEIGHT^^O^1^^^^^^^104" ^ORD(101,1630,5)="" ^ORD(101,1630,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1630,99)="57139,49891" ^ORD(101,1631,0)="GMRVORP SF511^SF511 Vitals Report^^A^1^^^^^^^104" ^ORD(101,1631,1,0)="^^2^2^2890921^^" ^ORD(101,1631,1,1,0)="This is the option that will create the protocol for the SF511 Patient" ^ORD(101,1631,1,2,0)="Profile in OERR." ^ORD(101,1631,5)="" ^ORD(101,1631,15)="K DFN" ^ORD(101,1631,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) S DFN=+ORVP D EN4^GMRVSR0" ^ORD(101,1631,99)="57139,49891" ^ORD(101,1632,0)="GMRVORP CUM REPORT^Cumulative Vitals Report^^A^1^^^^^^^104" ^ORD(101,1632,1,0)="^^1^1^2890921^^" ^ORD(101,1632,1,1,0)="This option will create the protocol for the Cumulative Vitals report." ^ORD(101,1632,5)="" ^ORD(101,1632,15)="K DFN" ^ORD(101,1632,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) S DFN=+ORVP D EN2^GMRVSC0" ^ORD(101,1632,99)="57139,49891" ^ORD(101,1633,0)="GMRVORP DISP VITALS^Latest Vitals Display^^A^1^^^^^^^104" ^ORD(101,1633,1,0)="^^1^1^2890921^^" ^ORD(101,1633,1,1,0)="This option will create the protocol for the latest vitals display." ^ORD(101,1633,5)="" ^ORD(101,1633,15)="K DFN" ^ORD(101,1633,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) S DFN=+ORVP D EN3^GMRVDS0" ^ORD(101,1633,99)="57139,49891" ^ORD(101,1634,0)="GMRVOR DGPM^GMRV Transfer Events^^X^1^^^^^^^104" ^ORD(101,1634,1,0)="^^3^3^2970318^^^^" ^ORD(101,1634,1,1,0)="This option will become the GMRVOR DGPM protocol, and should be linked to" ^ORD(101,1634,1,2,0)="the DGOERR TRANSFER EVENTS protocol. This protocol will perform events that" ^ORD(101,1634,1,3,0)="are appropriate for the GMRV package." ^ORD(101,1634,5)="" ^ORD(101,1634,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN4^GMRVORDG" ^ORD(101,1634,99)="57139,49891" ^ORD(101,1635,0)="GMRVORCG^CIRCUMFERENCE/GIRTH^^O^1^^^^^^^104" ^ORD(101,1635,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1635,99)="57139,49891" ^ORD(101,1636,0)="GMRVORPO^PULSE OXIMETRY^^O^1^^^^^^^104" ^ORD(101,1636,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1636,99)="57139,49891" ^ORD(101,1637,0)="GMRVORCVP^CENTRAL VENOUS PRESSURE^^O^1^^^^^^^104" ^ORD(101,1637,20)="Q:$S('$D(^ORD(100.99)):1,'$D(^PS(59.7,1,20)):1,1:^(20)<2.8) D EN1^GMRVORE0" ^ORD(101,1637,99)="57139,49891" ^ORD(101,1638,0)="PXCE VIEW ONLY^PCE View Only^^M^1^^^^^^^111" ^ORD(101,1638,.1)="" ^ORD(101,1638,1,0)="^^2^2^2960620^^" ^ORD(101,1638,1,1,0)="This is the list of protocols that are the actions on the PCE Encounter" ^ORD(101,1638,1,2,0)="List display." ^ORD(101,1638,4)="26^4" ^ORD(101,1638,10,0)="^101.01PA^15^9" ^ORD(101,1638,10,1,0)="1401^^1^" ^ORD(101,1638,10,3,0)="1428^LI^3^" ^ORD(101,1638,10,6,0)="1420^SP^21^" ^ORD(101,1638,10,7,0)="1406^CD^23^" ^ORD(101,1638,10,8,0)="1404^CC^25^" ^ORD(101,1638,10,11,0)="1414^VC^70^" ^ORD(101,1638,10,12,0)="1408^DD^71^" ^ORD(101,1638,10,14,0)="1425^QU^99^" ^ORD(101,1638,10,15,0)="1402^^10^" ^ORD(101,1638,10,"B",1401,1)="" ^ORD(101,1638,10,"B",1402,15)="" ^ORD(101,1638,10,"B",1404,8)="" ^ORD(101,1638,10,"B",1406,7)="" ^ORD(101,1638,10,"B",1408,12)="" ^ORD(101,1638,10,"B",1414,11)="" ^ORD(101,1638,10,"B",1420,6)="" ^ORD(101,1638,10,"B",1425,14)="" ^ORD(101,1638,10,"B",1428,3)="" ^ORD(101,1638,26)="D KEYS^PXCEAE(""PXCE ADD/EDIT"",+$G(^TMP(""PXCEIDX"",$J,0))),SHOW^VALM" ^ORD(101,1638,28)="Select Action:" ^ORD(101,1638,99)="57194,42674" ^ORD(101,1639,0)="PXCE SDAM VIEW ONLY^PCE View Only^^M^1^^^^^^^111" ^ORD(101,1639,1,0)="^^2^2^2960312^" ^ORD(101,1639,1,1,0)="This is the list of protocols that are the actions on the PCE Appointment" ^ORD(101,1639,1,2,0)="List screen." ^ORD(101,1639,4)="26^4^^AV" ^ORD(101,1639,10,0)="^101.01PA^10^9" ^ORD(101,1639,10,1,0)="1420^SP^21^" ^ORD(101,1639,10,2,0)="1425^QU^99^" ^ORD(101,1639,10,3,0)="1406^CD^23^" ^ORD(101,1639,10,4,0)="1414^VC^41^" ^ORD(101,1639,10,6,0)="1411^LI^3^" ^ORD(101,1639,10,7,0)="1427^EP^81^" ^ORD(101,1639,10,8,0)="1401^^1^" ^ORD(101,1639,10,9,0)="1426^DD^71^" ^ORD(101,1639,10,10,0)="1416^AL^8^" ^ORD(101,1639,10,"B",1401,8)="" ^ORD(101,1639,10,"B",1406,3)="" ^ORD(101,1639,10,"B",1411,6)="" ^ORD(101,1639,10,"B",1414,4)="" ^ORD(101,1639,10,"B",1416,10)="" ^ORD(101,1639,10,"B",1420,1)="" ^ORD(101,1639,10,"B",1425,2)="" ^ORD(101,1639,10,"B",1426,9)="" ^ORD(101,1639,10,"B",1427,7)="" ^ORD(101,1639,26)="D KEYS^PXCEAE(""PXCE SDAM UPDATE ENCOUNTER"",+$O(^TMP(""SDAMIDX"",$J,""""),-1)),SHOW^VALM" ^ORD(101,1639,28)="Select Action:" ^ORD(101,1639,99)="57194,42674" ^ORD(101,1640,0)="IBCR CHARGE SET SCREEN^Charge Sets^^A^1^^^^^^^49" ^ORD(101,1640,20)="D EN^IBCRLC" ^ORD(101,1640,99)="57198,55272" ^ORD(101,1641,0)="IBCE ADD LOCAL FORM^Add A Local Form^^A^1^^^^^^^49" ^ORD(101,1641,4)="" ^ORD(101,1641,20)="D ADDL^IBCEFG4" ^ORD(101,1641,26)="" ^ORD(101,1641,28)="" ^ORD(101,1641,99)="57198,55272" ^ORD(101,1642,0)="IBCE EDIT LOCAL FORM^Edit Local Form Demographics^^A^1^^^^^^^49" ^ORD(101,1642,20)="D EDIT^IBCEFG4" ^ORD(101,1642,99)="57198,55272" ^ORD(101,1643,0)="IBCE EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,1643,1,0)="^101.06^2^2^3060105^^" ^ORD(101,1643,1,1,0)="Allows the user to exit the system without quitting through the hierarchy" ^ORD(101,1643,1,2,0)="of screens, or the user can exit to the previous screen." ^ORD(101,1643,2,0)="^101.02A^1^1" ^ORD(101,1643,2,1,0)="EX" ^ORD(101,1643,2,"B","EX",1)="" ^ORD(101,1643,4)="^^^EX" ^ORD(101,1643,20)="D FASTEXIT^IBCEFG4" ^ORD(101,1643,28)="" ^ORD(101,1643,99)="61199,28361" ^ORD(101,1644,0)="IBCE LOCAL FORM MENU^LOCAL FORMS^^M^1^^^^^^^49" ^ORD(101,1644,4)="40^4" ^ORD(101,1644,10,0)="^101.01PA^6^6" ^ORD(101,1644,10,1,0)="1643^EX^99^" ^ORD(101,1644,10,2,0)="1641^AF^10^" ^ORD(101,1644,10,3,0)="1646^VF^18^" ^ORD(101,1644,10,4,0)="1655^EL^20^" ^ORD(101,1644,10,5,0)="1656^VE^23^" ^ORD(101,1644,10,6,0)="1657^TE^26^" ^ORD(101,1644,10,6,1)="" ^ORD(101,1644,10,"B",1641,2)="" ^ORD(101,1644,10,"B",1643,1)="" ^ORD(101,1644,10,"B",1646,3)="" ^ORD(101,1644,10,"B",1655,4)="" ^ORD(101,1644,10,"B",1656,5)="" ^ORD(101,1644,10,"B",1657,6)="" ^ORD(101,1644,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1644,20)="" ^ORD(101,1644,26)="D SHOW^VALM" ^ORD(101,1644,28)="Select Action: " ^ORD(101,1644,99)="61199,28361" ^ORD(101,1645,0)="IBCE LOCAL FORM DETAIL MENU^Local Form Detail^^M^1^^^^^^^49" ^ORD(101,1645,4)="40^4^^" ^ORD(101,1645,10,0)="^101.01PA^5^5" ^ORD(101,1645,10,1,0)="1643^EX^99^" ^ORD(101,1645,10,2,0)="1642^EF^10^" ^ORD(101,1645,10,3,0)="1647^DF^20^" ^ORD(101,1645,10,4,0)="1648^FF^30^" ^ORD(101,1645,10,5,0)="1649^SW^40^" ^ORD(101,1645,10,"B",1642,2)="" ^ORD(101,1645,10,"B",1643,1)="" ^ORD(101,1645,10,"B",1647,3)="" ^ORD(101,1645,10,"B",1648,4)="" ^ORD(101,1645,10,"B",1649,5)="" ^ORD(101,1645,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1645,20)="" ^ORD(101,1645,26)="D SHOW^VALM" ^ORD(101,1645,28)="Select Action: " ^ORD(101,1645,99)="61199,28361" ^ORD(101,1646,0)="IBCE LOCAL FORM VIEW/EDIT^Form View/Edit^^A^1^^^^^^^49" ^ORD(101,1646,4)="^^^VE" ^ORD(101,1646,15)="" ^ORD(101,1646,20)="D SELX^IBCEFG3 D:$G(IBCEXDA) EN^VALM(""IBCE LOCAL FORM DETAIL""),BLD^IBCEFG3" ^ORD(101,1646,99)="57198,55272" ^ORD(101,1647,0)="IBCE DELETE LOCAL FORM^Delete A Local Form^^A^1^^^^^^^49" ^ORD(101,1647,20)="D DELETE^IBCEFG41" ^ORD(101,1647,99)="57198,55272" ^ORD(101,1648,0)="IBCE LOCAL FORM FIELD EDIT^Edit Form Fields^^A^1^^^^^^^49" ^ORD(101,1648,20)="D FFLDS^IBCEFG4" ^ORD(101,1648,99)="57198,55272" ^ORD(101,1649,0)="IBCE SWITCH FORM^Switch Form^^A^1^^^^^^^49" ^ORD(101,1649,20)="D CHGFORM^IBCEFG4" ^ORD(101,1649,99)="57198,55272" ^ORD(101,1650,0)="IBCE FORM FIELDS LIST MENU^^^M^1^^^^^^^49" ^ORD(101,1650,4)="40^4" ^ORD(101,1650,10,0)="^101.01PA^8^8" ^ORD(101,1650,10,1,0)="1643^EX^99^" ^ORD(101,1650,10,2,0)="1651^AF^10^" ^ORD(101,1650,10,3,0)="1652^DE^20^" ^ORD(101,1650,10,4,0)="1653^ED^30^" ^ORD(101,1650,10,5,0)="1654^CO^40^" ^ORD(101,1650,10,6,0)="1655^EL^50^" ^ORD(101,1650,10,7,0)="1656^VE^60^" ^ORD(101,1650,10,8,0)="1658^VF^70^" ^ORD(101,1650,10,"B",1643,1)="" ^ORD(101,1650,10,"B",1651,2)="" ^ORD(101,1650,10,"B",1652,3)="" ^ORD(101,1650,10,"B",1653,4)="" ^ORD(101,1650,10,"B",1654,5)="" ^ORD(101,1650,10,"B",1655,6)="" ^ORD(101,1650,10,"B",1656,7)="" ^ORD(101,1650,10,"B",1658,8)="" ^ORD(101,1650,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,1650,26)="D SHOW^VALM" ^ORD(101,1650,28)="Select Action: " ^ORD(101,1650,99)="61199,28361" ^ORD(101,1651,0)="IBCE ADD FORM FIELD^Add Local/Override Field^^A^1^^^^^^^49" ^ORD(101,1651,20)="D ADD^IBCEFG6" ^ORD(101,1651,99)="57198,55272" ^ORD(101,1652,0)="IBCE DELETE FORM FIELD^Delete Local Form Field^^A^1^^^^^^^49" ^ORD(101,1652,20)="D DELETE^IBCEFG60" ^ORD(101,1652,99)="57198,55272" ^ORD(101,1653,0)="IBCE EDIT FORM FIELD^Edit Local Form Field^^A^1^^^^^^^49" ^ORD(101,1653,20)="D EDIT^IBCEFG6" ^ORD(101,1653,99)="57198,55272" ^ORD(101,1654,0)="IBCE DEFINE FIELD CONTENT^Local Field Content Definition^^A^1^^^^^^^49" ^ORD(101,1654,20)="D CONTENT^IBCEFG6()" ^ORD(101,1654,99)="57198,55272" ^ORD(101,1655,0)="IBCE ADD/EDIT LOCAL ELEMENT^Add/Edit Local Data Elements^^A^1^^^^^^^49" ^ORD(101,1655,20)="D ELEMENT^IBCEFG41" ^ORD(101,1655,99)="57198,55272" ^ORD(101,1656,0)="IBCE VIEW ELEMENT^View Data Element^^A^1^^^^^^^49" ^ORD(101,1656,20)="D VIEWEL^IBCEFG6()" ^ORD(101,1656,99)="57198,55272" ^ORD(101,1657,0)="IBCE TEST FORM^Test Form^^A^1^^^^^^^49" ^ORD(101,1657,4)="^^^TE" ^ORD(101,1657,20)="D TEST^IBCEFG8" ^ORD(101,1657,99)="57198,55272" ^ORD(101,1658,0)="IBCE VIEW FORM FIELD^View Form Field^^A^1^^^^^^^49" ^ORD(101,1658,20)="D VIEWF^IBCEFG6()" ^ORD(101,1658,99)="57198,55272" ^ORD(101,1659,0)="IBCR RATE SCHEDULE MENU^Rate Schedule Menu^^M^1^^^^^^^49" ^ORD(101,1659,4)="26^4" ^ORD(101,1659,10,0)="^101.01PA^3^3" ^ORD(101,1659,10,1,0)="1664^ED^11^" ^ORD(101,1659,10,2,0)="1680^MS^27^" ^ORD(101,1659,10,3,0)="1674^EX^37^" ^ORD(101,1659,10,"B",1664,1)="" ^ORD(101,1659,10,"B",1674,3)="" ^ORD(101,1659,10,"B",1680,2)="" ^ORD(101,1659,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1659,20)="K IBFASTXT" ^ORD(101,1659,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1659,26)="D SHOW^VALM" ^ORD(101,1659,28)="Select Action: " ^ORD(101,1659,99)="57198,55273" ^ORD(101,1660,0)="IBCR CHARGE ITEM SCREEN^Charge Items^^A^1^^^^^^^49" ^ORD(101,1660,20)="D ENCI^IBCRLA1" ^ORD(101,1660,99)="57198,55272" ^ORD(101,1661,0)="IBCR BILLING RATE SCREEN^Billing Rates^^A^1^^^^^^^49" ^ORD(101,1661,20)="D EN^IBCRLR" ^ORD(101,1661,99)="57198,55272" ^ORD(101,1662,0)="IBCR RATE TYPE SCREEN^Rate Types^^A^1^^^^^^^49" ^ORD(101,1662,20)="D EN^IBCRLT" ^ORD(101,1662,99)="57198,55272" ^ORD(101,1663,0)="IBCR CHARGE SET MENU^Charge Set Menu^^M^1^^^^^^^49" ^ORD(101,1663,4)="26^4" ^ORD(101,1663,10,0)="^101.01PA^6^6" ^ORD(101,1663,10,1,0)="1660^CI^11^" ^ORD(101,1663,10,2,0)="1669^ED^12^" ^ORD(101,1663,10,3,0)="1675^RG^21^" ^ORD(101,1663,10,4,0)="1680^MS^27^" ^ORD(101,1663,10,5,0)="1661^BR^31^" ^ORD(101,1663,10,6,0)="1674^EX^37^" ^ORD(101,1663,10,"B",1660,1)="" ^ORD(101,1663,10,"B",1661,5)="" ^ORD(101,1663,10,"B",1669,2)="" ^ORD(101,1663,10,"B",1674,6)="" ^ORD(101,1663,10,"B",1675,3)="" ^ORD(101,1663,10,"B",1680,4)="" ^ORD(101,1663,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1663,20)="K IBFASTXT" ^ORD(101,1663,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1663,26)="D SHOW^VALM" ^ORD(101,1663,28)="Select Action: " ^ORD(101,1663,99)="57198,55273" ^ORD(101,1664,0)="IBCR RATE SCHEDULE EDIT^Edit Schedule^^A^1^^^^^^^49" ^ORD(101,1664,20)="D EDRS^IBCRLA1" ^ORD(101,1664,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1664,99)="57198,55272" ^ORD(101,1665,0)="IBCR RATE TYPE EDIT^Edit Rate Type^^A^1^^^^^^^49" ^ORD(101,1665,20)="D EDRT^IBCRLA1" ^ORD(101,1665,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1665,99)="57198,55272" ^ORD(101,1666,0)="IBCR RATE TYPE MENU^Rate Type Menu^^M^1^^^^^^^49" ^ORD(101,1666,4)="26^4" ^ORD(101,1666,10,0)="^101.01PA^3^3" ^ORD(101,1666,10,1,0)="1665^ED^11^" ^ORD(101,1666,10,2,0)="1680^MS^27^" ^ORD(101,1666,10,3,0)="1674^EX^37^" ^ORD(101,1666,10,"B",1665,1)="" ^ORD(101,1666,10,"B",1674,3)="" ^ORD(101,1666,10,"B",1680,2)="" ^ORD(101,1666,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1666,20)="K IBFASTXT" ^ORD(101,1666,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1666,26)="D SHOW^VALM" ^ORD(101,1666,28)="Select Action: " ^ORD(101,1666,99)="57198,55273" ^ORD(101,1667,0)="IBCR BILLING RATE EDIT^Edit Rate^^A^1^^^^^^^49" ^ORD(101,1667,20)="D EDBR^IBCRLA1" ^ORD(101,1667,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1667,99)="57198,55272" ^ORD(101,1668,0)="IBCR BILLING RATE MENU^Billing Rate Menu^^M^1^^^^^^^49" ^ORD(101,1668,4)="26^4" ^ORD(101,1668,10,0)="^101.01PA^3^3" ^ORD(101,1668,10,1,0)="1667^ED^11^" ^ORD(101,1668,10,2,0)="1680^MS^27^" ^ORD(101,1668,10,3,0)="1674^EX^37^" ^ORD(101,1668,10,"B",1667,1)="" ^ORD(101,1668,10,"B",1674,3)="" ^ORD(101,1668,10,"B",1680,2)="" ^ORD(101,1668,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1668,20)="K IBFASTXT" ^ORD(101,1668,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1668,26)="D SHOW^VALM" ^ORD(101,1668,28)="Select Action: " ^ORD(101,1668,99)="57198,55273" ^ORD(101,1669,0)="IBCR CHARGE SET EDIT^Edit Charge Set^^A^1^^^^^^^49" ^ORD(101,1669,20)="D EDCS^IBCRLA1" ^ORD(101,1669,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1669,99)="57198,55272" ^ORD(101,1670,0)="IBCR CHARGE ITEM EDIT^Edit Charge Item^^A^1^^^^^^^49" ^ORD(101,1670,20)="D EDCI^IBCRLA1" ^ORD(101,1670,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1670,99)="57198,55272" ^ORD(101,1671,0)="IBCR CHARGE ITEM MENU^Charge Item Menu^^M^1^^^^^^^49" ^ORD(101,1671,4)="26^4" ^ORD(101,1671,10,0)="^101.01PA^6^6" ^ORD(101,1671,10,1,0)="1673^CD^11^" ^ORD(101,1671,10,2,0)="1670^ED^12^" ^ORD(101,1671,10,3,0)="1672^CI^21^" ^ORD(101,1671,10,4,0)="1680^MS^27^" ^ORD(101,1671,10,5,0)="1681^BI^31^" ^ORD(101,1671,10,6,0)="1674^EX^37^" ^ORD(101,1671,10,"B",1670,2)="" ^ORD(101,1671,10,"B",1672,3)="" ^ORD(101,1671,10,"B",1673,1)="" ^ORD(101,1671,10,"B",1674,6)="" ^ORD(101,1671,10,"B",1680,4)="" ^ORD(101,1671,10,"B",1681,5)="" ^ORD(101,1671,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1671,20)="K IBFASTXT" ^ORD(101,1671,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1671,26)="D SHOW^VALM" ^ORD(101,1671,28)="Select Action: " ^ORD(101,1671,99)="57198,55273" ^ORD(101,1672,0)="IBCR CHARGE ITEM CHANGE^Change Item^^A^1^^^^^^^49" ^ORD(101,1672,20)="D CICITM^IBCRLA1" ^ORD(101,1672,99)="57198,55272" ^ORD(101,1673,0)="IBCR CHARGE ITEM DATES^Change Dates^^A^1^^^^^^^49" ^ORD(101,1673,20)="D CICDTS^IBCRLA1" ^ORD(101,1673,99)="57198,55272" ^ORD(101,1674,0)="IBCR EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,1674,20)="D FASTEXIT^IBCRLA1" ^ORD(101,1674,99)="57198,55272" ^ORD(101,1675,0)="IBCR BILLING REGION SCREEN^Billing Regions^^A^1^^^^^^^49" ^ORD(101,1675,20)="D EN^IBCRLG" ^ORD(101,1675,99)="57198,55272" ^ORD(101,1676,0)="IBCR BILLING REGION EDIT^Edit Region^^A^1^^^^^^^49" ^ORD(101,1676,20)="D EDRG^IBCRLA1" ^ORD(101,1676,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1676,99)="57198,55272" ^ORD(101,1677,0)="IBCR BILLING REGION MENU^Billing Region Menu^^M^1^^^^^^^49" ^ORD(101,1677,4)="26^4" ^ORD(101,1677,10,0)="^101.01PA^3^3" ^ORD(101,1677,10,1,0)="1676^ED^11^" ^ORD(101,1677,10,2,0)="1680^MS^27^" ^ORD(101,1677,10,3,0)="1674^EX^37^" ^ORD(101,1677,10,"B",1674,3)="" ^ORD(101,1677,10,"B",1676,1)="" ^ORD(101,1677,10,"B",1680,2)="" ^ORD(101,1677,15)="I $G(IBFASTXT)>3 S VALMBCK=""Q""" ^ORD(101,1677,20)="K IBFASTXT" ^ORD(101,1677,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1677,26)="D SHOW^VALM" ^ORD(101,1677,28)="Select Action: " ^ORD(101,1677,99)="57198,55273" ^ORD(101,1678,0)="IBCR RATE SCHEDULE SCREEN^Rate Schedules^^A^1^^^^^^^49" ^ORD(101,1678,20)="D EN^IBCRLS" ^ORD(101,1678,99)="57198,55273" ^ORD(101,1679,0)="IBCR INTRODUCTION MENU^Introduction Menu^^M^1^^^^^^^49" ^ORD(101,1679,4)="26^4" ^ORD(101,1679,10,0)="^101.01PA^5^5" ^ORD(101,1679,10,1,0)="1678^RS^11^" ^ORD(101,1679,10,2,0)="1640^CS^12^" ^ORD(101,1679,10,3,0)="1662^RT^21^" ^ORD(101,1679,10,4,0)="1661^BR^22^" ^ORD(101,1679,10,5,0)="2728^SG^23" ^ORD(101,1679,10,"B",1640,2)="" ^ORD(101,1679,10,"B",1661,4)="" ^ORD(101,1679,10,"B",1662,3)="" ^ORD(101,1679,10,"B",1678,1)="" ^ORD(101,1679,10,"B",2728,5)="" ^ORD(101,1679,15)="I $G(IBFASTXT)>4 S VALMBCK=""Q""" ^ORD(101,1679,20)="K IBFASTXT" ^ORD(101,1679,26)="D SHOW^VALM" ^ORD(101,1679,28)="Select Action: " ^ORD(101,1679,99)="57965,68144" ^ORD(101,1680,0)="IBCR MAIN SCREEN^Main Screen^^A^1^^^^^^^49" ^ORD(101,1680,20)="D MAINSCR^IBCRLA1" ^ORD(101,1680,99)="57198,55273" ^ORD(101,1681,0)="IBCR BILLING ITEM EDIT^Billing Item Edit^^A^1^^^^^^^49" ^ORD(101,1681,20)="D EDBI^IBCRLA1" ^ORD(101,1681,24)="I $D(^XUSEC(""IB SUPERVISOR"",DUZ))" ^ORD(101,1681,99)="57198,55273" ^ORD(101,1682,0)="LR7O CH EVSEND OR^LAB => OE/RR ORDER MESSAGE EVENT^^X^1^^^^^^^" ^ORD(101,1682,10,0)="^101.01PA^1^1" ^ORD(101,1682,10,1,0)="2179^^1" ^ORD(101,1682,10,2,0)="2252" ^ORD(101,1682,10,"B",2179,1)="" ^ORD(101,1682,10,"B",2252,2)="" ^ORD(101,1682,20)="" ^ORD(101,1682,99)="57983,77781" ^ORD(101,1683,0)="LR7O ORDERABLE OR^LAB => OE/RR ORDERABLE UPDATE EVENT^^X^1^^^^^^^" ^ORD(101,1683,10,0)="^101.01PA^1^1" ^ORD(101,1683,10,1,0)="2182^^1" ^ORD(101,1683,10,"B",2182,1)="" ^ORD(101,1683,99)="57814,55356" ^ORD(101,1684,0)="LR7O BB EVSEND OR^BLOOD BANK => OE/RR ORDER MESSAGE^^X^1^^^^^^^" ^ORD(101,1684,4)="^^^" ^ORD(101,1684,10,0)="^101.01PA^1^1" ^ORD(101,1684,10,1,0)="2179^^1" ^ORD(101,1684,10,2,0)="2252" ^ORD(101,1684,10,"B",2179,1)="" ^ORD(101,1684,10,"B",2252,2)="" ^ORD(101,1684,20)="" ^ORD(101,1684,99)="57983,77781" ^ORD(101,1685,0)="LR7O AP EVSEND OR^ANATOMIC PATH => OE/RR ORDER MESSAGE^^X^1^^^^^^^" ^ORD(101,1685,10,0)="^101.01PA^1^1" ^ORD(101,1685,10,1,0)="2179^^1" ^ORD(101,1685,10,2,0)="2252" ^ORD(101,1685,10,"B",2179,1)="" ^ORD(101,1685,10,"B",2252,2)="" ^ORD(101,1685,20)="" ^ORD(101,1685,99)="57983,77781" ^ORD(101,1686,0)="LR7O CH RECEIVE^Lab Receives Order Msg from OE/RR^^A^1^^^^^^^" ^ORD(101,1686,20)="D EN^LR7OF0(.XQORMSG)" ^ORD(101,1686,99)="57218,38428" ^ORD(101,1687,0)="LR7O AP RECEIVE^Anatomic Path Receives Order Msg from OE/RR^^A^1^^^^^^^" ^ORD(101,1687,20)="D EN^LR7OF0(.XQORMSG,""LRAP"")" ^ORD(101,1687,99)="57632,49596" ^ORD(101,1688,0)="LR7O BB RECEIVE^Blood Bank Receives Order Msg from OE/RR^^A^1^^^^^^^" ^ORD(101,1688,20)="D EN^LR7OF0(.XQORMSG)" ^ORD(101,1688,99)="57218,38428" ^ORD(101,1689,0)="LR7O TEST STATUS^Lab Test Status^^A^1^^^^^^^14" ^ORD(101,1689,3,0)="^101.03P^1^1" ^ORD(101,1689,3,1,0)="57" ^ORD(101,1689,3,"B",57,1)="" ^ORD(101,1689,20)="D OERR^LROS($G(ORVP))" ^ORD(101,1689,99)="57218,38429" ^ORD(101,1692,0)="LR7O ALL EVSEND RESULTS^LAB RESULTS => EXTERNAL PACKAGE^^X^1^^^^^^^" ^ORD(101,1692,10,0)="^101.01PA^5^5" ^ORD(101,1692,10,4,0)="3280" ^ORD(101,1692,10,5,0)="3813" ^ORD(101,1692,10,"B",3280,4)="" ^ORD(101,1692,10,"B",3813,5)="" ^ORD(101,1692,99)="60332,50501" ^ORD(101,1693,0)="DGEN PATIENT ENROLLMENT MENU^Patient Enrollment^^M^1^^^^^^^47" ^ORD(101,1693,1,0)="^101.06^1^1^3050203^^^^" ^ORD(101,1693,1,1,0)="This protocol menu contains all the activities for patient enrollment." ^ORD(101,1693,4)="26^4" ^ORD(101,1693,10,0)="^101.01PA^25^25" ^ORD(101,1693,10,17,0)="1694^EP^10^" ^ORD(101,1693,10,18,0)="1696^PF^30^" ^ORD(101,1693,10,19,0)="1703^EH^40^" ^ORD(101,1693,10,20,0)="1701^CD^70^" ^ORD(101,1693,10,21,0)="1704^SP^80^" ^ORD(101,1693,10,22,0)="2168^QS^50^" ^ORD(101,1693,10,23,0)="2167^SQ^60^" ^ORD(101,1693,10,24,0)="2169^AU^90^" ^ORD(101,1693,10,25,0)="3928^PZ^95" ^ORD(101,1693,10,"B",1694,17)="" ^ORD(101,1693,10,"B",1696,18)="" ^ORD(101,1693,10,"B",1701,20)="" ^ORD(101,1693,10,"B",1703,19)="" ^ORD(101,1693,10,"B",1704,21)="" ^ORD(101,1693,10,"B",2167,23)="" ^ORD(101,1693,10,"B",2168,22)="" ^ORD(101,1693,10,"B",2169,24)="" ^ORD(101,1693,10,"B",3928,25)="" ^ORD(101,1693,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1693,25)=" " ^ORD(101,1693,26)="D SHOW^VALM" ^ORD(101,1693,28)="Select Action:" ^ORD(101,1693,99)="60125,51307" ^ORD(101,1694,0)="DGEN ENROLL PATIENT^Enroll Patient^^A^1^^^^^^^47" ^ORD(101,1694,1,0)="^^3^3^2971215^^^^" ^ORD(101,1694,1,1,0)="This protocol action permits the user to enroll a patient who" ^ORD(101,1694,1,2,0)="is a veteran that is eligible for care, who is not already" ^ORD(101,1694,1,3,0)="enrolled." ^ORD(101,1694,20)="D EP^DGEN1" ^ORD(101,1694,24)="I $$CHK^DGEN(DFN)" ^ORD(101,1694,99)="58169,63123" ^ORD(101,1695,0)="DGEN CEASE ENROLLMENT^Cease Enrollment^^A^1^^^^^^^47" ^ORD(101,1695,1,0)="^^6^6^2990616^^^^" ^ORD(101,1695,1,1,0)="This protocol action permits the user to cease the enrollment of a" ^ORD(101,1695,1,2,0)="patient who is enrolled." ^ORD(101,1695,1,3,0)=" " ^ORD(101,1695,1,4,0)="Cease Enrollment functionality was disabled by DG*5.3*232. Code," ^ORD(101,1695,1,5,0)="options, and protocols will not be deleted until it is determined " ^ORD(101,1695,1,6,0)="they will not be used in future releases." ^ORD(101,1695,15)="" ^ORD(101,1695,20)="D CE^DGEN1" ^ORD(101,1695,24)="I 0 ;Functionality disabled by DG*5.3*232 Old screen logic: I $$ENROLLED^DGENA(DFN)!($$STATUS^DGENA(DFN)=9)!($$STATUS^DGENA(DFN)=1)" ^ORD(101,1695,99)="57965,68602" ^ORD(101,1696,0)="DGENPT PREFERRED FACILITY^Preferred Facility^^A^1^^^^^^^47" ^ORD(101,1696,1,0)="^^2^2^2970903^^^^" ^ORD(101,1696,1,1,0)="This protocol action permits the user to enter/edit the patient's" ^ORD(101,1696,1,2,0)="preferred facility." ^ORD(101,1696,20)="D PF^DGENPT" ^ORD(101,1696,99)="58169,63123" ^ORD(101,1697,0)="DGEN MT AUTOMATIC ENROLLMENT UPDATE^MT AUTOMATIC ENROLLMENT UPDATE^^X^1^^^^^^^47" ^ORD(101,1697,1,0)="^^3^3^2970716^^^^" ^ORD(101,1697,1,1,0)="This event is called each time a means test is added, edited, or" ^ORD(101,1697,1,2,0)="deleted. If there has been change in the Means Test the patient's" ^ORD(101,1697,1,3,0)="current enrollment will be updated." ^ORD(101,1697,20)="D MTUPD^DGENA2" ^ORD(101,1697,99)="57243,66646" ^ORD(101,1698,0)="DGENCD CATASTROPHIC DISABILITY MENU^Catastrophic Disability^^M^1^^^^^^^47" ^ORD(101,1698,1,0)="^^2^2^2990624^^^^" ^ORD(101,1698,1,1,0)="Contains the protocols for adding, editing, and deleting patient catastrophic" ^ORD(101,1698,1,2,0)="disability data." ^ORD(101,1698,4)="80^4" ^ORD(101,1698,10,0)="^101.01PA^2^2" ^ORD(101,1698,10,1,0)="1699^AE^11^" ^ORD(101,1698,10,2,0)="1700^DE^12^" ^ORD(101,1698,10,"B",1699,1)="" ^ORD(101,1698,10,"B",1700,2)="" ^ORD(101,1698,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1698,26)="D SHOW^VALM" ^ORD(101,1698,28)="Select Action: " ^ORD(101,1698,99)="59795,59637" ^ORD(101,1699,0)="DGENCD ADD/EDIT CATASTROPHIC DISABILITY^Add/Edit Catastrophic Disability^^A^1^DGENCD ADD/EDIT^^^^^^47" ^ORD(101,1699,1,0)="^101.06^3^3^3030804^^^^" ^ORD(101,1699,1,1,0)="This action will allow the catastrophic disability information for a patient" ^ORD(101,1699,1,2,0)="to be added or edited, but not deleted. If catastrophic disability information" ^ORD(101,1699,1,3,0)="is added, the Catastrophically Disabled eligibility code is added." ^ORD(101,1699,20)="D ADDCD^DGENCD1" ^ORD(101,1699,24)="I $$VET^DGENPTA(DFN)" ^ORD(101,1699,99)="59795,59637" ^ORD(101,1700,0)="DGENCD DELETE CATASTROPHIC DISABILITY^Delete Catastrophic Disability^^A^1^CD DELETE^^^^^^47" ^ORD(101,1700,1,0)="^^3^3^2990624^^^^" ^ORD(101,1700,1,1,0)="This action will allow the catastrophic disability information for a patient" ^ORD(101,1700,1,2,0)="to be deleted. If catastrophic disability information is deleted, the" ^ORD(101,1700,1,3,0)="Catastrophically Disabled eligibility code is also deleted." ^ORD(101,1700,20)="D DELETECD^DGENCD1" ^ORD(101,1700,24)=" " ^ORD(101,1700,99)="59795,59637" ^ORD(101,1701,0)="DGENCD CATASTROPHIC DISABILITY^Catastrophic Disab.^^A^1^^^^^^^47" ^ORD(101,1701,1,0)="^^1^1^2990706^^^^" ^ORD(101,1701,1,1,0)="Displays the DGEN CATASTROPHIC DISABILITY List Template." ^ORD(101,1701,20)="D EN^DGENCD1($G(DFN))" ^ORD(101,1701,24)=" " ^ORD(101,1701,99)="60125,51307" ^ORD(101,1703,0)="DGEN EXPAND HISTORY^Expand History^^A^1^^^^^^^47" ^ORD(101,1703,1,0)="^^2^2^2970715^" ^ORD(101,1703,1,1,0)="This protocol action permits the user to expand an enrollment" ^ORD(101,1703,1,2,0)="history record." ^ORD(101,1703,20)="D EH^DGEN1" ^ORD(101,1703,99)="58169,63123" ^ORD(101,1704,0)="DGEN SELECT PATIENT^Select Patient^^A^1^^^^^^^47" ^ORD(101,1704,1,0)="^^1^1^2970730^" ^ORD(101,1704,1,1,0)="This protocol action permits the user to select a different patient." ^ORD(101,1704,20)="D SP^DGEN1" ^ORD(101,1704,99)="58169,63123" ^ORD(101,1705,0)="USR CLASS STATUS SELECT^Select User Class Status^^M^1^^^^^^^162" ^ORD(101,1705,1,0)="^^3^3^2950202^^" ^ORD(101,1705,1,1,0)=" " ^ORD(101,1705,1,2,0)="Select the resolution status for the filing errors which you would like to" ^ORD(101,1705,1,3,0)="see displayed." ^ORD(101,1705,4)="40" ^ORD(101,1705,10,0)="^101.01PA^3^3" ^ORD(101,1705,10,1,0)="1708^^2^" ^ORD(101,1705,10,2,0)="1707^^1^" ^ORD(101,1705,10,3,0)="1706^^3^" ^ORD(101,1705,10,"B",1706,3)="" ^ORD(101,1705,10,"B",1707,2)="" ^ORD(101,1705,10,"B",1708,1)="" ^ORD(101,1705,99)="57257,37067" ^ORD(101,1706,0)="USR CLASS STATUS ALL^All User Classes^^A^1^^^^^^^162" ^ORD(101,1706,1,0)="^^2^2^2930611^" ^ORD(101,1706,1,1,0)=" " ^ORD(101,1706,1,2,0)="Show all filing errors, regardless of their resolution status." ^ORD(101,1706,99)="57257,37067" ^ORD(101,1707,0)="USR CLASS STATUS ACTIVE^Active^^A^1^^^^^^^162" ^ORD(101,1707,1,0)="^^2^2^2950202^^" ^ORD(101,1707,1,1,0)=" " ^ORD(101,1707,1,2,0)="Show all filing errors, regardless of their resolution status." ^ORD(101,1707,99)="57257,37067" ^ORD(101,1708,0)="USR CLASS STATUS INACTIVE^Inactive^^A^1^^^^^^^162" ^ORD(101,1708,1,0)="^^2^2^2950202^^" ^ORD(101,1708,1,1,0)=" " ^ORD(101,1708,1,2,0)="Show only those errors which have NOT yet been resolved." ^ORD(101,1708,99)="57257,37067" ^ORD(101,1709,0)="USR CLASS ACTION MENU^User Class Review Menu^^M^1^^^^^^^162" ^ORD(101,1709,1,0)="^^1^1^2960222^^^^" ^ORD(101,1709,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1709,4)="26" ^ORD(101,1709,10,0)="^101.01PA^14^8" ^ORD(101,1709,10,1,0)="1711^^5^" ^ORD(101,1709,10,2,0)="1710^^9^" ^ORD(101,1709,10,3,0)="1712^^7^" ^ORD(101,1709,10,4,0)="1713^^3^" ^ORD(101,1709,10,11,0)="1714^^7^" ^ORD(101,1709,10,12,0)="1733^^1^" ^ORD(101,1709,10,13,0)="1734^^11^" ^ORD(101,1709,10,14,0)="455^^8^" ^ORD(101,1709,10,"B",455,14)="" ^ORD(101,1709,10,"B",1710,2)="" ^ORD(101,1709,10,"B",1711,1)="" ^ORD(101,1709,10,"B",1712,3)="" ^ORD(101,1709,10,"B",1713,4)="" ^ORD(101,1709,10,"B",1714,11)="" ^ORD(101,1709,10,"B",1733,12)="" ^ORD(101,1709,10,"B",1734,13)="" ^ORD(101,1709,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)" ^ORD(101,1709,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1709,26)="X ""S XQORM(""""#"""")=$G(@VALMAR@(""""#""""))"" D RESIZE^USRLM((IOSL-2),18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1709,28)="Select Action: " ^ORD(101,1709,99)="57609,41890" ^ORD(101,1710,0)="USR CLASS ACTION CHANGE VIEW^Change View^^A^1^^^^^^^162" ^ORD(101,1710,1,0)="^^2^2^2921125^" ^ORD(101,1710,1,1,0)="Allows users to modify the list of reports by signature status, review" ^ORD(101,1710,1,2,0)="screen and dictation date range without exiting the review screen." ^ORD(101,1710,20)="D MAKELIST^USRCLST S VALMBCK=""R"",VALMBG=1" ^ORD(101,1710,99)="57257,37067" ^ORD(101,1711,0)="USR CLASS ACTION EDIT^Edit User Class^^A^1^^^^^^^162" ^ORD(101,1711,1,0)="^^4^4^2930408^^^" ^ORD(101,1711,1,1,0)="Allows authorized users to edit selected reports online...When electronic" ^ORD(101,1711,1,2,0)="signature is enabled, physicians will be prompted for their signatures upon" ^ORD(101,1711,1,3,0)="exit, thereby allowing doctors to review, edit and sign as a one-step" ^ORD(101,1711,1,4,0)="process." ^ORD(101,1711,20)="D EDIT^USRCLASS" ^ORD(101,1711,99)="57257,37067" ^ORD(101,1712,0)="USR CLASS ACTION EXPAND SUBCLASSES^Expand/Collapse Class^^A^1^^^^^^^162" ^ORD(101,1712,15)="S VALMBCK=""R""" ^ORD(101,1712,20)="D EXPAND^USRCLASS" ^ORD(101,1712,99)="57609,41890" ^ORD(101,1713,0)="USR CLASS ACTION CREATE^Create a Class^^A^1^^^^^^^162" ^ORD(101,1713,15)="S VALMBCK=""R""" ^ORD(101,1713,20)="D CREATE^USRCLASS" ^ORD(101,1713,99)="57257,37068" ^ORD(101,1714,0)="USR CLASS ACTION LIST MEMBERS^List Members^^A^1^^^^^^^162" ^ORD(101,1714,20)="D MEMBERS^USRCLASS" ^ORD(101,1714,99)="57257,37068" ^ORD(101,1715,0)="USR CLASS MEMBERSHIP MENU^User Class Membership Menu^^M^1^^^^^^^162" ^ORD(101,1715,1,0)="^^1^1^2960214^^^^" ^ORD(101,1715,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1715,4)="26" ^ORD(101,1715,10,0)="^101.01PA^16^6" ^ORD(101,1715,10,11,0)="1717^^3^" ^ORD(101,1715,10,12,0)="1716^^5^" ^ORD(101,1715,10,13,0)="1718^^7^" ^ORD(101,1715,10,14,0)="1723^^9^" ^ORD(101,1715,10,15,0)="1725^^8^" ^ORD(101,1715,10,16,0)="1726^^10^" ^ORD(101,1715,10,"B",1716,12)="" ^ORD(101,1715,10,"B",1717,11)="" ^ORD(101,1715,10,"B",1718,13)="" ^ORD(101,1715,10,"B",1723,14)="" ^ORD(101,1715,10,"B",1725,15)="" ^ORD(101,1715,10,"B",1726,16)="" ^ORD(101,1715,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)+1" ^ORD(101,1715,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1715,26)="S XQORM(""#"")=$G(^TMP(""USRMMBR"",$J,""#"")) D RESIZE^USRLM((IOSL-2),18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1715,28)="Select Action: " ^ORD(101,1715,99)="58405,62280" ^ORD(101,1716,0)="USR CLASS MEMBERSHIP EDIT^Edit^^A^1^^^^^^^162" ^ORD(101,1716,1,0)="^^4^4^2930408^^^" ^ORD(101,1716,1,1,0)="Allows authorized users to edit selected reports online...When electronic" ^ORD(101,1716,1,2,0)="signature is enabled, physicians will be prompted for their signatures upon" ^ORD(101,1716,1,3,0)="exit, thereby allowing doctors to review, edit and sign as a one-step" ^ORD(101,1716,1,4,0)="process." ^ORD(101,1716,20)="D EDIT^USRMEMBR" ^ORD(101,1716,99)="57257,37068" ^ORD(101,1717,0)="USR CLASS MEMBERSHIP ADD^Add^^A^1^^^^^^^162" ^ORD(101,1717,15)="S VALMBCK=""R""" ^ORD(101,1717,20)="D ADD^USRMEMBR" ^ORD(101,1717,24)="I +$P($G(^USR(8930,+USRDA,0)),U,3)" ^ORD(101,1717,99)="58405,62280" ^ORD(101,1718,0)="USR CLASS MEMBERSHIP DELETE^Remove^^A^1^^^^^^^162" ^ORD(101,1718,20)="D DELETE^USRMEMBR" ^ORD(101,1718,99)="57257,37068" ^ORD(101,1719,0)="USR CLASS MEMBER USER ADD^Add^^A^1^^^^^^^162" ^ORD(101,1719,15)="S VALMBCK=""R""" ^ORD(101,1719,20)="D ADD^USRUMMBR" ^ORD(101,1719,99)="57257,37068" ^ORD(101,1720,0)="USR CLASS MEMBER USER DELETE^Remove^^A^1^^^^^^^162" ^ORD(101,1720,20)="D DELETE^USRUMMBR" ^ORD(101,1720,99)="57257,37068" ^ORD(101,1721,0)="USR CLASS MEMBER USER EDIT^Edit^^A^1^^^^^^^162" ^ORD(101,1721,1,0)="^^4^4^2930408^^^" ^ORD(101,1721,1,1,0)="Allows authorized users to edit selected reports online...When electronic" ^ORD(101,1721,1,2,0)="signature is enabled, physicians will be prompted for their signatures upon" ^ORD(101,1721,1,3,0)="exit, thereby allowing doctors to review, edit and sign as a one-step" ^ORD(101,1721,1,4,0)="process." ^ORD(101,1721,20)="D EDIT^USRUMMBR" ^ORD(101,1721,99)="57257,37068" ^ORD(101,1722,0)="USR CLASS MEMBER USER MENU^User Class Membership Menu^^M^1^^^^^^^162" ^ORD(101,1722,1,0)="^^1^1^2960222^^^^" ^ORD(101,1722,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1722,4)="26" ^ORD(101,1722,10,0)="^101.01PA^15^5" ^ORD(101,1722,10,11,0)="1719^^3^" ^ORD(101,1722,10,12,0)="1721^^5^" ^ORD(101,1722,10,13,0)="1720^^7^" ^ORD(101,1722,10,14,0)="1724^^9^" ^ORD(101,1722,10,15,0)="1726^^10^" ^ORD(101,1722,10,"B",1719,11)="" ^ORD(101,1722,10,"B",1720,13)="" ^ORD(101,1722,10,"B",1721,12)="" ^ORD(101,1722,10,"B",1724,14)="" ^ORD(101,1722,10,"B",1726,15)="" ^ORD(101,1722,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)" ^ORD(101,1722,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1722,26)="S XQORM(""#"")=$G(^TMP(""USRUSER"",$J,""#"")) D RESIZE^USRLM((IOSL-2),18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1722,28)="Select Action: " ^ORD(101,1722,99)="58405,62280" ^ORD(101,1723,0)="USR CLASS MEMBERSHIP CHANGE VIEW^Change View^^A^1^^^^^^^162" ^ORD(101,1723,15)="S VALMBCK=""Q""" ^ORD(101,1723,20)="D FULL^VALM1,MAIN^USRMLST" ^ORD(101,1723,99)="57516,43005" ^ORD(101,1724,0)="USR CLASS MEMBER USER CHANGE VIEW^Change View^^A^1^^^^^^^162" ^ORD(101,1724,15)="D KILL^VALM10() S VALMBCK=$S($D(^TMP(""USRUSER"",$J)):""R"",1:""Q"")" ^ORD(101,1724,20)="D FULL^VALM1,BUILD^USRULST(+$$GETUSER^USRULST)" ^ORD(101,1724,99)="58405,62280" ^ORD(101,1725,0)="USR CLASS MEMBERSHIP SCHEDULE^Schedule Changes^^A^1^^^^^^^162" ^ORD(101,1725,20)="D SCHEDULE^USRMEMBR" ^ORD(101,1725,99)="57257,37068" ^ORD(101,1726,0)="USR CLASS ACTION QUIT^Quit^^A^1^^^^^^^162" ^ORD(101,1726,1,0)="^^1^1^2960222^" ^ORD(101,1726,1,1,0)="Allows user to quit current menu level." ^ORD(101,1726,20)="Q" ^ORD(101,1726,99)="57516,43005" ^ORD(101,1727,0)="USR BUSINESS RULE ADD^Add Rule^^A^1^^^^^^^162" ^ORD(101,1727,1,0)="^^1^1^2970115^" ^ORD(101,1727,1,1,0)="Allows creation of new Business Rules." ^ORD(101,1727,15)="S VALMBCK=""R""" ^ORD(101,1727,20)="D ADD^USRRULA" ^ORD(101,1727,99)="57257,37068" ^ORD(101,1728,0)="USR BUSINESS RULE EDIT^Edit Rule^^A^1^^^^^^^162" ^ORD(101,1728,1,0)="^^1^1^2970115^" ^ORD(101,1728,1,1,0)="Allows modification of existing Business Rules." ^ORD(101,1728,20)="D EDIT^USRRULA" ^ORD(101,1728,99)="57257,37068" ^ORD(101,1729,0)="USR BUSINESS RULE DELETE^Delete Rule^^A^1^^^^^^^162" ^ORD(101,1729,1,0)="^^1^1^2970115^" ^ORD(101,1729,1,1,0)="Allows Deletion of selected Business Rules." ^ORD(101,1729,20)="D DELETE^USRRULA" ^ORD(101,1729,99)="57257,37068" ^ORD(101,1730,0)="USR BUSINESS RULE CHANGE VIEW^Change View^^A^1^^^^^^^162" ^ORD(101,1730,1,0)="^^2^2^2970115^" ^ORD(101,1730,1,1,0)="Allows you to revise the search criteria and rebuild the list of Business" ^ORD(101,1730,1,2,0)="Rules." ^ORD(101,1730,15)="S VALMBCK=""Q""" ^ORD(101,1730,20)="D FULL^VALM1,EN^USRRUL" ^ORD(101,1730,99)="57257,37068" ^ORD(101,1731,0)="USR BUSINESS RULE MENU^Business Rule Menu^^M^1^^^^^^^162" ^ORD(101,1731,1,0)="^^1^1^2970115^" ^ORD(101,1731,1,1,0)="Menu of actions useful in the management of Business Rules." ^ORD(101,1731,4)="26" ^ORD(101,1731,10,0)="^101.01PA^17^6" ^ORD(101,1731,10,11,0)="1727^^3^" ^ORD(101,1731,10,12,0)="1728^^5^" ^ORD(101,1731,10,13,0)="1729^^7^" ^ORD(101,1731,10,14,0)="1730^^9^" ^ORD(101,1731,10,16,0)="1726^^10^" ^ORD(101,1731,10,17,0)="1733^^1^" ^ORD(101,1731,10,"B",1726,16)="" ^ORD(101,1731,10,"B",1727,11)="" ^ORD(101,1731,10,"B",1728,12)="" ^ORD(101,1731,10,"B",1729,13)="" ^ORD(101,1731,10,"B",1730,14)="" ^ORD(101,1731,10,"B",1733,17)="" ^ORD(101,1731,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)+1" ^ORD(101,1731,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1731,26)="S XQORM(""#"")=$G(^TMP(""USRRUL"",$J,""#"")) D RESIZE^USRLM((IOSL-2),18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1731,28)="Select Action: " ^ORD(101,1731,99)="57516,43005" ^ORD(101,1732,0)="USR ACTION SELECT LIST ELEMENT^Select item^^A^1^^^^^^^162" ^ORD(101,1732,20)="D PICK^USRRUL1($P($G(XQORNOD(0)),""="",2)) S VALMBCK=""""" ^ORD(101,1732,99)="57257,37068" ^ORD(101,1733,0)="USR ACTION SEARCH LIST^Find^^A^1^^^^^^^162" ^ORD(101,1733,1,0)="^^5^5^2970115^" ^ORD(101,1733,1,1,0)="Allows users to search list of USER CLASSES, MEMBERS, or BUSINESS RULES" ^ORD(101,1733,1,2,0)="for a text string (word or partial word) from current position to the end" ^ORD(101,1733,1,3,0)="of the list. Upon reaching the end of the last page of the list, the user" ^ORD(101,1733,1,4,0)="will be asked whether to continue the search from the beginning of the" ^ORD(101,1733,1,5,0)="list through the origin of the search." ^ORD(101,1733,20)="D FIND^VALM40" ^ORD(101,1733,99)="57257,37068" ^ORD(101,1734,0)="USR ACTION QUIT^Quit^^A^1^^^^^^^162" ^ORD(101,1734,1,0)="^^1^1^2970115^^^^" ^ORD(101,1734,1,1,0)="Allows user to quit the current menu level." ^ORD(101,1734,20)="Q" ^ORD(101,1734,99)="57257,37068" ^ORD(101,1735,0)="USR ACTION NEXT SCREEN^Next screen^^A^1^^^^^^^162" ^ORD(101,1735,1,0)="^^2^2^2970115^^" ^ORD(101,1735,1,1,0)="If multiple screens of information are available, this will page to the" ^ORD(101,1735,1,2,0)="next screen." ^ORD(101,1735,20)="D NEXT^VALM4" ^ORD(101,1735,99)="57257,37068" ^ORD(101,1736,0)="USR ACTION PREVIOUS SCREEN^Previous Screen^^A^1^^^^^^^162" ^ORD(101,1736,1,0)="^^3^3^2921123^" ^ORD(101,1736,1,1,0)="If multiple screens of information are available, and the user is not on" ^ORD(101,1736,1,2,0)="the first screen, this will allow paging back to the previous screens," ^ORD(101,1736,1,3,0)="one at a time." ^ORD(101,1736,20)="D PREV^VALM4" ^ORD(101,1736,99)="57257,37068" ^ORD(101,1737,0)="USR ACTION TOP^First Screen^^A^1^^^^^^^162" ^ORD(101,1737,1,0)="^^1^1^2930225^" ^ORD(101,1737,1,1,0)="If multiple screens are available, this will page to the first screen." ^ORD(101,1737,20)="D FIRST^VALM4" ^ORD(101,1737,99)="57257,37068" ^ORD(101,1738,0)="USR ACTION BOTTOM^Last Screen^^A^1^^^^^^^162" ^ORD(101,1738,1,0)="2" ^ORD(101,1738,1,1,0)="If multiple screens of information are available, this will page to the" ^ORD(101,1738,1,2,0)="last screen." ^ORD(101,1738,20)="D LAST^VALM4" ^ORD(101,1738,99)="57257,37068" ^ORD(101,1739,0)="USR HIDDEN ACTIONS^Hidden Actions^^M^1^^^^^^^162" ^ORD(101,1739,1,0)="^^4^4^2950628^^" ^ORD(101,1739,1,1,0)="This menu includes the secondary or ""hidden actions"" which are provided" ^ORD(101,1739,1,2,0)="by the List Manager (e.g., scroll right, scroll left, up one line, etc.)" ^ORD(101,1739,1,3,0)="and which may be used in the review screens, but which are not visible" ^ORD(101,1739,1,4,0)="in the top level action menu." ^ORD(101,1739,4)="26" ^ORD(101,1739,10,0)="^101.01PA^20^12" ^ORD(101,1739,10,9,0)="1735^+^1^" ^ORD(101,1739,10,10,0)="1736^-^2^" ^ORD(101,1739,10,11,0)="1737^FS^3^" ^ORD(101,1739,10,12,0)="1738^LS^4^" ^ORD(101,1739,10,13,0)="448^DN^14^" ^ORD(101,1739,10,14,0)="466^GO^23^" ^ORD(101,1739,10,15,0)="464^<^15^" ^ORD(101,1739,10,16,0)="452^PL^26^" ^ORD(101,1739,10,17,0)="444^RD^24^" ^ORD(101,1739,10,18,0)="463^>^16^" ^ORD(101,1739,10,19,0)="447^UP^13^" ^ORD(101,1739,10,20,0)="454^ADPL^^" ^ORD(101,1739,10,"B",444,17)="" ^ORD(101,1739,10,"B",447,19)="" ^ORD(101,1739,10,"B",448,13)="" ^ORD(101,1739,10,"B",452,16)="" ^ORD(101,1739,10,"B",454,20)="" ^ORD(101,1739,10,"B",463,18)="" ^ORD(101,1739,10,"B",464,15)="" ^ORD(101,1739,10,"B",466,14)="" ^ORD(101,1739,10,"B",1735,9)="" ^ORD(101,1739,10,"B",1736,10)="" ^ORD(101,1739,10,"B",1737,11)="" ^ORD(101,1739,10,"B",1738,12)="" ^ORD(101,1739,99)="61142,58433" ^ORD(101,1740,0)="TIU HIDDEN ACTIONS^Hidden Actions^^M^1^^^^^^^163" ^ORD(101,1740,1,0)="^^4^4^2950628^^" ^ORD(101,1740,1,1,0)="This menu includes the secondary or ""hidden actions"" which are provided" ^ORD(101,1740,1,2,0)="by the List Manager (e.g., scroll right, scroll left, up one line, etc.)" ^ORD(101,1740,1,3,0)="and which may be used in the review screens, but which are not visible" ^ORD(101,1740,1,4,0)="in the top level action menu." ^ORD(101,1740,4)="26" ^ORD(101,1740,10,0)="^101.01PA^21^13" ^ORD(101,1740,10,9,0)="1758^+^1^" ^ORD(101,1740,10,10,0)="1759^-^2^" ^ORD(101,1740,10,11,0)="1763^FS^3^" ^ORD(101,1740,10,12,0)="1764^LS^4^" ^ORD(101,1740,10,13,0)="448^DN^14^" ^ORD(101,1740,10,14,0)="466^GO^23^" ^ORD(101,1740,10,15,0)="464^<^15^" ^ORD(101,1740,10,16,0)="452^PL^26^" ^ORD(101,1740,10,17,0)="444^RD^24^" ^ORD(101,1740,10,18,0)="463^>^16^" ^ORD(101,1740,10,19,0)="447^UP^13^" ^ORD(101,1740,10,20,0)="454^ADPL^^" ^ORD(101,1740,10,21,0)="1949^CWAD^^" ^ORD(101,1740,10,"B",444,17)="" ^ORD(101,1740,10,"B",447,19)="" ^ORD(101,1740,10,"B",448,13)="" ^ORD(101,1740,10,"B",452,16)="" ^ORD(101,1740,10,"B",454,20)="" ^ORD(101,1740,10,"B",463,18)="" ^ORD(101,1740,10,"B",464,15)="" ^ORD(101,1740,10,"B",466,14)="" ^ORD(101,1740,10,"B",1758,9)="" ^ORD(101,1740,10,"B",1759,10)="" ^ORD(101,1740,10,"B",1763,11)="" ^ORD(101,1740,10,"B",1764,12)="" ^ORD(101,1740,10,"B",1949,21)="" ^ORD(101,1740,99)="61142,58433" ^ORD(101,1741,0)="TIU HIDDEN ACTIONS BROWSE^Hidden Actions^^M^1^^^^^^^163" ^ORD(101,1741,1,0)="^^4^4^2950628^^" ^ORD(101,1741,1,1,0)="This menu includes the secondary or ""hidden actions"" which are provided" ^ORD(101,1741,1,2,0)="by the List Manager (e.g., up one line, down one line, go to page #, etc.)" ^ORD(101,1741,1,3,0)="and which may be used in the browse screens, but which are not visible" ^ORD(101,1741,1,4,0)="in the top level action menu." ^ORD(101,1741,4)="26" ^ORD(101,1741,10,0)="^101.01PA^21^21" ^ORD(101,1741,10,6,0)="1758^+^1^" ^ORD(101,1741,10,7,0)="1759^-^2^" ^ORD(101,1741,10,8,0)="1763^FS^3^" ^ORD(101,1741,10,9,0)="1764^LS^4^" ^ORD(101,1741,10,10,0)="444^RD^8^" ^ORD(101,1741,10,11,0)="447^UP^5^" ^ORD(101,1741,10,12,0)="448^DN^6^" ^ORD(101,1741,10,13,0)="466^GO^7^" ^ORD(101,1741,10,14,0)="454^ADPL^9^" ^ORD(101,1741,10,15,0)="1761^Q^10^" ^ORD(101,1741,10,16,0)="1949^CWAD^^" ^ORD(101,1741,10,17,0)="1956^CT^^" ^ORD(101,1741,10,18,0)="463^>^12^" ^ORD(101,1741,10,19,0)="464^<^14^" ^ORD(101,1741,10,20,0)="3043^DD^16^" ^ORD(101,1741,10,21,0)="4159^EC^18" ^ORD(101,1741,10,"B",444,10)="" ^ORD(101,1741,10,"B",447,11)="" ^ORD(101,1741,10,"B",448,12)="" ^ORD(101,1741,10,"B",454,14)="" ^ORD(101,1741,10,"B",463,18)="" ^ORD(101,1741,10,"B",464,19)="" ^ORD(101,1741,10,"B",466,13)="" ^ORD(101,1741,10,"B",1758,6)="" ^ORD(101,1741,10,"B",1759,7)="" ^ORD(101,1741,10,"B",1761,15)="" ^ORD(101,1741,10,"B",1763,8)="" ^ORD(101,1741,10,"B",1764,9)="" ^ORD(101,1741,10,"B",1949,16)="" ^ORD(101,1741,10,"B",1956,17)="" ^ORD(101,1741,10,"B",3043,20)="" ^ORD(101,1741,10,"B",4159,21)="" ^ORD(101,1741,99)="61142,58433" ^ORD(101,1742,0)="TIU ACTION MENU MGR^Act on Documents^^M^1^^^^^^^163" ^ORD(101,1742,1,0)="^^1^1^2980304^^^^" ^ORD(101,1742,1,1,0)="Menu of actions which may be executed by MIS Managers." ^ORD(101,1742,4)="26" ^ORD(101,1742,10,0)="^101.01PA^19^19" ^ORD(101,1742,10,1,0)="1754^^5^" ^ORD(101,1742,10,2,0)="1755^^26^" ^ORD(101,1742,10,3,0)="3048^^19^" ^ORD(101,1742,10,6,0)="1769^^11^" ^ORD(101,1742,10,7,0)="1766^^9^" ^ORD(101,1742,10,8,0)="1833^^21^" ^ORD(101,1742,10,9,0)="1761^^27^" ^ORD(101,1742,10,10,0)="1775^^3^" ^ORD(101,1742,10,11,0)="1768^^25^" ^ORD(101,1742,10,12,0)="1774^^17^" ^ORD(101,1742,10,15,0)="1931^^1^" ^ORD(101,1742,10,16,0)="1773^^13^" ^ORD(101,1742,10,17,0)="1776^^7^" ^ORD(101,1742,10,18,0)="2058^^15^" ^ORD(101,1742,10,19,0)="3045^^23^" ^ORD(101,1742,10,"B",1754,1)="" ^ORD(101,1742,10,"B",1755,2)="" ^ORD(101,1742,10,"B",1761,9)="" ^ORD(101,1742,10,"B",1766,7)="" ^ORD(101,1742,10,"B",1768,11)="" ^ORD(101,1742,10,"B",1769,6)="" ^ORD(101,1742,10,"B",1773,16)="" ^ORD(101,1742,10,"B",1774,12)="" ^ORD(101,1742,10,"B",1775,10)="" ^ORD(101,1742,10,"B",1776,17)="" ^ORD(101,1742,10,"B",1833,8)="" ^ORD(101,1742,10,"B",1931,15)="" ^ORD(101,1742,10,"B",2058,18)="" ^ORD(101,1742,10,"B",3045,19)="" ^ORD(101,1742,10,"B",3048,3)="" ^ORD(101,1742,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT) S:$G(TIUGLINK) VALMSG=$$LINKMSG^TIUGR2(TIUGLINK)" ^ORD(101,1742,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1742,26)="S XQORM(""#"")=$G(^TMP(""TIUR"",$J,""#"")) D RESIZE^TIULM(21,17),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1742,28)="Select Action: " ^ORD(101,1742,99)="60390,45799" ^ORD(101,1743,0)="TIU ACTION MENU READ-ONLY^Act on Documents^^M^1^^^^^^^163" ^ORD(101,1743,1,0)="^^1^1^2930505^^^^" ^ORD(101,1743,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1743,4)="26" ^ORD(101,1743,10,0)="^101.01PA^10^6" ^ORD(101,1743,10,1,0)="1755^^7^" ^ORD(101,1743,10,2,0)="1757^^3^" ^ORD(101,1743,10,5,0)="1835^^5^" ^ORD(101,1743,10,6,0)="1761^^11^" ^ORD(101,1743,10,7,0)="1762^^9^" ^ORD(101,1743,10,10,0)="1931^^1^" ^ORD(101,1743,10,"B",1755,1)="" ^ORD(101,1743,10,"B",1757,2)="" ^ORD(101,1743,10,"B",1761,6)="" ^ORD(101,1743,10,"B",1762,7)="" ^ORD(101,1743,10,"B",1835,5)="" ^ORD(101,1743,10,"B",1931,10)="" ^ORD(101,1743,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)" ^ORD(101,1743,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1743,26)="S XQORM(""#"")=$G(^TMP(""TIUR"",$J,""#"")) D RESIZE^TIULM(21,18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1743,28)="Select Action: " ^ORD(101,1743,99)="59970,46882" ^ORD(101,1744,0)="TIU BROWSE MENU MGR^Review/edit/sign^^M^1^^^^^^^163" ^ORD(101,1744,1,0)="^^1^1^2950628^^" ^ORD(101,1744,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1744,4)="26" ^ORD(101,1744,10,0)="^101.01PA^16^16" ^ORD(101,1744,10,3,0)="1779^^5^" ^ORD(101,1744,10,4,0)="1780^^3^" ^ORD(101,1744,10,5,0)="1784^^7^" ^ORD(101,1744,10,6,0)="1761^^17^" ^ORD(101,1744,10,7,0)="1782^^1^" ^ORD(101,1744,10,10,0)="1777^^9^" ^ORD(101,1744,10,11,0)="1778^^11^" ^ORD(101,1744,10,12,0)="1783^^15^" ^ORD(101,1744,10,13,0)="1781^^13^" ^ORD(101,1744,10,14,0)="1786^^6^" ^ORD(101,1744,10,15,0)="455^^12^" ^ORD(101,1744,10,16,0)="3046^^16^" ^ORD(101,1744,10,"B",455,15)="" ^ORD(101,1744,10,"B",1761,6)="" ^ORD(101,1744,10,"B",1777,10)="" ^ORD(101,1744,10,"B",1778,11)="" ^ORD(101,1744,10,"B",1779,3)="" ^ORD(101,1744,10,"B",1780,4)="" ^ORD(101,1744,10,"B",1781,13)="" ^ORD(101,1744,10,"B",1782,7)="" ^ORD(101,1744,10,"B",1783,12)="" ^ORD(101,1744,10,"B",1784,5)="" ^ORD(101,1744,10,"B",1786,14)="" ^ORD(101,1744,10,"B",3046,16)="" ^ORD(101,1744,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1744,20)="S XQORM(""SH"")=0" ^ORD(101,1744,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1744,26)="S VALMSG=""+ Next Screen - Prev Screen ?? More actions"" D RESIZE^TIULM(21,18),SHOW^VALM" ^ORD(101,1744,28)="Select Action: " ^ORD(101,1744,99)="60390,45799" ^ORD(101,1745,0)="TIU BROWSE MENU READ ONLY^Review/edit/sign^^M^1^^^^^^^163" ^ORD(101,1745,1,0)="^^1^1^2950628^^^^" ^ORD(101,1745,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1745,4)="26" ^ORD(101,1745,10,0)="^101.01PA^5^3" ^ORD(101,1745,10,3,0)="1780^^2^" ^ORD(101,1745,10,4,0)="1761^^3^" ^ORD(101,1745,10,5,0)="1782^^1^" ^ORD(101,1745,10,"B",1761,4)="" ^ORD(101,1745,10,"B",1780,3)="" ^ORD(101,1745,10,"B",1782,5)="" ^ORD(101,1745,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1745,20)="S XQORM(""SH"")=0" ^ORD(101,1745,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1745,26)="S VALMSG=""+ Next Screen - Prev Screen ?? More actions"" D RESIZE^TIULM(21,18),SHOW^VALM" ^ORD(101,1745,28)="Select Action: " ^ORD(101,1745,99)="59970,46882" ^ORD(101,1746,0)="TIU REVIEW SCREEN MENU^Screen^^M^1^^^^^^^163" ^ORD(101,1746,1,0)="^^2^2^2970309^^^^" ^ORD(101,1746,1,1,0)="This menu type option is used for selecting the Review Screen for" ^ORD(101,1746,1,2,0)="documents." ^ORD(101,1746,4)="40^^Y" ^ORD(101,1746,10,0)="^101.01PA^8^8" ^ORD(101,1746,10,1,0)="1747^AU^2^" ^ORD(101,1746,10,2,0)="1748^PT^3^" ^ORD(101,1746,10,3,0)="1749^AT^4^" ^ORD(101,1746,10,4,0)="1752^SP^5^" ^ORD(101,1746,10,5,0)="1750^TS^7^" ^ORD(101,1746,10,6,0)="1751^ALL^1^" ^ORD(101,1746,10,7,0)="1804^SUB^6^" ^ORD(101,1746,10,8,0)="1805^SVC^7^" ^ORD(101,1746,10,"B",1747,1)="" ^ORD(101,1746,10,"B",1748,2)="" ^ORD(101,1746,10,"B",1749,3)="" ^ORD(101,1746,10,"B",1750,5)="" ^ORD(101,1746,10,"B",1751,6)="" ^ORD(101,1746,10,"B",1752,4)="" ^ORD(101,1746,10,"B",1804,7)="" ^ORD(101,1746,10,"B",1805,8)="" ^ORD(101,1746,24)="I 1 X:$O(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1746,99)="57257,37216" ^ORD(101,1747,0)="TIU REVIEW BY AUTHOR^Author^^A^1^^^^^^^163" ^ORD(101,1747,1,0)="^^1^1^2950628^^" ^ORD(101,1747,1,1,0)="This action type option is used for specifying review by author" ^ORD(101,1747,20)="" ^ORD(101,1747,24)="" ^ORD(101,1747,99)="57257,37215" ^ORD(101,1748,0)="TIU REVIEW BY PATIENT^Patient^^A^1^^^^^^^163" ^ORD(101,1748,1,0)="^^1^1^2950628^^" ^ORD(101,1748,1,1,0)="This action type option is used for specifying Review by patient." ^ORD(101,1748,20)="" ^ORD(101,1748,24)="" ^ORD(101,1748,99)="57257,37215" ^ORD(101,1749,0)="TIU REVIEW BY RESP PROVIDER^Attending Physician^^A^1^^^^^^^163" ^ORD(101,1749,1,0)="^^2^2^2950628^^" ^ORD(101,1749,1,1,0)="This action type option is used for specifying review by Attending" ^ORD(101,1749,1,2,0)="Physician." ^ORD(101,1749,20)="" ^ORD(101,1749,24)="" ^ORD(101,1749,99)="57257,37215" ^ORD(101,1750,0)="TIU REVIEW BY TRANSCRIPTIONIST^Transcriptionist^^A^1^^^^^^^163" ^ORD(101,1750,1,0)="^^2^2^2950628^^" ^ORD(101,1750,1,1,0)="Select transcriptionist as a second-level search criterion for building" ^ORD(101,1750,1,2,0)="the clinician's review screen list." ^ORD(101,1750,24)="" ^ORD(101,1750,99)="57257,37215" ^ORD(101,1751,0)="TIU REVIEW BY ALL CATEGORIES^All Categories^^A^1^^^^^^^163" ^ORD(101,1751,1,0)="^^3^3^2950628^^" ^ORD(101,1751,1,1,0)="Allows user to show all categories of documents, without concern for the" ^ORD(101,1751,1,2,0)="second level search criterion (i.e., Author, Attending Physician, Treating" ^ORD(101,1751,1,3,0)="Specialty, or Transcriptionist)." ^ORD(101,1751,99)="57257,37215" ^ORD(101,1752,0)="TIU REVIEW BY TREATING SPECIALTY^Treating Specialty^^A^1^^^^^^^163" ^ORD(101,1752,1,0)="^^2^2^2950628^^" ^ORD(101,1752,1,1,0)="Select treating specialty as a second-level search criterion for building" ^ORD(101,1752,1,2,0)="the clinician's review screen list." ^ORD(101,1752,24)="" ^ORD(101,1752,99)="57257,37215" ^ORD(101,1753,0)="TIU ACTION MENU CLINICIAN^Act on Documents^^M^1^^^^^^^163" ^ORD(101,1753,1,0)="^^1^1^2970309^^^^" ^ORD(101,1753,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1753,4)="26" ^ORD(101,1753,10,0)="^101.01PA^21^21" ^ORD(101,1753,10,1,0)="1754^^12^" ^ORD(101,1753,10,2,0)="1755^^23^" ^ORD(101,1753,10,3,0)="1756^^15^" ^ORD(101,1753,10,4,0)="1757^^21^" ^ORD(101,1753,10,7,0)="1760^^22^" ^ORD(101,1753,10,8,0)="1761^^35^" ^ORD(101,1753,10,9,0)="1762^^25^^^" ^ORD(101,1753,10,13,0)="1814^^11^" ^ORD(101,1753,10,14,0)="1817^^14^" ^ORD(101,1753,10,16,0)="1872^^13^" ^ORD(101,1753,10,17,0)="1769^^31^" ^ORD(101,1753,10,18,0)="1921^^24^" ^ORD(101,1753,10,19,0)="2171^^34^" ^ORD(101,1753,10,20,0)="3045^^32^" ^ORD(101,1753,10,21,0)="3014^^33^" ^ORD(101,1753,10,"B",1754,1)="" ^ORD(101,1753,10,"B",1755,2)="" ^ORD(101,1753,10,"B",1756,3)="" ^ORD(101,1753,10,"B",1757,4)="" ^ORD(101,1753,10,"B",1760,7)="" ^ORD(101,1753,10,"B",1761,8)="" ^ORD(101,1753,10,"B",1762,9)="" ^ORD(101,1753,10,"B",1769,17)="" ^ORD(101,1753,10,"B",1814,13)="" ^ORD(101,1753,10,"B",1817,14)="" ^ORD(101,1753,10,"B",1872,16)="" ^ORD(101,1753,10,"B",1921,18)="" ^ORD(101,1753,10,"B",2171,19)="" ^ORD(101,1753,10,"B",3014,21)="" ^ORD(101,1753,10,"B",3045,20)="" ^ORD(101,1753,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT) S:$G(TIUGLINK) VALMSG=$$LINKMSG^TIUGR2(TIUGLINK)" ^ORD(101,1753,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1753,26)="S XQORM(""#"")=$G(^TMP(""TIUR"",$J,""#"")) D RESIZE^TIULM(21,17),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1753,28)="Select Action: " ^ORD(101,1753,99)="60390,45799" ^ORD(101,1754,0)="TIU ACTION EDIT^Edit^^A^1^^^^^^^163" ^ORD(101,1754,1,0)="^^4^4^2980304^^^^" ^ORD(101,1754,1,1,0)="Allows authorized users to edit selected documents online...When electronic" ^ORD(101,1754,1,2,0)="signature is enabled, physicians will be prompted for their signatures upon" ^ORD(101,1754,1,3,0)="exit, thereby allowing doctors to review, edit and sign as a one-step" ^ORD(101,1754,1,4,0)="process." ^ORD(101,1754,15)="" ^ORD(101,1754,20)="D EDIT^TIURA" ^ORD(101,1754,24)="I '$G(TIUGLINK)" ^ORD(101,1754,99)="59970,46882" ^ORD(101,1755,0)="TIU ACTION PRINT^Print^^A^1^^^^^^^163" ^ORD(101,1755,1,0)="^^2^2^2980304^" ^ORD(101,1755,1,1,0)="Allows authorized users to print copies of selected documents to a" ^ORD(101,1755,1,2,0)="specified device." ^ORD(101,1755,20)="D PRINT^TIURA" ^ORD(101,1755,24)="I '$G(TIUGLINK)" ^ORD(101,1755,99)="59970,46882" ^ORD(101,1756,0)="TIU ACTION SIGN/COSIGN^Sign/Cosign^^A^1^^^^^^^163" ^ORD(101,1756,1,0)="^^6^6^2980305^" ^ORD(101,1756,1,1,0)="Allows clinicians to electronically sign selected documents or addenda." ^ORD(101,1756,1,2,0)=" " ^ORD(101,1756,1,3,0)="NOTE: Electronic signature carries the same legal ramifications that wet" ^ORD(101,1756,1,4,0)="signature of a hard-copy document carries. You are advised to carefully" ^ORD(101,1756,1,5,0)="review each document for content and accuracy before exercising this" ^ORD(101,1756,1,6,0)="option." ^ORD(101,1756,20)="D ELSIG^TIURS1" ^ORD(101,1756,24)="I '$G(TIUGLINK)" ^ORD(101,1756,99)="59970,46882" ^ORD(101,1757,0)="TIU ACTION DETAILED DISPLAY^Detailed Display^^A^1^^^^^^^163" ^ORD(101,1757,1,0)="^^3^3^2980304^" ^ORD(101,1757,1,1,0)="Displays the all of the details concerning the selected document's" ^ORD(101,1757,1,2,0)="history, including audit trail and reassignment history, in addition to" ^ORD(101,1757,1,3,0)="the narrative body of the document." ^ORD(101,1757,2,0)="^101.02A^2^2" ^ORD(101,1757,2,1,0)="DT" ^ORD(101,1757,2,2,0)="DD" ^ORD(101,1757,2,"B","DD",2)="" ^ORD(101,1757,2,"B","DT",1)="" ^ORD(101,1757,20)="D DISPLAY^TIURA2" ^ORD(101,1757,24)="" ^ORD(101,1757,99)="59970,46882" ^ORD(101,1758,0)="TIU ACTION NEXT SCREEN^Next screen^^A^1^^^^^^^163" ^ORD(101,1758,1,0)="^^2^2^2931129^" ^ORD(101,1758,1,1,0)="If multiple screens of information are available, this will page to the" ^ORD(101,1758,1,2,0)="next screen." ^ORD(101,1758,20)="D NEXT^VALM4" ^ORD(101,1758,99)="58559,37635" ^ORD(101,1759,0)="TIU ACTION PREVIOUS SCREEN^Previous Screen^^A^1^^^^^^^163" ^ORD(101,1759,1,0)="^^3^3^2921123^" ^ORD(101,1759,1,1,0)="If multiple screens of information are available, and the user is not on" ^ORD(101,1759,1,2,0)="the first screen, this will allow paging back to the previous screens," ^ORD(101,1759,1,3,0)="one at a time." ^ORD(101,1759,20)="D PREV^VALM4" ^ORD(101,1759,99)="58559,37635" ^ORD(101,1760,0)="TIU ACTION BROWSE FOR CLINICIAN^Browse^^A^1^^^^^^^163" ^ORD(101,1760,1,0)="^101.06^4^4^3010109^^^^" ^ORD(101,1760,1,1,0)="Allows users to browse through Documents from the Review Screen." ^ORD(101,1760,1,2,0)="In addition to scrolling sequentially through the selected documents" ^ORD(101,1760,1,3,0)="and their addenda, the user may Search for a particular word or" ^ORD(101,1760,1,4,0)="phrase, or Print draft copies to a selected device." ^ORD(101,1760,15)="" ^ORD(101,1760,20)="D:$G(TIUGLINK) BROWSE^TIURA2(""TIU BROWSE FOR READ ONLY"") D:'$G(TIUGLINK) BROWSE^TIURA2(""TIU BROWSE FOR CLINICIAN"")" ^ORD(101,1760,24)="" ^ORD(101,1760,99)="59970,46882" ^ORD(101,1761,0)="TIU ACTION QUIT^Quit^^A^1^^^^^^^163" ^ORD(101,1761,1,0)="^^1^1^3010412^" ^ORD(101,1761,1,1,0)="Allows user to quit the current menu level." ^ORD(101,1761,2,0)="^101.02A^^0" ^ORD(101,1761,20)="Q" ^ORD(101,1761,99)="59970,46882" ^ORD(101,1762,0)="TIU ACTION CHANGE VIEW CLINICIAN^Change View^^A^1^^^^^^^163" ^ORD(101,1762,1,0)="^^2^2^2970309^^" ^ORD(101,1762,1,1,0)="Allows users to modify the list of reports by signature status, review" ^ORD(101,1762,1,2,0)="screen and dictation date range without exiting the review screen." ^ORD(101,1762,15)="" ^ORD(101,1762,20)="K TIUQUIK,VALMY D FIXLSTNW^TIULM,FULL^VALM1,MAKELIST^TIUR($S(+$G(^TMP(""TIUR"",$J,""CLASS"")):+$G(^TMP(""TIUR"",$J,""CLASS"")),1:38),1) S VALMBCK=""R"",VALMBG=1" ^ORD(101,1762,99)="58559,37635" ^ORD(101,1763,0)="TIU ACTION TOP^First Screen^^A^1^^^^^^^163" ^ORD(101,1763,1,0)="^^1^1^2930225^" ^ORD(101,1763,1,1,0)="If multiple screens are available, this will page to the first screen." ^ORD(101,1763,20)="D FIRST^VALM4" ^ORD(101,1763,99)="58559,37635" ^ORD(101,1764,0)="TIU ACTION BOTTOM^Last Screen^^A^1^^^^^^^163" ^ORD(101,1764,1,0)="^^2^2^2950420^^" ^ORD(101,1764,1,1,0)="If multiple screens of information are available, this will page to the" ^ORD(101,1764,1,2,0)="last screen." ^ORD(101,1764,20)="D LAST^VALM4" ^ORD(101,1764,99)="58559,37635" ^ORD(101,1765,0)="TIU BROWSE MENU CLINICIAN^Review/edit/sign^^M^1^^^^^^^163" ^ORD(101,1765,1,0)="^101.06^1^1^3001026^^^^" ^ORD(101,1765,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1765,4)="26" ^ORD(101,1765,10,0)="^101.01PA^16^16" ^ORD(101,1765,10,3,0)="1779^^5^" ^ORD(101,1765,10,4,0)="1780^^3^" ^ORD(101,1765,10,5,0)="1785^^9^" ^ORD(101,1765,10,6,0)="1761^^23^" ^ORD(101,1765,10,7,0)="1782^^1^" ^ORD(101,1765,10,8,0)="1841^^11^" ^ORD(101,1765,10,9,0)="1873^^7^" ^ORD(101,1765,10,10,0)="1778^^15^" ^ORD(101,1765,10,11,0)="1924^^13^" ^ORD(101,1765,10,14,0)="1963^^17^" ^ORD(101,1765,10,15,0)="2172^^19^" ^ORD(101,1765,10,16,0)="3046^^21^" ^ORD(101,1765,10,"B",1761,6)="" ^ORD(101,1765,10,"B",1778,10)="" ^ORD(101,1765,10,"B",1779,3)="" ^ORD(101,1765,10,"B",1780,4)="" ^ORD(101,1765,10,"B",1782,7)="" ^ORD(101,1765,10,"B",1785,5)="" ^ORD(101,1765,10,"B",1841,8)="" ^ORD(101,1765,10,"B",1873,9)="" ^ORD(101,1765,10,"B",1924,11)="" ^ORD(101,1765,10,"B",1963,14)="" ^ORD(101,1765,10,"B",2172,15)="" ^ORD(101,1765,10,"B",3046,16)="" ^ORD(101,1765,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1765,20)="S XQORM(""SH"")=0" ^ORD(101,1765,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1765,26)="S VALMSG=""+ Next Screen - Prev Screen ?? More actions"" D RESIZE^TIULM(21,18),SHOW^VALM" ^ORD(101,1765,28)="Select Action: " ^ORD(101,1765,99)="60390,45799" ^ORD(101,1766,0)="TIU ACTION AMEND^Amend Document^^A^1^^^^^^^163" ^ORD(101,1766,1,0)="^^2^2^2980304^^^^" ^ORD(101,1766,1,1,0)="Allows authorized users to AMEND documents at the patient's request, per" ^ORD(101,1766,1,2,0)="the Privacy Act." ^ORD(101,1766,20)="D AMEND^TIURB" ^ORD(101,1766,99)="58559,37635" ^ORD(101,1767,0)="TIU ACTION CHANGE VIEW ERROR SCREEN^Change view^^A^1^^^^^^^163" ^ORD(101,1767,1,0)="^^3^3^2930614^" ^ORD(101,1767,1,1,0)=" " ^ORD(101,1767,1,2,0)="Allows modification of the current list of filing errors to include either" ^ORD(101,1767,1,3,0)="UNRESOLVED, RESOLVED, or ALL errors for a specified time range." ^ORD(101,1767,20)="D FULL^VALM1,MAKELIST^TIUELST S VALMBCK=""R"",VALMBG=1" ^ORD(101,1767,99)="57257,37215" ^ORD(101,1768,0)="TIU ACTION CHANGE VIEW OTHER^Change View^^A^1^^^^^^^163" ^ORD(101,1768,1,0)="^^4^4^2980304^" ^ORD(101,1768,1,1,0)="Allows MIS users to modify the list of documents by STATUS, DOCUMENT" ^ORD(101,1768,1,2,0)="TYPE, SEARCH CATEGORY (e.g., AUTHOR, EXPECTED COSIGNER, SERVICE," ^ORD(101,1768,1,3,0)="HOSPITAL LOCATION, etc.) and REFERENCE DATE range without exiting the" ^ORD(101,1768,1,4,0)="review screen." ^ORD(101,1768,20)="K VALMY D FIXLSTNW^TIULM,FULL^VALM1,MAKELIST^TIUR($S(+$G(^TMP(""TIUR"",$J,""CLASS"")):+$G(^TMP(""TIUR"",$J,""CLASS"")),1:38)) S VALMBCK=""R"",VALMBG=1" ^ORD(101,1768,99)="58559,37635" ^ORD(101,1769,0)="TIU ACTION DELETE^Delete Document^^A^1^^^^^^^163" ^ORD(101,1769,1,0)="^^2^2^2980304^" ^ORD(101,1769,1,1,0)="Allows authorized users (as defined by your local business rules in ASU)" ^ORD(101,1769,1,2,0)="to delete a document at the patient's request, per the Privacy Act." ^ORD(101,1769,20)="D DELETE^TIURB2" ^ORD(101,1769,24)="I '$G(TIUGLINK)" ^ORD(101,1769,99)="59970,46882" ^ORD(101,1770,0)="TIU ACTION MENU UPLOAD EVENTS^Act on Filing Events^^M^1^^^^^^^163" ^ORD(101,1770,1,0)="^^2^2^2930614^" ^ORD(101,1770,1,1,0)="Menu of actions which may be executed to resolve error generated by the" ^ORD(101,1770,1,2,0)="upload filer/router." ^ORD(101,1770,4)="26" ^ORD(101,1770,10,0)="^101.01PA^7^5" ^ORD(101,1770,10,3,0)="1767^^4^" ^ORD(101,1770,10,4,0)="1931^^1^" ^ORD(101,1770,10,5,0)="1761^^5^" ^ORD(101,1770,10,6,0)="1860^^2^" ^ORD(101,1770,10,7,0)="1772^^3^" ^ORD(101,1770,10,"B",1761,5)="" ^ORD(101,1770,10,"B",1767,3)="" ^ORD(101,1770,10,"B",1772,7)="" ^ORD(101,1770,10,"B",1860,6)="" ^ORD(101,1770,10,"B",1931,4)="" ^ORD(101,1770,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)" ^ORD(101,1770,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1770,26)="S XQORM(""#"")=$G(^TMP(""TIUERR"",$J,""#"")) D RESIZE^TIULM(21,18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1770,28)="Select Action: " ^ORD(101,1770,99)="59970,46882" ^ORD(101,1771,0)="TIU ACTION MENU MRT^Act on Documents^^M^1^^^^^^^163" ^ORD(101,1771,1,0)="^101.06^1^1^3010220^^^^" ^ORD(101,1771,1,1,0)="Menu of actions which may be executed by Medical Records Technicians." ^ORD(101,1771,4)="26" ^ORD(101,1771,10,0)="^101.01PA^17^17" ^ORD(101,1771,10,1,0)="1754^^7^" ^ORD(101,1771,10,2,0)="1755^^19^" ^ORD(101,1771,10,3,0)="1757^^15^" ^ORD(101,1771,10,6,0)="1776^^3^" ^ORD(101,1771,10,7,0)="1834^^17^" ^ORD(101,1771,10,8,0)="1761^^23^" ^ORD(101,1771,10,9,0)="1775^^5^" ^ORD(101,1771,10,10,0)="1773^^9^" ^ORD(101,1771,10,11,0)="1768^^21^" ^ORD(101,1771,10,12,0)="1774^^13^" ^ORD(101,1771,10,16,0)="2058^^11^" ^ORD(101,1771,10,17,0)="3045^^20^" ^ORD(101,1771,10,"B",1754,1)="" ^ORD(101,1771,10,"B",1755,2)="" ^ORD(101,1771,10,"B",1757,3)="" ^ORD(101,1771,10,"B",1761,8)="" ^ORD(101,1771,10,"B",1768,11)="" ^ORD(101,1771,10,"B",1773,10)="" ^ORD(101,1771,10,"B",1774,12)="" ^ORD(101,1771,10,"B",1775,9)="" ^ORD(101,1771,10,"B",1776,6)="" ^ORD(101,1771,10,"B",1834,7)="" ^ORD(101,1771,10,"B",2058,16)="" ^ORD(101,1771,10,"B",3045,17)="" ^ORD(101,1771,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT) S:$G(TIUGLINK) VALMSG=$$LINKMSG^TIUGR2(TIUGLINK)" ^ORD(101,1771,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1771,26)="S XQORM(""#"")=$G(^TMP(""TIUR"",$J,""#"")) D RESIZE^TIULM(21,18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,1771,28)="Select Action: " ^ORD(101,1771,99)="60390,45799" ^ORD(101,1772,0)="TIU ACTION PRINT UPLOAD EVENT^Print event^^A^1^^^^^^^163" ^ORD(101,1772,1,0)="^^1^1^2950914^" ^ORD(101,1772,1,1,0)="Allows users to print a detailed view of the filing event." ^ORD(101,1772,20)="D PRINT^TIURE" ^ORD(101,1772,99)="57257,37216" ^ORD(101,1773,0)="TIU ACTION REASSIGN^Reassign^^A^1^^^^^^^163" ^ORD(101,1773,1,0)="^^6^6^3010301^" ^ORD(101,1773,1,1,0)="Allows authorized users to reassign Documents which have been" ^ORD(101,1773,1,2,0)="inappropriately assigned to a given patient or the wrong admission/visit." ^ORD(101,1773,1,3,0)="Authorized users can also reassign a signed Original or Addendum, promote" ^ORD(101,1773,1,4,0)="an Addendum as an Original, or ""swap"" the Addendum and the Original." ^ORD(101,1773,1,5,0)=" " ^ORD(101,1773,1,6,0)="Interdisciplinary entries must be detached before they can be reassigned." ^ORD(101,1773,15)="S VALMBCK=""R""" ^ORD(101,1773,20)="D REASSIGN^TIURD" ^ORD(101,1773,24)="I '$G(TIUGLINK)" ^ORD(101,1773,99)="58559,37635" ^ORD(101,1774,0)="TIU ACTION SEND BACK^Send Back^^A^1^^^^^^^163" ^ORD(101,1774,1,0)="^^7^7^3010301^" ^ORD(101,1774,1,1,0)="Allows Medical Record Technicians or MIS Managers to send a Document back" ^ORD(101,1774,1,2,0)="to transcription for editing, provided that it has not yet been signed." ^ORD(101,1774,1,3,0)="The status of the Document is changed to ""unreleased"" and clinicians and MAS" ^ORD(101,1774,1,4,0)="personnel are prevented from viewing it until the modifications have been " ^ORD(101,1774,1,5,0)="made, and the Document has been re-released." ^ORD(101,1774,1,6,0)=" " ^ORD(101,1774,1,7,0)="Interdiciplinary entries must be detached before they can be sent back." ^ORD(101,1774,20)="D SENDBACK^TIURB" ^ORD(101,1774,24)="I '$G(TIUGLINK)" ^ORD(101,1774,99)="58559,37635" ^ORD(101,1775,0)="TIU ACTION SIGN ON CHART^On Chart^^A^1^^^^^^^163" ^ORD(101,1775,1,0)="^^5^5^2980304^^^^" ^ORD(101,1775,1,1,0)="Allows MIS clerks to mark documents as ""signed on chart.""" ^ORD(101,1775,1,2,0)="" ^ORD(101,1775,1,3,0)="NOTE: This step is NECESSARY when the provider elects to sign the chart" ^ORD(101,1775,1,4,0)="copy of the document, rather than entering his/her electronic signature" ^ORD(101,1775,1,5,0)="on-line." ^ORD(101,1775,20)="D SIGNCHRT^TIURT" ^ORD(101,1775,24)="I '$G(TIUGLINK)" ^ORD(101,1775,99)="58559,37635" ^ORD(101,1776,0)="TIU ACTION VERIFY^Verify/Unverify^^A^1^^^^^^^163" ^ORD(101,1776,1,0)="^^7^7^3010301^" ^ORD(101,1776,1,1,0)="Allows MIS personnel to review, edit, and verify/unverify Documents." ^ORD(101,1776,1,2,0)=" " ^ORD(101,1776,1,3,0)="Interdisciplinary entries must be detached before they can be" ^ORD(101,1776,1,4,0)="verified/unverified." ^ORD(101,1776,1,5,0)=" " ^ORD(101,1776,1,6,0)="NOTE: This action may only be applied to Documents which are specified" ^ORD(101,1776,1,7,0)="as requiring MAS verification." ^ORD(101,1776,20)="D VERIFY^TIURC" ^ORD(101,1776,24)="I '$G(TIUGLINK)" ^ORD(101,1776,99)="58559,37635" ^ORD(101,1777,0)="TIU BROWSE ACTION AMEND^Amend^^A^1^^^^^^^163" ^ORD(101,1777,1,0)="^^2^2^2950628^^^" ^ORD(101,1777,1,1,0)="Allows authorized users to amend current document at the" ^ORD(101,1777,1,2,0)="patient's request, per the Privacy Act." ^ORD(101,1777,20)="D AMEND1^TIURB,BLDTMP^TIUBR(TIUDA) S VALMBCK=""R""" ^ORD(101,1777,99)="58559,37635" ^ORD(101,1778,0)="TIU BROWSE ACTION DELETE^Delete^^A^1^^^^^^^163" ^ORD(101,1778,1,0)="^^2^2^2980305^" ^ORD(101,1778,1,1,0)="Allows authorized users (as defined by your local business rules in" ^ORD(101,1778,1,2,0)="ASU) to delete a document at the patient's request, per the Privacy Act." ^ORD(101,1778,20)="D DEL^TIURB2(TIUDA) S VALMBCK=""Q""" ^ORD(101,1778,99)="58559,37635" ^ORD(101,1779,0)="TIU BROWSE ACTION EDIT^Edit^^A^1^^^^^^^163" ^ORD(101,1779,1,0)="^^4^4^2950628^^^^" ^ORD(101,1779,1,1,0)="Allows authorized users to edit current document online...When electronic" ^ORD(101,1779,1,2,0)="signature is enabled, physicians will be prompted for their signatures upon" ^ORD(101,1779,1,3,0)="exit, thereby allowing doctors to review, edit and sign as a one-step" ^ORD(101,1779,1,4,0)="process. " ^ORD(101,1779,20)="S TIUCHNG=0 D CLEAR^VALM1,EDIT1^TIURA,BLDTMP^TIUBR(TIUDA) S VALMBCK=$S($D(^TIU(8925,TIUDA)):""R"",1:""Q"")" ^ORD(101,1779,99)="58559,37635" ^ORD(101,1780,0)="TIU BROWSE ACTION PRINT^Print^^A^1^^^^^^^163" ^ORD(101,1780,1,0)="^^2^2^2950628^^^^" ^ORD(101,1780,1,1,0)="Allows users to print copies of selected documents on their corresponding VA " ^ORD(101,1780,1,2,0)="Standard Forms to a specified device." ^ORD(101,1780,20)="D CLEAR^VALM1,PRINT1^TIURA S VALMBCK=""R""" ^ORD(101,1780,99)="58559,37635" ^ORD(101,1781,0)="TIU BROWSE ACTION REASSIGN^Reassign^^A^1^^^^^^^163" ^ORD(101,1781,1,0)="^^3^3^3050219^" ^ORD(101,1781,1,1,0)="Allows authorized users (as defined by your local business rules in ASU)" ^ORD(101,1781,1,2,0)="to re-link the current document which has been inappropriately linked" ^ORD(101,1781,1,3,0)="to the wrong patient or the wrong visit/admission." ^ORD(101,1781,20)="D REASSIG1^TIURD" ^ORD(101,1781,99)="60390,45799" ^ORD(101,1782,0)="TIU BROWSE ACTION SEARCH^Find^^A^1^^^^^^^163" ^ORD(101,1782,1,0)="^^5^5^2980305^" ^ORD(101,1782,1,1,0)="Allows users to search for a text string (word or partial word) from the" ^ORD(101,1782,1,2,0)="current position in the summary through its end. Upon reaching" ^ORD(101,1782,1,3,0)="the end of the document, the user will be asked whether to continue the" ^ORD(101,1782,1,4,0)="search from the beginning of the document through the origin of the" ^ORD(101,1782,1,5,0)="search." ^ORD(101,1782,20)="D FIND^VALM40" ^ORD(101,1782,99)="58559,37635" ^ORD(101,1783,0)="TIU BROWSE ACTION SEND BACK^Send Back^^A^1^^^^^^^163" ^ORD(101,1783,1,0)="^^5^5^2980305^" ^ORD(101,1783,1,1,0)="Allows Medical Record Technicians or MIS Managers to send the current" ^ORD(101,1783,1,2,0)="document back to transcription to be edited, if it hasn't been signed yet." ^ORD(101,1783,1,3,0)="The status of the document is changed to ""unreleased"" and clinicians and " ^ORD(101,1783,1,4,0)="MAS personnel are prevented from viewing it until the modifications have" ^ORD(101,1783,1,5,0)="been made, and the document has been re-released." ^ORD(101,1783,20)="D SENDBACK^TIUT(TIUDA) S VALMBCK=$S(+$P(^TIU(8925,+TIUDA,13),U,4):""R"",1:""Q"")" ^ORD(101,1783,99)="58559,37635" ^ORD(101,1784,0)="TIU BROWSE ACTION SIGN ON CHART^On Chart^^A^1^^^^^^^163" ^ORD(101,1784,1,0)="^^1^1^2980305^" ^ORD(101,1784,1,1,0)="Allows MIS clerks to mark current document as ""signed on chart.""" ^ORD(101,1784,20)="D SIGCHRT1^TIURT($G(TIUDA))" ^ORD(101,1784,99)="58559,37635" ^ORD(101,1785,0)="TIU BROWSE ACTION SIGN/COSIGN^Sign/Cosign^^A^1^^^^^^^163" ^ORD(101,1785,1,0)="^^6^6^2980305^" ^ORD(101,1785,1,1,0)="Allows clinicians to electronically sign the current document." ^ORD(101,1785,1,2,0)=" " ^ORD(101,1785,1,3,0)="NOTE: Electronic signature carries the same legal ramifications that wet" ^ORD(101,1785,1,4,0)="signature of a hard-copy document carries. You are advised to carefully" ^ORD(101,1785,1,5,0)="review each document for content and accuracy before exercising this" ^ORD(101,1785,1,6,0)="option." ^ORD(101,1785,15)="S VALMBCK=""Q""" ^ORD(101,1785,20)="D EDSIG^TIURS(TIUDA,$G(TIUDATA),1)" ^ORD(101,1785,24)="" ^ORD(101,1785,99)="58559,37635" ^ORD(101,1786,0)="TIU BROWSE ACTION VERIFY^Verify/Unverify^^A^1^^^^^^^163" ^ORD(101,1786,1,0)="^^5^5^2980305^" ^ORD(101,1786,1,1,0)="Allows MIS personnel to review, edit, and verify/unverify the current" ^ORD(101,1786,1,2,0)="document." ^ORD(101,1786,1,3,0)=" " ^ORD(101,1786,1,4,0)="NOTE: This action may only be selected when the site parameter to require" ^ORD(101,1786,1,5,0)="MAS verification is set." ^ORD(101,1786,15)="S VALMBCK=""Q""" ^ORD(101,1786,20)="D VERIFY1^TIURC" ^ORD(101,1786,24)="; If verification is required" ^ORD(101,1786,99)="58559,37635" ^ORD(101,1787,0)="TIU BROWSE MENU MRT^Review/edit/sign^^M^1^^^^^^^163" ^ORD(101,1787,1,0)="^^1^1^2950628^^" ^ORD(101,1787,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1787,4)="26" ^ORD(101,1787,10,0)="^101.01PA^14^14" ^ORD(101,1787,10,3,0)="1779^^7^" ^ORD(101,1787,10,4,0)="1780^^13^" ^ORD(101,1787,10,5,0)="1761^^15^" ^ORD(101,1787,10,9,0)="1786^^3^" ^ORD(101,1787,10,10,0)="1784^^5^" ^ORD(101,1787,10,11,0)="1783^^9^" ^ORD(101,1787,10,12,0)="1781^^11^" ^ORD(101,1787,10,13,0)="1841^^12^" ^ORD(101,1787,10,14,0)="3046^^14^" ^ORD(101,1787,10,"B",1761,5)="" ^ORD(101,1787,10,"B",1779,3)="" ^ORD(101,1787,10,"B",1780,4)="" ^ORD(101,1787,10,"B",1781,12)="" ^ORD(101,1787,10,"B",1783,11)="" ^ORD(101,1787,10,"B",1784,10)="" ^ORD(101,1787,10,"B",1786,9)="" ^ORD(101,1787,10,"B",1841,13)="" ^ORD(101,1787,10,"B",3046,14)="" ^ORD(101,1787,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1787,20)="S XQORM(""SH"")=0" ^ORD(101,1787,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1787,26)="S VALMSG=""+ Next Screen - Prev Screen ?? More actions"" D RESIZE^TIULM(21,18),SHOW^VALM" ^ORD(101,1787,28)="Select Action: " ^ORD(101,1787,99)="60390,45799" ^ORD(101,1788,0)="TIU ENTER/EDIT^Enter/Edit Document^^A^1^^^^^^^163" ^ORD(101,1788,1,0)="^^2^2^2950628^^^^" ^ORD(101,1788,1,1,0)="This option allows transcriptionists to enter/edit dictated discharge" ^ORD(101,1788,1,2,0)="summaries or addenda directly on-line." ^ORD(101,1788,5)="GMRD ENTER/EDIT;DIC(19," ^ORD(101,1788,20)="D MAIN^TIUEDIT" ^ORD(101,1788,99)="57257,37216" ^ORD(101,1789,0)="TIU ERROR STATUS ALL^All errors^^A^1^^^^^^^163" ^ORD(101,1789,1,0)="^^2^2^2950628^^" ^ORD(101,1789,1,1,0)=" " ^ORD(101,1789,1,2,0)="Show all filing errors, regardless of their resolution status." ^ORD(101,1789,99)="57257,37216" ^ORD(101,1790,0)="TIU ERROR STATUS RESOLVED^Resolved^^A^1^^^^^^^163" ^ORD(101,1790,1,0)="^^2^2^2950628^^" ^ORD(101,1790,1,1,0)=" " ^ORD(101,1790,1,2,0)="Show only those filing errors which have already been resolved." ^ORD(101,1790,99)="57257,37216" ^ORD(101,1791,0)="TIU ERROR STATUS SELECT^Error Status^^M^1^^^^^^^163" ^ORD(101,1791,1,0)="^^3^3^2950628^^" ^ORD(101,1791,1,1,0)=" " ^ORD(101,1791,1,2,0)="Select the resolution status for the filing errors which you would like to" ^ORD(101,1791,1,3,0)="see displayed." ^ORD(101,1791,4)="40" ^ORD(101,1791,10,0)="^101.01PA^3^3" ^ORD(101,1791,10,1,0)="1792^^1^" ^ORD(101,1791,10,2,0)="1790^^2^" ^ORD(101,1791,10,3,0)="1789^^3^" ^ORD(101,1791,10,"B",1789,3)="" ^ORD(101,1791,10,"B",1790,2)="" ^ORD(101,1791,10,"B",1792,1)="" ^ORD(101,1791,99)="57257,37216" ^ORD(101,1792,0)="TIU ERROR STATUS UNRESOLVED^Unresolved^^A^1^^^^^^^163" ^ORD(101,1792,1,0)="^^2^2^2950628^^" ^ORD(101,1792,1,1,0)=" " ^ORD(101,1792,1,2,0)="Show only those errors which have NOT yet been resolved." ^ORD(101,1792,99)="57257,37216" ^ORD(101,1793,0)="TIU DS OE/RR INTERFACE^Review Discharge Summary^^A^1^^^^^^^163" ^ORD(101,1793,1,0)="^^4^4^2960605^^^^" ^ORD(101,1793,1,1,0)="Allows access to the Browse Discharge Summary utility." ^ORD(101,1793,1,2,0)=" " ^ORD(101,1793,1,3,0)="NOTE: This action is designed to be added to ANY OE/RR menu (e.g., OR" ^ORD(101,1793,1,4,0)="USER MENU, OR ADD MENU CLINICIAN, etc.)." ^ORD(101,1793,2,0)="^101.02A^2^2" ^ORD(101,1793,2,1,0)="DISCHARGE SUMMARY" ^ORD(101,1793,2,2,0)="DS" ^ORD(101,1793,2,"B","DISCHARGE SUMMARY",1)="" ^ORD(101,1793,2,"B","DS",2)="" ^ORD(101,1793,3,0)="^101.03P^1^1" ^ORD(101,1793,3,1,0)="57" ^ORD(101,1793,3,"B",57,1)="" ^ORD(101,1793,15)="K TIUPRM0,TIUPRM1,TIUPRM3" ^ORD(101,1793,20)="D MAIN^TIUBRWS($$WHATMPL^TIULC1(DUZ),244)" ^ORD(101,1793,99)="57257,37216" ^ORD(101,1794,0)="TIU STATUS UNDICTATED^undictated^^A^1^^^^^^^163" ^ORD(101,1794,1,0)="^^1^1^2970613^^" ^ORD(101,1794,1,1,0)="Status undictated (not implemented)." ^ORD(101,1794,99)="58552,37263" ^ORD(101,1795,0)="TIU STATUS UNTRANSCRIBED^untranscribed^^A^1^^^^^^^163" ^ORD(101,1795,1,0)="^^1^1^2970613^^" ^ORD(101,1795,1,1,0)="Status Untranscribed (not implemented)." ^ORD(101,1795,99)="58552,37263" ^ORD(101,1796,0)="TIU STATUS UNRELEASED^unreleased^^A^1^^^^^^^163" ^ORD(101,1796,1,0)="^^1^1^2970613^^" ^ORD(101,1796,1,1,0)="Documents not yet released from transcription (i.e., DRAFT documents)." ^ORD(101,1796,99)="58552,37263" ^ORD(101,1797,0)="TIU STATUS UNVERIFIED^unverified^^A^1^^^^^^^163" ^ORD(101,1797,1,0)="^^2^2^2970613^^" ^ORD(101,1797,1,1,0)="Documents not yet verified by MAS. When verification is required, these" ^ORD(101,1797,1,2,0)="won't be available for view outside of MAS." ^ORD(101,1797,99)="58552,37263" ^ORD(101,1798,0)="TIU STATUS UNSIGNED^unsigned^^A^1^^^^^^^163" ^ORD(101,1798,1,0)="^^1^1^2970613^^" ^ORD(101,1798,1,1,0)="Documents which have not yet been signed by the author." ^ORD(101,1798,99)="58552,37263" ^ORD(101,1799,0)="TIU STATUS UNCOSIGNED^uncosigned^^A^1^^^^^^^163" ^ORD(101,1799,1,0)="^^2^2^2970613^^" ^ORD(101,1799,1,1,0)="Documents which have not yet been overread and cosigned by the author's" ^ORD(101,1799,1,2,0)="supervisor, or the expected cosigner of the document." ^ORD(101,1799,99)="58552,37263" ^ORD(101,1800,0)="TIU STATUS COMPLETED^completed^^A^1^^^^^^^163" ^ORD(101,1800,1,0)="^101.06^2^2^3010413^^^^" ^ORD(101,1800,1,1,0)="Documents which have been signed (and if necessary, cosigned), and are" ^ORD(101,1800,1,2,0)="ostensibly ""authenticated.""" ^ORD(101,1800,99)="58552,37263" ^ORD(101,1801,0)="TIU STATUS AMENDED^amended^^A^1^^^^^^^163" ^ORD(101,1801,1,0)="^^2^2^2970613^^" ^ORD(101,1801,1,1,0)="Documents which have been amended following signature, per the Privacy" ^ORD(101,1801,1,2,0)="Act." ^ORD(101,1801,99)="58552,37263" ^ORD(101,1802,0)="TIU STATUS PURGED^purged^^A^1^^^^^^^163" ^ORD(101,1802,1,0)="^^2^2^2970613^^" ^ORD(101,1802,1,1,0)="Documents which have been purged from the system, and are only available" ^ORD(101,1802,1,2,0)="through archival means." ^ORD(101,1802,99)="58552,37263" ^ORD(101,1803,0)="TIU STATUS MENU^Select STATUS^^M^1^^^^^^^163" ^ORD(101,1803,1,0)="^^1^1^2990226^^^^" ^ORD(101,1803,1,1,0)="Menu of allowable statuses." ^ORD(101,1803,4)="26" ^ORD(101,1803,10,0)="^101.01PA^11^11" ^ORD(101,1803,10,1,0)="1794^1^1^" ^ORD(101,1803,10,2,0)="1795^2^2^" ^ORD(101,1803,10,3,0)="1796^3^3^" ^ORD(101,1803,10,4,0)="1797^4^4^" ^ORD(101,1803,10,5,0)="1798^5^5^" ^ORD(101,1803,10,6,0)="1799^6^6^" ^ORD(101,1803,10,7,0)="1800^7^7^" ^ORD(101,1803,10,8,0)="1801^8^8^" ^ORD(101,1803,10,9,0)="1802^9^9^" ^ORD(101,1803,10,10,0)="1829^10^10^" ^ORD(101,1803,10,11,0)="3042^11^11^" ^ORD(101,1803,10,"B",1794,1)="" ^ORD(101,1803,10,"B",1795,2)="" ^ORD(101,1803,10,"B",1796,3)="" ^ORD(101,1803,10,"B",1797,4)="" ^ORD(101,1803,10,"B",1798,5)="" ^ORD(101,1803,10,"B",1799,6)="" ^ORD(101,1803,10,"B",1800,7)="" ^ORD(101,1803,10,"B",1801,8)="" ^ORD(101,1803,10,"B",1802,9)="" ^ORD(101,1803,10,"B",1829,10)="" ^ORD(101,1803,10,"B",3042,11)="" ^ORD(101,1803,99)="58552,37264" ^ORD(101,1804,0)="TIU REVIEW BY SUBJECT^Subject^^A^1^^^^^^^163" ^ORD(101,1804,1,0)="^^1^1^2950628^^" ^ORD(101,1804,1,1,0)="This action type option is used for specifying Review by patient." ^ORD(101,1804,24)="" ^ORD(101,1804,99)="57257,37216" ^ORD(101,1805,0)="TIU REVIEW BY SERVICE^Service^^^1^^^^^^^163" ^ORD(101,1805,1,0)="^^1^1^2970613^^" ^ORD(101,1805,1,1,0)="Search Category by Service." ^ORD(101,1805,99)="57257,37216" ^ORD(101,1806,0)="TIUFH ACTION MENU CLIN^Edit Document Definitions^^M^1^^^^^^^163" ^ORD(101,1806,1,0)="^^1^1^2970220^^^^" ^ORD(101,1806,1,1,0)="Protocol Menu for List Manager Template TIUFH EDIT DDEFS CLIN" ^ORD(101,1806,4)="26^" ^ORD(101,1806,10,0)="^101.01PA^40^9" ^ORD(101,1806,10,5,0)="1807^^11^" ^ORD(101,1806,10,26,0)="1843^^22^" ^ORD(101,1806,10,32,0)="1853^^12^^^" ^ORD(101,1806,10,35,0)="1888^^21^" ^ORD(101,1806,10,36,0)="1896^^31^" ^ORD(101,1806,10,37,0)="1761^^32^" ^ORD(101,1806,10,38,0)="1941^^13^" ^ORD(101,1806,10,39,0)="1818^^33^" ^ORD(101,1806,10,40,0)="1819^^33^" ^ORD(101,1806,10,"B",1761,37)="" ^ORD(101,1806,10,"B",1807,5)="" ^ORD(101,1806,10,"B",1818,39)="" ^ORD(101,1806,10,"B",1819,40)="" ^ORD(101,1806,10,"B",1843,26)="" ^ORD(101,1806,10,"B",1853,32)="" ^ORD(101,1806,10,"B",1888,35)="" ^ORD(101,1806,10,"B",1896,36)="" ^ORD(101,1806,10,"B",1941,38)="" ^ORD(101,1806,15)="" ^ORD(101,1806,20)="" ^ORD(101,1806,24)="" ^ORD(101,1806,26)="S VALMSG=$$VMSG^TIUFL D SHOW^VALM" ^ORD(101,1806,28)="Select Action: " ^ORD(101,1806,99)="59970,46882" ^ORD(101,1807,0)="TIUFH ACTION EXPAND/COLLAPSE ENTRY^Expand/Collapse^^A^1^^^^^^^163" ^ORD(101,1807,1,0)="^^2^2^2970220^^^^" ^ORD(101,1807,1,1,0)="Expands/collapses selected entry to display entry items or to collapse" ^ORD(101,1807,1,2,0)="entry hierarchy. Entries preceded by + have items and can be expanded." ^ORD(101,1807,20)="D EXPCOLL^TIUFH1" ^ORD(101,1807,24)="" ^ORD(101,1807,99)="57257,37216" ^ORD(101,1808,0)="TIU ACTION REFRESH^Re-Display Screen^^A^1^^^^^^^163" ^ORD(101,1808,1,0)="^^2^2^2980304^^^" ^ORD(101,1808,1,1,0)="Refresh the display (useful when the List Manager display becomes" ^ORD(101,1808,1,2,0)="""corrupt"" on return from an action or jump)." ^ORD(101,1808,2,0)="^101.02A^2^2" ^ORD(101,1808,2,1,0)="RS" ^ORD(101,1808,2,2,0)="RE" ^ORD(101,1808,2,"B","RE",2)="" ^ORD(101,1808,2,"B","RS",1)="" ^ORD(101,1808,20)="S VALMBCK=""R"" D RE^VALM4" ^ORD(101,1808,99)="57257,37216" ^ORD(101,1809,0)="TIU ACTION MENU SEND BACK^Send Back Menu^^M^1^^^^^^^163" ^ORD(101,1809,1,0)="^^1^1^2930802^^" ^ORD(101,1809,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1809,4)="26" ^ORD(101,1809,10,0)="^101.01PA^8^4" ^ORD(101,1809,10,3,0)="1780^^3^" ^ORD(101,1809,10,4,0)="1761^^6^" ^ORD(101,1809,10,5,0)="1782^^1^" ^ORD(101,1809,10,8,0)="1783^^5^" ^ORD(101,1809,10,"B",1761,4)="" ^ORD(101,1809,10,"B",1780,3)="" ^ORD(101,1809,10,"B",1782,5)="" ^ORD(101,1809,10,"B",1783,8)="" ^ORD(101,1809,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1809,20)="S VALMSG=""+ Next Screen - Prev Screen ?? More Actions""" ^ORD(101,1809,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1809,26)="D RESIZE^TIULM(21,18),SHOW^VALM S XQORM(""B"")=$S(VALMLST1 TIUFAVAL=Y_U_""P""" ^ORD(101,1846,99)="57257,37217" ^ORD(101,1847,0)="TIUF OWNER CLASS^Class^^A^1^^^^^^^163" ^ORD(101,1847,1,0)="^^2^2^2970220^" ^ORD(101,1847,1,1,0)="Enter Class Owner to get Document Definitions owned by a particular User" ^ORD(101,1847,1,2,0)="Class." ^ORD(101,1847,20)="N DIC,X,Y D FULL^VALM1 S TIUFFULL=1,DIC=8930,DIC(0)=""AEMQ"" D ^DIC S:Y>0 TIUFAVAL=Y_U_""C""" ^ORD(101,1847,21,0)="^101.021A^^0" ^ORD(101,1847,99)="57257,37217" ^ORD(101,1848,0)="TIUF OWNER INDIVIDUAL^Individual^^A^1^^^^^^^163" ^ORD(101,1848,1,0)="^^2^2^2970220^" ^ORD(101,1848,1,1,0)="Enter Individual Owner to get Document Definitions owned by given" ^ORD(101,1848,1,2,0)="individual as a person OR as a class member of an owning User Class." ^ORD(101,1848,20)="N DIC,X,Y D FULL^VALM1 S TIUFFULL=1,DIC=200,DIC(0)=""AEQ"",DIC(""A"")=""Select Individual Owner: "" S DIC(""B"")=$$PERSNAME^TIULC1(DUZ) D ^DIC S:Y>0 TIUFAVAL=Y_U_""I""" ^ORD(101,1848,99)="57257,37217" ^ORD(101,1849,0)="TIUF CHANGE START WITH/GO TO^Start With/Go To^^A^1^^^^^^^163" ^ORD(101,1849,20)="S TIUFATTR=TIUFTMPA,TIUFAVAL=TIUFTMPV" ^ORD(101,1849,28)="" ^ORD(101,1849,99)="57257,37217" ^ORD(101,1850,0)="TIUF CHANGE SORT ATTRIBUTE^Attribute^^M^1^^^^^^^163" ^ORD(101,1850,4)="26" ^ORD(101,1850,10,0)="^101.01PA^6^6" ^ORD(101,1850,10,1,0)="1824^T^1^^^" ^ORD(101,1850,10,2,0)="1822^O^2^^^" ^ORD(101,1850,10,3,0)="1823^S^3^^^" ^ORD(101,1850,10,4,0)="1882^U^4^^^" ^ORD(101,1850,10,5,0)="1828^A^6^" ^ORD(101,1850,10,6,0)="1889^P^5^" ^ORD(101,1850,10,"B",1822,2)="" ^ORD(101,1850,10,"B",1823,3)="" ^ORD(101,1850,10,"B",1824,1)="" ^ORD(101,1850,10,"B",1828,5)="" ^ORD(101,1850,10,"B",1882,4)="" ^ORD(101,1850,10,"B",1889,6)="" ^ORD(101,1850,15)="" ^ORD(101,1850,20)="S XQORM(0)=""1A\"",XQORM(""??"")=""D ATTRIB^TIUFXHL1""" ^ORD(101,1850,26)="W """"" ^ORD(101,1850,28)="Select Attribute: (T/O/S/U/P/A): " ^ORD(101,1850,99)="57257,37218" ^ORD(101,1851,0)="TIUF CHANGE SORT ATTR VALUE^Value of Attribute^^A^1^^^^^^^163" ^ORD(101,1851,10,0)="^101.01PA^0^0" ^ORD(101,1851,15)="" ^ORD(101,1851,20)="S TIUFATTR=TIUFTMPA S X=$P(TIUFATTR,U),X=$G(^TMP(""TIUF"",$J,""SORT""_X)),X=X_"";ORD(101,"" W:'X !,"" ?? Viewing ALL: No Attribute Value"" H:'X 2 D:X EN^XQOR" ^ORD(101,1851,21,0)="^101.021A^^0" ^ORD(101,1851,24)="" ^ORD(101,1851,26)="" ^ORD(101,1851,99)="57257,37217" ^ORD(101,1852,0)="TIUFHA ACTION COPY^Copy/Move^^A^1^^^^^^^163" ^ORD(101,1852,1,0)="^^282^282^2990310^" ^ORD(101,1852,1,1,0)="MANAGER OPTIONS" ^ORD(101,1852,1,2,0)=" " ^ORD(101,1852,1,3,0)="OVERVIEW" ^ORD(101,1852,1,4,0)=" " ^ORD(101,1852,1,5,0)="Copy/Move is a very powerful action and should be used with great care." ^ORD(101,1852,1,6,0)="It is accessible only through the Document Definitions (Manager)" ^ORD(101,1852,1,7,0)="menu [TIUF DOCUMENT DEFINITION MGR]. Like other actions on the" ^ORD(101,1852,1,8,0)="Manager menu, it disregards ownership. Users are expected to move only" ^ORD(101,1852,1,9,0)="titles or documents for which they are responsible." ^ORD(101,1852,1,10,0)=" " ^ORD(101,1852,1,11,0)="Under the action Copy/Move, users may choose MT to MOVE TITLE, MD to MOVE" ^ORD(101,1852,1,12,0)="DOCUMENTS, C to COPY, or U to UPDATE DOCUMENTS:" ^ORD(101,1852,1,13,0)=" " ^ORD(101,1852,1,14,0)=" MT: A Title may be moved to a different Document Class, for example," ^ORD(101,1852,1,15,0)=" when hospital services are reorganized. Documents defined by the" ^ORD(101,1852,1,16,0)=" title are then updated with the new PARENT DOCUMENT TYPE (field # .04)." ^ORD(101,1852,1,17,0)=" " ^ORD(101,1852,1,18,0)=" MD: ALL documents defined by a given title may be moved to another" ^ORD(101,1852,1,19,0)=" title, for example, when a little-used title is eliminated in favor of" ^ORD(101,1852,1,20,0)=" a broader title." ^ORD(101,1852,1,21,0)=" " ^ORD(101,1852,1,22,0)=" C: Titles, components, and objects may be copied, for example, when" ^ORD(101,1852,1,23,0)=" jump-starting a new Document Definition by copying and then editing the" ^ORD(101,1852,1,24,0)=" copy. Title and component copies may be placed under the same parent as" ^ORD(101,1852,1,25,0)=" the original, placed under a new parent, or left as orphans." ^ORD(101,1852,1,26,0)=" " ^ORD(101,1852,1,27,0)=" U: Documents defined by a particular title are updated with the correct" ^ORD(101,1852,1,28,0)=" PARENT DOCUMENT TYPE (field # .04)." ^ORD(101,1852,1,29,0)=" " ^ORD(101,1852,1,30,0)="When Moving or Copying a title, users must be aware that changing" ^ORD(101,1852,1,31,0)="positions in the hierarchy gives an entry NEW INHERITED behavior." ^ORD(101,1852,1,32,0)="Accordingly, some moves may not be appropriate. It is the user's" ^ORD(101,1852,1,33,0)="responsibility to determine whether or not a given action is appropriate." ^ORD(101,1852,1,34,0)=" " ^ORD(101,1852,1,35,0)=" " ^ORD(101,1852,1,36,0)="DETAILED DESCRIPTION" ^ORD(101,1852,1,37,0)=" " ^ORD(101,1852,1,38,0)="Action C COPY:" ^ORD(101,1852,1,39,0)=" " ^ORD(101,1852,1,40,0)="The Copy action prompts for an entry to copy and a new entry name to copy" ^ORD(101,1852,1,41,0)="into. This name must be different from the name of the entry being copied." ^ORD(101,1852,1,42,0)="The action then creates a new entry with the chosen name and copies the" ^ORD(101,1852,1,43,0)="fields in the Document Definition File 8925.1 into the new entry." ^ORD(101,1852,1,44,0)=" " ^ORD(101,1852,1,45,0)="Certain fields require more information on exactly how they are copied:" ^ORD(101,1852,1,46,0)=" " ^ORD(101,1852,1,47,0)=" EMPTY FIELDS - If the original has empty fields, they are copied empty," ^ORD(101,1852,1,48,0)=" NOT as inherited." ^ORD(101,1852,1,49,0)=" " ^ORD(101,1852,1,50,0)=" STATUS FIELD - If the original has a Status of Active or Test, the entry" ^ORD(101,1852,1,51,0)=" may be copied, but the copy has a Status of Inactive." ^ORD(101,1852,1,52,0)=" " ^ORD(101,1852,1,53,0)=" NATIONAL STANDARD FIELD - If the original is National Standard, the" ^ORD(101,1852,1,54,0)=" entry may be copied, but the copy is not" ^ORD(101,1852,1,55,0)=" National Standard." ^ORD(101,1852,1,56,0)=" " ^ORD(101,1852,1,57,0)=" SHARED FIELD - If a component is Shared, it may be copied but the copy" ^ORD(101,1852,1,58,0)=" is not Shared. If the component has subcomponents, new" ^ORD(101,1852,1,59,0)=" nonshared subcomponents are created and added to the" ^ORD(101,1852,1,60,0)=" copy." ^ORD(101,1852,1,61,0)=" " ^ORD(101,1852,1,62,0)=" ITEMS FIELD - If the original entry has items, the action prompts for" ^ORD(101,1852,1,63,0)=" item names to copy into, creates NEW entries for the" ^ORD(101,1852,1,64,0)=" items, and adds the NEW items to the copy." ^ORD(101,1852,1,65,0)=" " ^ORD(101,1852,1,66,0)=" SHARED ITEMS - If a Nonshared entry has a Shared item, the action does" ^ORD(101,1852,1,67,0)=" NOT copy the Shared item but merely adds the Shared item" ^ORD(101,1852,1,68,0)=" to the copy." ^ORD(101,1852,1,69,0)=" " ^ORD(101,1852,1,70,0)="TITLES and COMPONENTS can be copied from the Edit Option or the Sort" ^ORD(101,1852,1,71,0)="Option." ^ORD(101,1852,1,72,0)=" " ^ORD(101,1852,1,73,0)="If an entry is copied under the Edit option, the user is asked which" ^ORD(101,1852,1,74,0)="parent to add the copy to, and the copy is added as an item to this" ^ORD(101,1852,1,75,0)="parent. If no parent is selected, the copy is left as an orphan." ^ORD(101,1852,1,76,0)=" " ^ORD(101,1852,1,77,0)="Copying an Entry to a New Parent:" ^ORD(101,1852,1,78,0)=" " ^ORD(101,1852,1,79,0)=" If the user is copying a title, then the parent to which the copy is" ^ORD(101,1852,1,80,0)=" added must be in the hierarchy and must be a document class." ^ORD(101,1852,1,81,0)=" " ^ORD(101,1852,1,82,0)=" If the user is copying a component, then the parent to which the copy is" ^ORD(101,1852,1,83,0)=" added must be in the hierarchy and must be a title or a component. The" ^ORD(101,1852,1,84,0)=" parent must be inactive and may not be National Standard or Shared." ^ORD(101,1852,1,85,0)=" " ^ORD(101,1852,1,86,0)="If an entry is copied under the Sort option (not the Edit option)," ^ORD(101,1852,1,87,0)="then the title or component copies are left as orphans." ^ORD(101,1852,1,88,0)=" " ^ORD(101,1852,1,89,0)="Although orphan titles or components will not appear in the Document" ^ORD(101,1852,1,90,0)="Definition hierarchy, they can be still be added to a parent through both" ^ORD(101,1852,1,91,0)="the Sort AND THE EDIT options by selecting action ITEMS for the parent," ^ORD(101,1852,1,92,0)="then action Add/Create, and then the orphan item." ^ORD(101,1852,1,93,0)=" " ^ORD(101,1852,1,94,0)="Checking Copies:" ^ORD(101,1852,1,95,0)=" " ^ORD(101,1852,1,96,0)=" Copy titles which have been given a new parent should be thoroughly" ^ORD(101,1852,1,97,0)=" checked before they are activated since their inherited behavior may" ^ORD(101,1852,1,98,0)=" have changed." ^ORD(101,1852,1,99,0)=" " ^ORD(101,1852,1,100,0)=" The check should include Document Definition attributes of the entry" ^ORD(101,1852,1,101,0)=" (including Upload characteristics), TIU Document Parameters, and" ^ORD(101,1852,1,102,0)=" Business Rules. Consider inherited as well as explicit values. Any" ^ORD(101,1852,1,103,0)=" other implicit behavior, local or national, that applies to the entry" ^ORD(101,1852,1,104,0)=" must also be checked." ^ORD(101,1852,1,105,0)=" " ^ORD(101,1852,1,106,0)=" Although there is no harm in coping a Title to ANY document class in the" ^ORD(101,1852,1,107,0)=" hierarchy as long as the copy is not activated (since the copy has no" ^ORD(101,1852,1,108,0)=" documents), there is no reason to expect that such copies will function" ^ORD(101,1852,1,109,0)=" at all, much less function properly. The user should either ensure that" ^ORD(101,1852,1,110,0)=" they function properly in every way, or delete such copies from the" ^ORD(101,1852,1,111,0)=" Document Definition file." ^ORD(101,1852,1,112,0)=" " ^ORD(101,1852,1,113,0)=" Copy COMPONENTS which have been given a new parent should also be" ^ORD(101,1852,1,114,0)=" checked by thoroughly testing the parent title as above. The copy action" ^ORD(101,1852,1,115,0)=" leaves the parent title of the copy component inactive. It is the user's" ^ORD(101,1852,1,116,0)=" responsibility to test the new parent title and then reactivate it so it" ^ORD(101,1852,1,117,0)=" is available to users for entering documents." ^ORD(101,1852,1,118,0)=" " ^ORD(101,1852,1,119,0)="Note: Although Action Copy COULD be used to change the behavior of an" ^ORD(101,1852,1,120,0)="entry (i.e. change the copy and inactivate the original), it is better to" ^ORD(101,1852,1,121,0)="use Action Edit or Move and not clutter up the file with inactive entries." ^ORD(101,1852,1,122,0)="Most behavior can be edited even when the entry is In Use by documents." ^ORD(101,1852,1,123,0)="Titles can be moved even when they are In Use by documents." ^ORD(101,1852,1,124,0)=" " ^ORD(101,1852,1,125,0)=" " ^ORD(101,1852,1,126,0)="Copying Objects:" ^ORD(101,1852,1,127,0)=" " ^ORD(101,1852,1,128,0)="OBJECTS are copied from the Sort Option or the Create Objects Option." ^ORD(101,1852,1,129,0)="Object Abbreviation and Print Name are not copied, since they must be" ^ORD(101,1852,1,130,0)="different from those of the original. If the user does not have" ^ORD(101,1852,1,131,0)="programmer access, the Object Method is not copied since it is an M" ^ORD(101,1852,1,132,0)="field. Since even inactive objects affect the Document Definition action" ^ORD(101,1852,1,133,0)="TRY for titles whose boilerplate text contains the object, objects should" ^ORD(101,1852,1,134,0)="not be copied/created without good reason. They should be thoroughly" ^ORD(101,1852,1,135,0)="tested before being activated." ^ORD(101,1852,1,136,0)=" " ^ORD(101,1852,1,137,0)=" " ^ORD(101,1852,1,138,0)="Action MT Move Title:" ^ORD(101,1852,1,139,0)=" " ^ORD(101,1852,1,140,0)="The action Move Title is accessed from the Edit option only, since it" ^ORD(101,1852,1,141,0)="involves only entries in the Document Definition hierarchy." ^ORD(101,1852,1,142,0)=" " ^ORD(101,1852,1,143,0)="Action Move Title PERMITS:" ^ORD(101,1852,1,144,0)=" " ^ORD(101,1852,1,145,0)=" Moving TITLES" ^ORD(101,1852,1,146,0)=" Moving between DOCUMENT CLASSES WITHIN THE SAME CLASS" ^ORD(101,1852,1,147,0)=" " ^ORD(101,1852,1,148,0)="Action Move Title DOES NOT PERMIT:" ^ORD(101,1852,1,149,0)=" " ^ORD(101,1852,1,150,0)=" Moving CLASSES or DOCUMENT CLASSES" ^ORD(101,1852,1,151,0)=" Moving COMPONENTS " ^ORD(101,1852,1,152,0)=" (The same effect can be achieved by deleting the component as an item" ^ORD(101,1852,1,153,0)=" from its parent, and adding it as an item to the new parent. This can" ^ORD(101,1852,1,154,0)=" be done even if the component is In Use.)" ^ORD(101,1852,1,155,0)=" Moving NATIONAL STANDARD titles" ^ORD(101,1852,1,156,0)=" Moving titles which are not in the DOCUMENT DEFINITION HIERARCHY" ^ORD(101,1852,1,157,0)=" Moving titles between CLASSES" ^ORD(101,1852,1,158,0)=" Moving FAULTY titles (known as faulty to the computer)" ^ORD(101,1852,1,159,0)=" Moving titles to FAULTY DOCUMENT CLASSES" ^ORD(101,1852,1,160,0)=" Moves which RESULT in FAULTY titles" ^ORD(101,1852,1,161,0)=" (For example, suppose Title NURSE NOTE inherits its Print Method from" ^ORD(101,1852,1,162,0)=" its document class NIGHT NURSE DOCUMENT CLASS. Suppose DAY NURSE" ^ORD(101,1852,1,163,0)=" DOCUMENT CLASS has no Print Method. (This is not a fault since the" ^ORD(101,1852,1,164,0)=" titles under it could all have their own Print Methods.) If a user" ^ORD(101,1852,1,165,0)=" moves NURSE NOTE from NIGHT NURSE DOCUMENT CLASS to DAY NURSE DOCUMENT" ^ORD(101,1852,1,166,0)=" CLASS, then the title lacks a Print Method and becomes faulty." ^ORD(101,1852,1,167,0)=" Documents using the title don't print. In this case, the title must" ^ORD(101,1852,1,168,0)=" first be given its own Print Method, and THEN moved.)" ^ORD(101,1852,1,169,0)=" " ^ORD(101,1852,1,170,0)="The above restrictions are intended to prevent moves between Document" ^ORD(101,1852,1,171,0)="Classes with very different behavior. However, hierarchies vary, and" ^ORD(101,1852,1,172,0)="some structures will still permit risky moves. For example, if Consults" ^ORD(101,1852,1,173,0)="are under Progress Notes, the user can move a nonconsult Title to" ^ORD(101,1852,1,174,0)="Document Class CONSULTS. This sort of move is NOT advised. Anyone" ^ORD(101,1852,1,175,0)="contemplating such a move should carefully read the paragraphs below on" ^ORD(101,1852,1,176,0)="the Consequences of Moves between Very Different Document Classes." ^ORD(101,1852,1,177,0)=" " ^ORD(101,1852,1,178,0)="Moving a title automatically inactivates it. Therefore, managers should" ^ORD(101,1852,1,179,0)="move titles only during off-peak hours. After the title is inactivated and" ^ORD(101,1852,1,180,0)="moved under a new Document Class, the MT action attempts to update the" ^ORD(101,1852,1,181,0)="PARENT DOCUMENT TYPE field (#.04) for existing documents of the title." ^ORD(101,1852,1,182,0)="This may take awhile if there are many documents to update. (If certain" ^ORD(101,1852,1,183,0)="documents were not updated, the user must update them later, using action" ^ORD(101,1852,1,184,0)="Update Documents.) When the action is finished, the title is LEFT" ^ORD(101,1852,1,185,0)="INACTIVE." ^ORD(101,1852,1,186,0)=" " ^ORD(101,1852,1,187,0)="Checking the Title:" ^ORD(101,1852,1,188,0)=" " ^ORD(101,1852,1,189,0)="Since the title has changed position within the hierarchy, its behavior" ^ORD(101,1852,1,190,0)="may have changed. It is the user's responsibility to thoroughly check its" ^ORD(101,1852,1,191,0)="new behavior, and then to reactivate it so it is available for entering" ^ORD(101,1852,1,192,0)="new documents." ^ORD(101,1852,1,193,0)=" " ^ORD(101,1852,1,194,0)="The check should include Document Definition attributes of the entry" ^ORD(101,1852,1,195,0)="(including Basic, Technical, and Upload fields), TIU Document Parameters," ^ORD(101,1852,1,196,0)="and Business Rules. Consider inherited as well as explicit values. Any" ^ORD(101,1852,1,197,0)="other implicit behavior, local or national, that applies to the entry must" ^ORD(101,1852,1,198,0)="also be checked." ^ORD(101,1852,1,199,0)=" " ^ORD(101,1852,1,200,0)="It is possible that the Document Definition action TRY might state that" ^ORD(101,1852,1,201,0)="an entry looks OK when it still does not function. For example," ^ORD(101,1852,1,202,0)="the action TRY may quit without continuing on to let the user enter a" ^ORD(101,1852,1,203,0)="trial document. In such a case, check the title's Document Definition" ^ORD(101,1852,1,204,0)="Fields against a different title that DOES work. (The TRY action checks" ^ORD(101,1852,1,205,0)="that fields EXIST, but does not check whether or not they function" ^ORD(101,1852,1,206,0)="properly.)" ^ORD(101,1852,1,207,0)=" " ^ORD(101,1852,1,208,0)=" " ^ORD(101,1852,1,209,0)="Possible Consequences of Moves between Very Different Document Classes:" ^ORD(101,1852,1,210,0)=" " ^ORD(101,1852,1,211,0)="Some behaviors are explicit, being determined by parameters, Business" ^ORD(101,1852,1,212,0)="Rules, etc.. Others are implicit. For example, a Consult document is" ^ORD(101,1852,1,213,0)="linked to a request when it is created, while a Progress Note document is" ^ORD(101,1852,1,214,0)="not. These differences mean, for example, that one document may belong to" ^ORD(101,1852,1,215,0)="a given cross reference or have a certain field, while another lacks the" ^ORD(101,1852,1,216,0)="field and is not in the cross reference. Furthermore, the entry may have" ^ORD(101,1852,1,217,0)="Business Rules, parameters, etc., which are not appropriate in its new" ^ORD(101,1852,1,218,0)="position. It may also be lacking necessary ones." ^ORD(101,1852,1,219,0)=" " ^ORD(101,1852,1,220,0)="Except for updating the PARENT DOCUMENT TYPE field (#.04) for documents of" ^ORD(101,1852,1,221,0)="a title, the COPY/MOVE actions simply move the entry AS IS, making" ^ORD(101,1852,1,222,0)="no attempt to ensure that it functions correctly in its new position. It" ^ORD(101,1852,1,223,0)="is the user's responsibility to determine whether or not a move is" ^ORD(101,1852,1,224,0)="reasonable, and to make all necessary changes to documents, Document" ^ORD(101,1852,1,225,0)="Definitions, and rules/parameters." ^ORD(101,1852,1,226,0)=" " ^ORD(101,1852,1,227,0)="This does NOT mean that all moves are dangerous. The more the difference" ^ORD(101,1852,1,228,0)="in behavior and the greater the number of documents a title has, the" ^ORD(101,1852,1,229,0)="greater the risk." ^ORD(101,1852,1,230,0)=" " ^ORD(101,1852,1,231,0)="Moves may take awhile if a title has many documents. In the meantime," ^ORD(101,1852,1,232,0)="existing documents may not function properly, and users may not be able to" ^ORD(101,1852,1,233,0)="enter given Titles." ^ORD(101,1852,1,234,0)=" " ^ORD(101,1852,1,235,0)="On the other hand there should be little risk in moving, say, a" ^ORD(101,1852,1,236,0)="Cardiology/Medicine Service Progress Note title from Document Class" ^ORD(101,1852,1,237,0)="MEDICINE SERVICE to Document Class CARDIOLOGY." ^ORD(101,1852,1,238,0)=" " ^ORD(101,1852,1,239,0)="Action MD Move Documents:" ^ORD(101,1852,1,240,0)=" " ^ORD(101,1852,1,241,0)="Under this action, users select an old title and a new title. The action" ^ORD(101,1852,1,242,0)="then attempts to move ALL the documents of the old title to the new title." ^ORD(101,1852,1,243,0)="After a document is moved, its Parent Document Type is updated if" ^ORD(101,1852,1,244,0)="necessary. If some documents are not available for move/update, they can" ^ORD(101,1852,1,245,0)="be moved later using the same action. The old title is then no longer In" ^ORD(101,1852,1,246,0)="Use and can be deleted if desired." ^ORD(101,1852,1,247,0)=" " ^ORD(101,1852,1,248,0)="The old title is inactivated while documents are moved, and LEFT INACTIVE." ^ORD(101,1852,1,249,0)="If the user wants it available for entering documents, the user must" ^ORD(101,1852,1,250,0)="reactivate it." ^ORD(101,1852,1,251,0)=" " ^ORD(101,1852,1,252,0)="Action Move Documents DOES NOT PERMIT:" ^ORD(101,1852,1,253,0)=" " ^ORD(101,1852,1,254,0)=" Moving documents from or to titles that have components" ^ORD(101,1852,1,255,0)=" Moving documents to a faulty title" ^ORD(101,1852,1,256,0)=" Moving documents between CLASSES" ^ORD(101,1852,1,257,0)=" Moving SELECTED documents (To move a particular document from one Title" ^ORD(101,1852,1,258,0)=" to another, use Hidden Action CT Change Title for that particular" ^ORD(101,1852,1,259,0)=" document.)" ^ORD(101,1852,1,260,0)=" " ^ORD(101,1852,1,261,0)="The behavior of documents is determined by their title. Therefore, moving" ^ORD(101,1852,1,262,0)="documents from one title to another can affect their behavior. Users are" ^ORD(101,1852,1,263,0)="responsible to make sure the behavior of the target title is appropriate" ^ORD(101,1852,1,264,0)="BEFORE moving documents to it. Anyone contemplating a move between very" ^ORD(101,1852,1,265,0)="different titles should carefully read the warnings under action Move" ^ORD(101,1852,1,266,0)="Title, above." ^ORD(101,1852,1,267,0)=" " ^ORD(101,1852,1,268,0)=" " ^ORD(101,1852,1,269,0)="Action U Update Documents:" ^ORD(101,1852,1,270,0)=" " ^ORD(101,1852,1,271,0)="This action is intended as a possible follow-up to action Move Title. It" ^ORD(101,1852,1,272,0)="will usually not be necessary since action Move Title itself attempts to" ^ORD(101,1852,1,273,0)="update documents defined by the moved title, giving them the correct new" ^ORD(101,1852,1,274,0)="Parent Document Type. However, if a document is not available, then" ^ORD(101,1852,1,275,0)="action Move Title finishes, leaving that document with the old Parent" ^ORD(101,1852,1,276,0)="Document Type. This may affect document behavior. It will cause CWADs to" ^ORD(101,1852,1,277,0)="fail to generate alerts, and conversely will cause nonCWADs to generate" ^ORD(101,1852,1,278,0)="CWAD alerts. It may have other consequences in the future." ^ORD(101,1852,1,279,0)=" " ^ORD(101,1852,1,280,0)="Action U Update Documents is intended for this situation. It updates" ^ORD(101,1852,1,281,0)="every document defined by a certain title to the correct Parent Document" ^ORD(101,1852,1,282,0)="Type. It can be run multiple times if necessary and entails no risk." ^ORD(101,1852,20)="D COPYMOVE^TIUFHA2" ^ORD(101,1852,24)="" ^ORD(101,1852,26)="" ^ORD(101,1852,99)="57965,68297" ^ORD(101,1853,0)="TIUFH ACTION JUMP TO DDEF^Jump to Document Def^^A^1^^^^^^^163" ^ORD(101,1853,1,0)="^^8^8^2971015^^^" ^ORD(101,1853,1,1,0)="User selects any Document Definition in the Clinical Document Hierarchy" ^ORD(101,1853,1,2,0)="and action expands the display to include the selected entry. Users" ^ORD(101,1853,1,3,0)="cannot jump to Orphans or Objects since they do not belong to the" ^ORD(101,1853,1,4,0)="hierarchy. Users cannot jump to Shared Components since they may occur" ^ORD(101,1853,1,5,0)="more than once in the hierarchy." ^ORD(101,1853,1,6,0)=" " ^ORD(101,1853,1,7,0)="This is a quick way to get several layers deep into the hierarchy in one" ^ORD(101,1853,1,8,0)="step." ^ORD(101,1853,20)="D EXPDEF^TIUFH1(1)" ^ORD(101,1853,24)="" ^ORD(101,1853,26)="" ^ORD(101,1853,99)="57432,51681" ^ORD(101,1854,0)="TIUFH ACTION MENU MGR^Edit Document Definitions^^M^1^^^^^^^163" ^ORD(101,1854,1,0)="^^1^1^2970220^^^" ^ORD(101,1854,1,1,0)="Protocol Menu for List Manager Template TIUFH EDIT DDEFS MGR" ^ORD(101,1854,4)="26" ^ORD(101,1854,10,0)="^101.01PA^49^9" ^ORD(101,1854,10,5,0)="1807^^11^^^" ^ORD(101,1854,10,7,0)="1826^^32^" ^ORD(101,1854,10,31,0)="1853^^12^" ^ORD(101,1854,10,42,0)="1888^^21^^^" ^ORD(101,1854,10,43,0)="1852^^33^" ^ORD(101,1854,10,44,0)="1892^^22^^^" ^ORD(101,1854,10,46,0)="1916^^23^^^" ^ORD(101,1854,10,47,0)="1813^^31^^^" ^ORD(101,1854,10,49,0)="1941^^13^" ^ORD(101,1854,10,"B",1807,5)="" ^ORD(101,1854,10,"B",1813,47)="" ^ORD(101,1854,10,"B",1826,7)="" ^ORD(101,1854,10,"B",1852,43)="" ^ORD(101,1854,10,"B",1853,31)="" ^ORD(101,1854,10,"B",1888,42)="" ^ORD(101,1854,10,"B",1892,44)="" ^ORD(101,1854,10,"B",1916,46)="" ^ORD(101,1854,10,"B",1941,49)="" ^ORD(101,1854,15)="" ^ORD(101,1854,20)="" ^ORD(101,1854,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1854,26)="S VALMSG=$$VMSG^TIUFL D SHOW^VALM" ^ORD(101,1854,28)="Select Action: " ^ORD(101,1854,99)="58000,59700" ^ORD(101,1855,0)="TIUF CHANGE SORT MENU^Change Sort Menu^^M^1^^^^^^^163" ^ORD(101,1855,1,0)="^^1^1^2970220^^" ^ORD(101,1855,1,1,0)="Changes what Document Definitions appear on list." ^ORD(101,1855,4)="26" ^ORD(101,1855,10,0)="^101.01PA^3^3" ^ORD(101,1855,10,1,0)="1849^S^1^^^" ^ORD(101,1855,10,2,0)="1851^V^2^^^" ^ORD(101,1855,10,3,0)="1850^A^3^^^" ^ORD(101,1855,10,"B",1849,1)="" ^ORD(101,1855,10,"B",1850,3)="" ^ORD(101,1855,10,"B",1851,2)="" ^ORD(101,1855,15)="D:(Y'=-1)&$D(TIUFAVAL) SELSTART^TIUFLA" ^ORD(101,1855,20)="S XQORM(0)=""1A\"",XQORM(""??"")=""D MENU^TIUFXHL1""" ^ORD(101,1855,26)="W """"" ^ORD(101,1855,28)="Change: (S/A/V): " ^ORD(101,1855,99)="57257,37217" ^ORD(101,1856,0)="TIUF OWNER NONE^NOT Owned^^A^1^^^^^^^163" ^ORD(101,1856,20)="S TIUFAVAL=""0^NONE""" ^ORD(101,1856,99)="57257,37217" ^ORD(101,1857,0)="TIUFD ACTION MENU CLIN^Detailed Display^^M^1^^^^^^^163" ^ORD(101,1857,1,0)="^^1^1^2970220^^^" ^ORD(101,1857,1,1,0)="Menu of Clinician Edit Actions." ^ORD(101,1857,4)="26" ^ORD(101,1857,10,0)="^101.01PA^13^6" ^ORD(101,1857,10,1,0)="1880^^11^" ^ORD(101,1857,10,2,0)="1813^^12^" ^ORD(101,1857,10,3,0)="1885^^21^" ^ORD(101,1857,10,11,0)="1896^^31^" ^ORD(101,1857,10,12,0)="1761^^32^" ^ORD(101,1857,10,13,0)="1843^^22^" ^ORD(101,1857,10,"B",1761,12)="" ^ORD(101,1857,10,"B",1813,2)="" ^ORD(101,1857,10,"B",1843,13)="" ^ORD(101,1857,10,"B",1880,1)="" ^ORD(101,1857,10,"B",1885,3)="" ^ORD(101,1857,10,"B",1896,11)="" ^ORD(101,1857,15)="" ^ORD(101,1857,20)="" ^ORD(101,1857,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1857,26)="S VALMSG=$$VMSG^TIUFL D SHOW^VALM" ^ORD(101,1857,28)="Select Action: " ^ORD(101,1857,99)="59970,46882" ^ORD(101,1858,0)="TIUFD ACTION MENU MGR^Detailed Display^^M^1^^^^^^^163" ^ORD(101,1858,1,0)="^^17^17^2980122^" ^ORD(101,1858,1,1,0)="Menu of Manager Edit Actions." ^ORD(101,1858,1,2,0)=" " ^ORD(101,1858,1,3,0)="NOTE ON DISPLAY OF HERITABLE FIELDS:" ^ORD(101,1858,1,4,0)=" " ^ORD(101,1858,1,5,0)="(Technical fields are heritable, and Basic field Suppress Visit" ^ORD(101,1858,1,6,0)="Selection is heritable. Upload fields are heritable as a group. The" ^ORD(101,1858,1,7,0)="display does not show inheritance for Upload fields.)" ^ORD(101,1858,1,8,0)=" " ^ORD(101,1858,1,9,0)="The Document Definition Detailed Display action displays the EFFECTIVE" ^ORD(101,1858,1,10,0)="value of inherited fields. If an inherited field does not have its own" ^ORD(101,1858,1,11,0)="explicit value, its effective value is its inherited value. If it does" ^ORD(101,1858,1,12,0)="not have an inherited value, its effective value is the default value for" ^ORD(101,1858,1,13,0)="the field. If the field does not have a default value, it does not have an" ^ORD(101,1858,1,14,0)="effective value and the field display is blank. Values marked with * have" ^ORD(101,1858,1,15,0)="been inherited." ^ORD(101,1858,1,16,0)=" " ^ORD(101,1858,1,17,0)="For EDITING heritable fields, see Technical field Edit Template." ^ORD(101,1858,4)="26" ^ORD(101,1858,10,0)="^101.01PA^16^16" ^ORD(101,1858,10,1,0)="1880^^11^^^" ^ORD(101,1858,10,2,0)="1813^^12^^^" ^ORD(101,1858,10,3,0)="1885^^13^^^" ^ORD(101,1858,10,7,0)="1887^^22^^^" ^ORD(101,1858,10,9,0)="1886^^21^^^" ^ORD(101,1858,10,12,0)="1896^^31^^^" ^ORD(101,1858,10,13,0)="1761^^32^^^" ^ORD(101,1858,10,15,0)="1819^^33^" ^ORD(101,1858,10,16,0)="1843^^23^^^" ^ORD(101,1858,10,"B",1761,13)="" ^ORD(101,1858,10,"B",1813,2)="" ^ORD(101,1858,10,"B",1819,15)="" ^ORD(101,1858,10,"B",1843,16)="" ^ORD(101,1858,10,"B",1880,1)="" ^ORD(101,1858,10,"B",1885,3)="" ^ORD(101,1858,10,"B",1886,9)="" ^ORD(101,1858,10,"B",1887,7)="" ^ORD(101,1858,10,"B",1896,12)="" ^ORD(101,1858,15)="" ^ORD(101,1858,20)="" ^ORD(101,1858,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1858,26)="S VALMSG=$$VMSG^TIUFL D SHOW^VALM" ^ORD(101,1858,28)="Select Action: " ^ORD(101,1858,99)="59970,46882" ^ORD(101,1859,0)="TIUFD ACTION MENU VIEW^Detailed Display^^M^1^^^^^^^163" ^ORD(101,1859,1,0)="^^1^1^2970220^^^" ^ORD(101,1859,1,1,0)="Menu of View Actions" ^ORD(101,1859,4)="26" ^ORD(101,1859,10,0)="^101.01PA^5^3" ^ORD(101,1859,10,3,0)="1896^^21^" ^ORD(101,1859,10,4,0)="1761^^31^" ^ORD(101,1859,10,5,0)="1843^^11^" ^ORD(101,1859,10,"B",1761,4)="" ^ORD(101,1859,10,"B",1843,5)="" ^ORD(101,1859,10,"B",1896,3)="" ^ORD(101,1859,15)="" ^ORD(101,1859,20)="" ^ORD(101,1859,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1859,26)="S VALMSG=$$VMSG^TIUFL D SHOW^VALM" ^ORD(101,1859,28)="Select Action: " ^ORD(101,1859,99)="59970,46882" ^ORD(101,1860,0)="TIU ACTION RESOLVE FILING ERRORS^Display/Fix^^A^1^^^^^^^163" ^ORD(101,1860,1,0)="^^2^2^2930614^" ^ORD(101,1860,1,1,0)=" " ^ORD(101,1860,1,2,0)="Allows editing of the buffered text to resolve upload errors." ^ORD(101,1860,20)="D EDIT^TIURE" ^ORD(101,1860,99)="57257,37217" ^ORD(101,1861,0)="TIU ERROR RESOLUTION MENU^Resolve filing errors^^M^1^^^^^^^163" ^ORD(101,1861,1,0)="^^1^1^2950628^^^^" ^ORD(101,1861,1,1,0)="Menu of actions which may be executed by clinicians." ^ORD(101,1861,4)="26" ^ORD(101,1861,10,0)="^101.01PA^6^4" ^ORD(101,1861,10,3,0)="1862^^2^" ^ORD(101,1861,10,4,0)="1761^^5^" ^ORD(101,1861,10,5,0)="1782^^1^" ^ORD(101,1861,10,6,0)="1863^^3^" ^ORD(101,1861,10,"B",1761,4)="" ^ORD(101,1861,10,"B",1782,5)="" ^ORD(101,1861,10,"B",1862,3)="" ^ORD(101,1861,10,"B",1863,6)="" ^ORD(101,1861,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1861,20)="S XQORM(""SH"")=0" ^ORD(101,1861,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1861,26)="S VALMSG=""+ Next Screen - Prev Screen ?? More actions"" D RESIZE^TIULM(21,18),SHOW^VALM" ^ORD(101,1861,28)="Select Action: " ^ORD(101,1861,99)="59970,46882" ^ORD(101,1862,0)="TIU ERROR ACTION PRINT^Print^^A^1^^^^^^^163" ^ORD(101,1862,1,0)="^^2^2^2950628^^" ^ORD(101,1862,1,1,0)="This action allws the user to print the entire list of" ^ORD(101,1862,1,2,0)="entries currently being displayed." ^ORD(101,1862,20)="D PRTL^VALM1" ^ORD(101,1862,99)="57257,37217" ^ORD(101,1863,0)="TIU ERROR ACTION RESOLVE^Resolve^^A^1^^^^^^^163" ^ORD(101,1863,1,0)="^^1^1^2970613^^" ^ORD(101,1863,1,1,0)="Resolve the selected filing errors." ^ORD(101,1863,20)="S BUFDA=$P(TIUDATA,U,3) D EDIT1^TIURE" ^ORD(101,1863,99)="57257,37217" ^ORD(101,1864,0)="TIUFT ACTION MENU ADD/EDIT/VIEW ITEMS^Items^^M^1^^^^^^^163" ^ORD(101,1864,1,0)="^^4^4^2970220^^^^" ^ORD(101,1864,1,1,0)="Menu allows user to display items and item information for a given" ^ORD(101,1864,1,2,0)="Document Definition. Document Definition owner may add, delete, or edit" ^ORD(101,1864,1,3,0)="items. Added items may be new OR existing entries in the Document" ^ORD(101,1864,1,4,0)="Definition File." ^ORD(101,1864,4)="26" ^ORD(101,1864,10,0)="^101.01PA^25^8" ^ORD(101,1864,10,5,0)="1865^^22^" ^ORD(101,1864,10,6,0)="1866^^23^" ^ORD(101,1864,10,17,0)="1869^^11^^^" ^ORD(101,1864,10,18,0)="1881^^13^^^" ^ORD(101,1864,10,19,0)="1868^^12^^^" ^ORD(101,1864,10,21,0)="1867^^21^^^" ^ORD(101,1864,10,24,0)="1896^^32^^^" ^ORD(101,1864,10,25,0)="1761^^33^^^" ^ORD(101,1864,10,"B",1761,25)="" ^ORD(101,1864,10,"B",1865,5)="" ^ORD(101,1864,10,"B",1866,6)="" ^ORD(101,1864,10,"B",1867,21)="" ^ORD(101,1864,10,"B",1868,19)="" ^ORD(101,1864,10,"B",1869,17)="" ^ORD(101,1864,10,"B",1881,18)="" ^ORD(101,1864,10,"B",1896,24)="" ^ORD(101,1864,15)="" ^ORD(101,1864,20)="" ^ORD(101,1864,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1864,26)="S VALMSG=$$VMSG^TIUFL D:""NM""'[TIUFWHO CHGCAP^VALM(""IFN"","""") D SHOW^VALM" ^ORD(101,1864,28)="Select Action: " ^ORD(101,1864,99)="59970,46882" ^ORD(101,1865,0)="TIUFT ACTION ADD ITEMS^Add/Create^^A^1^^^^^^^163" ^ORD(101,1865,1,0)="^^12^12^2970220^" ^ORD(101,1865,1,1,0)="MANAGER OPTIONS" ^ORD(101,1865,1,2,0)="Allows user to add items to parent entry. Items may be new file entries OR" ^ORD(101,1865,1,3,0)="preexisting file entries. Preexisting file entries can be added ONLY if" ^ORD(101,1865,1,4,0)="they have the appropriate type for the parent, if the user owns them, AND" ^ORD(101,1865,1,5,0)="if they are not already used as an item under (the current or) another" ^ORD(101,1865,1,6,0)="entry. Exception: Shared Components can be added as items to Titles or to" ^ORD(101,1865,1,7,0)="Components regardless of owner and regardless of use elsewhere." ^ORD(101,1865,1,8,0)=" " ^ORD(101,1865,1,9,0)="User need not own an entry in order to add items to it. User cannot add" ^ORD(101,1865,1,10,0)="items to National Titles or Components. Entries cannot have 2 items with" ^ORD(101,1865,1,11,0)="the same name. File 8925.1 cannot have 2 entries of the same type with" ^ORD(101,1865,1,12,0)="the same name." ^ORD(101,1865,15)="" ^ORD(101,1865,20)="D ADD^TIUFT" ^ORD(101,1865,24)="I 1 X:TIUFWHO=""C"" ""I $P(TIUFNOD0,U,4)=""""DOC""""!($P(TIUFNOD0,U,4)=""""CO"""")""" ^ORD(101,1865,99)="57672,58905" ^ORD(101,1866,0)="TIUFT ACTION DELETE ITEMS^Delete^^A^1^^^^^^^163" ^ORD(101,1866,1,0)="^^10^10^2970220^^" ^ORD(101,1866,1,1,0)="MANAGER OPTIONS" ^ORD(101,1866,1,2,0)="Action lets user delete multiple appropriate items from the parent entry." ^ORD(101,1866,1,3,0)="Deleted items are deleted from the parent only, not from file 8925.1. " ^ORD(101,1866,1,4,0)=" " ^ORD(101,1866,1,5,0)="Item must be Inactive before it can be deleted. Noncomponent Items cannot" ^ORD(101,1866,1,6,0)="be deleted if they are In Use. National items cannot be deleted from" ^ORD(101,1866,1,7,0)="National parents. Items cannot be deleted from National Titles or" ^ORD(101,1866,1,8,0)="Components. Shared Components are the only National entries permitted as" ^ORD(101,1866,1,9,0)="items under nonNational parents, and CAN be deleted from NONNATIONAL" ^ORD(101,1866,1,10,0)="parents." ^ORD(101,1866,20)="D EDDEL^TIUFT1" ^ORD(101,1866,24)="I 1 X:TIUFWHO=""C"" ""I $P(TIUFNOD0,U,4)=""""DOC""""!($P(TIUFNOD0,U,4)=""""CO"""")""" ^ORD(101,1866,99)="57672,58905" ^ORD(101,1867,0)="TIUFT ACTION ITEMS EDIT ALL^All: Seq Mnem MenuTxt^^A^1^^^^^^^163" ^ORD(101,1867,1,0)="^^1^1^2970220^^^^" ^ORD(101,1867,1,1,0)="User can edit Sequence, Mnemonic and Menu Text for selected Items." ^ORD(101,1867,4)="" ^ORD(101,1867,20)="D EDDEL^TIUFT1" ^ORD(101,1867,99)="57672,58905" ^ORD(101,1868,0)="TIUFT ACTION EDIT MNEMONIC^Mnemonic^^A^1^^^^^^^163" ^ORD(101,1868,1,0)="^^4^4^2970220^" ^ORD(101,1868,1,1,0)="Applies to Classes, Document Classes. Mnemonic is a convenient handle for" ^ORD(101,1868,1,2,0)="selecting Menu Text from a 3-column menu. Mnemonic is usually a number" ^ORD(101,1868,1,3,0)="with the same value as the Sequence. Alpha mnemonics are also permitted." ^ORD(101,1868,1,4,0)="1-4 characters." ^ORD(101,1868,20)="D EDDEL^TIUFT1" ^ORD(101,1868,24)="I $P(TIUFNOD0,U,4)=""CL""" ^ORD(101,1868,99)="57672,58905" ^ORD(101,1869,0)="TIUFT ACTION EDIT SEQUENCE^Sequence^^A^1^^^^^^^163" ^ORD(101,1869,1,0)="^^4^4^2970220^^^" ^ORD(101,1869,1,1,0)="Sequence, if entered, determines item order. Order is alphabetic by" ^ORD(101,1869,1,2,0)="Menu Text if item has no sequence. Entry owner may edit sequence for" ^ORD(101,1869,1,3,0)="selected items. Sequence is a number between .01 and 999, 2 decimal" ^ORD(101,1869,1,4,0)="places allowed." ^ORD(101,1869,20)="D EDDEL^TIUFT1" ^ORD(101,1869,99)="57672,58905" ^ORD(101,1870,0)="TIUFT ACTION MENU EDIT/VIEW ITEMS^Items^^M^1^^^^^^^163" ^ORD(101,1870,1,0)="^^5^5^2971209^" ^ORD(101,1870,1,1,0)="Menu allows user to display items and item information for a given" ^ORD(101,1870,1,2,0)="Document Definition. The owner of a Document Definition can edit item" ^ORD(101,1870,1,3,0)="Sequence, Mnemonic, and Menu Text. The owner of a Title may add Shared" ^ORD(101,1870,1,4,0)="Components as items to the Title. Likewise, an owner can delete Shared" ^ORD(101,1870,1,5,0)="Components from a Title." ^ORD(101,1870,4)="26" ^ORD(101,1870,10,0)="^101.01PA^29^29" ^ORD(101,1870,10,17,0)="1869^^11^" ^ORD(101,1870,10,18,0)="1881^^13^" ^ORD(101,1870,10,19,0)="1868^^12^" ^ORD(101,1870,10,21,0)="1867^^21^" ^ORD(101,1870,10,26,0)="1896^^31^" ^ORD(101,1870,10,27,0)="1761^^32^" ^ORD(101,1870,10,28,0)="1865^^22^^^Add" ^ORD(101,1870,10,29,0)="1866^^23^" ^ORD(101,1870,10,"B",1761,27)="" ^ORD(101,1870,10,"B",1865,28)="" ^ORD(101,1870,10,"B",1866,29)="" ^ORD(101,1870,10,"B",1867,21)="" ^ORD(101,1870,10,"B",1868,19)="" ^ORD(101,1870,10,"B",1869,17)="" ^ORD(101,1870,10,"B",1881,18)="" ^ORD(101,1870,10,"B",1896,26)="" ^ORD(101,1870,15)="" ^ORD(101,1870,20)="" ^ORD(101,1870,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,1870,26)="S VALMSG=$$VMSG^TIUFL D:""NM""'[TIUFWHO CHGCAP^VALM(""IFN"","""") D SHOW^VALM" ^ORD(101,1870,28)="Select Action: " ^ORD(101,1870,99)="59970,46882" ^ORD(101,1871,0)="TIUFT ACTION MENU VIEW ITEMS^Items^^M^1^^^^^^^163" ^ORD(101,1871,1,0)="^^2^2^2970220^^^^" ^ORD(101,1871,1,1,0)="Menu allows user to display items and item information for a given" ^ORD(101,1871,1,2,0)="Document Definition." ^ORD(101,1871,4)="26" ^ORD(101,1871,10,0)="^101.01PA^7^3" ^ORD(101,1871,10,4,0)="1896^^11^" ^ORD(101,1871,10,6,0)="1761^^21^" ^ORD(101,1871,10,7,0)="1818^^31^" ^ORD(101,1871,10,"B",1761,6)="" ^ORD(101,1871,10,"B",1818,7)="" ^ORD(101,1871,10,"B",1896,4)="" ^ORD(101,1871,15)="" ^ORD(101,1871,20)="" ^ORD(101,1871,26)="S VALMSG=$$VMSG^TIUFL D:""NM""'[TIUFWHO CHGCAP^VALM(""IFN"","""") D SHOW^VALM" ^ORD(101,1871,28)="Select Action: " ^ORD(101,1871,99)="59970,46882" ^ORD(101,1872,0)="TIU ACTION MAKE ADDENDUM^Make Addendum^^A^1^^^^^^^163" ^ORD(101,1872,1,0)="^^4^4^2951213^^^^" ^ORD(101,1872,1,1,0)="Allows authorized users to add addenda to selected documents online..." ^ORD(101,1872,1,2,0)="When electronic signature is enabled, physicians will be prompted for" ^ORD(101,1872,1,3,0)="their signatures upon exit, thereby allowing doctors to review, edit" ^ORD(101,1872,1,4,0)="and sign as a one-step process." ^ORD(101,1872,20)="D ADDEND^TIURA1" ^ORD(101,1872,24)="I '$G(TIUGLINK)" ^ORD(101,1872,99)="59970,46882" ^ORD(101,1873,0)="TIU BROWSE ACTION MAKE ADDENDUM^Make Addendum^^A^1^^^^^^^163" ^ORD(101,1873,1,0)="^^4^4^2951213^^^^" ^ORD(101,1873,1,1,0)="Allows authorized users to add an addendum to the current document online..." ^ORD(101,1873,1,2,0)="When electronic signature is enabled, physicians will be prompted for their" ^ORD(101,1873,1,3,0)="signatures upon exit, thereby allowing doctors to review, edit and sign as" ^ORD(101,1873,1,4,0)="a one-step process. " ^ORD(101,1873,20)="D CLEAR^VALM1,ADDEND1^TIURA1,BLDTMP^TIUBR(TIUDA) S VALMBCK=""R""" ^ORD(101,1873,99)="58559,37635" ^ORD(101,1874,0)="TIU ACTION MENU EDIT ADDENDUM^Edit Addendum^^M^1^^^^^^^163" ^ORD(101,1874,1,0)="^^1^1^2951214^^" ^ORD(101,1874,1,1,0)="Menu of actions which may be executed by MIS Personnel." ^ORD(101,1874,4)="26" ^ORD(101,1874,10,0)="^101.01PA^8^6" ^ORD(101,1874,10,3,0)="1780^^3^" ^ORD(101,1874,10,4,0)="1761^^6^" ^ORD(101,1874,10,5,0)="1782^^1^" ^ORD(101,1874,10,8,0)="1875^^5^" ^ORD(101,1874,10,"B",1761,4)="" ^ORD(101,1874,10,"B",1780,3)="" ^ORD(101,1874,10,"B",1782,5)="" ^ORD(101,1874,10,"B",1875,8)="" ^ORD(101,1874,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,1874,20)="S VALMSG=""+ Next Screen - Prev Screen ?? More Actions""" ^ORD(101,1874,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,1874,26)="D RESIZE^TIULM(21,18),SHOW^VALM S XQORM(""B"")=$S(VALMLST2 S VALMBCK=""Q""" ^ORD(101,3167,20)="K IBFASTXT" ^ORD(101,3167,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,3167,28)="Select Action: " ^ORD(101,3167,99)="58917,40145" ^ORD(101,3168,0)="IBCE RULE DISPLAY^View A Rule^^A^1^^^^^^^49" ^ORD(101,3168,1,0)="^^2^2^3000713^" ^ORD(101,3168,1,1,0)="Allows for the printing or viewing of details for a selected transmission" ^ORD(101,3168,1,2,0)="rule." ^ORD(101,3168,15)="" ^ORD(101,3168,20)="D SELRULE^IBCEF61(.IBRULE),DISPRUL^IBCEF61(IBRULE)" ^ORD(101,3168,99)="58917,40145" ^ORD(101,3169,0)="IBCE RULE DISPLAY ALL^Print All Rules^^A^1^^^^^^^49" ^ORD(101,3169,1,0)="^^1^1^3000713^" ^ORD(101,3169,1,1,0)="Allows for the printing or viewing of details for all tansmission rules." ^ORD(101,3169,15)="K IBRULE" ^ORD(101,3169,20)="D DISPRUL^IBCEF61()" ^ORD(101,3169,99)="58917,40145" ^ORD(101,3170,0)="IBCE RULE ACTIVE DATES EDIT^Activate Dates Edit^^A^1^^^^^^^49" ^ORD(101,3170,1,0)="^101.06^1^1^3000713^^" ^ORD(101,3170,1,1,0)="Allows the editing of transmission rules' active/inactive dates." ^ORD(101,3170,15)="K IBRULE" ^ORD(101,3170,20)="D SELRULE^IBCEF61(.IBRULE),ACTIVE^IBCEF61(IBRULE)" ^ORD(101,3170,99)="58917,40145" ^ORD(101,3171,0)="IBCE RULE INS OPT EDIT^Ins Option Edit^^A^1^^^^^^^49" ^ORD(101,3171,1,0)="^^1^1^3000713^" ^ORD(101,3171,1,1,0)="Allows editing of a transmission rule's insurance company data." ^ORD(101,3171,15)="K IBRULE" ^ORD(101,3171,20)="D SELRULE^IBCEF61(.IBRULE),INSCO^IBCEF61(IBRULE)" ^ORD(101,3171,99)="58917,40145" ^ORD(101,3172,0)="IBCE RULE BILL TYPE EDIT^Bill Type Edit^^A^1^^^^^^^49" ^ORD(101,3172,1,0)="^^2^2^3000713^" ^ORD(101,3172,1,1,0)="Allows the editing of bill types for a transmission rule whose rule type" ^ORD(101,3172,1,2,0)="allows bill type restrictions." ^ORD(101,3172,15)="K IBRULE" ^ORD(101,3172,20)="D SELRULE^IBCEF61(.IBRULE),BILTYP^IBCEF61(IBRULE)" ^ORD(101,3172,99)="58917,40145" ^ORD(101,3173,0)="IBCE RULE ADD^New Rule^^A^1^^^^^^^49" ^ORD(101,3173,1,0)="^101.06^1^1^3000713^^" ^ORD(101,3173,1,1,0)="Allows entry of a new transmission rule." ^ORD(101,3173,15)="K IBOK,IBRULE" ^ORD(101,3173,20)="S IBOK=$$ADDRULE^IBCEF5() D SUCCESS^IBCEF61(IBOK)" ^ORD(101,3173,99)="58917,40145" ^ORD(101,3174,0)="IBCE RULE MENU^Transmission Rule^^M^1^^^^^^^49" ^ORD(101,3174,1,0)="^101.06^2^2^3000713^^^^" ^ORD(101,3174,1,1,0)="This protocol contains the action items needed to view/maintain transmission" ^ORD(101,3174,1,2,0)="rules for EDI/MRA processing of claims" ^ORD(101,3174,4)="25^1" ^ORD(101,3174,10,0)="^101.01PA^11^11" ^ORD(101,3174,10,1,0)="3168^^40^" ^ORD(101,3174,10,2,0)="3169^^45^" ^ORD(101,3174,10,3,0)="3170^^15^" ^ORD(101,3174,10,4,0)="3171^^20^" ^ORD(101,3174,10,5,0)="3172^^25^" ^ORD(101,3174,10,6,0)="1643^^999^" ^ORD(101,3174,10,7,0)="3173^^5^" ^ORD(101,3174,10,8,0)="3175^^30^" ^ORD(101,3174,10,9,0)="455^^49^" ^ORD(101,3174,10,10,0)="3228^^50^" ^ORD(101,3174,10,11,0)="3227^^55^" ^ORD(101,3174,10,"B",455,9)="" ^ORD(101,3174,10,"B",1643,6)="" ^ORD(101,3174,10,"B",3168,1)="" ^ORD(101,3174,10,"B",3169,2)="" ^ORD(101,3174,10,"B",3170,3)="" ^ORD(101,3174,10,"B",3171,4)="" ^ORD(101,3174,10,"B",3172,5)="" ^ORD(101,3174,10,"B",3173,7)="" ^ORD(101,3174,10,"B",3175,8)="" ^ORD(101,3174,10,"B",3227,11)="" ^ORD(101,3174,10,"B",3228,10)="" ^ORD(101,3174,15)="K IBACTIVE" ^ORD(101,3174,26)="D SHOW^VALM" ^ORD(101,3174,28)="Select Action: " ^ORD(101,3174,99)="61199,28361" ^ORD(101,3175,0)="IBCE RULE MISC EDIT^Misc Rule Edit^^A^1^^^^^^^49" ^ORD(101,3175,1,0)="^^2^2^3000713^" ^ORD(101,3175,1,1,0)="Allows editing of miscellaneous fields for a transmission rule. These are" ^ORD(101,3175,1,2,0)="the fields that do not have specific actions to edit them." ^ORD(101,3175,15)="K IBRULE" ^ORD(101,3175,20)="D SELRULE^IBCEF61(.IBRULE),MISC^IBCEF61(IBRULE)" ^ORD(101,3175,99)="58917,40145" ^ORD(101,3176,0)="IBCE RULE BT RESTRICT MENU^Bill Type Restrictions^^M^1^^^^^^^49" ^ORD(101,3176,1,0)="^^2^2^3000713^" ^ORD(101,3176,1,1,0)="Produces a list manager screen with details of a selected rule. Actions" ^ORD(101,3176,1,2,0)="will allow editing of restrictions to attach to the rule." ^ORD(101,3176,4)="25^1" ^ORD(101,3176,10,0)="^101.01PA^4^4" ^ORD(101,3176,10,1,0)="1643^^99^" ^ORD(101,3176,10,2,0)="3177^^10^" ^ORD(101,3176,10,3,0)="3178^^5^" ^ORD(101,3176,10,4,0)="3179^^3^" ^ORD(101,3176,10,"B",1643,1)="" ^ORD(101,3176,10,"B",3177,2)="" ^ORD(101,3176,10,"B",3178,3)="" ^ORD(101,3176,10,"B",3179,4)="" ^ORD(101,3176,15)="" ^ORD(101,3176,20)="" ^ORD(101,3176,26)="D SHOW^VALM" ^ORD(101,3176,28)="Select Action: " ^ORD(101,3176,99)="61199,28361" ^ORD(101,3177,0)="IBCE RULE BT DELETE^Delete Restriction(s)^^A^1^^^^^^^49" ^ORD(101,3177,1,0)="^^2^2^3000713^" ^ORD(101,3177,1,1,0)="Allows the deletion of bill type restriction(s) attached to a transmission" ^ORD(101,3177,1,2,0)="rule." ^ORD(101,3177,15)="K IBOK" ^ORD(101,3177,20)="I $$BTDEL^IBCEF62(+$G(IBRULE)) D SUCCBT^IBCEF62" ^ORD(101,3177,99)="58917,40146" ^ORD(101,3178,0)="IBCE RULE BT EDIT DATES^Restriction Dates Edit^^A^1^^^^^^^49" ^ORD(101,3178,1,0)="^101.06^2^2^3000713^^" ^ORD(101,3178,1,1,0)="This protocol allows the inactive and active dates to be edited for bill" ^ORD(101,3178,1,2,0)="type restrictions attached to this rule." ^ORD(101,3178,20)="D BTEDIT^IBCEF61(+$G(IBRULE))" ^ORD(101,3178,99)="58917,40146" ^ORD(101,3179,0)="IBCE RULE BT ADD^Add Restriction^^A^1^^^^^^^49" ^ORD(101,3179,1,0)="^101.06^1^1^3000713^^^" ^ORD(101,3179,1,1,0)="This protocol allows the user to add bill type restrictions to the rule." ^ORD(101,3179,20)="D BTADD^IBCEF61(+$G(IBRULE))" ^ORD(101,3179,99)="58917,40146" ^ORD(101,3180,0)="IBCEM COB MANAGEMENT^^^M^1^^^^^^^49" ^ORD(101,3180,1,0)="^101.06^2^2^3020904^^^^" ^ORD(101,3180,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3180,1,2,0)="to follow up on bills for secondary and tertiary billing." ^ORD(101,3180,4)="26^4" ^ORD(101,3180,10,0)="^101.01PA^24^24" ^ORD(101,3180,10,5,0)="3183^CB^40^" ^ORD(101,3180,10,10,0)="3187^Q^100^" ^ORD(101,3180,10,11,0)="3181^PC^10^" ^ORD(101,3180,10,14,0)="3193^VE^20^" ^ORD(101,3180,10,17,0)="453^SU^30^^^Summary MRA Info" ^ORD(101,3180,10,18,0)="3687^PM^70^" ^ORD(101,3180,10,19,0)="3185^VB^60^^^View Bill" ^ORD(101,3180,10,20,0)="3160^CC^50^" ^ORD(101,3180,10,21,0)="3186^TP^80^" ^ORD(101,3180,10,22,0)="4242^EC^33" ^ORD(101,3180,10,23,0)="4243^VC^37" ^ORD(101,3180,10,24,0)="4245^RS^35" ^ORD(101,3180,10,"B",453,17)="" ^ORD(101,3180,10,"B",3160,20)="" ^ORD(101,3180,10,"B",3181,11)="" ^ORD(101,3180,10,"B",3183,5)="" ^ORD(101,3180,10,"B",3185,19)="" ^ORD(101,3180,10,"B",3186,21)="" ^ORD(101,3180,10,"B",3187,10)="" ^ORD(101,3180,10,"B",3193,14)="" ^ORD(101,3180,10,"B",3687,18)="" ^ORD(101,3180,10,"B",4242,22)="" ^ORD(101,3180,10,"B",4243,23)="" ^ORD(101,3180,10,"B",4245,24)="" ^ORD(101,3180,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3180,20)="K IBFASTXT" ^ORD(101,3180,26)="D SHOW^VALM" ^ORD(101,3180,28)="Select Action: " ^ORD(101,3180,99)="61199,28361" ^ORD(101,3181,0)="IBCEM COPY SECOND/THIRD^Process COB^^A^1^^^^^^^49" ^ORD(101,3181,1,0)="^^1^1^2990723^^^^" ^ORD(101,3181,1,1,0)="This action is used to create Secondary and Tertiary bills." ^ORD(101,3181,10,0)="^101.01PA" ^ORD(101,3181,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3181,20)="D PRO^IBCECOB2" ^ORD(101,3181,99)="59837,55803" ^ORD(101,3182,0)="IBCEM COB EDI^EDI History Display^^A^1^^^^^^^49" ^ORD(101,3182,1,0)="^101.06^2^2^3000713^^^^" ^ORD(101,3182,1,1,0)="This action is used to display the latest status message, EDI transmit" ^ORD(101,3182,1,2,0)="message, and return message for a selected bill." ^ORD(101,3182,20)="D EDI^IBCECOB2" ^ORD(101,3182,99)="58917,40146" ^ORD(101,3183,0)="IBCEM COB CANCEL^Cancel Bill^^A^1^^^^^^^49" ^ORD(101,3183,1,0)="^101.06^2^2^3000713^^^^" ^ORD(101,3183,1,1,0)="This action allows a user to cancel a bill that has been " ^ORD(101,3183,1,2,0)="returned to the site in error" ^ORD(101,3183,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3183,20)="D CANCEL^IBCECOB2" ^ORD(101,3183,99)="59837,55803" ^ORD(101,3184,0)="IBCEM COB RESUBMIT^Resubmit by Print^^A^1^^^^^^^" ^ORD(101,3184,1,0)="^^3^3^2991004^^^^" ^ORD(101,3184,1,1,0)="This action is allowed a user to resubmit a bill that has not" ^ORD(101,3184,1,2,0)="been flagged as being in error. A new batch number is assigned" ^ORD(101,3184,1,3,0)=" to any bills resubmitted with this option." ^ORD(101,3184,20)="D RES^IBCECOB2" ^ORD(101,3184,99)="58917,40146" ^ORD(101,3185,0)="IBCEM COB EDIT BILL^Edit Bill^^A^1^^^^^^^49" ^ORD(101,3185,1,0)="^101.06^2^2^3000510^^^^" ^ORD(101,3185,1,1,0)="This option allows the user to enter the information required to" ^ORD(101,3185,1,2,0)="generate a third party bill and to edit existing billing information." ^ORD(101,3185,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3185,20)="D EBI^IBCECOB2" ^ORD(101,3185,99)="59837,55803" ^ORD(101,3186,0)="IBCEM COB TPJI^Third Party Joint Inq.^^A^1^^^^^^^" ^ORD(101,3186,1,0)="^^1^1^3030812^" ^ORD(101,3186,1,1,0)="This action is used to display the Third Party Joint Inquiry display for the claim." ^ORD(101,3186,20)="D TPJI^IBCECOB2" ^ORD(101,3186,99)="59837,55803" ^ORD(101,3187,0)="IBCEM COB EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,3187,1,0)="^^1^1^2990625^" ^ORD(101,3187,1,1,0)="This action is allowed a user to exit out of COB menu." ^ORD(101,3187,20)="D EXIT^IBCECOB2" ^ORD(101,3187,99)="59837,55803" ^ORD(101,3188,0)="IBCEM DELETE MESSAGE^Delete Message^^A^1^^^^^^^49" ^ORD(101,3188,1,0)="^^3^3^2990707^^^^" ^ORD(101,3188,1,1,0)="This action allows a user to manually delete a message that you either can't" ^ORD(101,3188,1,2,0)="or don't want to continue through the return message process." ^ORD(101,3188,1,3,0)="A bulletin is sent to alert that this action has been taken." ^ORD(101,3188,20)="D DEL^IBCEM" ^ORD(101,3188,99)="58917,40146" ^ORD(101,3189,0)="IBCE EOB LIST^EOB List^^M^1^^^^^^^" ^ORD(101,3189,1,0)="^101.06^2^2^3001027^^^^" ^ORD(101,3189,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3189,1,2,0)="to enter, edit or delete EOB information for a claim." ^ORD(101,3189,4)="26^4" ^ORD(101,3189,10,0)="^101.01PA^6^6" ^ORD(101,3189,10,1,0)="3190^^5^" ^ORD(101,3189,10,2,0)="3191^^10^" ^ORD(101,3189,10,3,0)="3192^^15^" ^ORD(101,3189,10,4,0)="1643^^99^" ^ORD(101,3189,10,5,0)="3193^^20^" ^ORD(101,3189,10,6,0)="3194^^25^" ^ORD(101,3189,10,"B",1643,4)="" ^ORD(101,3189,10,"B",3190,1)="" ^ORD(101,3189,10,"B",3191,2)="" ^ORD(101,3189,10,"B",3192,3)="" ^ORD(101,3189,10,"B",3193,5)="" ^ORD(101,3189,10,"B",3194,6)="" ^ORD(101,3189,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3189,20)="K IBFASTXT" ^ORD(101,3189,26)="D SHOW^VALM" ^ORD(101,3189,28)="Select Action: " ^ORD(101,3189,99)="61199,28361" ^ORD(101,3190,0)="IBCE MANUAL EOB ADD^Add an EOB^^A^1^^^^^^^49" ^ORD(101,3190,1,0)="^^1^1^2990713^^^" ^ORD(101,3190,1,1,0)="This action allows for the manual recording of a new EOB for a claim." ^ORD(101,3190,20)="D NEW^IBCEOB21" ^ORD(101,3190,99)="58917,40146" ^ORD(101,3191,0)="IBCE MANUAL EOB EDIT^Edit an EOB^^A^1^^^^^^^49" ^ORD(101,3191,1,0)="^^2^2^2990713^^^^" ^ORD(101,3191,1,1,0)="This action allows for the editing of a previously entered manual EOB for a" ^ORD(101,3191,1,2,0)="claim." ^ORD(101,3191,20)="D EDIT^IBCEOB21" ^ORD(101,3191,99)="58917,40146" ^ORD(101,3192,0)="IBCE MANUAL EOB DELETE^Delete an EOB^^A^1^^^^^^^49" ^ORD(101,3192,1,0)="^^2^2^2990713^^^^" ^ORD(101,3192,1,1,0)="This action allows for the deletion of a previously entered manual EOB for a" ^ORD(101,3192,1,2,0)="claim." ^ORD(101,3192,20)="D DELETE^IBCEOB21" ^ORD(101,3192,99)="58917,40146" ^ORD(101,3193,0)="IBCE EOB VIEW^View an EOB^^A^1^^^^^^^49" ^ORD(101,3193,1,0)="^^1^1^2990713^" ^ORD(101,3193,1,1,0)="This displays the EOB detail" ^ORD(101,3193,20)="D VIEW^IBCEOB21" ^ORD(101,3193,99)="59837,55803" ^ORD(101,3194,0)="IBCE EOB CHANGE BILL^Change Bill^^A^1^^^^^^^49" ^ORD(101,3194,1,0)="^^1^1^2990714^^" ^ORD(101,3194,1,1,0)="This allows the user to select another bill to display EOB's for." ^ORD(101,3194,20)="D CHANGE^IBCEOB21" ^ORD(101,3194,99)="58917,40146" ^ORD(101,3195,0)="IBCEM COB PRINT REPORT^Print Report^^A^1^^^^^^^49" ^ORD(101,3195,1,0)="^101.06^2^2^3000530^^^^" ^ORD(101,3195,1,1,0)="This action allows user to print report and use report to follow up on bills" ^ORD(101,3195,1,2,0)="for secondary and tertiary billing." ^ORD(101,3195,20)="D EN^IBCECOB3 S VALMBCK=""R""" ^ORD(101,3195,99)="58917,40146" ^ORD(101,3196,0)="IBCEM COB V/P BILL^Print Bill^^A^1^^^^^^^49" ^ORD(101,3196,1,0)="^^5^5^2990726^^" ^ORD(101,3196,1,1,0)="This action allows the user to print a third party bill after all required " ^ORD(101,3196,1,2,0)="information has been input, and after the billing information has been" ^ORD(101,3196,1,3,0)="reviewed and authorized. A reimbursable insurance bill that has been flagged" ^ORD(101,3196,1,4,0)="for transmission cannot be printed before it has been transmitted at least" ^ORD(101,3196,1,5,0)="once." ^ORD(101,3196,20)="D PBILL^IBCECOB2" ^ORD(101,3196,99)="58917,40146" ^ORD(101,3197,0)="IBCEM CLAIMS STATUS AWAITING^^^M^1^^^^^^^" ^ORD(101,3197,1,0)="^101.06^5^5^3000713^^^^" ^ORD(101,3197,1,1,0)="This is the main menu that contains the actions that can be performed to" ^ORD(101,3197,1,2,0)="review the most current status messages received for a bill and do" ^ORD(101,3197,1,3,0)="follow-up on the bills. Users will be able to select a bill from the list" ^ORD(101,3197,1,4,0)="to view the details and the entire message text as well as to mark" ^ORD(101,3197,1,5,0)="the message as reviewed or under review and to document user comments." ^ORD(101,3197,2,0)="^101.02A^^0" ^ORD(101,3197,4)="26^4" ^ORD(101,3197,10,0)="^101.01PA^8^8" ^ORD(101,3197,10,3,0)="3187^^100^" ^ORD(101,3197,10,4,0)="3198^^50^^^Print Report" ^ORD(101,3197,10,5,0)="3199^^5^^^Select Message" ^ORD(101,3197,10,6,0)="3232^^7^" ^ORD(101,3197,10,7,0)="4073^^70" ^ORD(101,3197,10,8,0)="4090^^85" ^ORD(101,3197,10,"B",3187,3)="" ^ORD(101,3197,10,"B",3198,4)="" ^ORD(101,3197,10,"B",3199,5)="" ^ORD(101,3197,10,"B",3232,6)="" ^ORD(101,3197,10,"B",4073,7)="" ^ORD(101,3197,10,"B",4090,8)="" ^ORD(101,3197,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3197,20)="K IBFASTXT" ^ORD(101,3197,26)="D SHOW^VALM" ^ORD(101,3197,28)="Select Action: " ^ORD(101,3197,99)="60484,44475" ^ORD(101,3198,0)="IBCEM CSA REPORT^^^A^1^^^^^^^49" ^ORD(101,3198,1,0)="^^3^3^3000217^^^^" ^ORD(101,3198,1,1,0)="This will be a list manager screen with an option to print this report." ^ORD(101,3198,1,2,0)="Using the report, billing staff will be able to review the most current" ^ORD(101,3198,1,3,0)="status messages received for a bill(s) and do follow-up on the bills." ^ORD(101,3198,15)="" ^ORD(101,3198,20)="D EN^IBCECSA3 S VALMBCK=""R""" ^ORD(101,3199,0)="IBCEM CSA MSG DETAIL^Claims Status Awaiting Detail^^A^1^^^^^^^49" ^ORD(101,3199,1,0)="^101.06^4^4^3001027^^^^" ^ORD(101,3199,1,1,0)="This action allows a user to view the details of a bill selected from the" ^ORD(101,3199,1,2,0)="summary screen. It will display the message text, user comments that have" ^ORD(101,3199,1,3,0)="been entered during review of the message, and all of the fields from the" ^ORD(101,3199,1,4,0)="summary page." ^ORD(101,3199,20)="D SMSG^IBCECSA4" ^ORD(101,3199,99)="58917,40146" ^ORD(101,3200,0)="IBCEM CSA MSG MENU^Select Message Menu^^M^1^^^^^^^49" ^ORD(101,3200,1,0)="^101.06^2^2^3001027^^^^" ^ORD(101,3200,1,1,0)="This menu contains actions to perform functions that allow for the review" ^ORD(101,3200,1,2,0)="and processing of return status messages." ^ORD(101,3200,4)="26^4" ^ORD(101,3200,10,0)="^101.01PA^15^12" ^ORD(101,3200,10,1,0)="3201^^15^^^EDI History Display" ^ORD(101,3200,10,2,0)="3202^^45^^^Third Party Joint Inq." ^ORD(101,3200,10,3,0)="3203^^28^^^Process COB" ^ORD(101,3200,10,5,0)="3205^^1^^^Cancel Bill" ^ORD(101,3200,10,6,0)="3206^^30^^^Resubmit by Print" ^ORD(101,3200,10,7,0)="3207^^50^^^Print Bill" ^ORD(101,3200,10,8,0)="3208^^10^^^Copy/Cancel Bill" ^ORD(101,3200,10,10,0)="1643^^100^^^Exit" ^ORD(101,3200,10,12,0)="3210^^40^^^Review Status" ^ORD(101,3200,10,13,0)="3211^^25^^^Enter/Edit Comments" ^ORD(101,3200,10,15,0)="3264^^35^" ^ORD(101,3200,10,"B",1643,10)="" ^ORD(101,3200,10,"B",3201,1)="" ^ORD(101,3200,10,"B",3202,2)="" ^ORD(101,3200,10,"B",3203,3)="" ^ORD(101,3200,10,"B",3205,5)="" ^ORD(101,3200,10,"B",3206,6)="" ^ORD(101,3200,10,"B",3207,7)="" ^ORD(101,3200,10,"B",3208,8)="" ^ORD(101,3200,10,"B",3210,12)="" ^ORD(101,3200,10,"B",3211,13)="" ^ORD(101,3200,10,"B",3264,15)="" ^ORD(101,3200,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3200,20)="K IBFASTXT" ^ORD(101,3200,26)="D SHOW^VALM" ^ORD(101,3200,28)="Select Action: " ^ORD(101,3200,99)="61199,28361" ^ORD(101,3201,0)="IBCEM CSA EDI HISTORY^^^A^1^^^^^^^49" ^ORD(101,3201,1,0)="^101.06^2^2^3001027^^^^" ^ORD(101,3201,1,1,0)="This action is used to display the latest status message," ^ORD(101,3201,1,2,0)=" EDI transmit message, and return message for a selection bill." ^ORD(101,3201,20)="D EDI^IBCECSA4" ^ORD(101,3202,0)="IBCEM CSA TPJI^^^A^1^^^^^^^49" ^ORD(101,3202,1,0)="^^2^2^2990804^" ^ORD(101,3202,1,1,0)="There are set of actions and screens for Third Party AR/IB Joint Inquiry" ^ORD(101,3202,1,2,0)="Provide detailed information on any Third Party Claim." ^ORD(101,3202,20)="D TPJI^IBCECSA4" ^ORD(101,3203,0)="IBCEM CSA PROCESS COB^CSA PROCESS COB^^A^1^^^^^^^49" ^ORD(101,3203,1,0)="^^3^3^2990817^^" ^ORD(101,3203,1,1,0)="This option is used to create Secondary and Tertiary bills." ^ORD(101,3203,1,2,0)="The Primary bill is copied to create the bill to the Secondary payer." ^ORD(101,3203,1,3,0)="The Secondary bill is copied to create the bill to the Tertiary payer." ^ORD(101,3203,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3203,20)="D PRO^IBCECSA4" ^ORD(101,3203,99)="58917,40146" ^ORD(101,3204,0)="IBCEM CSA EDIT BILL^Edit MRA Bill^^A^1^^^^^^^49" ^ORD(101,3204,1,0)="^101.06^3^3^3010724^^^^" ^ORD(101,3204,1,1,0)="This option allows the user to edit information on an MRA (REQUEST FOR" ^ORD(101,3204,1,2,0)="MRA status) third party bill that has been returned in error. This kind" ^ORD(101,3204,1,3,0)="of bill may be edited because it has not yet been sent to A/R." ^ORD(101,3204,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3204,20)="D EBI^IBCECSA4" ^ORD(101,3204,99)="58917,40146" ^ORD(101,3205,0)="IBCEM CSA CANCEL BILL^Cancel Bill^^A^1^^^^^^^49" ^ORD(101,3205,1,0)="^^2^2^3000223^^^^" ^ORD(101,3205,1,1,0)="This action allows a user to cancel a bill that has been returned to the site" ^ORD(101,3205,1,2,0)="in error." ^ORD(101,3205,20)="D CANCEL^IBCECSA4" ^ORD(101,3205,99)="58917,40146" ^ORD(101,3206,0)="IBCEM CSA RESUBMIT BILL^CSA RESUBMIT BILL^^A^1^^^^^^^49" ^ORD(101,3206,1,0)="^^3^3^2990805^" ^ORD(101,3206,1,1,0)="This action is allowed a user to resubmit a bill that has not" ^ORD(101,3206,1,2,0)=" been flagged as being in error. A new batch number is assigned" ^ORD(101,3206,1,3,0)="to any bills resubmitted with this option." ^ORD(101,3206,20)="D RES^IBCECSA4" ^ORD(101,3206,99)="58917,40146" ^ORD(101,3207,0)="IBCEM CSA PRINT BILL^CSA PRINT BILL^^A^1^^^^^^^49" ^ORD(101,3207,1,0)="^^4^4^2990805^" ^ORD(101,3207,1,1,0)="This action allows the user to print a third party bill after all required" ^ORD(101,3207,1,2,0)="information has been input, and after the billing information has been" ^ORD(101,3207,1,3,0)="reviewed and authorized. A reimbursable insurance bill that has been flagged" ^ORD(101,3207,1,4,0)="for transmission cannot be printed before it has been transmitted at least once." ^ORD(101,3207,20)="D PBILL^IBCECSA4" ^ORD(101,3207,99)="58917,40146" ^ORD(101,3208,0)="IBCEM CSA COPY/CANCEL BILL^CSA COPY/CANCEL BILL^^A^1^^^^^^^49" ^ORD(101,3208,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3208,20)="D CLONE^IBCECSA4" ^ORD(101,3208,99)="58917,40146" ^ORD(101,3209,0)="IBCEM CSA COB MANAGEMENT^CSA COB MANAGEMENT^^A^1^^^^^^^49" ^ORD(101,3209,1,0)="^101.06^3^3^3010108^^^^" ^ORD(101,3209,1,1,0)="This will be a list manager screen with the option available to print an" ^ORD(101,3209,1,2,0)="associated report. Using the screen, user will be able to follow up on" ^ORD(101,3209,1,3,0)="bills for secondary and tertiary billing." ^ORD(101,3209,10,0)="^101.01PA" ^ORD(101,3209,20)="D COB^IBCECSA4" ^ORD(101,3209,99)="58917,40146" ^ORD(101,3210,0)="IBCEM CSA REVIEW STATUS^CSA REVIEW STATUS^^A^1^^^^^^^49" ^ORD(101,3210,1,0)="^101.06^2^2^3000627^^^" ^ORD(101,3210,1,1,0)="This action is to allow user to mark the message as reviewed, not reviewed" ^ORD(101,3210,1,2,0)="and reviewed complete from selection list." ^ORD(101,3210,20)="D STATUS^IBCECSA2" ^ORD(101,3210,99)="58917,40146" ^ORD(101,3211,0)="IBCEM CSA COMMENTS^CSA ENTER/EDIT COMMENTS^^A^1^^^^^^^49" ^ORD(101,3211,1,0)="^^2^2^2990806^" ^ORD(101,3211,1,1,0)="This action allows user to document user comments for the specifice message" ^ORD(101,3211,1,2,0)="from the selection list." ^ORD(101,3211,20)="D COM^IBCECSA2" ^ORD(101,3211,99)="58917,40146" ^ORD(101,3212,0)="IBCEM COB CSA^CLAIMS STATUS RESOLUTION^^A^1^^^^^^^49" ^ORD(101,3212,1,0)="^101.06^5^5^3000713^^^" ^ORD(101,3212,1,1,0)="This is the main menu that contains the actions that can be performed to" ^ORD(101,3212,1,2,0)="review the the most current status messages received for a bill and do " ^ORD(101,3212,1,3,0)="follow-up on the bills. Users will be able to select a bill from the list" ^ORD(101,3212,1,4,0)="to view the details and the entire message text as well as mark to mark" ^ORD(101,3212,1,5,0)="the message as reviewed or under reviewed and document user comments." ^ORD(101,3212,20)="D CSA^IBCECOB2" ^ORD(101,3212,99)="58917,40146" ^ORD(101,3213,0)="IBCEM CSA VIEW EOB^View EOB^^A^1^^^^^^^49" ^ORD(101,3213,1,0)="^101.06^2^2^3001026^^^^" ^ORD(101,3213,1,1,0)="This action allows a user to view EOB for bills as well as MEDICARE " ^ORD(101,3213,1,2,0)="remittance advice data." ^ORD(101,3213,20)="D EOB^IBCECSA4" ^ORD(101,3213,99)="58917,40146" ^ORD(101,3214,0)="IBCEM CSA EOB LINK^View an EOB^^M^1^^^^^^^49" ^ORD(101,3214,1,0)="^101.06^1^1^3020904^^^^" ^ORD(101,3214,1,1,0)="This menu includes all the options in View EOB menu." ^ORD(101,3214,4)="26^4" ^ORD(101,3214,10,0)="^101.01PA^9^9" ^ORD(101,3214,10,1,0)="3215^^1^^^General Info" ^ORD(101,3214,10,2,0)="3216^^5^^^Payer Info" ^ORD(101,3214,10,3,0)="3217^^10^^^Claim Level Pay" ^ORD(101,3214,10,4,0)="3218^^15^^^Claim Level Adj" ^ORD(101,3214,10,5,0)="3219^^20^^^Medicare Info" ^ORD(101,3214,10,7,0)="3221^^30^^^Line Level Adj" ^ORD(101,3214,10,8,0)="3222^^35^^^Review Info" ^ORD(101,3214,10,9,0)="1643^^100^^^Exit" ^ORD(101,3214,10,"B",1643,9)="" ^ORD(101,3214,10,"B",3215,1)="" ^ORD(101,3214,10,"B",3216,2)="" ^ORD(101,3214,10,"B",3217,3)="" ^ORD(101,3214,10,"B",3218,4)="" ^ORD(101,3214,10,"B",3219,5)="" ^ORD(101,3214,10,"B",3221,7)="" ^ORD(101,3214,10,"B",3222,8)="" ^ORD(101,3214,15)="I $S($G(IBPRVSCR)="""":$G(IBFASTXT),1:IBPRVSCR'=""IBJTED""&($G(IBFASTXT)>2)) S VALMBCK=""Q""" ^ORD(101,3214,20)="K IBFASTXT" ^ORD(101,3214,26)="D:$D(IBPRVSCR) BM^IBJU1(21,17) D SHOW^VALM" ^ORD(101,3214,28)="Select Action: " ^ORD(101,3214,99)="61199,28361" ^ORD(101,3215,0)="IBCEM CSA EOB GEN^General Info^^A^1^^^^^^^49" ^ORD(101,3215,1,0)="^101.06^1^1^3001027^^^^" ^ORD(101,3215,1,1,0)="This action allows a user to display EOB general information." ^ORD(101,3215,20)="N IBACT S IBACT=1 D ACT^IBCECSA6" ^ORD(101,3215,99)="59837,55803" ^ORD(101,3216,0)="IBCEM CSA EOB PAY^EOB PAYER INFORMATION^^A^1^^^^^^^49" ^ORD(101,3216,1,0)="^^1^1^2991117^" ^ORD(101,3216,1,1,0)="This action allows a user to view EOB payer information." ^ORD(101,3216,20)="N IBACT S IBACT=2 D ACT^IBCECSA6" ^ORD(101,3216,99)="59837,55803" ^ORD(101,3217,0)="IBCEM CSA EOB CLAIM^EOB CLAIM STATUS LEVEL^^A^1^^^^^^^49" ^ORD(101,3217,1,0)="^^1^1^2991215^^^" ^ORD(101,3217,1,1,0)="This action allows a user to view EOB claim status level information." ^ORD(101,3217,20)="N IBACT S IBACT=3 D ACT^IBCECSA6" ^ORD(101,3217,99)="59837,55803" ^ORD(101,3218,0)="IBCEM CSA EOB CLAIM ADJ^EOB CLAIM LEVEL ADJUSTMENTS^^A^1^^^^^^^49" ^ORD(101,3218,1,0)="^^1^1^2991117^" ^ORD(101,3218,1,1,0)="This action allows a user to view EOB claim level adjustments information." ^ORD(101,3218,20)="N IBACT S IBACT=4 D ACT^IBCECSA6" ^ORD(101,3218,99)="59837,55804" ^ORD(101,3219,0)="IBCEM CSA EOB MEDICARE^MEDICARE MRA INFO^^A^1^^^^^^^49" ^ORD(101,3219,1,0)="^101.06^1^1^3020904^^^^" ^ORD(101,3219,1,1,0)="This action allows a user to view MRA medicare information." ^ORD(101,3219,20)="N IBACT S IBACT=5 D ACT^IBCECSA6" ^ORD(101,3219,99)="59837,55804" ^ORD(101,3220,0)="IBCEM CSA EOB OUTPATIENT^EOB MEDICARE OUTPATIENT^^A^1^^^^^^^49" ^ORD(101,3220,1,0)="^^1^1^2991117^" ^ORD(101,3220,1,1,0)="This action allows a user to view EOB medicare outpatient information." ^ORD(101,3220,20)="N IBACT S IBACT=6 D ACT^IBCECSA6" ^ORD(101,3220,99)="58917,40146" ^ORD(101,3221,0)="IBCEM CSA EOB LINE ADJ^EOB LINE LEVEL ADJUSTMENTS^^A^1^^^^^^^49" ^ORD(101,3221,1,0)="^101.06^1^1^3001026^^^^" ^ORD(101,3221,1,1,0)="This action allows a user to view EOB line level adjustments information." ^ORD(101,3221,20)="N IBACT S IBACT=7 D ACT^IBCECSA6" ^ORD(101,3221,99)="59837,55804" ^ORD(101,3222,0)="IBCEM CSA EOB REVIEW^EOB REVIEW DATA^^A^1^^^^^^^49" ^ORD(101,3222,1,0)="^^1^1^2991117^" ^ORD(101,3222,1,1,0)="This action allows a user to view EOB review data." ^ORD(101,3222,20)="N IBACT S IBACT=8 D ACT^IBCECSA6" ^ORD(101,3222,99)="59837,55804" ^ORD(101,3223,0)="IBCE EXTR CANCEL^Cancel Bill^^A^1^^^^^^^" ^ORD(101,3223,1,0)="^^2^2^3000126^" ^ORD(101,3223,1,1,0)="Action item, used with IB EDI/MRA, to automatically cancel bills " ^ORD(101,3223,1,2,0)="in a ready for extract status due to EDI/MRA being turned off." ^ORD(101,3223,20)="D CANCEL^IBCEXTR2" ^ORD(101,3223,99)="58917,40146" ^ORD(101,3224,0)="IBCE EXTR MENU^^^M^1^^^^^^^" ^ORD(101,3224,4)="25^3" ^ORD(101,3224,10,0)="^101.01PA^3^3" ^ORD(101,3224,10,1,0)="3223^CN^1^" ^ORD(101,3224,10,2,0)="3225^PR^3^" ^ORD(101,3224,10,3,0)="3226^CC^2^" ^ORD(101,3224,10,"B",3223,1)="" ^ORD(101,3224,10,"B",3225,2)="" ^ORD(101,3224,10,"B",3226,3)="" ^ORD(101,3224,26)="D SHOW^VALM" ^ORD(101,3224,28)="Select Action: " ^ORD(101,3224,99)="58917,40146" ^ORD(101,3225,0)="IBCE EXTR PRINT^Print Report^^A^1^^^^^^^" ^ORD(101,3225,20)="D EN^IBCERP6A D PAUSE^VALM1 S VALMBCK=""R""" ^ORD(101,3225,21,0)="^101.021A" ^ORD(101,3225,99)="58917,40146" ^ORD(101,3226,0)="IBCE EXTR CLON/AUTH^Can/Clon/Auth Bill^^A^1^^^^^^^" ^ORD(101,3226,1,0)="^^2^2^3000126^^^^" ^ORD(101,3226,1,1,0)="This action, used with IB EDI/MRA software, will cancel,clone and" ^ORD(101,3226,1,2,0)="authorize the new bill without user input." ^ORD(101,3226,20)="D CPYCLN^IBCEXTR2" ^ORD(101,3226,99)="58917,40146" ^ORD(101,3227,0)="IBCE RULE ACTIVE ONLY^List Only Active Rules^^A^1^^^^^^^49" ^ORD(101,3227,1,0)="^101.06^2^2^3000713^^" ^ORD(101,3227,1,1,0)="Filters the display of transmission rules so that only the ones currently" ^ORD(101,3227,1,2,0)="in effect are displayed." ^ORD(101,3227,15)="S VALMBG=1" ^ORD(101,3227,20)="D SCRACT^IBCEF61" ^ORD(101,3227,99)="58917,40146" ^ORD(101,3228,0)="IBCE RULE BOTH ACTIVE AND INACTIVE^List All Rules^^A^1^^^^^^^49" ^ORD(101,3228,1,0)="^^2^2^3000713^" ^ORD(101,3228,1,1,0)="Removes all filters to display all transmission rules, regardless of" ^ORD(101,3228,1,2,0)="whether or not they are currently active." ^ORD(101,3228,15)="S VALMBG=1" ^ORD(101,3228,20)="D NOSCR^IBCEF61" ^ORD(101,3228,99)="58917,40146" ^ORD(101,3229,0)="IBCEM COB VEOB MENU^Review EOB^^M^1^^^^^^^49" ^ORD(101,3229,1,0)="^101.06^2^2^3010517^^^^" ^ORD(101,3229,1,1,0)="This menu allows the entry of review comments and the update of the" ^ORD(101,3229,1,2,0)="review status and last edited fields." ^ORD(101,3229,4)="26^4" ^ORD(101,3229,10,0)="^101.01PA^1^1" ^ORD(101,3229,10,1,0)="3230^^5^^^Review Status" ^ORD(101,3229,10,"B",3230,1)="" ^ORD(101,3229,20)="K IBFASTXT" ^ORD(101,3229,26)="D BM^IBJU1(21,17),SHOW^VALM" ^ORD(101,3229,28)="Select Action: " ^ORD(101,3229,99)="58917,40146" ^ORD(101,3230,0)="IBCEM COB REVIEW STATUS^EOB REVIEW STATUS^^A^1^^^^^^^49" ^ORD(101,3230,1,0)="^101.06^2^2^3000522^^^^" ^ORD(101,3230,1,1,0)="This action is to allow user to mark the message as reiewed, not reviewed" ^ORD(101,3230,1,2,0)="and reviewed complete from selection list." ^ORD(101,3230,20)="D STATUS^IBCECOB4" ^ORD(101,3230,99)="58917,40146" ^ORD(101,3231,0)="IBCEM COB EOB^REVIEW EOB ACTION^^A^1^^^^^^^49" ^ORD(101,3231,1,0)="^101.06^2^2^3010517^^" ^ORD(101,3231,1,1,0)="This action allows a user to enter review comments and to update the" ^ORD(101,3231,1,2,0)="review status and last edited by fields." ^ORD(101,3231,20)="D RVEOB^IBCECOB2" ^ORD(101,3231,99)="58917,40146" ^ORD(101,3232,0)="IBCEM CSA MULTI SELECT REVIEW^Auto-review Message(s)^^A^1^^^^^^^49" ^ORD(101,3232,1,0)="^101.06^7^7^3010724^^^^" ^ORD(101,3232,1,1,0)="This option allows the selection of more than 1 status message and" ^ORD(101,3232,1,2,0)="allows the user to either automatically mark the messages as reviewed or" ^ORD(101,3232,1,3,0)="allows the user to ask to see each message to determine whether or not" ^ORD(101,3232,1,4,0)="it can be marked as reviewed. In either case, the result is that the" ^ORD(101,3232,1,5,0)="message is marked as review completed, the review action is changed to" ^ORD(101,3232,1,6,0)="FILED - NO ACTION and a review comment is entered noting the auto-review" ^ORD(101,3232,1,7,0)="action and who the user was who performed it." ^ORD(101,3232,20)="D MSTAT^IBCEU0" ^ORD(101,3232,99)="58917,40146" ^ORD(101,3233,0)="IBCE PRVCARE UNIT MENU^PROVIDER ID CARE UNIT MENU^^M^1^^^^^^^49" ^ORD(101,3233,4)="35" ^ORD(101,3233,10,0)="^101.01PA^6^6" ^ORD(101,3233,10,1,0)="3234^AU^1^" ^ORD(101,3233,10,4,0)="1643^EX^50^" ^ORD(101,3233,10,5,0)="3263^EU^5^" ^ORD(101,3233,10,6,0)="4247^DU^20^" ^ORD(101,3233,10,"B",1643,4)="" ^ORD(101,3233,10,"B",3234,1)="" ^ORD(101,3233,10,"B",3263,5)="" ^ORD(101,3233,10,"B",4247,6)="" ^ORD(101,3233,15)="" ^ORD(101,3233,20)="" ^ORD(101,3233,26)="D SHOW^VALM" ^ORD(101,3233,28)="Select Action: " ^ORD(101,3233,99)="61199,28361" ^ORD(101,3234,0)="IBCE PRVCARE ADD^Add a Unit^^A^1^^^^^^^49" ^ORD(101,3234,20)="D NEW^IBCEP4A(0)" ^ORD(101,3234,99)="61199,28361" ^ORD(101,3235,0)="IBCE PRVPRV MAINT^Provider ID Maintenance^^M^1^^^^^^^49" ^ORD(101,3235,4)="35" ^ORD(101,3235,10,0)="^101.01PA^4^4" ^ORD(101,3235,10,1,0)="3237^AI^5^" ^ORD(101,3235,10,2,0)="3236^EI^10^" ^ORD(101,3235,10,3,0)="3238^DI^15^" ^ORD(101,3235,10,4,0)="1643^EX^100^" ^ORD(101,3235,10,"B",1643,4)="" ^ORD(101,3235,10,"B",3236,2)="" ^ORD(101,3235,10,"B",3237,1)="" ^ORD(101,3235,10,"B",3238,3)="" ^ORD(101,3235,26)="D SHOW^VALM" ^ORD(101,3235,28)="Select Action: " ^ORD(101,3235,99)="61199,28361" ^ORD(101,3236,0)="IBCE PRVNUM EDIT^Edit an ID^^A^1^^^^^^^49" ^ORD(101,3236,20)="D CHG1^IBCEP5A" ^ORD(101,3236,99)="61199,28361" ^ORD(101,3237,0)="IBCE PRVNUM ADD^Add an ID^^A^1^^^^^^^49" ^ORD(101,3237,20)="D NEW^IBCEP5A($G(IBPRV),$G(IBINS))" ^ORD(101,3237,99)="61199,28361" ^ORD(101,3238,0)="IBCE PRVNUM DELETE^Delete an ID^^A^1^^^^^^^49" ^ORD(101,3238,20)="D DEL1^IBCEP5A" ^ORD(101,3238,99)="61199,28361" ^ORD(101,3239,0)="IBCE PRVCARE UNIT MAINT^Care Unit Maint^^A^1^^^^^^^49" ^ORD(101,3239,1,0)="^101.06^2^2^3010427^^" ^ORD(101,3239,1,1,0)="This protocol calls the list manager template for provider id care unit" ^ORD(101,3239,1,2,0)="maintenance functions." ^ORD(101,3239,20)="D EN1^IBCEP4($G(IBINS))" ^ORD(101,3239,99)="61199,28361" ^ORD(101,3240,0)="IBCE PRVINS EDIT^Edit an ID^^A^1^^^^^^^49" ^ORD(101,3240,10,0)="^101.01PA^^0" ^ORD(101,3240,15)="Q" ^ORD(101,3240,20)="D CHG1^IBCEP0A" ^ORD(101,3240,99)="61199,28361" ^ORD(101,3241,0)="IBCE PRVINS ADD^Add an ID^^A^1^^^^^^^49" ^ORD(101,3241,15)="Q" ^ORD(101,3241,20)="D NEW^IBCEP0A($G(IBINS),$G(IBPRV),$G(IBPTYP),$G(IBDSP))" ^ORD(101,3241,99)="61199,28361" ^ORD(101,3242,0)="IBCE PRVINS DELETE^Delete an ID^^A^1^^^^^^^49" ^ORD(101,3242,20)="D DEL1^IBCEP0A" ^ORD(101,3242,99)="61199,28361" ^ORD(101,3243,0)="IBCNSC PROVIDER ID PARAMETERS^Prov IDs/ID Param^^A^1^^^^^^^49" ^ORD(101,3243,4)="^^^ID" ^ORD(101,3243,15)="S VALMBG=$G(IB1ST(""PROVID"")) S:'VALMBG VALMBG=1" ^ORD(101,3243,20)="S IBY="",12,"" D EA^IBCNSC1" ^ORD(101,3243,99)="60484,44475" ^ORD(101,3244,0)="IBCE PRVINS ID^Insurance Co Prov ID Maintenance^^M^1^^^^^^^49" ^ORD(101,3244,4)="26" ^ORD(101,3244,10,0)="^101.01PA^12^12" ^ORD(101,3244,10,4,0)="1643^EX^100^" ^ORD(101,3244,10,5,0)="3252^VI^70^^^" ^ORD(101,3244,10,6,0)="3241^AI^2^^^" ^ORD(101,3244,10,7,0)="3242^DI^4^^^" ^ORD(101,3244,10,8,0)="3239^CU^80^" ^ORD(101,3244,10,9,0)="3253^CI^65^" ^ORD(101,3244,10,10,0)="3240^EI^10^" ^ORD(101,3244,10,11,0)="3254^DP^60^" ^ORD(101,3244,10,12,0)="3255^CD^67^" ^ORD(101,3244,10,"B",1643,4)="" ^ORD(101,3244,10,"B",3239,8)="" ^ORD(101,3244,10,"B",3240,10)="" ^ORD(101,3244,10,"B",3241,6)="" ^ORD(101,3244,10,"B",3242,7)="" ^ORD(101,3244,10,"B",3252,5)="" ^ORD(101,3244,10,"B",3253,9)="" ^ORD(101,3244,10,"B",3254,11)="" ^ORD(101,3244,10,"B",3255,12)="" ^ORD(101,3244,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3244,24)="I $$SCREEN^IBCEP0(""ID"")" ^ORD(101,3244,26)="D SHOW^VALM" ^ORD(101,3244,28)="Select Action: " ^ORD(101,3244,99)="61199,28361" ^ORD(101,3247,0)="IBCE PRVFAC MAINT^Facility Provider ID Defaults^^M^1^^^^^^^49" ^ORD(101,3247,4)="26" ^ORD(101,3247,10,0)="^101.01PA^10^10" ^ORD(101,3247,10,4,0)="1643^^100^" ^ORD(101,3247,10,5,0)="3248^^10^" ^ORD(101,3247,10,6,0)="4101^^5^" ^ORD(101,3247,10,7,0)="4102^^15^" ^ORD(101,3247,10,8,0)="4103^^20^" ^ORD(101,3247,10,9,0)="4104^^25^" ^ORD(101,3247,10,10,0)="4105^^30^" ^ORD(101,3247,10,"B",1643,4)="" ^ORD(101,3247,10,"B",3248,5)="" ^ORD(101,3247,10,"B",4101,6)="" ^ORD(101,3247,10,"B",4102,7)="" ^ORD(101,3247,10,"B",4103,8)="" ^ORD(101,3247,10,"B",4104,9)="" ^ORD(101,3247,10,"B",4105,10)="" ^ORD(101,3247,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3247,24)="I $$SCREEN^IBCEP0(""Additional"")" ^ORD(101,3247,26)="D SHOW^VALM" ^ORD(101,3247,28)="Select Action: " ^ORD(101,3247,99)="61199,28361" ^ORD(101,3248,0)="IBCE PRVFAC EDIT^Edit an ID^^A^1^^^^^^^49" ^ORD(101,3248,20)="D EDIT1^IBCEP7" ^ORD(101,3248,99)="60484,44475" ^ORD(101,3249,0)="IBCE PRVNVA MAINT^Non-VA Provider Maintenance^^M^1^^^^^^^49" ^ORD(101,3249,4)="40" ^ORD(101,3249,10,0)="^101.01PA^7^7" ^ORD(101,3249,10,4,0)="1643^EX^100^" ^ORD(101,3249,10,5,0)="3250^ED^2^" ^ORD(101,3249,10,6,0)="4248^PO^10^" ^ORD(101,3249,10,7,0)="4249^PI^20^" ^ORD(101,3249,10,"B",1643,4)="" ^ORD(101,3249,10,"B",3250,5)="" ^ORD(101,3249,10,"B",4248,6)="" ^ORD(101,3249,10,"B",4249,7)="" ^ORD(101,3249,26)="D SHOW^VALM" ^ORD(101,3249,28)="Select Action: " ^ORD(101,3249,99)="61199,28361" ^ORD(101,3250,0)="IBCE PRVNVA DEMOG^Edit Demographics^^A^1^^^^^^^49" ^ORD(101,3250,15)="Q" ^ORD(101,3250,20)="D EDIT1^IBCEP8($G(IBNPRV))" ^ORD(101,3250,99)="61199,28361" ^ORD(101,3252,0)="IBCE PRVINS JUMP^View IDs by Type^^A^1^^^^^^^49" ^ORD(101,3252,15)="Q" ^ORD(101,3252,20)="D PRVJMP^IBCEP0A($G(IBDSP))" ^ORD(101,3252,99)="61199,28361" ^ORD(101,3253,0)="IBCE PRVINS CHG INS^Change Ins Co^^A^1^^^^^^^49" ^ORD(101,3253,20)="D CHGINS^IBCEP0A" ^ORD(101,3253,99)="61199,28361" ^ORD(101,3254,0)="IBCE PRVINS DISPLAY PARAMS^Display Ins Params^^A^1^^^^^^^49" ^ORD(101,3254,15)="Q" ^ORD(101,3254,20)="D EN^IBCEPB" ^ORD(101,3254,99)="61199,28361" ^ORD(101,3255,0)="IBCE PRVINS CHG FORMAT^Change Display^^A^1^^^^^^^49" ^ORD(101,3255,20)="D CHGFMT^IBCEP0A" ^ORD(101,3255,99)="61199,28361" ^ORD(101,3256,0)="IBCE PRVINS FROM INS MAINT^ID Maint^^A^1^^^^^^^49" ^ORD(101,3256,15)="Q" ^ORD(101,3256,20)="D EN1^IBCEP0($G(IBCNS))" ^ORD(101,3256,99)="58917,40146" ^ORD(101,3257,0)="IBCE ELEC REPT MENU^^^M^1^^^^^^^49" ^ORD(101,3257,4)="25^3" ^ORD(101,3257,10,0)="^101.01PA^3^3" ^ORD(101,3257,10,2,0)="1643^^2^" ^ORD(101,3257,10,3,0)="3266^^1^" ^ORD(101,3257,10,"B",1643,2)="" ^ORD(101,3257,10,"B",3266,3)="" ^ORD(101,3257,26)="D SHOW^VALM" ^ORD(101,3257,28)="Select Action: " ^ORD(101,3257,99)="61199,28361" ^ORD(101,3258,0)="IBCE PRVINS PARAM EDIT^Edit Parameters^^A^1^^^^^^^49" ^ORD(101,3258,20)="D EDIT^IBCEP0B" ^ORD(101,3258,99)="58917,40146" ^ORD(101,3259,0)="IBCE PRVINS PARAM DISPLAY MENU^PARAMETER^^M^1^^^^^^^49" ^ORD(101,3259,4)="26" ^ORD(101,3259,10,0)="^101.01PA^1^1" ^ORD(101,3259,10,1,0)="3258^^1^" ^ORD(101,3259,10,"B",3258,1)="" ^ORD(101,3259,26)="D SHOW^VALM" ^ORD(101,3259,28)="ACTION: " ^ORD(101,3259,99)="58917,40146" ^ORD(101,3260,0)="IBCE PRVSTATE LICENSE^Add Provider State/License #^^A^1^^^^^^^49" ^ORD(101,3260,20)="D EN^IBCEP5D" ^ORD(101,3260,99)="58917,40146" ^ORD(101,3261,0)="IBCE MESSAGE TEXT DISPLAY^^^M^1^^^^^^^49" ^ORD(101,3261,4)="26" ^ORD(101,3261,10,0)="^101.01PA^1^1" ^ORD(101,3261,10,1,0)="3262^^^" ^ORD(101,3261,10,"B",3262,1)="" ^ORD(101,3261,26)="D SHOW^VALM" ^ORD(101,3261,28)="Select Action: " ^ORD(101,3261,99)="58917,40146" ^ORD(101,3262,0)="IBCE MESSAGE SCREEN TEXT EDIT^ADD/DELETE MESSAGE TEXT^^A^1^^^^^^^49" ^ORD(101,3262,20)="D EDIT^IBCEM4" ^ORD(101,3262,99)="58917,40146" ^ORD(101,3263,0)="IBCE PRVCARE EDIT^Edit a Unit^^A^1^^^^^^^49" ^ORD(101,3263,20)="D CHANGE^IBCEP4A(0)" ^ORD(101,3263,99)="61199,28361" ^ORD(101,3264,0)="IBCEM CSA RETRANSMIT BILL^Retransmit Bill^^A^1^^^^^^^49" ^ORD(101,3264,1,0)="^101.06^1^1^3010517^^^^" ^ORD(101,3264,1,1,0)="This action allows a user to resubmit a bill that resides in the CSA list." ^ORD(101,3264,20)="D RETXMT^IBCECSA4" ^ORD(101,3264,99)="58917,40146" ^ORD(101,3265,0)="IBCEM STATUS MSG MENU^^^M^1^^^^^^^" ^ORD(101,3265,4)="80^3" ^ORD(101,3265,10,0)="^101.01PA^3^3" ^ORD(101,3265,10,2,0)="3268^^3^" ^ORD(101,3265,10,3,0)="3269^^1^" ^ORD(101,3265,10,"B",3268,2)="" ^ORD(101,3265,10,"B",3269,3)="" ^ORD(101,3265,26)="D SHOW^VALM" ^ORD(101,3265,28)="Select Action: " ^ORD(101,3265,99)="58917,40146" ^ORD(101,3266,0)="IBCE ELEC RPT ADD/EDIT^Edit Disposition^^A^1^^^^^^^49" ^ORD(101,3266,20)="D EDIT^IBCERPT1" ^ORD(101,3266,99)="58917,40146" ^ORD(101,3267,0)="IBCEM VIEW STATUS MESSAGE^View Status Message^^A^1^^^^^^^" ^ORD(101,3267,20)="D VIEW^IBCEMSG2" ^ORD(101,3267,99)="58917,40146" ^ORD(101,3268,0)="IBCEM DELETE STATUS MESSAGES^Delete Status Message^^A^1^^^^^^^" ^ORD(101,3268,20)="D DEL^IBCEMSG2" ^ORD(101,3268,99)="58917,40146" ^ORD(101,3269,0)="IBCEM VIEW/PRINT STATUS MESSAGES^View/print Status Message^^A^1^^^^^^^" ^ORD(101,3269,20)="D VPRT^IBCEMSG2" ^ORD(101,3269,99)="58917,40146" ^ORD(101,3270,0)="PSJ PC IV LABELS ACTION^INDIVIDUAL IV LABEL ACTIONS^^M^1^^^^^^^77" ^ORD(101,3270,4)="40^5" ^ORD(101,3270,10,0)="^101.01PA^2^2" ^ORD(101,3270,10,1,0)="3271^NL^1^^^Print New Labels" ^ORD(101,3270,10,2,0)="3272^RL^2^^^Reprint IV Labels" ^ORD(101,3270,10,"B",3271,1)="" ^ORD(101,3270,10,"B",3272,2)="" ^ORD(101,3270,15)="Q" ^ORD(101,3270,20)="D EN^PSIVLB(DFN,ON,PSIVLBTP,PSJMORE)" ^ORD(101,3270,26)="D SHOW^VALM" ^ORD(101,3270,99)="58952,46029" ^ORD(101,3271,0)="PSJ PC IV NEW LABELS^PRINT NEW IV LABELS^^A^1^^^^^^^77" ^ORD(101,3271,1,0)="^^1^1^3010404^" ^ORD(101,3271,1,1,0)="This action will allow the user to print new IV labels." ^ORD(101,3271,4)="26^2" ^ORD(101,3271,15)="S VALMBCK=""Q""" ^ORD(101,3271,20)="D LBLBEG^PSIVLBL1" ^ORD(101,3271,99)="58952,46029" ^ORD(101,3271,101.04)="^^^Enter NL to print new label for this order" ^ORD(101,3272,0)="PSJ PC IV REPRINT LABELS^Reprint IV label(s)^^A^1^^^^^^^77" ^ORD(101,3272,1,0)="^^3^3^3010514^" ^ORD(101,3272,1,1,0)="This action will allow the user to reprint one or all labels that have not" ^ORD(101,3272,1,2,0)="been reprinted, recycled, cancelled or destroyed and have not marked as" ^ORD(101,3272,1,3,0)="Given or Completed in BCMA." ^ORD(101,3272,4)="26^2" ^ORD(101,3272,15)="K PSJLB S VALMBCK=""Q""" ^ORD(101,3272,20)="D EN^PSIVLBRP(.PSJIDLST)" ^ORD(101,3272,99)="58952,46029" ^ORD(101,3272,101.04)="^^^Enter RL to reprint label(s) for this order" ^ORD(101,3273,0)="PSJ PC RETURN IV LABELS ACTION^RETURN IV LABELS ACTIONS^^M^1^^^^^^^77" ^ORD(101,3273,4)="25^5" ^ORD(101,3273,10,0)="^101.01PA^3^3" ^ORD(101,3273,10,1,0)="3274^RC^1^" ^ORD(101,3273,10,2,0)="3275^DT^2^" ^ORD(101,3273,10,3,0)="3276^CA^3^" ^ORD(101,3273,10,"B",3274,1)="" ^ORD(101,3273,10,"B",3275,2)="" ^ORD(101,3273,10,"B",3276,3)="" ^ORD(101,3273,15)="Q" ^ORD(101,3273,20)="D EN^PSIVLB(DFN,ON,PSIVLBTP,PSJMORE)" ^ORD(101,3273,26)="D SHOW^VALM" ^ORD(101,3273,99)="58952,46029" ^ORD(101,3274,0)="PSJ PC IV RECYCLED^Recycled^^A^1^^^^^^^77" ^ORD(101,3274,1,0)="^^1^1^3010629^" ^ORD(101,3274,1,1,0)="This action will allow the user to recycle selected labels." ^ORD(101,3274,4)="26^2" ^ORD(101,3274,15)="S VALMBCK=""R""" ^ORD(101,3274,20)="S PSIVC=2 D WARD^PSIVRD" ^ORD(101,3274,99)="58952,46029" ^ORD(101,3274,101.04)="^^^Enter RC to recycle selected IV labels" ^ORD(101,3275,0)="PSJ PC IV DESTROYED^Destroyed^^A^1^^^^^^^" ^ORD(101,3275,1,0)="^^1^1^3010629^" ^ORD(101,3275,1,1,0)="This action will allow the user to enter destroyed IV labels." ^ORD(101,3275,4)="26^2^^" ^ORD(101,3275,15)="S VALMBCK=""R""" ^ORD(101,3275,20)="S PSIVC=3 D WARD^PSIVRD" ^ORD(101,3275,99)="58952,46029" ^ORD(101,3275,101.04)="^^^Enter DT to detroyed selected labels" ^ORD(101,3276,0)="PSJ PC IV CANCELLED^Cancelled^^A^1^^^^^^^" ^ORD(101,3276,1,0)="^^1^1^3010629^" ^ORD(101,3276,1,1,0)="This action will allow the user to cancel selected labels." ^ORD(101,3276,4)="26^2" ^ORD(101,3276,15)="S VALMBCK=""R""" ^ORD(101,3276,20)="S PSIVC=4 D WARD^PSIVRD" ^ORD(101,3276,99)="58952,46029" ^ORD(101,3276,101.04)="^^^Enter CN to cancel selected IV labels" ^ORD(101,3277,0)="PSJI LM VERIFY^Verify^^A^1^^^^^^^" ^ORD(101,3277,1,0)="^^1^1^3010905^" ^ORD(101,3277,1,1,0)="This action allows the user to verify an IV order." ^ORD(101,3277,4)="25^4^^VF" ^ORD(101,3277,20)="D VF^PSJLIACT" ^ORD(101,3277,99)="58952,46029" ^ORD(101,3278,0)="ROR-SITE-DRIVER^Clinical Case Registries Client^^E^1^^^^^^^" ^ORD(101,3278,99)="60332,49903" ^ORD(101,3278,770)="63^^34^69^25^^^1^3^5^" ^ORD(101,3278,772)="" ^ORD(101,3278,775,0)="^101.0775PA^2^1" ^ORD(101,3278,775,2,0)="3279" ^ORD(101,3278,775,"B",3279,2)="" ^ORD(101,3279,0)="ROR-SITE-SUBSCRIBER^Clinical Case Registries Server^^S^1^^^^^^^" ^ORD(101,3279,99)="60332,49903" ^ORD(101,3279,770)="^64^^69^^^177^^^^1" ^ORD(101,3279,771)="" ^ORD(101,3279,773)="1^0^0" ^ORD(101,3280,0)="ROR EVENT LAB^LAB RESULTS => ROR PENDING PATIENT^^A^1^^^^^^^186" ^ORD(101,3280,1,0)="^^12^12^3060202^" ^ORD(101,3280,1,1,0)="This protocol is used by the Clinical Case Registries package to" ^ORD(101,3280,1,2,0)="maintain references to patients who have lab results. The protocol " ^ORD(101,3280,1,3,0)="should be subscribed to the LR7O ALL EVSEND RESULTS protocol (this is" ^ORD(101,3280,1,4,0)="done by the KIDS during the installation)." ^ORD(101,3280,1,5,0)=" " ^ORD(101,3280,1,6,0)="If at least one of the defined registries enables event protocols," ^ORD(101,3280,1,7,0)="this protocol will process the Lab events and create references in" ^ORD(101,3280,1,8,0)="the ROR PATIENT EVENTS file (#798.3)." ^ORD(101,3280,1,9,0)=" " ^ORD(101,3280,1,10,0)="Otherwise, the protocol will be executed (if it is not disabled or" ^ORD(101,3280,1,11,0)="unsubscribed manually) but will not call the processing routine " ^ORD(101,3280,1,12,0)="(LAB^ROREVT01)." ^ORD(101,3280,20)="D:$D(^ROR(798.1,""AEP""))>1 LAB^ROREVT01" ^ORD(101,3280,99)="60332,49903" ^ORD(101,3281,0)="ROR EVENT VISIT^VISIT DATA => ROR PENDING PATIENT^^A^1^^^^^^^186" ^ORD(101,3281,1,0)="^^13^13^3060202^" ^ORD(101,3281,1,1,0)="This protocol is used by the Clinical Case Registries package to " ^ORD(101,3281,1,2,0)="maintain references to patients who have new data in the V-files" ^ORD(101,3281,1,3,0)="(VISIT, V POV, etc). The protocol should be subscribed to the PXK" ^ORD(101,3281,1,4,0)="VISIT DATA EVENT protocol (this is done by the KIDS during the" ^ORD(101,3281,1,5,0)="installation)." ^ORD(101,3281,1,6,0)=" " ^ORD(101,3281,1,7,0)="If at least one of the defined registries enables event protocols," ^ORD(101,3281,1,8,0)="this protocol will process the Lab events and create references in" ^ORD(101,3281,1,9,0)="the ROR PATIENT EVENTS file (#798.3)." ^ORD(101,3281,1,10,0)=" " ^ORD(101,3281,1,11,0)="Otherwise, the protocol will be executed (if it is not disabled or" ^ORD(101,3281,1,12,0)="unsubscribed manually) but will not call the processing routine " ^ORD(101,3281,1,13,0)="(VISIT^ROREVT01)." ^ORD(101,3281,20)="D:$D(^ROR(798.1,""AEP""))>1 VISIT^ROREVT01" ^ORD(101,3281,99)="60332,49903" ^ORD(101,3282,0)="ROR EVENT PTF^ADMISSION DATA => ROR PENDING PATIENT^^A^1^^^^^^^186" ^ORD(101,3282,1,0)="^^12^12^3060202^" ^ORD(101,3282,1,1,0)="This protocol is used by the Clinical Case Registries package to " ^ORD(101,3282,1,2,0)="maintain references to patients who have new admissions. The protocol" ^ORD(101,3282,1,3,0)="should be subscribed to the DGPM MOVEMENT EVENT protocol (this is" ^ORD(101,3282,1,4,0)="done by the KIDS during the installation)." ^ORD(101,3282,1,5,0)=" " ^ORD(101,3282,1,6,0)="If at least one of the defined registries enables event protocols," ^ORD(101,3282,1,7,0)="this protocol will process the movement events and create references" ^ORD(101,3282,1,8,0)="in the ROR PATIENT EVENTS file (#798.3)." ^ORD(101,3282,1,9,0)=" " ^ORD(101,3282,1,10,0)="Otherwise, the protocol will be executed (if it is not disabled or" ^ORD(101,3282,1,11,0)="unsubscribed manually) but will not call the processing routine " ^ORD(101,3282,1,12,0)="(PTF^ROREVT01)." ^ORD(101,3282,20)="D:$D(^ROR(798.1,""AEP""))>1 PTF^ROREVT01" ^ORD(101,3282,99)="60332,49903" ^ORD(101,3283,0)="IBCI SEND ALL^Send All Bills to CLAIMSMANAGER^^A^1^^^^^^^" ^ORD(101,3283,4)="^" ^ORD(101,3283,10,0)="^101.01PA^^0" ^ORD(101,3283,15)="S VALMBCK=""R""" ^ORD(101,3283,20)="D ALL^IBCIL0" ^ORD(101,3283,99)="58960,59355" ^ORD(101,3284,0)="IBCI SEND NON-AUTH ONLY^Send All Non-Auth Bills to CLAIMSMANAGER^^A^1^^^^^^^" ^ORD(101,3284,4)="^" ^ORD(101,3284,15)="S VALMBCK=""R""" ^ORD(101,3284,20)="D SNA^IBCIL0" ^ORD(101,3284,99)="58960,59355" ^ORD(101,3285,0)="IBCI SELECT BILLS^Select Bills to send to CLAIMSMANAGER^^X^1^^^^^^^" ^ORD(101,3285,4)="^" ^ORD(101,3285,15)="S VALMBCK=""R""" ^ORD(101,3285,20)="D SELB^IBCIL0" ^ORD(101,3285,26)="" ^ORD(101,3285,28)="" ^ORD(101,3285,99)="58960,59355" ^ORD(101,3286,0)="IBCI SKIP LIST MENU^Skipped Bills ListMan Protocol Menu^^M^1^^^^^^^" ^ORD(101,3286,4)="60^5" ^ORD(101,3286,10,0)="^101.01PA^3^3" ^ORD(101,3286,10,1,0)="3283^ALL^1^" ^ORD(101,3286,10,2,0)="3284^NA^2^" ^ORD(101,3286,10,3,0)="3285^SEL^3^" ^ORD(101,3286,10,"B",3283,1)="" ^ORD(101,3286,10,"B",3284,2)="" ^ORD(101,3286,10,"B",3285,3)="" ^ORD(101,3286,15)="" ^ORD(101,3286,26)="D SHOW^VALM" ^ORD(101,3286,28)="Select Action: " ^ORD(101,3286,99)="58960,59355" ^ORD(101,3287,0)="IBCI BLANK PROTOCOL^^^A^1^^^^^^^" ^ORD(101,3288,0)="IBCI WORKSHEET SCREEN MENU^ClaimsManager Worksheet Errors Descriptions^^M^1^^^^^^^49" ^ORD(101,3288,4)="26^4^^ClaimsManager Worksheet" ^ORD(101,3288,10,0)="^101.01PA^6^6" ^ORD(101,3288,10,3,0)="3289^RE^4^" ^ORD(101,3288,10,4,0)="3290^OV^3^" ^ORD(101,3288,10,5,0)="3292^CB^1^" ^ORD(101,3288,10,6,0)="3291^EX^4^" ^ORD(101,3288,10,"B",3289,3)="" ^ORD(101,3288,10,"B",3290,4)="" ^ORD(101,3288,10,"B",3291,6)="" ^ORD(101,3288,10,"B",3292,5)="" ^ORD(101,3288,15)="" ^ORD(101,3288,20)="" ^ORD(101,3288,26)="D SHOW^VALM" ^ORD(101,3288,28)="SELECT ACTION:" ^ORD(101,3288,99)="58960,59355" ^ORD(101,3289,0)="IBCI CLAIMSMANAGER RE-EDIT^REEDIT BILL^^A^1^^^^^^^49" ^ORD(101,3289,10,0)="^101.01PA^^0" ^ORD(101,3289,15)="S VALMBCK=""Q""" ^ORD(101,3289,20)="D EBILL^IBCIMG" ^ORD(101,3289,26)="D HDR^IBCIMG" ^ORD(101,3289,28)="SELECT ACTION" ^ORD(101,3289,99)="58960,59355" ^ORD(101,3290,0)="IBCI CLAIMSMANAGER OVERRIDE^OVERRIDE ERRORS^^A^1^^^^^^^49" ^ORD(101,3290,1,0)="^101.06^1^1^3010322^^^" ^ORD(101,3290,1,1,0)="LOCK TO RESTRICT USE TO THOSE USERS WITH OVERRIDE ACCESS" ^ORD(101,3290,10,0)="^101.01PA^3^3" ^ORD(101,3290,10,1,0)="3291^EX^4^" ^ORD(101,3290,10,2,0)="3289^RE^1^" ^ORD(101,3290,10,3,0)="3292^CB^2^" ^ORD(101,3290,10,"B",3289,2)="" ^ORD(101,3290,10,"B",3291,1)="" ^ORD(101,3290,10,"B",3292,3)="" ^ORD(101,3290,15)="" ^ORD(101,3290,20)="D ABILL^IBCIMG" ^ORD(101,3290,99)="58960,59355" ^ORD(101,3290,773)="^^1" ^ORD(101,3291,0)="IBCI CLAIMSMANAGER EXIT^EXIT^^A^1^^^^^^^49" ^ORD(101,3291,10,0)="^101.01PA" ^ORD(101,3291,15)="" ^ORD(101,3291,20)="D XIT^IBCIMG" ^ORD(101,3291,99)="58960,59355" ^ORD(101,3292,0)="IBCI CLAIMSMANAGER CANCEL BILL^CANCEL BILL^^A^1^^^^^^^49" ^ORD(101,3292,10,0)="^101.01PA^1^1" ^ORD(101,3292,10,1,0)="3291^CB^3^" ^ORD(101,3292,10,"B",3291,1)="" ^ORD(101,3292,15)="" ^ORD(101,3292,20)="D CBILL^IBCIMG" ^ORD(101,3292,99)="58960,59355" ^ORD(101,3293,0)="IBCI CLERK WORKSHEET SCREEN MENU^IBCI CLERK WORKSHEET SCREEN MENU^^M^1^^^^^^^49" ^ORD(101,3293,4)="26^4" ^ORD(101,3293,10,0)="^101.01PA^4^4" ^ORD(101,3293,10,1,0)="3292^CB^1^" ^ORD(101,3293,10,2,0)="3289^RE^3^" ^ORD(101,3293,10,3,0)="3291^EX^4^" ^ORD(101,3293,10,4,0)="3287^^3^" ^ORD(101,3293,10,"B",3287,4)="" ^ORD(101,3293,10,"B",3289,2)="" ^ORD(101,3293,10,"B",3291,3)="" ^ORD(101,3293,10,"B",3292,1)="" ^ORD(101,3293,26)="D SHOW^VALM" ^ORD(101,3293,99)="58960,59355" ^ORD(101,3324,0)="MPIF REAL-TIME QUERY (CMOR PDAT)^CMOR's Data View^^A^1^^^^^^^176" ^ORD(101,3324,1,0)="^101.06^1^1^3011210^^" ^ORD(101,3324,1,1,0)="This action will allow the user to request PDAT information from the CMOR." ^ORD(101,3324,4)="^^^CPDAT" ^ORD(101,3324,20)="D CMOR^MPIFQ1" ^ORD(101,3324,99)="59009,54495" ^ORD(101,3325,0)="MPIF REAL-TIME QUERY (MPI PDAT)^MPI Data View^^A^1^^^^^^^176" ^ORD(101,3325,1,0)="^^1^1^3011210^" ^ORD(101,3325,1,1,0)="This action will allow the user to request PDAT information from the MPI." ^ORD(101,3325,4)="^^^MPDAT" ^ORD(101,3325,20)="D MPIPD^MPIFQ1" ^ORD(101,3325,99)="59009,54495" ^ORD(101,3326,0)="OREV ENTER/EDIT AUTO DC MENU^Enter/Edit Auto DC...^^M^1^^^^^^^" ^ORD(101,3326,4)="25^4" ^ORD(101,3326,10,0)="^101.01PA^4^4" ^ORD(101,3326,10,1,0)="3327^AE^^" ^ORD(101,3326,10,2,0)="3328^DD^^" ^ORD(101,3326,10,3,0)="3329^AI^^" ^ORD(101,3326,10,4,0)="3382^CD^^" ^ORD(101,3326,10,"B",3327,1)="" ^ORD(101,3326,10,"B",3328,2)="" ^ORD(101,3326,10,"B",3329,3)="" ^ORD(101,3326,10,"B",3382,4)="" ^ORD(101,3326,15)="" ^ORD(101,3326,20)="D LIST^OREV,CHKSEL^OREV" ^ORD(101,3326,26)="D PHDR^OREV" ^ORD(101,3326,28)="Select action: " ^ORD(101,3326,99)="59147,62798" ^ORD(101,3327,0)="OREV ENTER/EDIT ENTRIES^Add/Edit^^A^1^^^^^^^" ^ORD(101,3327,4)="^" ^ORD(101,3327,10,0)="^101.01PA" ^ORD(101,3327,15)="D DESELECT^OREV K ^TMP(""OREDO"",$J)" ^ORD(101,3327,20)="D EEE^OREV" ^ORD(101,3327,26)="" ^ORD(101,3327,99)="59147,62798" ^ORD(101,3328,0)="OREV MAIN DETAILED DISPLAY^Detailed Display^^A^1^^^^^^^" ^ORD(101,3328,4)="" ^ORD(101,3328,15)="D DESELECT^OREV" ^ORD(101,3328,20)="D EN^VALM(""OREV DETAILED DISPLAY"")" ^ORD(101,3328,26)="" ^ORD(101,3328,99)="59147,62798" ^ORD(101,3329,0)="OREV SWITCH^Activate/Inactivate^^A^1^^^^^^^" ^ORD(101,3329,15)="D DESELECT^OREV" ^ORD(101,3329,20)="D ACT^OREV1" ^ORD(101,3329,99)="59147,62798" ^ORD(101,3330,0)="OREV EDIT WRITE ORDERS PARAM^Edit Write Orders Param^^A^1^^^^^^^" ^ORD(101,3330,15)="S VALMBCK=""R"" D DESELECT^OREV" ^ORD(101,3330,20)="D FULL^VALM1 D EDITPAR^XPAREDIT(""ORWDX WRITE ORDERS EVENT LIST"")" ^ORD(101,3330,99)="59009,54297" ^ORD(101,3331,0)="OREV DETAILED MENU^^^M^1^^^^^^^" ^ORD(101,3331,4)="25^5" ^ORD(101,3331,10,0)="^101.01PA^3^3" ^ORD(101,3331,10,1,0)="3332^AI^^" ^ORD(101,3331,10,2,0)="3333^AE^^" ^ORD(101,3331,10,3,0)="3381^HIS^^" ^ORD(101,3331,10,"B",3332,1)="" ^ORD(101,3331,10,"B",3333,2)="" ^ORD(101,3331,10,"B",3381,3)="" ^ORD(101,3331,15)="" ^ORD(101,3331,20)="" ^ORD(101,3331,26)="D SHOW^VALM" ^ORD(101,3331,99)="59147,62798" ^ORD(101,3332,0)="OREV SWITCH IN DETAIL^Activate/Inactivate^^A^1^^^^^^^" ^ORD(101,3332,15)="D DET^OREV2" ^ORD(101,3332,20)="D ACT^OREV1" ^ORD(101,3332,99)="59147,62798" ^ORD(101,3333,0)="OREV ENTER/EDIT ENTRIES IN DETAIL^Add/Edit^^A^1^^^^^^^" ^ORD(101,3333,15)="D DET^OREV2" ^ORD(101,3333,20)="D EEE^OREV" ^ORD(101,3333,99)="59147,62798" ^ORD(101,3334,0)="OREV ENTER/EDIT EVENTS MENU^Enter/Edit OE/RR Events...^^M^1^^^^^^^" ^ORD(101,3334,4)="25^4" ^ORD(101,3334,10,0)="^101.01PA^6^6" ^ORD(101,3334,10,1,0)="3327^AE^^" ^ORD(101,3334,10,2,0)="3328^DD^^" ^ORD(101,3334,10,3,0)="3329^AI^^" ^ORD(101,3334,10,4,0)="3375^EP^^" ^ORD(101,3334,10,5,0)="3382^CD^^" ^ORD(101,3334,10,6,0)="3383^CC^^" ^ORD(101,3334,10,"B",3327,1)="" ^ORD(101,3334,10,"B",3328,2)="" ^ORD(101,3334,10,"B",3329,3)="" ^ORD(101,3334,10,"B",3375,4)="" ^ORD(101,3334,10,"B",3382,5)="" ^ORD(101,3334,10,"B",3383,6)="" ^ORD(101,3334,20)="D LIST^OREV,CHKSEL^OREV" ^ORD(101,3334,26)="D PHDR^OREV" ^ORD(101,3334,28)="Select action: " ^ORD(101,3334,99)="59147,62798" ^ORD(101,3335,0)="XUMF IMF MFN^XUMF IMF handler^^E^1^^^^^^^" ^ORD(101,3335,1,0)="^^1^1^3001011^^^^" ^ORD(101,3335,1,1,0)="This protocol is the Master File Notification event driver for the Institution file." ^ORD(101,3335,99)="59074,41599" ^ORD(101,3335,770)="67^^33^99^^P^^^^3^33" ^ORD(101,3335,772)="D MAIN^XUMFH4" ^ORD(101,3335,775,0)="^101.0775PA^1^1" ^ORD(101,3335,775,1,0)="3336" ^ORD(101,3335,775,"B",3336,1)="" ^ORD(101,3336,0)="XUMF IMF MFK^XUMF IMF App ACK^^S^1^^^^^^^" ^ORD(101,3336,1,0)="^101.06^1^1^3000629^^^^" ^ORD(101,3336,1,1,0)="This protocol handles Master File Notifications for the Institution file." ^ORD(101,3336,99)="59074,41599" ^ORD(101,3336,770)="^68^33^99^^P^^^^3^40^^i" ^ORD(101,3336,771)="D MAIN^XUMFH4" ^ORD(101,3336,773)="1^^^1" ^ORD(101,3336,774)="Q" ^ORD(101,3337,0)="XUHUI FIELD CHANGE EVENT^Field Change Event^*Do NOT remove this message^X^1^^^^^^^" ^ORD(101,3337,1,0)="^101.06^2^2^3020610^^^" ^ORD(101,3337,1,1,0)="This is used to launch, in the backgound, the protocols that are listed in" ^ORD(101,3337,1,2,0)="the ITEM multiple. Called from routine: DEQUE^XUHUI." ^ORD(101,3337,10,0)="^101.01PA^2^2" ^ORD(101,3337,10,1,0)="3338^^^" ^ORD(101,3337,10,2,0)="3367" ^ORD(101,3337,10,"B",3338,1)="" ^ORD(101,3337,10,"B",3367,2)="" ^ORD(101,3337,15)="" ^ORD(101,3337,99)="59102,54907" ^ORD(101,3338,0)="XUHUI SEND MESSAGE^Send Notification Message^*Do NOT remove this message^A^1^^^^^^^" ^ORD(101,3338,1,0)="^101.06^2^2^3020610^^^" ^ORD(101,3338,1,1,0)="This Action protocol is used to send a mail message to Members of" ^ORD(101,3338,1,2,0)="Group: XUHUI CHANGE EVENT." ^ORD(101,3338,20)="D ^XUHUIMSG" ^ORD(101,3338,99)="59085,35427" ^ORD(101,3339,0)="VAFC QRY-A19 SERVER^Patient Query^^E^1^^^^^^^47" ^ORD(101,3339,1,0)="^101.06^1^1^3020723^^^" ^ORD(101,3339,1,1,0)="This protocol is used as a server to pass an HL7 patient query ADT A19." ^ORD(101,3339,99)="59085,57130" ^ORD(101,3339,770)="69^^4^19^^^^1^1^5^16" ^ORD(101,3339,772)="D RESP^VAFCQRY" ^ORD(101,3339,775,0)="^101.0775PA^1^1" ^ORD(101,3339,775,1,0)="3340" ^ORD(101,3339,775,"B",3340,1)="" ^ORD(101,3340,0)="VAFC ADR-A19 CLIENT^Patient Query Client^^S^1^^^^^^^47" ^ORD(101,3340,1,0)="^^3^3^3020723^" ^ORD(101,3340,1,1,0)="This client HL7 protocol is used to process in a patient query and " ^ORD(101,3340,1,2,0)="respond with a ADR-A19 patient response. The process will be used to " ^ORD(101,3340,1,3,0)="help re-synchronize the MPI with the associated systems that know an ICN." ^ORD(101,3340,99)="59085,57130" ^ORD(101,3340,770)="^69^^19^^^^^^^16" ^ORD(101,3340,771)="D IN^VAFCQRY" ^ORD(101,3340,773)="1^1" ^ORD(101,3340,774)="D ROUTE^VAFCQRY" ^ORD(101,3341,0)="VAFC MFN-M05 SERVER^Treating Facility Master File Update Server^^E^1^^^^^^^47" ^ORD(101,3341,1,0)="^101.06^2^2^3020723^^^" ^ORD(101,3341,1,1,0)="This protocol is used to send/receive a Treating Facility Master File " ^ORD(101,3341,1,2,0)="updated HL7 message to/from the MPI." ^ORD(101,3341,99)="59085,57130" ^ORD(101,3341,770)="69^^33^99^^^^1^1^5^" ^ORD(101,3341,772)="D RSP^VAFCTFIN" ^ORD(101,3341,775,0)="^101.0775PA^1^1" ^ORD(101,3341,775,1,0)="3342" ^ORD(101,3341,775,"B",3342,1)="" ^ORD(101,3342,0)="VAFC MFN-M05 CLIENT^Treating Facility Master File Update Client^^S^1^^^^^^^47" ^ORD(101,3342,1,0)="^101.06^2^2^3020723^^^" ^ORD(101,3342,1,1,0)="This HL7 client protocol is used to send/receive a Treating Facility" ^ORD(101,3342,1,2,0)="Master File updated HL7 message to/from the MPI." ^ORD(101,3342,99)="59085,57130" ^ORD(101,3342,770)="^69^^99^^^^^^^40" ^ORD(101,3342,771)="D IN^VAFCTFIN" ^ORD(101,3342,773)="1^1" ^ORD(101,3342,774)="D ROUTE^VAFCTFIN" ^ORD(101,3343,0)="MPIF ADT-A43 SERVER^MPI/PD ADT-A43 2.4 Server Protocol^^E^1^^^^^^^176" ^ORD(101,3343,1,0)="^^2^2^3020606^" ^ORD(101,3343,1,1,0)="This HL7 message protocol will be used to correct a mismatched or " ^ORD(101,3343,1,2,0)="incorrect ICN identifier." ^ORD(101,3343,99)="59085,57140" ^ORD(101,3343,770)="70^^6^157^^^^1^1^5^" ^ORD(101,3343,772)="Q" ^ORD(101,3343,775,0)="^101.0775PA^1^1" ^ORD(101,3343,775,1,0)="3344" ^ORD(101,3343,775,"B",3344,1)="" ^ORD(101,3344,0)="MPIF ADT-A43 CLIENT^MPI/PD ADT-A43 2.4 Client Protocol^^S^1^^^^^^^176" ^ORD(101,3344,1,0)="^^3^3^3020606^" ^ORD(101,3344,1,1,0)="This is the HL7 message client protocol that will process the ADT-A43 " ^ORD(101,3344,1,2,0)="Move Patient Identifier. This protocol will be used to correct erroneous " ^ORD(101,3344,1,3,0)="or incorrectly identified ICN assignments." ^ORD(101,3344,99)="59085,57140" ^ORD(101,3344,770)="^70^^157^^^^^^^1" ^ORD(101,3344,771)="D IN^MPIFA43" ^ORD(101,3344,773)="1^1" ^ORD(101,3344,774)="D ROUTE^MPIFA43" ^ORD(101,3345,0)="MPIF ADT-A31 SERVER^ADT-A31 SERVER^^E^1^^^^^^^176" ^ORD(101,3345,1,0)="^^3^3^3020724^" ^ORD(101,3345,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A31 (update " ^ORD(101,3345,1,2,0)="patient information) message from VistA to the MPI. The event will result" ^ORD(101,3345,1,3,0)="in the updating of patient data on the MPI for that ICN." ^ORD(101,3345,99)="59781,57585" ^ORD(101,3345,770)="70^^6^31^^^^1^1^5^" ^ORD(101,3345,772)="D RES^MPIFA31B" ^ORD(101,3345,775,0)="^101.0775PA^1^1" ^ORD(101,3345,775,1,0)="3346" ^ORD(101,3345,775,"B",3346,1)="" ^ORD(101,3346,0)="MPIF ADT-A31 CLIENT^ADT-A31 CLIENT^^S^1^^^^^^^176" ^ORD(101,3346,1,0)="^101.06^3^3^3020724^^" ^ORD(101,3346,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A31 (update " ^ORD(101,3346,1,2,0)="patient information) message from VistA to the MPI. The event will result" ^ORD(101,3346,1,3,0)="in the updating of patient data on the MPI for that ICN." ^ORD(101,3346,99)="59781,57585" ^ORD(101,3346,770)="^70^^31^^^^^^^1" ^ORD(101,3346,771)="D INIT^RGADTP" ^ORD(101,3346,773)="1^1" ^ORD(101,3346,774)="Q" ^ORD(101,3347,0)="MPIF ADT-A28 CLIENT^ADT-A28 CLIENT^^S^1^^^^^^^176" ^ORD(101,3347,1,0)="^^5^5^3020724^" ^ORD(101,3347,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A28 (create new patient)" ^ORD(101,3347,1,2,0)="message from VistA to the MPI. The event will result in the addition of" ^ORD(101,3347,1,3,0)="a new patient in the MPIVET file on the MPI, unless an exact match is " ^ORD(101,3347,1,4,0)="found. The corresponding associated/treating facility for an ICN" ^ORD(101,3347,1,5,0)="will also be created." ^ORD(101,3347,99)="59085,57140" ^ORD(101,3347,770)="^70^^28^^^^^^^1" ^ORD(101,3347,771)="Q" ^ORD(101,3347,773)="1^1" ^ORD(101,3347,774)="Q" ^ORD(101,3348,0)="MPIF ADT-A28 SERVER^ADT-A28 SERVER^^E^1^^^^^^^176" ^ORD(101,3348,1,0)="^^5^5^3020724^" ^ORD(101,3348,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A28 (create new " ^ORD(101,3348,1,2,0)="patient) message from VistA to the MPI. The event will result in the" ^ORD(101,3348,1,3,0)="addition of a new patient in the MPIVET file on the MPI, unless an exact" ^ORD(101,3348,1,4,0)="match is found. The corresponding associated/treating facility for an" ^ORD(101,3348,1,5,0)="ICN will also be created." ^ORD(101,3348,99)="59085,57140" ^ORD(101,3348,770)="70^^6^28^^^^1^1^5^" ^ORD(101,3348,772)="D RES^MPIFA28" ^ORD(101,3348,775,0)="^101.0775PA^1^1" ^ORD(101,3348,775,1,0)="3347" ^ORD(101,3348,775,"B",3347,1)="" ^ORD(101,3349,0)="MPIF ADT-A24 CLIENT^ADT-A24 CLIENT^^S^1^^^^^^^176" ^ORD(101,3349,1,0)="^^5^5^3020724^" ^ORD(101,3349,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A24 (link " ^ORD(101,3349,1,2,0)="patient information) message from VistA to the MPI. The event will " ^ORD(101,3349,1,3,0)="result in the addition of the associated/treating facility for an ICN" ^ORD(101,3349,1,4,0)="OR the update of the data associated with the associated/treating " ^ORD(101,3349,1,5,0)="facility." ^ORD(101,3349,99)="59085,57140" ^ORD(101,3349,770)="^70^^24^^^^^^^1" ^ORD(101,3349,771)="D A24^MPIFA24" ^ORD(101,3349,773)="1^1" ^ORD(101,3349,774)="D RT^MPIFA24B" ^ORD(101,3350,0)="MPIF ADT-A24 SERVER^ADT-A24 SERVER^^E^1^^^^^^^176" ^ORD(101,3350,1,0)="^^5^5^3020724^" ^ORD(101,3350,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A24 (link " ^ORD(101,3350,1,2,0)="patient information) message from VistA to the MPI. The event will " ^ORD(101,3350,1,3,0)="result in the addition of the associated/treating facility for an ICN" ^ORD(101,3350,1,4,0)="OR the update of the data associated with the associated/treating " ^ORD(101,3350,1,5,0)="facility." ^ORD(101,3350,99)="59085,57140" ^ORD(101,3350,770)="70^^6^24^^^^1^1^5^" ^ORD(101,3350,772)="D RES^MPIFA24B" ^ORD(101,3350,775,0)="^101.0775PA^1^1" ^ORD(101,3350,775,1,0)="3349" ^ORD(101,3350,775,"B",3349,1)="" ^ORD(101,3351,0)="MPIF ADT-A40 SERVER^ADT-A40 SERVER^^E^1^^^^^^^176" ^ORD(101,3351,1,0)="^^3^3^3020724^" ^ORD(101,3351,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A40 (merging patient " ^ORD(101,3351,1,2,0)="information) message from VistA to the MPI. The event will result in the " ^ORD(101,3351,1,3,0)="merging of ICN 2 into ICN1." ^ORD(101,3351,99)="59085,57140" ^ORD(101,3351,770)="70^^6^154^^^^1^1^5^" ^ORD(101,3351,772)="D RES^MPIFA40" ^ORD(101,3351,775,0)="^101.0775PA^1^1" ^ORD(101,3351,775,1,0)="3352" ^ORD(101,3351,775,"B",3352,1)="" ^ORD(101,3352,0)="MPIF ADT-A40 CLIENT^ADT-A40 CLIENT^^S^1^^^^^^^176" ^ORD(101,3352,1,0)="^^3^3^3020724^" ^ORD(101,3352,1,1,0)="This protocol is used to send an HL7 v2.4 ADT-A40 (merging " ^ORD(101,3352,1,2,0)="patient information) message from VistA to the MPI. The event will result" ^ORD(101,3352,1,3,0)="in the merging of ICN 2 into ICN 1." ^ORD(101,3352,99)="59085,57140" ^ORD(101,3352,770)="^70^^154^^^^^^^1" ^ORD(101,3352,771)="Q" ^ORD(101,3352,773)="1^1" ^ORD(101,3352,774)="Q" ^ORD(101,3353,0)="MPIF ADT-A37 SERVER^MPI/PD ADT-A37 2.4 Server Protocol^^E^1^^^^^^^176" ^ORD(101,3353,1,0)="^^2^2^3020606^" ^ORD(101,3353,1,1,0)="This HL7 message server protocol will be used to unlink sites from the " ^ORD(101,3353,1,2,0)="patient Treating Facility list." ^ORD(101,3353,99)="59085,57140" ^ORD(101,3353,770)="70^^6^37^^^^1^1^5^" ^ORD(101,3353,772)="D RESP^MPIFA37" ^ORD(101,3353,775,0)="^101.0775PA^1^1" ^ORD(101,3353,775,1,0)="3354" ^ORD(101,3353,775,"B",3354,1)="" ^ORD(101,3354,0)="MPIF ADT-A37 CLIENT^MPI/PD ADT-A37 2.4 Client Protocol^^S^1^^^^^^^176" ^ORD(101,3354,1,0)="^101.06^4^4^3020724^^" ^ORD(101,3354,1,1,0)="This HL7 client protocol is used to send an HL7 v2.4 ADT-A37 (unlink " ^ORD(101,3354,1,2,0)="patient information) message from VistA to the MPI. The event will " ^ORD(101,3354,1,3,0)="result in the removal of a patient from the associated/treating" ^ORD(101,3354,1,4,0)="facility list for an ICN." ^ORD(101,3354,99)="59085,57140" ^ORD(101,3354,770)="^70^^37^^^^^^^1" ^ORD(101,3354,771)="D IN^MPIFA37" ^ORD(101,3354,773)="1^1" ^ORD(101,3354,774)="D ROUTE^MPIFA37" ^ORD(101,3355,0)="RG ADT-A08 TRIGGER^MPI/PD ADT-A08 Trigger Protocol^^S^1^^^^^^^170" ^ORD(101,3355,1,0)="^^5^5^3020719^" ^ORD(101,3355,1,1,0)="This is the new MPI/PD ADT-A08 HL7 2.4 trigger client protocol. This " ^ORD(101,3355,1,2,0)="protocol is used to process in messages generated by the VAFC ADT-A08 " ^ORD(101,3355,1,3,0)="SERVER protocol that is in 2.3 format and update the message to the 2.4 " ^ORD(101,3355,1,4,0)="standard and include full enhanced mode acknowledgements at both the" ^ORD(101,3355,1,5,0)="commit and application level." ^ORD(101,3355,99)="59147,62050" ^ORD(101,3355,770)="^71^^8^^^^^^^1" ^ORD(101,3355,771)="Q" ^ORD(101,3355,773)="1^1" ^ORD(101,3355,774)="D PROC^RGADTP" ^ORD(101,3356,0)="RG ADT-A01 2.4 SERVER^MPI/PD ADT-A01 2.4 Server Protocol^^E^1^^^^^^^170" ^ORD(101,3356,1,0)="^^2^2^3020507^" ^ORD(101,3356,1,1,0)="This is the new MPI/PD ADT-A01 HL7 2.4 server protocol. This new version " ^ORD(101,3356,1,2,0)="includes the new PID as well as the routing via the MPI." ^ORD(101,3356,99)="59085,57148" ^ORD(101,3356,770)="71^^6^1^^^^1^1^5^" ^ORD(101,3356,772)="D RESP^RGADTP" ^ORD(101,3356,775,0)="^101.0775PA^1^1" ^ORD(101,3356,775,1,0)="3357" ^ORD(101,3356,775,"B",3357,1)="" ^ORD(101,3357,0)="RG ADT-A01 2.4 CLIENT^MPI/PD ADT-A01 2.4 Client Protocol^^S^1^^^^^^^170" ^ORD(101,3357,1,0)="^^4^4^3020805^" ^ORD(101,3357,1,1,0)="This is the new MPI/PD ADT-A01 HL7 2.4 client protocol. This new version " ^ORD(101,3357,1,2,0)="includes the new PID as well as the routing via the MPI. This will be " ^ORD(101,3357,1,3,0)="used to send admission data to the MPI to support the synchronization of " ^ORD(101,3357,1,4,0)="the patients date last treated and/or event reason." ^ORD(101,3357,99)="59085,57148" ^ORD(101,3357,770)="^71^^1^^^^^^^1" ^ORD(101,3357,771)="D INIT^RGADTP" ^ORD(101,3357,773)="1^1" ^ORD(101,3357,774)="D ROUTE^RGADTP" ^ORD(101,3358,0)="RG ADT-A03 2.4 SERVER^MPI/PD ADT-A03 2.4 Server Protocol^^E^1^^^^^^^170" ^ORD(101,3358,1,0)="^^2^2^3020507^" ^ORD(101,3358,1,1,0)="This is the new MPI/PD ADT-A03 HL7 2.4 server protocol. This new version" ^ORD(101,3358,1,2,0)="includes the new PID as well as the routing via the MPI." ^ORD(101,3358,99)="59085,57148" ^ORD(101,3358,770)="71^^6^3^^^^1^1^5^" ^ORD(101,3358,772)="D RESP^RGADTP" ^ORD(101,3358,775,0)="^101.0775PA^1^1" ^ORD(101,3358,775,1,0)="3359" ^ORD(101,3358,775,"B",3359,1)="" ^ORD(101,3359,0)="RG ADT-A03 2.4 CLIENT^MPI/PD ADT-A03 2.4 Client Protocol^^S^1^^^^^^^170" ^ORD(101,3359,1,0)="^^4^4^3020805^" ^ORD(101,3359,1,1,0)="This is the new MPI/PD ADT-A03 HL7 2.4 client protocol. This new version " ^ORD(101,3359,1,2,0)="includes the new PID as well as the routing via the MPI. This will be " ^ORD(101,3359,1,3,0)="used to send discharge and clinic checkout data to the MPI to support the" ^ORD(101,3359,1,4,0)="synchronization of the patients date last treated and/or event reason." ^ORD(101,3359,99)="59085,57148" ^ORD(101,3359,770)="^71^^3^^^^^^^1" ^ORD(101,3359,771)="D INIT^RGADTP" ^ORD(101,3359,773)="1^1" ^ORD(101,3359,774)="D ROUTE^RGADTP" ^ORD(101,3360,0)="RG ADT-A04 2.4 SERVER^MPI/PD ADT-A04 2.4 Server Protocol^^E^1^^^^^^^170" ^ORD(101,3360,1,0)="^^3^3^3020507^" ^ORD(101,3360,1,1,0)="This is the new MPI/PD ADT-A04 (Register a Patient) HL7 2.4 server" ^ORD(101,3360,1,2,0)="protocol. This new version includes the new PID as well as the routing via" ^ORD(101,3360,1,3,0)="the MPI." ^ORD(101,3360,99)="59085,57148" ^ORD(101,3360,770)="71^^6^4^^^^1^1^5^" ^ORD(101,3360,772)="D RESP^RGADTP" ^ORD(101,3360,775,0)="^101.0775PA^1^1" ^ORD(101,3360,775,1,0)="3361" ^ORD(101,3360,775,"B",3361,1)="" ^ORD(101,3361,0)="RG ADT-A04 2.4 CLIENT^MPI/PD ADT-A04 2.4 Client Protocol^^S^1^^^^^^^170" ^ORD(101,3361,1,0)="^^4^4^3020805^" ^ORD(101,3361,1,1,0)="This is the new MPI/PD ADT-A04 HL7 2.4 client protocol. This new version" ^ORD(101,3361,1,2,0)="includes the new PID as well as the routing via the MPI. This will be " ^ORD(101,3361,1,3,0)="used to send registration data to the MPI to support the synchronization" ^ORD(101,3361,1,4,0)="of the patient demographic data." ^ORD(101,3361,99)="59085,57148" ^ORD(101,3361,770)="^71^^4^^^^^^^1" ^ORD(101,3361,771)="D INIT^RGADTP" ^ORD(101,3361,773)="1^1" ^ORD(101,3361,774)="D ROUTE^RGADTP" ^ORD(101,3362,0)="RG ADT-A08 2.4 SERVER^MPI/PD ADT-A08 2.4 Server Protocol^^E^1^^^^^^^170" ^ORD(101,3362,1,0)="^101.06^2^2^3020613^^" ^ORD(101,3362,1,1,0)="This is the new MPI/PD ADT-A08 (Patient Update) HL7 2.4 server protocol. " ^ORD(101,3362,1,2,0)="This new version includes the new PID as well as the routing via the MPI." ^ORD(101,3362,99)="59085,57148" ^ORD(101,3362,770)="71^^6^8^^^^1^1^5^" ^ORD(101,3362,772)="D RESP^RGADTP" ^ORD(101,3362,775,0)="^101.0775PA^1^1" ^ORD(101,3362,775,1,0)="3363" ^ORD(101,3362,775,"B",3363,1)="" ^ORD(101,3363,0)="RG ADT-A08 2.4 CLIENT^MPI/PD ADT-A08 2.4 Client Protocol^^S^1^^^^^^^170" ^ORD(101,3363,1,0)="^^4^4^3020805^" ^ORD(101,3363,1,1,0)="This is the new MPI/PD ADT-A08 HL7 2.4 client protocol. This new version" ^ORD(101,3363,1,2,0)="includes the new PID as well as the routing via the MPI. This will be " ^ORD(101,3363,1,3,0)="used to send updated patient data to the MPI to support the" ^ORD(101,3363,1,4,0)="synchronization of the patient demographic data." ^ORD(101,3363,99)="59085,57148" ^ORD(101,3363,770)="^71^^8^^^^^^^1" ^ORD(101,3363,771)="D INIT^RGADTP" ^ORD(101,3363,773)="1^1" ^ORD(101,3363,774)="D ROUTE^RGADTP" ^ORD(101,3364,0)="RG ADT-A04 TRIGGER^MPI/PD ADT-A04 Trigger Protocol^^S^1^^^^^^^170" ^ORD(101,3364,1,0)="^^3^3^3020719^^" ^ORD(101,3364,1,1,0)="This protocol is used as an internal process of the A04 messages. The " ^ORD(101,3364,1,2,0)="protocol will read in the message and reformat to the HL7 v2.4 standard " ^ORD(101,3364,1,3,0)="with Application and Commit acknowledgements turned on." ^ORD(101,3364,99)="59147,62050" ^ORD(101,3364,770)="^71^^4^^^^^^^1" ^ORD(101,3364,771)="Q" ^ORD(101,3364,773)="1^1" ^ORD(101,3364,774)="D PROC^RGADTP" ^ORD(101,3365,0)="PSS HUI DRUG UPDATE^SEND DRUG UPDATE MESSAGE^DELETE ONLY TO SEND DRUG UPDATE MESSAGES^E^1^^^^^^^164" ^ORD(101,3365,1,0)="^^3^3^3020802^^^^" ^ORD(101,3365,1,1,0)="This protocol will be used to send event notification and data when" ^ORD(101,3365,1,2,0)="new drugs are added to the Drug file (#50) and when certain fields are" ^ORD(101,3365,1,3,0)="updated in same file." ^ORD(101,3365,20)="" ^ORD(101,3365,99)="59102,53832" ^ORD(101,3365,770)="72^^33^65^^^^3^1^^" ^ORD(101,3365,772)="" ^ORD(101,3365,775,0)="^101.0775PA^1^1" ^ORD(101,3366,0)="PSO RECEIVE ORDER^Receive external Outpatient order^^S^1^^^^^^^60" ^ORD(101,3366,1,0)="^^2^2^3020726^" ^ORD(101,3366,1,1,0)="This protocol is used to receive Outpatient Pharmacy orders from an " ^ORD(101,3366,1,2,0)="external source." ^ORD(101,3366,99)="59102,53885" ^ORD(101,3366,770)="^73^^38^^^180^^^^13" ^ORD(101,3366,771)="D EN^PSOHLINC" ^ORD(101,3366,773)="1^1" ^ORD(101,3366,774)="Q" ^ORD(101,3367,0)="XUHUI SEND HL7 MESSAGE^Send HL7 MFN message^*Do not remove this message^A^1^^^^^^^" ^ORD(101,3367,1,0)="^^2^2^3020610^" ^ORD(101,3367,1,1,0)="This Action protocol is used to send an HL7 MFN message to the HUI remote " ^ORD(101,3367,1,2,0)="middleware." ^ORD(101,3367,20)="D ^XUHUIHL7" ^ORD(101,3367,99)="59102,54907" ^ORD(101,3368,0)="XUHUI MFN^^^E^1^^^^^^^" ^ORD(101,3368,1,0)="^^3^3^3020709^" ^ORD(101,3368,1,1,0)="This HL7 event protocol is one of two protocols used to generate " ^ORD(101,3368,1,2,0)="staff/practitioner master file (MFN) messages. This particular protocol " ^ORD(101,3368,1,3,0)="represents the sending system." ^ORD(101,3368,99)="" ^ORD(101,3368,770)="74^^33^66^^^^^^4^" ^ORD(101,3368,772)="Q" ^ORD(101,3368,775,0)="^101.0775PA^1^1" ^ORD(101,3368,775,1,0)="3369" ^ORD(101,3368,775,"B",3369,1)="" ^ORD(101,3369,0)="XUHUI MFK^^^S^1^^^^^^^" ^ORD(101,3369,1,0)="^^3^3^3020709^" ^ORD(101,3369,1,1,0)="This HL7 event protocol is one of two protocols used to generate " ^ORD(101,3369,1,2,0)="staff/practitioner master file (MFN) messages. This particular protocol " ^ORD(101,3369,1,3,0)="represents the receiving system." ^ORD(101,3369,770)="^75^^66^^^181^^^^40" ^ORD(101,3369,771)="Q" ^ORD(101,3370,0)="DG FIELD MONITOR^DG Field Monitor^^X^1^^^^^^^47" ^ORD(101,3370,1,0)="^101.06^59^59^3040520^^^^" ^ORD(101,3370,1,1,0)="This protocol is an event point which monitors the editing of fields in" ^ORD(101,3370,1,2,0)="DG* application files. At the time of this event point, the following" ^ORD(101,3370,1,3,0)="variables will be present in the environment:" ^ORD(101,3370,1,4,0)=" " ^ORD(101,3370,1,5,0)=" Variable Description" ^ORD(101,3370,1,6,0)=" -------- -----------------------------------------------" ^ORD(101,3370,1,7,0)=" DGDA DA array as exists during Fileman editing " ^ORD(101,3370,1,8,0)=" DGFILE File or subfile number where changed field resides" ^ORD(101,3370,1,9,0)=" DGFIELD Number of changed field " ^ORD(101,3370,1,10,0)=" DGTYPE Type of cross reference action (ADD, DELETE or UPDATE)" ^ORD(101,3370,1,11,0)=" DGDTH Date/time of change in $Horolog format " ^ORD(101,3370,1,12,0)=" DGUSER DUZ of user that made the change " ^ORD(101,3370,1,13,0)=" DGOPT Current menu option in ""option_name^menu_text"" format" ^ORD(101,3370,1,14,0)=" DGX X array as documented for Fileman new style x-refs " ^ORD(101,3370,1,15,0)=" DGX1 X1 array as documented for Fileman new style x-refs" ^ORD(101,3370,1,16,0)=" DGX2 X2 array as documented for Fileman new style x-refs" ^ORD(101,3370,1,17,0)=" " ^ORD(101,3370,1,18,0)="This protocol is triggered by ""listener"" cross references on selected" ^ORD(101,3370,1,19,0)="fields. By employing logic such as ""If DGFILE=2, DGFIELD=.361," ^ORD(101,3370,1,20,0)="DGTYPE=""ADD"", then..."", subscribers to this protocol may take action based" ^ORD(101,3370,1,21,0)="on edit activity which involves those fields." ^ORD(101,3370,1,22,0)=" " ^ORD(101,3370,1,23,0)="This event point is designed to occur only once per field editing" ^ORD(101,3370,1,24,0)="activity. The DGTYPE variable can be interpreted as follows:" ^ORD(101,3370,1,25,0)=" " ^ORD(101,3370,1,26,0)=" o ADD transactions indicate that data has been added to a field" ^ORD(101,3370,1,27,0)=" that was previously null. The DGX, DGX1 and DGX2 arrays will" ^ORD(101,3370,1,28,0)=" contain the Fileman X, X1 and X2 arrays (respectively) as" ^ORD(101,3370,1,29,0)=" documented for the execution of 'SET' logic." ^ORD(101,3370,1,30,0)=" " ^ORD(101,3370,1,31,0)=" o DELETE transactions indicate that previously existing data has" ^ORD(101,3370,1,32,0)=" been deleted without being replaced. The DGX, DGX1 and DGX2" ^ORD(101,3370,1,33,0)=" arrays will contain the Fileman X, X1 and X2 arrays" ^ORD(101,3370,1,34,0)=" (respectively) as documented for the execution of 'KILL' logic." ^ORD(101,3370,1,35,0)=" " ^ORD(101,3370,1,36,0)=" o UPDATE transactions indicate that existing data has been deleted" ^ORD(101,3370,1,37,0)=" and new data has been filed. The DGX, DGX1 and DGX2 arrays will" ^ORD(101,3370,1,38,0)=" contain the Fileman X, X1 and X2 arrays (respectively) as" ^ORD(101,3370,1,39,0)=" documented for the execution of 'SET' logic." ^ORD(101,3370,1,40,0)=" " ^ORD(101,3370,1,41,0)="The naming convention used for these 'new style' cross-references for this" ^ORD(101,3370,1,42,0)="Patch are as follows:" ^ORD(101,3370,1,43,0)=" " ^ORD(101,3370,1,44,0)=" 1. All names will begin with the letter ""A"" to denote a non-lookup MUMPS" ^ORD(101,3370,1,45,0)=" cross-reference." ^ORD(101,3370,1,46,0)=" " ^ORD(101,3370,1,47,0)=" 2. The next characters identify the name space (i.e. Registration =""DG""). " ^ORD(101,3370,1,48,0)=" " ^ORD(101,3370,1,49,0)=" 3. The next two characters identify the field monitor utility (""FM"")." ^ORD(101,3370,1,50,0)=" " ^ORD(101,3370,1,51,0)=" 4. The next character will be ""D"" if the field contains a decimal. If " ^ORD(101,3370,1,52,0)=" there is no decimal, there will not be a ""D"" character." ^ORD(101,3370,1,53,0)=" " ^ORD(101,3370,1,54,0)=" 5. The next characters identify the field number. " ^ORD(101,3370,1,55,0)=" " ^ORD(101,3370,1,56,0)="The establishment of this naming convention is intended to assist with " ^ORD(101,3370,1,57,0)="the easy identification of the field monitoring utility as implemented" ^ORD(101,3370,1,58,0)="across multiple field definitions. It should be followed as additional" ^ORD(101,3370,1,59,0)="instances of this utility are distributed." ^ORD(101,3370,4)="^^^" ^ORD(101,3370,10,0)="^101.01PA^9^6" ^ORD(101,3370,10,4,0)="3810^^^" ^ORD(101,3370,10,5,0)="3374" ^ORD(101,3370,10,6,0)="3386" ^ORD(101,3370,10,7,0)="3387" ^ORD(101,3370,10,8,0)="3417" ^ORD(101,3370,10,9,0)="3629" ^ORD(101,3370,10,"B",3374,5)="" ^ORD(101,3370,10,"B",3386,6)="" ^ORD(101,3370,10,"B",3387,7)="" ^ORD(101,3370,10,"B",3417,8)="" ^ORD(101,3370,10,"B",3629,9)="" ^ORD(101,3370,10,"B",3810,4)="" ^ORD(101,3370,15)="" ^ORD(101,3370,20)="" ^ORD(101,3370,21,0)="^101.021A^^0" ^ORD(101,3370,99)="60016,35559" ^ORD(101,3371,0)="SD WAIT LIST ENTRY^Wait List Entry^^A^1^SDWL MENU^^^^^^" ^ORD(101,3371,2,0)="^101.02A^1^1" ^ORD(101,3371,2,1,0)="WL" ^ORD(101,3371,2,"B","WL",1)="" ^ORD(101,3371,15)="K SDWLLIST S VALMBCK=""R""" ^ORD(101,3371,20)="S SDWLLIST=1 D CLEAR^VALM1,EN^SDWLE" ^ORD(101,3371,99)="59124,70503" ^ORD(101,3372,0)="SD WAIT LIST DISPLAY^Wait List Display^^A^1^^^^^^^" ^ORD(101,3372,2,0)="^101.02A^1^1" ^ORD(101,3372,2,1,0)="DP" ^ORD(101,3372,2,"B","DP",1)="" ^ORD(101,3372,15)="K SDWLLIST S VALMBCK=""R""" ^ORD(101,3372,20)="S SDWLLIST=1 D CLEAR^VALM1,EN^SDWLI" ^ORD(101,3372,99)="59124,70503" ^ORD(101,3373,0)="SD WAIT LIST DISPOSITION^Wait List Disposition^^A^1^SDWL MENU^^^^^^" ^ORD(101,3373,15)="K SDWLLIST S VALMBCK=""R""" ^ORD(101,3373,20)="S SDWLLIST=1 D CLEAR^VALM1,EN^SDWLDISP" ^ORD(101,3373,99)="59124,70503" ^ORD(101,3374,0)="SCMC PCMM INACTIVATE ON DATE OF DEATH^PCCM INACTIVATE ON DATE OF DEATH^^A^1^^^^^^^48" ^ORD(101,3374,1,0)="^101.06^1^1^3020621^^^" ^ORD(101,3374,1,1,0)="Inactiviate Patient Team Assignments in PCMM when date of death is entered" ^ORD(101,3374,20)="D DEATH^SCMCTSK" ^ORD(101,3374,99)="59124,70557" ^ORD(101,3374,775,0)="^101.0775PA" ^ORD(101,3375,0)="OREV EDIT EVENT DELAY PARAMS^Edit Event Delay Params^^A^1^^^^^^^" ^ORD(101,3375,15)="D DESELECT^OREV" ^ORD(101,3375,20)="D PARAM^OREV3" ^ORD(101,3375,99)="59147,62798" ^ORD(101,3376,0)="ORC DELAYED ORDERS^Delayed Orders^^A^1^^^^^^^" ^ORD(101,3376,2,0)="^101.02A^1^1" ^ORD(101,3376,2,1,0)="TD" ^ORD(101,3376,2,"B","TD",1)="" ^ORD(101,3376,15)="S:$D(^TMP(""OR"",$J,""CURRENT"",""MENU"")) XQORM(""HIJACK"")=^(""MENU"")" ^ORD(101,3376,20)="D EN^OREVNT" ^ORD(101,3376,24)="" ^ORD(101,3376,99)="59147,62798" ^ORD(101,3377,0)="ORC DELAY EVENT^Edit Release Event^^A^1^^^^^^^" ^ORD(101,3377,15)="D EX^ORCACT" ^ORD(101,3377,20)="D ED^OREVNT" ^ORD(101,3377,99)="59147,62798" ^ORD(101,3378,0)="ORC DELAYED ORDER ACTIONS^Order action menu for delayed order views^^M^1^^^^^^^" ^ORD(101,3378,4)="20^2" ^ORD(101,3378,10,0)="^101.01PA^11^11" ^ORD(101,3378,10,1,0)="2228^^11^" ^ORD(101,3378,10,2,0)="3377^^13^" ^ORD(101,3378,10,3,0)="2229^^21^" ^ORD(101,3378,10,4,0)="2231^^33^" ^ORD(101,3378,10,5,0)="2232^^41^^^Details" ^ORD(101,3378,10,6,0)="2237^^23^^^Cancel" ^ORD(101,3378,10,7,0)="3380^^22^^^" ^ORD(101,3378,10,8,0)="2240^^31^" ^ORD(101,3378,10,9,0)="2331^^43^" ^ORD(101,3378,10,10,0)="2334^^32^" ^ORD(101,3378,10,11,0)="2387^^42^" ^ORD(101,3378,10,"B",2228,1)="" ^ORD(101,3378,10,"B",2229,3)="" ^ORD(101,3378,10,"B",2231,4)="" ^ORD(101,3378,10,"B",2232,5)="" ^ORD(101,3378,10,"B",2237,6)="" ^ORD(101,3378,10,"B",2240,8)="" ^ORD(101,3378,10,"B",2331,9)="" ^ORD(101,3378,10,"B",2334,10)="" ^ORD(101,3378,10,"B",2387,11)="" ^ORD(101,3378,10,"B",3377,2)="" ^ORD(101,3378,10,"B",3380,7)="" ^ORD(101,3378,15)="I '$G(OREBUILD),$G(ORNMBR) D DESELECT^ORCHART(ORNMBR)" ^ORD(101,3378,20)="Q:$$DONE^OREVNT1 S XQORM(0)=""1AD\"",(XQORM(""?""),XQORM(""??""))=""D ITEMHELP^ORCHART"",VALMBCK="""",ORNMBR=$P(XQORNOD(0),""="",2) D SELECT^ORCHART(ORNMBR)" ^ORD(101,3378,26)="W """"" ^ORD(101,3378,28)="Select Action: " ^ORD(101,3378,99)="59147,62798" ^ORD(101,3379,0)="ORCHANGE EVENT^Auto DC/Release Event^^A^1^^^^^^^" ^ORD(101,3379,20)="D EVT^ORCHANG3" ^ORD(101,3379,99)="59147,62798" ^ORD(101,3380,0)="ORC RELEASE ORDERS^Release Orders^^A^1^^^^^^^" ^ORD(101,3380,15)="D EX^ORCACT" ^ORD(101,3380,20)="D EN^OREVNT1" ^ORD(101,3380,99)="59147,62798" ^ORD(101,3381,0)="OREV INCLUDE HISTORIES^Add/Remove Histories^^A^1^^^^^^^" ^ORD(101,3381,15)="S VALMBG=1 D DET^OREV2" ^ORD(101,3381,20)="D INCHIST^OREV2" ^ORD(101,3381,99)="59147,62798" ^ORD(101,3382,0)="OREV CHANGE DISPLAY^Change display^^A^1^^^^^^^" ^ORD(101,3382,15)="D HDR^OREV" ^ORD(101,3382,20)="D CD^OREV2" ^ORD(101,3382,99)="59147,62798" ^ORD(101,3383,0)="OREV ADD CHILD^Create Child Event^^A^1^^^^^^^" ^ORD(101,3383,15)="D DESELECT^OREV K ^TMP(""OREDO"",$J)" ^ORD(101,3383,20)="D ACE^OREV3" ^ORD(101,3383,99)="59147,62798" ^ORD(101,3384,0)="PSJ LM FLAG^Flag^^A^1^^^^^^^77" ^ORD(101,3384,1,0)="^101.06^1^1^3020701^^" ^ORD(101,3384,1,1,0)="This option allows the user to flag/unflag an Inpatient Medications order." ^ORD(101,3384,2,0)="^101.02A^1^1" ^ORD(101,3384,2,1,0)="FL" ^ORD(101,3384,2,"B","FL",1)="" ^ORD(101,3384,4)="36^4" ^ORD(101,3384,20)="D FLAG^PSJOE(DFN,PSJORD)" ^ORD(101,3384,99)="59192,47746" ^ORD(101,3385,0)="PSJ LM CWAD^CWAD Information^^A^1^^^^^^^77" ^ORD(101,3385,1,0)="^^1^1^3020626^" ^ORD(101,3385,1,1,0)="Displaying the CWAD information for the selected patient." ^ORD(101,3385,15)="S VALMBCK=""R""" ^ORD(101,3385,20)="D CWAD^PSJALG(DFN)" ^ORD(101,3385,99)="59192,47746" ^ORD(101,3386,0)="SPN REG STATUS UPDATE^Update Registration Status to Expired^^A^1^^^^^^^148" ^ORD(101,3386,.1)="RS" ^ORD(101,3386,1,0)="^101.06^4^4^3020909^^^^" ^ORD(101,3386,1,1,0)="This protocol is an 'action' type which automatically updates " ^ORD(101,3386,1,2,0)="Registration Status in the SCD (SPINAL CORD) REGISTRY file (#154) to " ^ORD(101,3386,1,3,0)="Expired if the Date of Death field (#.351) in the PATIENT file (#2) is " ^ORD(101,3386,1,4,0)="edited and made not null (i.e., a date is inserted)." ^ORD(101,3386,20)="I DGFILE=2,DGFIELD=.351,DGTYPE=""ADD"" D EDIT^SPNDDFM" ^ORD(101,3386,99)="59229,43701" ^ORD(101,3387,0)="SPN REG STATUS DELETE^Notice of Date of Death Deletion^^A^1^^^^^^^" ^ORD(101,3387,.1)="RSD" ^ORD(101,3387,1,0)="^^6^6^3020910^" ^ORD(101,3387,1,1,0)="This protocol is an 'action' type which automatically sends a Mailman" ^ORD(101,3387,1,2,0)="message if pt's Date of Death value has been deleted from his PATIENT file" ^ORD(101,3387,1,3,0)="(#2) record. The message is sent to the SPNL SCD COORDINATOR mail group," ^ORD(101,3387,1,4,0)="notifying its members to verify the death rescindment, and enter a correct" ^ORD(101,3387,1,5,0)="value in the Registration Status field in the SCD (SPINAL CORD) REGISTRY" ^ORD(101,3387,1,6,0)="file (#154)." ^ORD(101,3387,20)="I DGFILE=2,DGFIELD=.351,DGTYPE=""DELETE"" D DEL^SPNDDFM" ^ORD(101,3387,99)="59229,43701" ^ORD(101,3388,0)="EAS EDB ORU-Z06 CLIENT^^^S^0" ^ORD(101,3388,770)="^76^^^^^182^^^^1" ^ORD(101,3388,771)="D ORU^EASPREC2" ^ORD(101,3388,773)="1^1" ^ORD(101,3389,0)="EAS EDB ORU-Z06 SERVER^IVM Case Status/Unsolicited HEC/Edb to VAMC^^E^0" ^ORD(101,3389,99)="59257,66378" ^ORD(101,3389,770)="77^^3^54^^^^1^1^4" ^ORD(101,3389,772)="" ^ORD(101,3389,775,0)="^101.0775PA^1^1" ^ORD(101,3389,775,1,0)="3388" ^ORD(101,3389,775,"B",3388,1)="" ^ORD(101,3390,0)="EAS EDB ORU-Z09 CLIENT^^^S^0" ^ORD(101,3390,770)="^77^^^^^182^^^^1" ^ORD(101,3390,771)="" ^ORD(101,3390,773)="1^1" ^ORD(101,3391,0)="EAS EDB ORU-Z09 SERVER^IVM BILLING/COLLECTION/Unsolicited VAMC to HEC/Edb^^E^0" ^ORD(101,3391,99)="59257,66379" ^ORD(101,3391,770)="76^^3^57^^^^1^1^4" ^ORD(101,3391,772)="D ACK^IVMPREC1" ^ORD(101,3391,775,0)="^101.0775PA^1^1" ^ORD(101,3391,775,1,0)="3390" ^ORD(101,3391,775,"B",3390,1)="" ^ORD(101,3392,0)="SCMC SEND SERVER WORKLOAD^PCMM SEND SERVER FOR WORKLOAD^^E^1^^^^^^^48" ^ORD(101,3392,1,0)="^101.06^2^2^3030207^^^^" ^ORD(101,3392,1,1,0)="HL7 server protocol for sending PCMM Workload messages, which" ^ORD(101,3392,1,2,0)="will contain primary care data used by the NPCD." ^ORD(101,3392,4)="^^^E" ^ORD(101,3392,15)="" ^ORD(101,3392,20)="" ^ORD(101,3392,99)="59276,64289" ^ORD(101,3392,770)="78^^95^214^^P^^3^1^5^1" ^ORD(101,3392,772)="D ACK^SCMCHLRI" ^ORD(101,3392,773)="1" ^ORD(101,3392,775,0)="^101.0775PA^2^1" ^ORD(101,3392,775,2,0)="3393" ^ORD(101,3392,775,"B",3393,2)="" ^ORD(101,3393,0)="SCMC SEND CLIENT WORKLOAD^PCMM SEND CLIENT FOR WORKLOAD^^S^1^^^^^^^48" ^ORD(101,3393,1,0)="^101.06^2^2^3030128^^^^" ^ORD(101,3393,1,1,0)="HL7 server protocol for sending PCMM workload messages" ^ORD(101,3393,1,2,0)="Will contain primary care data used by the NPCD." ^ORD(101,3393,4)="^^^" ^ORD(101,3393,99)="59276,64289" ^ORD(101,3393,770)="^^1^214^^^184^^^5^6" ^ORD(101,3393,773)="1^1^0^1" ^ORD(101,3394,0)="TIUHSLSM MENU^TIU HS Object Menu^^M^1^^^^^^^" ^ORD(101,3394,4)="40^4" ^ORD(101,3394,10,0)="^101.01PA^6^6" ^ORD(101,3394,10,1,0)="3395^^1^" ^ORD(101,3394,10,2,0)="3396^^2^" ^ORD(101,3394,10,4,0)="3402^^4^" ^ORD(101,3394,10,5,0)="3408^^5^" ^ORD(101,3394,10,6,0)="3401^^3^" ^ORD(101,3394,10,"B",3395,1)="" ^ORD(101,3394,10,"B",3396,2)="" ^ORD(101,3394,10,"B",3401,6)="" ^ORD(101,3394,10,"B",3402,4)="" ^ORD(101,3394,10,"B",3408,5)="" ^ORD(101,3394,15)="D LSEXIT^TIUHSL" ^ORD(101,3394,20)="" ^ORD(101,3394,26)="D SHOW^VALM" ^ORD(101,3394,99)="59309,58029" ^ORD(101,3395,0)="TIUHS CREATE OBJECT^Create New TIU Object^^A^1^^^^^^^" ^ORD(101,3395,4)="26^6" ^ORD(101,3395,15)="S VALMBCK=""R""" ^ORD(101,3395,20)="D CREATE^TIUHSL" ^ORD(101,3395,26)="" ^ORD(101,3395,99)="59309,58029" ^ORD(101,3396,0)="TIUHS EDIT^Detailed Display/Edit TIU Object^^A^1^^^^^^^" ^ORD(101,3396,15)="S VALMBCK=""R""" ^ORD(101,3396,20)="D EDIT^TIUHSL" ^ORD(101,3396,26)="" ^ORD(101,3396,99)="59309,58029" ^ORD(101,3397,0)="TIUHS EDIT OBJECT^Change HS Object^^A^1^^^^^^^" ^ORD(101,3397,15)="S VALMBCK=""R""" ^ORD(101,3397,20)="D HSEDIT^TIUHSV" ^ORD(101,3397,99)="59309,58029" ^ORD(101,3398,0)="TIUHSE MENU^Detailed Display Menu^^M^1^^^^^^^" ^ORD(101,3398,4)="30^4" ^ORD(101,3398,10,0)="^101.01PA^8^8" ^ORD(101,3398,10,1,0)="3397^^3^" ^ORD(101,3398,10,7,0)="3403^^5^" ^ORD(101,3398,10,8,0)="3404^^4^" ^ORD(101,3398,10,"B",3397,1)="" ^ORD(101,3398,10,"B",3403,7)="" ^ORD(101,3398,10,"B",3404,8)="" ^ORD(101,3398,15)="" ^ORD(101,3398,20)="" ^ORD(101,3398,26)="D SHOW^VALM" ^ORD(101,3398,99)="59309,58029" ^ORD(101,3399,0)="TIUHS CREATE/MODIFY HS TYPE^Edit HS Type^^A^1^^^^^^^" ^ORD(101,3399,15)="S VALMBCK=""R""" ^ORD(101,3399,20)="D CREATEHS^TIUHSOLM" ^ORD(101,3399,99)="59309,58029" ^ORD(101,3400,0)="TIUHS VIEW CURRENT HS^Inquire about a HS Type^^A^1^^^^^^^" ^ORD(101,3400,10,0)="^101.01PA^^0" ^ORD(101,3400,15)="S VALMBCK=""R""" ^ORD(101,3400,20)="D FULL^VALM1 W @IOF D ^GMTSRI W ! S DIR(0)=""E"" D ^DIR" ^ORD(101,3400,99)="59309,58029" ^ORD(101,3401,0)="TIUHS QUIT^Quit^^A^1^^^^^^^" ^ORD(101,3401,20)="G EXIT^TIUHSL" ^ORD(101,3401,99)="59309,58029" ^ORD(101,3402,0)="TIUHSFIND^Find^^A^1^^^^^^^" ^ORD(101,3402,15)="S VALMBCK=""R""" ^ORD(101,3402,20)="D FIND^TIUHSL" ^ORD(101,3402,99)="59309,58029" ^ORD(101,3403,0)="TIU HS OBJECT DISPLAY^Detail Display/Edit HS Object^^A^1^^^^^^^" ^ORD(101,3403,15)="S VALMBCK=""R""" ^ORD(101,3403,20)="D HSOBJ^TIUHSV" ^ORD(101,3403,99)="59309,58029" ^ORD(101,3404,0)="TIUHS CHANGE HS TYPE^Change Health Summary Type^^A^1^^^^^^^" ^ORD(101,3404,15)="S VALMBCK=""R""" ^ORD(101,3404,20)="D CHHST^TIUHSV" ^ORD(101,3404,99)="59309,58029" ^ORD(101,3405,0)="TIUHS OBJECT MENU^^^M^1^^^^^^^" ^ORD(101,3405,4)="30^4" ^ORD(101,3405,10,0)="^101.01PA^4^4" ^ORD(101,3405,10,1,0)="3406^^1^" ^ORD(101,3405,10,2,0)="3407^^2^" ^ORD(101,3405,10,3,0)="3400^^5^" ^ORD(101,3405,10,4,0)="3399^^7^" ^ORD(101,3405,10,"B",3399,4)="" ^ORD(101,3405,10,"B",3400,3)="" ^ORD(101,3405,10,"B",3406,1)="" ^ORD(101,3405,10,"B",3407,2)="" ^ORD(101,3405,26)="D SHOW^VALM" ^ORD(101,3405,99)="59309,58029" ^ORD(101,3406,0)="TIUHS OBJ EDIT HS OBJECT^Edit HS Object^^A^1^^^^^^^" ^ORD(101,3406,15)="S VALMBCK=""R""" ^ORD(101,3406,20)="D EHSO^TIUHSOLM" ^ORD(101,3406,99)="59309,58029" ^ORD(101,3407,0)="TIUHS OBJ CHANGE HST^Change HS Type^^A^1^^^^^^^" ^ORD(101,3407,15)="S VALMBCK=""R""" ^ORD(101,3407,20)="D CHST^TIUHSOLM" ^ORD(101,3407,99)="59309,58029" ^ORD(101,3408,0)="TIUHS EDIT HS OBJECT MM^Detailed Display/Edit HS Object^^A^1^^^^^^^" ^ORD(101,3408,15)="S VALMBCK=""R""" ^ORD(101,3408,20)="D EDITHSO^TIUHSL" ^ORD(101,3408,99)="59309,58029" ^ORD(101,3409,0)="RMIM DRIVER^FIM - FSOD EVENT DRIVER^^E^1^^^^^^^" ^ORD(101,3409,99)="59309,58362" ^ORD(101,3409,770)="80^^3^46^53^^^3^3^5^" ^ORD(101,3409,775,0)="^101.0775PA^1^1" ^ORD(101,3409,775,1,0)="3410" ^ORD(101,3409,775,"B",3410,1)="" ^ORD(101,3410,0)="RMIM SUBSCRIBER^RMIM FIM - FSOD SUBSCRIBER^^S^1^^^^^^^" ^ORD(101,3410,99)="59309,58362" ^ORD(101,3410,770)="^79^^46^^^185^^^^1" ^ORD(101,3410,773)="1^1^0" ^ORD(101,3411,0)="DG PATCH 244^DG PATCH 244^^E^1^^^^^^^47" ^ORD(101,3411,1,0)="^^4^4^3011219^" ^ORD(101,3411,1,1,0)="This server protocol will be used by patch DG*5.3*244 to generate an HL7" ^ORD(101,3411,1,2,0)="Update Patient (event code A08) message. All local subscribers to VAFC" ^ORD(101,3411,1,3,0)="ADT-A08 SERVER will be added as subscribers to this protocol by the post" ^ORD(101,3411,1,4,0)="init included with DG*5.3*244." ^ORD(101,3411,99)="59323,59468" ^ORD(101,3411,770)="14^^6^8^^P^^3^3^3^" ^ORD(101,3411,772)="Q" ^ORD(101,3411,775,0)="^101.0775PA^4^4" ^ORD(101,3411,775,4,0)="3355" ^ORD(101,3411,775,"B",3355,4)="" ^ORD(101,3412,0)="XUOAA PMU^^^E^1^^^^^^^" ^ORD(101,3412,1,0)="^^3^3^3021022^^" ^ORD(101,3412,1,1,0)="This HL7 event protocol is one of two protocols used to generate Update" ^ORD(101,3412,1,2,0)="Personnel Record (PMU) messages. This particular protocol represents the" ^ORD(101,3412,1,3,0)="sending system. " ^ORD(101,3412,770)="82^^95^214^^^^^^5^" ^ORD(101,3412,772)="D RECACK^XUOAAHL7" ^ORD(101,3412,775,0)="^101.0775PA^1^1" ^ORD(101,3412,775,1,0)="3413" ^ORD(101,3412,775,"B",3413,1)="" ^ORD(101,3413,0)="XUOAA ACK^^^S^1^^^^^^^" ^ORD(101,3413,1,0)="^^3^3^3021029^^" ^ORD(101,3413,1,1,0)="This HL7 event protocol is one of two protocols used to generate Update" ^ORD(101,3413,1,2,0)="Personnel Record (PMU) messages. This particular protocol represents the" ^ORD(101,3413,1,3,0)="receiving system. " ^ORD(101,3413,770)="^83^^214^^^186^^^^1" ^ORD(101,3413,771)="Q" ^ORD(101,3413,773)="1" ^ORD(101,3414,0)="EAS UE PCE EVENT^EAS UE PCE EVENT^^A^1^^^^^^^181" ^ORD(101,3414,1,0)="^^4^4^3030304^" ^ORD(101,3414,1,1,0)="This Protocol is attached to multiple ITEM of PXK VISIT DATA EVENT " ^ORD(101,3414,1,2,0)="Protocol. This protocol will make enrollment call if any " ^ORD(101,3414,1,3,0)="inpatient/outpatient encounter occurs to determine Veteran's User " ^ORD(101,3414,1,4,0)="Enrollee status." ^ORD(101,3414,4)="^^^EAS UE" ^ORD(101,3414,20)="D ENC^EASUER" ^ORD(101,3414,99)="59348,40237" ^ORD(101,3415,0)="EAS UE SCHED EVENT^EAS UE SCHED EVENT^^A^1^^^^^^^181" ^ORD(101,3415,1,0)="^^3^3^3030304^" ^ORD(101,3415,1,1,0)="This protocol is attached to multiple ITEM of SDAM APPOINTMENT EVENTS " ^ORD(101,3415,1,2,0)="protocol. This protocol will make a call to enrollment api if any " ^ORD(101,3415,1,3,0)="appointment made to determine Veteran's User Enrollee status." ^ORD(101,3415,4)="^^^EAS UE" ^ORD(101,3415,20)="D SCHED^EASUER" ^ORD(101,3415,99)="59348,40237" ^ORD(101,3416,0)="EAS UE INP EVENT^EAS UE INP EVENT^^A^1^^^^^^^181" ^ORD(101,3416,1,0)="^^3^3^3030320^" ^ORD(101,3416,1,1,0)="This protocol attached as multiple item of protocol named DGPM MOVEMENT EVENTS." ^ORD(101,3416,1,2,0)="It will notify enrollment whenever veteran is admitted, transfered or" ^ORD(101,3416,1,3,0)="discharged." ^ORD(101,3416,20)="D INP^EASUER" ^ORD(101,3416,99)="59348,40237" ^ORD(101,3417,0)="FB PATIENT DATA CHANGE^PATIENT DATA CHANGE^^A^1^^^^^^^114" ^ORD(101,3417,4)="^^^FBPAT" ^ORD(101,3417,20)="D CHNG^FBPATDAT" ^ORD(101,3417,99)="59348,40256" ^ORD(101,3418,0)="DGRU-RAI-A08^^^S^1^^^^^^^" ^ORD(101,3418,770)="^49^^8^^^^^^^1" ^ORD(101,3418,773)="1^1" ^ORD(101,3419,0)="DGRU-RAI-A12^A12 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3419,99)="59365,59753" ^ORD(101,3419,770)="^49^^12^^^^^^^6" ^ORD(101,3419,773)="1^1" ^ORD(101,3420,0)="DGRU-RAI-A21^A21 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3420,99)="59365,59753" ^ORD(101,3420,770)="^49^^21^^^^^^^6" ^ORD(101,3420,773)="1^1" ^ORD(101,3421,0)="DGRU-RAI-A22^A22 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3421,99)="59365,59753" ^ORD(101,3421,770)="^49^^22^^^^^^^6" ^ORD(101,3421,773)="1^1" ^ORD(101,3422,0)="DGRU-RAI-A13^A13 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3422,99)="59365,59753" ^ORD(101,3422,770)="^49^^13^^^^^^^6" ^ORD(101,3422,773)="1^1" ^ORD(101,3423,0)="DGRU-RAI-A01^A01 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3423,99)="59365,59753" ^ORD(101,3423,770)="^49^^1^^^^^^^6" ^ORD(101,3423,773)="1^1" ^ORD(101,3424,0)="DGRU-RAI-A03^A03 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3424,99)="59365,59753" ^ORD(101,3424,770)="^49^^3^^^^^^^6" ^ORD(101,3424,773)="1^1" ^ORD(101,3425,0)="DGRU-RAI-MFU^MFU CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3425,99)="59365,59753" ^ORD(101,3425,770)="^49^^65^^^^^^^33" ^ORD(101,3425,773)="1^1" ^ORD(101,3426,0)="DGRU-RAI-A02^A02 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3426,99)="59365,59753" ^ORD(101,3426,770)="^49^^2^^^^^^^6" ^ORD(101,3426,773)="1^1" ^ORD(101,3427,0)="DGRU-RAI-A11^A11 CLIENT PROTOCOL^^S^1^^^^^^^47" ^ORD(101,3427,99)="59365,59753" ^ORD(101,3427,770)="^49^^11^^^^^^^6" ^ORD(101,3427,773)="1^1" ^ORD(101,3428,0)="TIU ALERTS MENU^TIU Alerts Menu^^M^1^^^^^^^" ^ORD(101,3428,4)="40" ^ORD(101,3428,10,0)="^101.01PA^10^10" ^ORD(101,3428,10,1,0)="3435^^1^" ^ORD(101,3428,10,2,0)="3433^^2^" ^ORD(101,3428,10,3,0)="3432^^3^" ^ORD(101,3428,10,4,0)="3434^^4^" ^ORD(101,3428,10,5,0)="3443^^6^" ^ORD(101,3428,10,6,0)="3442^^7^" ^ORD(101,3428,10,7,0)="3430^^8^" ^ORD(101,3428,10,8,0)="3429^^9^" ^ORD(101,3428,10,9,0)="3431^^10^" ^ORD(101,3428,10,10,0)="3444^^5^" ^ORD(101,3428,10,"B",3429,8)="" ^ORD(101,3428,10,"B",3430,7)="" ^ORD(101,3428,10,"B",3431,9)="" ^ORD(101,3428,10,"B",3432,3)="" ^ORD(101,3428,10,"B",3433,2)="" ^ORD(101,3428,10,"B",3434,4)="" ^ORD(101,3428,10,"B",3435,1)="" ^ORD(101,3428,10,"B",3442,6)="" ^ORD(101,3428,10,"B",3443,5)="" ^ORD(101,3428,10,"B",3444,10)="" ^ORD(101,3428,15)="D LSEXIT^TIUAL1" ^ORD(101,3428,26)="D SHOW^VALM" ^ORD(101,3428,28)="Select Action:" ^ORD(101,3428,99)="59365,60063" ^ORD(101,3429,0)="TIU ALERTS 3RD PERSON ALERT^Third Party Alert(s)^^A^1^^^^^^^" ^ORD(101,3429,15)="S VALMBCK=""R""" ^ORD(101,3429,20)="D SELECT^TIUALFUN(""THIRD"")" ^ORD(101,3429,99)="59365,60063" ^ORD(101,3430,0)="TIU ALERTS RESEND ALERT^Resend Alert(s)^^A^1^^^^^^^" ^ORD(101,3430,15)="S VALMBCK=""R""" ^ORD(101,3430,20)="D SELECT^TIUALFUN(""RESEND"")" ^ORD(101,3430,99)="59365,60063" ^ORD(101,3431,0)="TIU ALERTS SELECT^^^A^1^^^^^^^" ^ORD(101,3431,15)="S VALMBCK=""R""" ^ORD(101,3431,20)="D SELECT^TIUALFUN(""ASKUSR"")" ^ORD(101,3432,0)="TIU ALERTS COMBO^Combo Alert(s)^^A^1^^^^^^^" ^ORD(101,3432,15)="S VALMBCK=""R""" ^ORD(101,3432,20)="D SELECT^TIUALFUN(""COMBO"")" ^ORD(101,3432,99)="59365,60063" ^ORD(101,3433,0)="TIU ALERTS CHANGE SEARCH CRITERIA^Change View^^A^1^^^^^^^" ^ORD(101,3433,15)="S VALMBCK=""R""" ^ORD(101,3433,20)="D CHNGSRCH^TIUAL1" ^ORD(101,3433,99)="59365,60063" ^ORD(101,3434,0)="TIU ALERTS DELETE^Delete Alert(s)^^A^1^^^^^^^" ^ORD(101,3434,15)="S VALMBCK=""R""" ^ORD(101,3434,20)="D SELECT^TIUALFUN(""ALRTDEL"")" ^ORD(101,3434,99)="59365,60063" ^ORD(101,3435,0)="TIU ALERTS BROWSE^Browse^^A^1^^^^^^^" ^ORD(101,3435,15)="S VALMBCK=""R""" ^ORD(101,3435,20)="D BROWSE^TIUALFUN" ^ORD(101,3435,99)="59365,60063" ^ORD(101,3436,0)="TIU ALERTS SEARCH AUTHOR^Author^^A^1^^^^^^^" ^ORD(101,3436,99)="59365,60063" ^ORD(101,3437,0)="TIU ALERTS SEARCH DICTATOR^Dictator^^A^1^^^^^^^" ^ORD(101,3437,99)="59365,60063" ^ORD(101,3438,0)="TIU ALERTS SEARCH EXPECTED COSIGNER^Expected Cosigner^^A^1^^^^^^^" ^ORD(101,3438,99)="59365,60063" ^ORD(101,3439,0)="TIU ALERTS SEARCH ATTENDING PHYSICIAN^Attending Physician^^A^1^^^^^^^" ^ORD(101,3439,99)="59365,60063" ^ORD(101,3440,0)="TIU ALERTS SEARCH ADDITIONAL SIGNER^Additional Signer^^A^1^^^^^^^" ^ORD(101,3440,99)="59365,60063" ^ORD(101,3441,0)="TIU ALERTS SEARCH MENU^Select SEARCH CRITERIA^^M^1^^^^^^^" ^ORD(101,3441,4)="26" ^ORD(101,3441,10,0)="^101.01PA^5^5" ^ORD(101,3441,10,1,0)="3436^1^1^" ^ORD(101,3441,10,2,0)="3437^2^2^" ^ORD(101,3441,10,3,0)="3438^3^3^" ^ORD(101,3441,10,4,0)="3439^4^4^" ^ORD(101,3441,10,5,0)="3440^5^5^" ^ORD(101,3441,10,"B",3436,1)="" ^ORD(101,3441,10,"B",3437,2)="" ^ORD(101,3441,10,"B",3438,3)="" ^ORD(101,3441,10,"B",3439,4)="" ^ORD(101,3441,10,"B",3440,5)="" ^ORD(101,3441,99)="59365,60063" ^ORD(101,3442,0)="TIU ALERTS ID SIGNER^Identify Signers^^A^1^^^^^^^" ^ORD(101,3442,15)="S VALMBCK=""R""" ^ORD(101,3442,20)="D IDSIGNER^TIUALFUN" ^ORD(101,3442,99)="59365,60063" ^ORD(101,3443,0)="TIU ALERTS EDIT^Edit^^A^1^^^^^^^" ^ORD(101,3443,15)="S VALMBCK=""R""" ^ORD(101,3443,20)="D EDIT^TIUAL1" ^ORD(101,3443,99)="59365,60063" ^ORD(101,3444,0)="TIU ALERTS DETAILED DISPLAY^Detailed Display^^A^1^^^^^^^" ^ORD(101,3444,15)="S VALMBCK=""R""" ^ORD(101,3444,20)="D DETDISP^TIUALSET" ^ORD(101,3444,99)="59365,60063" ^ORD(101,3445,0)="VAFC EXCPT MPI/PD DATA^MPI/PD Data Inquiry^^A^1^^^^^^^47" ^ORD(101,3445,1,0)="^101.06^2^2^3030909^^" ^ORD(101,3445,1,1,0)="This protocol displays Master Patient Index/Patient" ^ORD(101,3445,1,2,0)="Demographics (MPI/PD) information for the selected patient." ^ORD(101,3445,2,0)="^101.02A^1^1" ^ORD(101,3445,2,1,0)="DI" ^ORD(101,3445,2,"B","DI",1)="" ^ORD(101,3445,20)="D PDAT^VAFCMGA1" ^ORD(101,3445,99)="60878,2767" ^ORD(101,3446,0)="VAFC EXCPT RPA SEND^Send Remote Patient Audit Query^^A^1^^^^^^^47" ^ORD(101,3446,1,0)="^^2^2^3020314^" ^ORD(101,3446,1,1,0)="This protocol allows the user to send a remote patient audit query" ^ORD(101,3446,1,2,0)="to treating facility sites." ^ORD(101,3446,20)="D RSEND^VAFCLAU" ^ORD(101,3446,99)="59402,33589" ^ORD(101,3447,0)="VAFC EXCPT RPA CHECK^Check Remote Patient Audit Query^^A^1^^^^^^^47" ^ORD(101,3447,1,0)="^101.06^2^2^3030306^^" ^ORD(101,3447,1,1,0)="This protocol allows the user to check the status of a remote patient" ^ORD(101,3447,1,2,0)="audit query." ^ORD(101,3447,20)="D RCHK^VAFCLAU" ^ORD(101,3447,99)="59402,33589" ^ORD(101,3448,0)="VAFC EXCPT RPA DISPLAY^Display Remote Patient Audit Query^^A^1^^^^^^^47" ^ORD(101,3448,1,0)="^^1^1^3020314^" ^ORD(101,3448,1,1,0)="This protocol allows the user to display a remote patient audit." ^ORD(101,3448,20)="D RDISP^VAFCLAU" ^ORD(101,3448,99)="59402,33589" ^ORD(101,3449,0)="VAFC EXCPT PATIENT AUDIT MENU^MPI/PD Patient Audit Action Menu^^M^1^^^^^^^47" ^ORD(101,3449,1,0)="^101.06^2^2^3020319^^" ^ORD(101,3449,1,1,0)="This protocol serves as the action menu for the MPI/PD Patient Audit" ^ORD(101,3449,1,2,0)="query actions." ^ORD(101,3449,4)="40" ^ORD(101,3449,10,0)="^101.01PA^3^3" ^ORD(101,3449,10,1,0)="3446^SND^5^^^Send Remote Audit" ^ORD(101,3449,10,2,0)="3447^CHK^10^^^Check Remote Audit" ^ORD(101,3449,10,3,0)="3448^DSP^15^^^Display Remote Audit" ^ORD(101,3449,10,"B",3446,1)="" ^ORD(101,3449,10,"B",3447,2)="" ^ORD(101,3449,10,"B",3448,3)="" ^ORD(101,3449,26)="D SHOW^VALM" ^ORD(101,3449,28)="Select Action:" ^ORD(101,3449,99)="59402,33589" ^ORD(101,3450,0)="VAFC EXCPT PUSH CMOR^Push CMOR Request^^A^1^^^^^^^47" ^ORD(101,3450,1,0)="^^2^2^3020405^" ^ORD(101,3450,1,1,0)="This protocol allows the user's site to relinquish being the CMOR for a" ^ORD(101,3450,1,2,0)="patient and give it to another site." ^ORD(101,3450,20)="D LM^MPIFCMRP(VAFCDFN)" ^ORD(101,3450,99)="59402,33589" ^ORD(101,3451,0)="PSB BCBU RECEIVE^Process Pharmacy HL7 Messages^^A^1^^^^^^^" ^ORD(101,3451,1,0)="^101.06^2^2^3030808^^^" ^ORD(101,3451,1,1,0)="This Protocol processes the HL7 Messages that are sent by Pharmacy to " ^ORD(101,3451,1,2,0)="CPRS for order updates" ^ORD(101,3451,20)="D IPH^ALPBCBU(.XQORMSG)" ^ORD(101,3451,99)="59424,62883" ^ORD(101,3452,0)="PSB BCBU PATIENT MOVEMENT^PSB TRACK PATIENT MOVEMENT^^A^1^^^^^^^" ^ORD(101,3452,1,0)="^101.06^4^4^3030808^^" ^ORD(101,3452,1,1,0)="This Protocol is used to track the patient admissions, discharges and " ^ORD(101,3452,1,2,0)="other Movements for BCBU Contingency. Every time a patient movement " ^ORD(101,3452,1,3,0)="activity happens a message is sent to the BCBU Contingency Workstation to " ^ORD(101,3452,1,4,0)="keep it current with the patient location." ^ORD(101,3452,20)="D PMOV^ALPBCBU" ^ORD(101,3452,99)="59424,62883" ^ORD(101,3453,0)="PSB BCBU ORM RECV^^^S^1^^^^^^^" ^ORD(101,3453,1,0)="^101.06^8^8^3030808^^" ^ORD(101,3453,1,1,0)="This is an HL7 subscriber protocol for routing messages to BCMA BACKUP " ^ORD(101,3453,1,2,0)="workstations. It is configured as a ""router"" so there will not be a " ^ORD(101,3453,1,3,0)="logical link defined. The Routing Logic field is simply a Mumps 'Quit' " ^ORD(101,3453,1,4,0)="since the HLL(""LINKS"") array is set up by the sending application before " ^ORD(101,3453,1,5,0)="the call to HL7." ^ORD(101,3453,1,6,0)=" " ^ORD(101,3453,1,7,0)="Messages are routed to logical links based on their association with " ^ORD(101,3453,1,8,0)="Medical Center Divisions (40.8) in the Parameter File." ^ORD(101,3453,770)="^85^^38^^^^^^^1" ^ORD(101,3453,771)="D ^ALPBHL1" ^ORD(101,3453,774)="Q" ^ORD(101,3454,0)="PSB BCBU ORM SEND^^^E^1^^^^^^^" ^ORD(101,3454,1,0)="^101.06^1^1^3030808^^" ^ORD(101,3454,1,1,0)="This is the event driver for all BCMA backup events." ^ORD(101,3454,770)="84^^5^38^^^^1^3^4^" ^ORD(101,3454,775,0)="^101.0775PA^1^1" ^ORD(101,3454,775,1,0)="3453" ^ORD(101,3454,775,"B",3453,1)="" ^ORD(101,3455,0)="PSB SELECT ORDER^Select Order^^A^1^^^^^^^" ^ORD(101,3455,1,0)="^101.06^3^3^3030808^^^^" ^ORD(101,3455,1,1,0)="Lists a BCBU patient's orders and allows selection of one or several " ^ORD(101,3455,1,2,0)="orders which are then displayed. This protocol is used on the workstation " ^ORD(101,3455,1,3,0)="only." ^ORD(101,3455,4)="^4" ^ORD(101,3455,15)="S VALMBCK=""R""" ^ORD(101,3455,20)="D SELORD^ALPBSP1" ^ORD(101,3455,99)="59624,65545" ^ORD(101,3456,0)="PSB ORDERS MENU^PSB Protocols^^M^1^^^^^^^" ^ORD(101,3456,1,0)="^101.06^1^1^3030808^^^" ^ORD(101,3456,1,1,0)="Protocol menu containing protocol PSB SELECT ORDER." ^ORD(101,3456,4)="25^4" ^ORD(101,3456,10,0)="^101.01PA^3^3" ^ORD(101,3456,10,1,0)="3455^SO^1^" ^ORD(101,3456,10,2,0)="3468^L1^2^" ^ORD(101,3456,10,3,0)="3469^L2^3^" ^ORD(101,3456,10,"B",3455,1)="" ^ORD(101,3456,10,"B",3468,2)="" ^ORD(101,3456,10,"B",3469,3)="" ^ORD(101,3456,15)="" ^ORD(101,3456,26)="D SHOW^VALM" ^ORD(101,3456,28)="Select Action: " ^ORD(101,3456,99)="59624,65545" ^ORD(101,3457,0)="PSB SELECT PATIENT^Select Patient^^A^1^^^^^^^" ^ORD(101,3457,1,0)="^101.06^3^3^3030808^^" ^ORD(101,3457,1,1,0)="List all BCBU patients by name. Allows selection of a patient and then " ^ORD(101,3457,1,2,0)="branches to PSB SELECT ORDER. This protocol is used on the workstation " ^ORD(101,3457,1,3,0)="only." ^ORD(101,3457,15)="S VALMBCK=""R""" ^ORD(101,3457,20)="D SELPAT^ALPBSPAT" ^ORD(101,3457,26)="W """"" ^ORD(101,3457,99)="59624,65545" ^ORD(101,3458,0)="PSB PATIENT MENU^PSB Patient List/Select^^M^1^^^^^^^" ^ORD(101,3458,1,0)="^101.06^1^1^3030808^^^" ^ORD(101,3458,1,1,0)="Protocol menu containing protocol PSB SELECT PATIENT." ^ORD(101,3458,4)="26^5" ^ORD(101,3458,10,0)="^101.01PA^3^3" ^ORD(101,3458,10,1,0)="3457^SP^1^" ^ORD(101,3458,10,2,0)="3466^LW^2^" ^ORD(101,3458,10,3,0)="3467^LA^3^" ^ORD(101,3458,10,"B",3457,1)="" ^ORD(101,3458,10,"B",3466,2)="" ^ORD(101,3458,10,"B",3467,3)="" ^ORD(101,3458,15)="" ^ORD(101,3458,26)="D SHOW^VALM" ^ORD(101,3458,99)="59624,65545" ^ORD(101,3459,0)="PSB ERR LOG DEL ONE^Delete One Entry^^A^1^^^^^^^" ^ORD(101,3459,1,0)="^101.06^2^2^3030808^^^" ^ORD(101,3459,1,1,0)="Deletes a selected entry or range of entries from the BCBU Error Log in " ^ORD(101,3459,1,2,0)="file 53.71." ^ORD(101,3459,15)="S VALMBCK=""R""" ^ORD(101,3459,20)="D DELONE^ALPBELOG" ^ORD(101,3459,99)="59624,65545" ^ORD(101,3460,0)="PSB ERROR LOG MENU^PSB Error Log Protocols^^M^1^^^^^^^" ^ORD(101,3460,1,0)="^101.06^2^2^3030808^^^^" ^ORD(101,3460,1,1,0)="Protocol menu containing protocols PSB ERR LOG DEL ALL and PSB ERR LOG" ^ORD(101,3460,1,2,0)="DEL ONE." ^ORD(101,3460,4)="25^4" ^ORD(101,3460,10,0)="^101.01PA^2^2" ^ORD(101,3460,10,1,0)="3459^D1^1^" ^ORD(101,3460,10,2,0)="3461^DA^2^" ^ORD(101,3460,10,"B",3459,1)="" ^ORD(101,3460,10,"B",3461,2)="" ^ORD(101,3460,26)="D SHOW^VALM" ^ORD(101,3460,28)="Select Action: " ^ORD(101,3460,99)="59624,65545" ^ORD(101,3461,0)="PSB ERR LOG DEL ALL^Delete All Entries^^A^1^^^^^^^" ^ORD(101,3461,1,0)="^101.06^1^1^3030808^^^" ^ORD(101,3461,1,1,0)="Delete all entries from the BCBU Error Log in file 53.71." ^ORD(101,3461,15)="S VALMBCK=""R""" ^ORD(101,3461,20)="D DELALL^ALPBELOG" ^ORD(101,3461,99)="59624,65545" ^ORD(101,3462,0)="PSB BCBU PMU_B01 EVENT^HL7 Personnel ADD/Create Message^^E^1^^^^^^^" ^ORD(101,3462,1,0)="^101.06^2^2^3030808^^^" ^ORD(101,3462,1,1,0)="PMU_B01 events are HL7 messages for adding personnel. This message is " ^ORD(101,3462,1,2,0)="sent to the BCMA Contingency workstations" ^ORD(101,3462,99)="59424,62883" ^ORD(101,3462,770)="86^^95^215^^^^1^3^5^" ^ORD(101,3462,775,0)="^101.0775PA^1^1" ^ORD(101,3462,775,1,0)="3463" ^ORD(101,3462,775,"B",3463,1)="" ^ORD(101,3463,0)="PSB BCBU PMU_B01 RECV^Receive PMU_B01 Messages^^S^1^^^^^^^" ^ORD(101,3463,1,0)="^101.06^3^3^3030808^^^" ^ORD(101,3463,1,1,0)="This is an HL7 subscriber to the PMU_B01 event as implemented for the " ^ORD(101,3463,1,2,0)="BCMA contingency backup software. Personnel create and update events are " ^ORD(101,3463,1,3,0)="sent to the backup workstations to keep BCMA users in sync with Vista." ^ORD(101,3463,99)="59424,62883" ^ORD(101,3463,770)="^87^^215^^^^^^^1" ^ORD(101,3463,771)="D PARSIT^ALPBGEN1" ^ORD(101,3463,774)="Q" ^ORD(101,3464,0)="PSB BCBU PMU_B02 EVENT^HL7 Personnel Update message^^E^1^^^^^^^" ^ORD(101,3464,1,0)="^101.06^2^2^3030808^^" ^ORD(101,3464,1,1,0)="PMU_B02 events are HL7 messages for updating personnel records. This" ^ORD(101,3464,1,2,0)="message is sent to the BCMA Contingency workstations" ^ORD(101,3464,99)="59424,62883" ^ORD(101,3464,770)="86^^95^214^^^^1^3^5^" ^ORD(101,3464,775,0)="^101.0775PA^1^1" ^ORD(101,3464,775,1,0)="3465" ^ORD(101,3464,775,"B",3465,1)="" ^ORD(101,3465,0)="PSB BCBU PMU_B02 RECV^Recieve PMU_B02 Messages^^S^1^^^^^^^" ^ORD(101,3465,1,0)="^101.06^3^3^3030808^^" ^ORD(101,3465,1,1,0)="This is an HL7 subscriber to the PMU_B02 event as implemented for the " ^ORD(101,3465,1,2,0)="BCMA contingency backup software. Personnel create and update events are " ^ORD(101,3465,1,3,0)="sent to the backup workstations to keep BCMA users in sync with Vista." ^ORD(101,3465,99)="59424,62883" ^ORD(101,3465,770)="^87^^214^^^^^^^1" ^ORD(101,3465,771)="D PARSIT^ALPBGEN1" ^ORD(101,3465,774)="Q" ^ORD(101,3466,0)="PSB SELECT PATIENT WARD^List by Ward^^A^1^^^^^^^" ^ORD(101,3466,1,0)="^101.06^1^1^3030808^^^" ^ORD(101,3466,1,1,0)="Allows the user to list patients on selected wards." ^ORD(101,3466,15)="S VALMBCK=""R""" ^ORD(101,3466,20)="D SELWARD^ALPBSPAT" ^ORD(101,3466,99)="59624,65545" ^ORD(101,3467,0)="PSB SELECT PATIENT ALL^List All Patients^^A^1^^^^^^^" ^ORD(101,3467,1,0)="^101.06^2^2^3030808^^^" ^ORD(101,3467,1,1,0)="List all BCBU patients by name. Allows user to select by patient's name," ^ORD(101,3467,1,2,0)=" patient's SSN, or first letter lastname+last 4 of SSN." ^ORD(101,3467,15)="S VALMBCK=""R""" ^ORD(101,3467,20)="D SELALL^ALPBSPAT" ^ORD(101,3467,99)="59624,65545" ^ORD(101,3468,0)="PSB SELECT ORDER ACTIVE^List Active Orders^^A^1^^^^^^^" ^ORD(101,3468,1,0)="^101.06^2^2^3030812^^" ^ORD(101,3468,1,1,0)="List all active orders for a selected patient." ^ORD(101,3468,1,2,0)="Also allows for the selection of a order to be viewied." ^ORD(101,3468,15)="S VALMBCK=""R""" ^ORD(101,3468,20)="D SELACT^ALPBSP1" ^ORD(101,3468,99)="59624,65545" ^ORD(101,3469,0)="PSB SELECT ORDER ALL^List All Orders^^A^1^^^^^^^" ^ORD(101,3469,1,0)="^^2^2^3030812^" ^ORD(101,3469,1,1,0)="List all orders for a selected patient regardless of the order status." ^ORD(101,3469,1,2,0)="Also allows for the selection of a order to be viewied." ^ORD(101,3469,15)="S VALMBCK=""R""" ^ORD(101,3469,20)="D SELALL^ALPBSP1" ^ORD(101,3469,99)="59624,65545" ^ORD(101,3470,0)="DGPF RECORD FLAG ASSIGNMENT MENU^^^M^1^^^^^^^47" ^ORD(101,3470,1,0)="^101.06^2^2^3030321^^^^" ^ORD(101,3470,1,1,0)="This protocol menu contains all the activities for creating, editing, and " ^ORD(101,3470,1,2,0)="displaying patient record flag assignments." ^ORD(101,3470,4)="40^4" ^ORD(101,3470,10,0)="^101.01PA^7^7" ^ORD(101,3470,10,3,0)="3472^EF^40^" ^ORD(101,3470,10,4,0)="3473^AF^30^" ^ORD(101,3470,10,5,0)="3471^DA^20^" ^ORD(101,3470,10,6,0)="3474^SP^10^" ^ORD(101,3470,10,7,0)="3479^CO^50^" ^ORD(101,3470,10,"B",3471,5)="" ^ORD(101,3470,10,"B",3472,3)="" ^ORD(101,3470,10,"B",3473,4)="" ^ORD(101,3470,10,"B",3474,6)="" ^ORD(101,3470,10,"B",3479,7)="" ^ORD(101,3470,15)="" ^ORD(101,3470,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3470,26)="D SHOW^VALM" ^ORD(101,3470,28)="Select Action:" ^ORD(101,3470,99)="60610,57384" ^ORD(101,3471,0)="DGPF DISPLAY ASSIGNMENT DETAIL^Display Assignment Details^^A^1^^^^^^^47" ^ORD(101,3471,1,0)="^^3^3^3030708^" ^ORD(101,3471,1,1,0)="This action protocol permits the user to view the details of a patient's" ^ORD(101,3471,1,2,0)="flag assignment within the Record Flag Assignment [DGPF RECORD FLAG " ^ORD(101,3471,1,3,0)="ASSIGNMENT] option." ^ORD(101,3471,15)="" ^ORD(101,3471,20)="D DF^DGPFLMA1" ^ORD(101,3471,24)="I $G(DGDFN),$D(@VALMAR@(""IDX""))" ^ORD(101,3471,99)="60610,57384" ^ORD(101,3472,0)="DGPF EDIT ASSIGNMENT^Edit Flag Assignment^^A^1^^^^^^^47" ^ORD(101,3472,1,0)="^^2^2^3030708^" ^ORD(101,3472,1,1,0)="This action protocol permits the user to edit a patient's flag assignment" ^ORD(101,3472,1,2,0)="within the Record Flag Assignment [DGPF RECORD FLAG ASSIGNMENT] option." ^ORD(101,3472,20)="D EF^DGPFLMA3" ^ORD(101,3472,24)="I $G(DGDFN),$D(@VALMAR@(""IDX""))" ^ORD(101,3472,99)="60610,57384" ^ORD(101,3473,0)="DGPF ASSIGN FLAG^Assign Flag^^A^1^^^^^^^47" ^ORD(101,3473,1,0)="^^2^2^3030708^" ^ORD(101,3473,1,1,0)="This action protocol permits the user to assign a flag to a patient " ^ORD(101,3473,1,2,0)="within the Record Flag Assignment [DGPF RECORD FLAG ASSIGNMENT] option." ^ORD(101,3473,20)="D AF^DGPFLMA2" ^ORD(101,3473,24)="I $G(DGDFN)" ^ORD(101,3473,99)="60610,57384" ^ORD(101,3474,0)="DGPF SELECT PATIENT^Select Patient^^A^1^^^^^^^47" ^ORD(101,3474,1,0)="^^2^2^3030708^" ^ORD(101,3474,1,1,0)="This action protocol permits the user to select a patient within the " ^ORD(101,3474,1,2,0)="Record Flag Assignment [DGPF RECORD FLAG ASSIGNMENT] option." ^ORD(101,3474,20)="D SP^DGPFLMA1 S VALMBCK=""R""" ^ORD(101,3474,24)="" ^ORD(101,3474,99)="60610,57384" ^ORD(101,3475,0)="DGPF PRF ORU/R01 EVENT^^^E^1^^^^^^^47" ^ORD(101,3475,1,0)="^^2^2^3030617^^" ^ORD(101,3475,1,1,0)="This protocol is the event protocol for Patient Record Flags assignment " ^ORD(101,3475,1,2,0)="transmissions (ORU~R01)." ^ORD(101,3475,770)="88^^3^46^^^^3^1^3^" ^ORD(101,3475,772)="D RCV^DGPFHLR" ^ORD(101,3475,775,0)="^101.0775PA^1^1" ^ORD(101,3475,775,1,0)="3476" ^ORD(101,3475,775,"B",3476,1)="" ^ORD(101,3476,0)="DGPF PRF ORU/R01 SUBSC^^^S^1^^^^^^^47" ^ORD(101,3476,1,0)="^^2^2^3030307^" ^ORD(101,3476,1,1,0)="This protocol is the subscriber protocol for Patient Record Flags " ^ORD(101,3476,1,2,0)="assignment transmissions (ORU~R01)." ^ORD(101,3476,770)="^89^^46^^^^^^^1" ^ORD(101,3476,771)="D RCV^DGPFHLR" ^ORD(101,3476,773)="1^1" ^ORD(101,3476,774)="Q" ^ORD(101,3477,0)="DGPF PRF QRY/R02 EVENT^^^E^1^^^^^^^47" ^ORD(101,3477,1,0)="^^2^2^3030307^" ^ORD(101,3477,1,1,0)="This protocol is the event protocol for the Patient Record Flags query " ^ORD(101,3477,1,2,0)="message (QRY~R02)." ^ORD(101,3477,770)="90^^4^47^^^^^^3^" ^ORD(101,3477,772)="D RCV^DGPFHLR" ^ORD(101,3477,775,0)="^101.0775PA^1^1" ^ORD(101,3477,775,1,0)="3478" ^ORD(101,3477,775,"B",3478,1)="" ^ORD(101,3478,0)="DGPF PRF ORF/R04 SUBSC^^^S^1^^^^^^^47" ^ORD(101,3478,1,0)="^^3^3^3030528^" ^ORD(101,3478,1,1,0)="This protocol is the subscriber protocol for the Patient Record Flags " ^ORD(101,3478,1,2,0)="query message (QRY~R02). The protocol will return an observation results " ^ORD(101,3478,1,3,0)="message (ORF~R04)." ^ORD(101,3478,770)="^91^^112^^^^^^^2" ^ORD(101,3478,771)="D RCV^DGPFHLR" ^ORD(101,3478,773)="1^1" ^ORD(101,3478,774)="Q" ^ORD(101,3479,0)="DGPF CHANGE ASSIGNMENT OWNERSHIP^Change Assignment Ownership^^A^1^^^^^^^47" ^ORD(101,3479,1,0)="^^3^3^3030708^" ^ORD(101,3479,1,1,0)="This action protocol permits the user to change the site ownership of a " ^ORD(101,3479,1,2,0)="patient's flag assignment within the Record Flag Assignment [DGPF RECORD " ^ORD(101,3479,1,3,0)="FLAG ASSIGNMENT] option." ^ORD(101,3479,2,0)="^101.02A^^0" ^ORD(101,3479,20)="D CO^DGPFLMA4" ^ORD(101,3479,24)="I $G(DGDFN),$D(@VALMAR@(""IDX""))" ^ORD(101,3479,99)="60610,57384" ^ORD(101,3480,0)="DGPF RECORD FLAG MANAGEMENT MENU^^^M^1^^^^^^^47" ^ORD(101,3480,1,0)="^101.06^2^2^3030715^^" ^ORD(101,3480,1,1,0)="This protocol menu contains all the activities for creating, editing, and" ^ORD(101,3480,1,2,0)="displaying patient record flags." ^ORD(101,3480,4)="26^4" ^ORD(101,3480,10,0)="^101.01PA^6^6" ^ORD(101,3480,10,1,0)="3481^DF^30^" ^ORD(101,3480,10,2,0)="3482^CS^20^" ^ORD(101,3480,10,4,0)="3483^AF^40^" ^ORD(101,3480,10,5,0)="3484^EF^50^" ^ORD(101,3480,10,6,0)="3485^CC^10^" ^ORD(101,3480,10,"B",3481,1)="" ^ORD(101,3480,10,"B",3482,2)="" ^ORD(101,3480,10,"B",3483,4)="" ^ORD(101,3480,10,"B",3484,5)="" ^ORD(101,3480,10,"B",3485,6)="" ^ORD(101,3480,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3480,26)="D SHOW^VALM" ^ORD(101,3480,28)="Select Action:" ^ORD(101,3480,99)="60610,57384" ^ORD(101,3481,0)="DGPF DISPLAY FLAG DETAIL^Display Flag Detail^^A^1^^^^^^^47" ^ORD(101,3481,1,0)="^^3^3^3030708^" ^ORD(101,3481,1,1,0)="This action protocol permits the user to view the details of a patient " ^ORD(101,3481,1,2,0)="record flag within the Record Flag Management [DGPF RECORD FLAG" ^ORD(101,3481,1,3,0)="MANAGEMENT] option." ^ORD(101,3481,20)="D DF^DGPFLF2" ^ORD(101,3481,24)="I $D(@VALMAR@(""IDX""))" ^ORD(101,3481,99)="60610,57384" ^ORD(101,3482,0)="DGPF SORT FLAG LIST^Change Sort^^A^1^^^^^^^47" ^ORD(101,3482,1,0)="^101.06^3^3^3030715^^" ^ORD(101,3482,1,1,0)="This action protocol allows the user to select a sort criteria for the " ^ORD(101,3482,1,2,0)="flag list within the Record Flag Management [DGPF RECORD FLAG MANAGEMENT]" ^ORD(101,3482,1,3,0)="option. The list may be sorted by flag name or flag type." ^ORD(101,3482,20)="D SL^DGPFLF2 S VALMBCK=""R""" ^ORD(101,3482,99)="60610,57384" ^ORD(101,3483,0)="DGPF ADD FLAG^Add New Record Flag^^A^1^^^^^^^47" ^ORD(101,3483,1,0)="^101.06^2^2^3030710^^" ^ORD(101,3483,1,1,0)="This action protocol allows a user to add a new Category II (Local) flag " ^ORD(101,3483,1,2,0)="within the Record Flag Management [DGPF RECORD FLAG MANAGEMENT] option." ^ORD(101,3483,20)="D AF^DGPFLF3" ^ORD(101,3483,24)="I $G(DGCAT)>1" ^ORD(101,3483,99)="60610,57384" ^ORD(101,3484,0)="DGPF EDIT FLAG^Edit Record Flag^^A^1^^^^^^^47" ^ORD(101,3484,1,0)="^^2^2^3030708^" ^ORD(101,3484,1,1,0)="This action protocol allows a user to edit a Category II (Local) flag" ^ORD(101,3484,1,2,0)="within the Record Flag Management [DGPF RECORD FLAG MANAGEMENT] option." ^ORD(101,3484,20)="D EF^DGPFLF4" ^ORD(101,3484,24)="I ($G(DGCAT)>1),$D(@VALMAR@(""IDX""))" ^ORD(101,3484,99)="60610,57384" ^ORD(101,3485,0)="DGPF CHANGE CATEGORY^Change Category^^A^1^^^^^^^47" ^ORD(101,3485,1,0)="^^4^4^3030715^" ^ORD(101,3485,1,1,0)="This action protocol allows the user to change the category of the flag " ^ORD(101,3485,1,2,0)="list being viewed within the Record Flag Management [DGPF RECORD FLAG" ^ORD(101,3485,1,3,0)="MANAGEMENT] option. The user may view either Category I (National) flags" ^ORD(101,3485,1,4,0)="or Category II (Local) flags." ^ORD(101,3485,20)="D CC^DGPFLF2 S VALMBCK=""R""" ^ORD(101,3485,99)="60610,57384" ^ORD(101,3486,0)="PSO TPB EV^^^E^1^^^^^^^" ^ORD(101,3486,770)="93^^61^59^101^^^1^3^5^" ^ORD(101,3486,775,0)="^101.0775PA^1^1" ^ORD(101,3486,775,1,0)="3487" ^ORD(101,3486,775,"B",3487,1)="" ^ORD(101,3487,0)="PSO TPB SUB^^^S^1^^^^^^^" ^ORD(101,3487,770)="^92^^^^^187^^^^" ^ORD(101,3487,773)="1^1" ^ORD(101,3488,0)="IBCNE IIV VER REQUEST^Insurance Verification Request^^S^1^^^^^^^" ^ORD(101,3488,1,0)="^101.06^2^2^3020809^^^^" ^ORD(101,3488,1,1,0)="This is an electronic request for insurance verification for a" ^ORD(101,3488,1,2,0)="specified patient." ^ORD(101,3488,4)="^^^" ^ORD(101,3488,99)="59436,71518" ^ORD(101,3488,770)="^95^^82^^^188^1^3^5^1" ^ORD(101,3488,771)="Q" ^ORD(101,3488,773)="1^1^0" ^ORD(101,3488,775,0)="^101.0775PA^^" ^ORD(101,3489,0)="IBCNE IIV REGISTER^IIV MFN Register^^E^1^^^^^^^" ^ORD(101,3489,1,0)="^101.06^3^3^3020620^^^" ^ORD(101,3489,1,1,0)="This message is generated when a VISTA site installs. An Enroll" ^ORD(101,3489,1,2,0)="message will populate the Eligibility Communicator table with all" ^ORD(101,3489,1,3,0)="the needed information about the installing VISTA site." ^ORD(101,3489,99)="59436,71518" ^ORD(101,3489,770)="94^^33^65^^^^1^1^5^" ^ORD(101,3489,772)="D ^IBCNEHLI" ^ORD(101,3489,775,0)="^101.0775PA^1^1" ^ORD(101,3489,775,1,0)="3490" ^ORD(101,3489,775,"B",3490,1)="" ^ORD(101,3490,0)="IBCNE IIV MFN OUT^IIV MFN CLIENT^^S^1^^^^^^^" ^ORD(101,3490,1,0)="^^1^1^3020611^" ^ORD(101,3490,1,1,0)="This protocol is the client for the MFN enroll HL7 message." ^ORD(101,3490,99)="59436,71518" ^ORD(101,3490,770)="^95^^65^^^188^^^^1" ^ORD(101,3490,773)="1^1" ^ORD(101,3491,0)="IBCNE AUTO MATCH BUFFER SELECT^Select Entry^^A^1^^^^^^^49" ^ORD(101,3491,20)="D SELECT^IBCNEAMC" ^ORD(101,3491,99)="59436,71518" ^ORD(101,3492,0)="IBCNE AUTO MATCH BUFFER LINK^Auto Match Enter/Edit^^A^1^^^^^^^49" ^ORD(101,3492,20)="D LINK^IBCNEAMC" ^ORD(101,3492,99)="59436,71518" ^ORD(101,3493,0)="IBCNE AUTO MATCH BUFFER MENU^^^M^1^^^^^^^49" ^ORD(101,3493,4)="26^2" ^ORD(101,3493,10,0)="^101.01PA^3^3" ^ORD(101,3493,10,1,0)="3491^^1^" ^ORD(101,3493,10,2,0)="3492^^2^" ^ORD(101,3493,10,3,0)="3494^^3^" ^ORD(101,3493,10,"B",3491,1)="" ^ORD(101,3493,10,"B",3492,2)="" ^ORD(101,3493,10,"B",3494,3)="" ^ORD(101,3493,26)="D SHOW^VALM" ^ORD(101,3493,28)="Select Action: " ^ORD(101,3493,99)="59436,71518" ^ORD(101,3494,0)="IBCNE AUTO MATCH BUFFER EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,3494,20)="S VALMBCK=""Q""" ^ORD(101,3494,99)="59436,71518" ^ORD(101,3495,0)="IBJP INS VER SCREEN^Ins Id and Verif^^A^1^^^^^^^" ^ORD(101,3495,1,0)="^101.06^2^2^3020812^^^" ^ORD(101,3495,1,1,0)="Insurance Identification and Verification screen to display/edit IIV Site " ^ORD(101,3495,1,2,0)="Parameters" ^ORD(101,3495,20)="D EN^IBJPI" ^ORD(101,3495,99)="59436,71518" ^ORD(101,3496,0)="IBJP IIV BATCH EXTRACT EDIT^Batch Extracts^^A^1^^^^^^^49" ^ORD(101,3496,20)="D BE^IBJPI2" ^ORD(101,3496,99)="59436,71518" ^ORD(101,3497,0)="IBJP IIV MOST POPULAR EDIT^Most Popular Payers^^A^1^^^^^^^49" ^ORD(101,3497,20)="D MP^IBJPI2" ^ORD(101,3497,99)="59970,44205" ^ORD(101,3498,0)="IBJP IIV GENERAL EDIT^General Parameters^^A^1^^^^^^^49" ^ORD(101,3498,20)="D IIVEDIT^IBJPI2(0)" ^ORD(101,3498,99)="59436,71518" ^ORD(101,3499,0)="IBJP IIV PAT W/O INS^Patients w/o Ins^^A^1^^^^^^^49" ^ORD(101,3499,20)="D IIVEDIT^IBJPI2(1)" ^ORD(101,3499,21,0)="^101.021A" ^ORD(101,3499,99)="59436,71518" ^ORD(101,3500,0)="IBJP INS VER MENU^Insurance Verification Menu^^M^1^^^^^^^49" ^ORD(101,3500,4)="26^4" ^ORD(101,3500,10,0)="^101.01PA^5^5" ^ORD(101,3500,10,1,0)="3496^BE^2^" ^ORD(101,3500,10,3,0)="3498^GP^1^" ^ORD(101,3500,10,4,0)="3499^PW^3^" ^ORD(101,3500,10,5,0)="1121^EX^5^" ^ORD(101,3500,10,"B",1121,5)="" ^ORD(101,3500,10,"B",3496,1)="" ^ORD(101,3500,10,"B",3498,3)="" ^ORD(101,3500,10,"B",3499,4)="" ^ORD(101,3500,15)="I $G(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3500,20)="K IBFASTXT" ^ORD(101,3500,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,3500,26)="D SHOW^VALM" ^ORD(101,3500,28)="Select Action: " ^ORD(101,3500,99)="60255,59089" ^ORD(101,3501,0)="IBCNE IIV RQV OUT^IIV VERIFICATION CLIENT^^E^1^^^^^^^" ^ORD(101,3501,1,0)="^^1^1^3020619^" ^ORD(101,3501,1,1,0)="This protocol is for Verification Request messages." ^ORD(101,3501,99)="59436,71518" ^ORD(101,3501,770)="94^^59^82^^^^1^3^5^" ^ORD(101,3501,772)="D ^IBCNEHLI" ^ORD(101,3501,775,0)="^101.0775PA^1^1" ^ORD(101,3501,775,1,0)="3488" ^ORD(101,3501,775,"B",3488,1)="" ^ORD(101,3502,0)="IBCNE IIV RQI OUT^IIV IDENTIFICATION CLIENT^^E^1^^^^^^^" ^ORD(101,3502,1,0)="^^1^1^3020619^" ^ORD(101,3502,1,1,0)="This protocol is for Identification messages" ^ORD(101,3502,99)="59436,71518" ^ORD(101,3502,770)="94^^59^84^^^^1^3^5^" ^ORD(101,3502,772)="D ^IBCNEHLI" ^ORD(101,3502,775,0)="^101.0775PA^1^1" ^ORD(101,3502,775,1,0)="3503" ^ORD(101,3502,775,"B",3503,1)="" ^ORD(101,3503,0)="IBCNE IIV ID REQUEST^Insurance Identification Request^^S^1^^^^^^^" ^ORD(101,3503,1,0)="^^1^1^3020619^" ^ORD(101,3503,1,1,0)="This protocol is for identification messages." ^ORD(101,3503,99)="59436,71518" ^ORD(101,3503,770)="^95^59^82^^^188^^^3^1" ^ORD(101,3503,771)="Q" ^ORD(101,3503,773)="1^1^0" ^ORD(101,3504,0)="IBCNB LIST CHECK NAMES^Check Ins Co's^^A^1^^^^^^^49" ^ORD(101,3504,1,0)="^101.06^3^3^3020620^^" ^ORD(101,3504,1,1,0)="This action protocol will allow the user to see what insurance company " ^ORD(101,3504,1,2,0)="names in the buffer are bad and allow for correction with the Auto Match " ^ORD(101,3504,1,3,0)="utility." ^ORD(101,3504,20)="D AMCHK^IBCNBLA" ^ORD(101,3504,99)="59436,71518" ^ORD(101,3505,0)="IBCNE REVERIFY INSURANCE MENU^List Menu^^M^1^^^^^^^49" ^ORD(101,3505,4)="40^4" ^ORD(101,3505,10,0)="^101.01PA^2^2" ^ORD(101,3505,10,1,0)="3506^SE^1^^^Select Entry" ^ORD(101,3505,10,1,1)="Select Ins Co to Reverify:" ^ORD(101,3505,10,2,0)="3507^EX^2^" ^ORD(101,3505,10,"B",3506,1)="" ^ORD(101,3505,10,"B",3507,2)="" ^ORD(101,3505,15)="I $D(IBFASTXT) S VALMBCK=""Q""" ^ORD(101,3505,20)="K IBFASTXT" ^ORD(101,3505,26)="D SHOW^VALM" ^ORD(101,3505,28)="Select Action: " ^ORD(101,3505,99)="59436,71518" ^ORD(101,3506,0)="IBCNE SELECT INSURANCE^Select Entry^^A^1^^^^^^^49" ^ORD(101,3506,15)="D INIT^IBCNEQU" ^ORD(101,3506,20)="D SELECT^IBCNEQU" ^ORD(101,3506,99)="59436,71518" ^ORD(101,3507,0)="IBCNE FAST EXIT^Exit^^A^1^^^^^^^" ^ORD(101,3507,20)="D FASTEXIT^IBCNEQU" ^ORD(101,3507,99)="59436,71518" ^ORD(101,3508,0)="IBCNSC INS CO PAYER^Payer^^A^1^^^^^^^49" ^ORD(101,3508,4)="^^^PA" ^ORD(101,3508,15)="S VALMBG=$G(IB1ST(""PAYER"")) S:'VALMBG VALMBG=1" ^ORD(101,3508,20)="S IBY="",7,"" D EA^IBCNSC1" ^ORD(101,3508,99)="60484,44475" ^ORD(101,3509,0)="IBCNE IIV TABLE^IIV Incoming Table^^S^1^^^^^^^" ^ORD(101,3509,1,0)="^^1^1^3020809^" ^ORD(101,3509,1,1,0)="This protocol handles any incoming MFN table updates." ^ORD(101,3509,99)="59837,43041" ^ORD(101,3509,770)="^94^^65^^^188^^^^40" ^ORD(101,3509,771)="D ^IBCNEHLI" ^ORD(101,3509,773)="1^1" ^ORD(101,3510,0)="IBCNE IIV MFN IN^IIV MFN SERVER^^E^1^^^^^^^" ^ORD(101,3510,1,0)="^^1^1^3020809^" ^ORD(101,3510,1,1,0)="This is the incoming MFN table server." ^ORD(101,3510,99)="59837,43041" ^ORD(101,3510,770)="95^^33^65^^^^1^1^5^" ^ORD(101,3510,772)="" ^ORD(101,3510,775,0)="^101.0775PA^1^1" ^ORD(101,3510,775,1,0)="3509" ^ORD(101,3510,775,"B",3509,1)="" ^ORD(101,3511,0)="IBCNE IIV IN^IIV IN SERVER^^E^1^^^^^^^" ^ORD(101,3511,1,0)="^^1^1^3030821^" ^ORD(101,3511,1,1,0)="This is the master incoming protocol." ^ORD(101,3511,99)="59436,71518" ^ORD(101,3511,770)="95^^55^82^^^^^^5^" ^ORD(101,3511,772)="D ^IBCNEHLI" ^ORD(101,3511,775,0)="^101.0775PA^1^1" ^ORD(101,3511,775,1,0)="3512" ^ORD(101,3511,775,"B",3512,1)="" ^ORD(101,3512,0)="IBCNE IIV RESPONSE^IIV Response Message^^S^1^^^^^^^" ^ORD(101,3512,99)="59436,71518" ^ORD(101,3512,770)="^94^^82^^^189^^^^1" ^ORD(101,3512,771)="D ^IBCNEHLI" ^ORD(101,3513,0)="IBCNE PAYER MAINT MENU^IBCNE PAYER MAINT MENU^^M^1^^^^^^^49" ^ORD(101,3513,4)="40^3" ^ORD(101,3513,10,0)="^101.01PA^2^2" ^ORD(101,3513,10,1,0)="3514^EE^1^" ^ORD(101,3513,10,2,0)="3516^X^^" ^ORD(101,3513,10,"B",3514,1)="" ^ORD(101,3513,10,"B",3516,2)="" ^ORD(101,3513,26)="D SHOW^VALM" ^ORD(101,3513,28)="Select Action: " ^ORD(101,3513,99)="59436,71518" ^ORD(101,3514,0)="IBCNE PAYER EXPAND^Expand Entry^^A^1^^^^^^^49" ^ORD(101,3514,15)="" ^ORD(101,3514,20)="D EXPND^IBCNEPM2" ^ORD(101,3514,99)="59436,71518" ^ORD(101,3515,0)="IBCNE PAYER EXPAND MENU^IBCNE PAYER EXPAND MENU^^M^1^^^^^^^49" ^ORD(101,3515,4)="40^3" ^ORD(101,3515,10,0)="^101.01PA^5^5" ^ORD(101,3515,10,3,0)="3516^X^21^" ^ORD(101,3515,10,4,0)="3517^LP^12^" ^ORD(101,3515,10,5,0)="452^PL^11^" ^ORD(101,3515,10,"B",452,5)="" ^ORD(101,3515,10,"B",3516,3)="" ^ORD(101,3515,10,"B",3517,4)="" ^ORD(101,3515,26)="D SHOW^VALM" ^ORD(101,3515,28)="Select Action: " ^ORD(101,3515,99)="61142,58433" ^ORD(101,3516,0)="IBCNE PAYER EXIT^Exit^^A^1^^^^^^^49" ^ORD(101,3516,15)="Q" ^ORD(101,3516,20)="Q" ^ORD(101,3516,99)="59436,71518" ^ORD(101,3517,0)="IBCNE PAYER LINK^Link Payer^^A^1^^^^^^^49" ^ORD(101,3517,1,0)="^^2^2^3030117^" ^ORD(101,3517,1,1,0)="This is the action protocol to link the payer with the selected" ^ORD(101,3517,1,2,0)="insurance company." ^ORD(101,3517,20)="D LINK^IBCNEPM1" ^ORD(101,3517,99)="59436,71518" ^ORD(101,3518,0)="IBCNB ENTRY RESPONSE REPORT^Response Report^^A^1^^^^^^^" ^ORD(101,3518,1,0)="^^3^3^3030605^" ^ORD(101,3518,1,1,0)="This action protocol will allow the user to generate an IIV Response " ^ORD(101,3518,1,2,0)="Report, using the associated Trace Number as input, from the Expand Entry " ^ORD(101,3518,1,3,0)="screen." ^ORD(101,3518,20)="D RESP^IBCNBLA1(IBBUFDA)" ^ORD(101,3518,99)="59436,71518" ^ORD(101,3519,0)="LEXICAL SERVICES UPDATE^Lexical Services Update^^X^1^^^^^^^155" ^ORD(101,3519,.1)="LEX UPD" ^ORD(101,3519,1,0)="^^52^52^3030326^" ^ORD(101,3519,1,1,0)="This protocol is used to notify other applications and processes " ^ORD(101,3519,1,2,0)="when the Lexicon Utility or the Lexicon Change file is updated." ^ORD(101,3519,1,3,0)="The Lexicon is updated using a temporary maintenance global, ^LEXM." ^ORD(101,3519,1,4,0)="This global is processed by the routine LEXXGI. Once processed, " ^ORD(101,3519,1,5,0)="this protocol is triggered and the global ^LEXM is deleted." ^ORD(101,3519,1,6,0)=" " ^ORD(101,3519,1,7,0)="Required Variable LEXSCHG Array contains a listing of those Lexicon" ^ORD(101,3519,1,8,0)="Files (#757 - 757.41) that were updated as a result of a recent " ^ORD(101,3519,1,9,0)="install. In the case of the CHANGE LOG (file #757.9), new changes" ^ORD(101,3519,1,10,0)="to SDO controlled files will be indicated by file number and the" ^ORD(101,3519,1,11,0)="internal entry number to the CHANGE LOG. The variable LEXSCHG is" ^ORD(101,3519,1,12,0)="created while processing the Lexicon Maintenance global ^LEXM." ^ORD(101,3519,1,13,0)=" " ^ORD(101,3519,1,14,0)=" Files updated in the ^LEX or ^LEXT globals" ^ORD(101,3519,1,15,0)=" " ^ORD(101,3519,1,16,0)=" LEXSCHG(,0)=""""" ^ORD(101,3519,1,17,0)=" LEXSCHG(,0)=""""" ^ORD(101,3519,1,18,0)=" " ^ORD(101,3519,1,19,0)=" Files updated in the ^LEXC change global" ^ORD(101,3519,1,20,0)=" " ^ORD(101,3519,1,21,0)=" Change Log file 757.9" ^ORD(101,3519,1,22,0)=" " ^ORD(101,3519,1,23,0)=" LEXSCHG(757.9,)=" ^ORD(101,3519,1,24,0)=" LEXSCHG(757.9,""B"",,)=""""" ^ORD(101,3519,1,25,0)=" " ^ORD(101,3519,1,26,0)=" Change fILE 757.91" ^ORD(101,3519,1,27,0)=" " ^ORD(101,3519,1,28,0)=" LEXSCHG(757.91,0)=""""" ^ORD(101,3519,1,29,0)=" " ^ORD(101,3519,1,30,0)=" Example:" ^ORD(101,3519,1,31,0)=" " ^ORD(101,3519,1,32,0)=" LEXSCHG(757,0)=""""" ^ORD(101,3519,1,33,0)=" LEXSCHG(757.001,0)=""""" ^ORD(101,3519,1,34,0)=" LEXSCHG(757.01,0)=""""" ^ORD(101,3519,1,35,0)=" LEXSCHG(757.02,0)=""""" ^ORD(101,3519,1,36,0)=" LEXSCHG(757.1,0)=""""" ^ORD(101,3519,1,37,0)=" LEXSCHG(757.11,0)=""""" ^ORD(101,3519,1,38,0)=" LEXSCHG(757.9,0)=""""" ^ORD(101,3519,1,39,0)=" LEXSCHG(757.9,2)=80" ^ORD(101,3519,1,40,0)=" LEXSCHG(757.9,3)=80.1" ^ORD(101,3519,1,41,0)=" LEXSCHG(757.9,4)=81" ^ORD(101,3519,1,42,0)=" LEXSCHG(757.9,""B"",80,2)=""""" ^ORD(101,3519,1,43,0)=" LEXSCHG(757.9,""B"",80.1,3)=""""" ^ORD(101,3519,1,44,0)=" LEXSCHG(757.9,""B"",81,4)=""""" ^ORD(101,3519,1,45,0)=" " ^ORD(101,3519,1,46,0)=" If ICD-9-CM and/or CPT-4 changes are included in the ^LEXM" ^ORD(101,3519,1,47,0)=" global, then the following entries will be found in the" ^ORD(101,3519,1,48,0)=" local array LEXSCHG:" ^ORD(101,3519,1,49,0)=" " ^ORD(101,3519,1,50,0)=" LEXSCHG(80,0)=""""" ^ORD(101,3519,1,51,0)=" LEXSCHG(80.1,0)=""""" ^ORD(101,3519,1,52,0)=" LEXSCHG(81,0)=""""" ^ORD(101,3519,2,0)="^101.02A^1^1" ^ORD(101,3519,2,1,0)="LEXICON UPDATE" ^ORD(101,3519,2,"B","LEXICON UPDATE",1)="" ^ORD(101,3519,4)="^^^LEX" ^ORD(101,3519,10,0)="^101.01PA^2^2" ^ORD(101,3519,10,1,0)="3521^CPT" ^ORD(101,3519,10,2,0)="3520^ICD" ^ORD(101,3519,10,"B",3520,2)="" ^ORD(101,3519,10,"B",3521,1)="" ^ORD(101,3519,15)="K LEXSCHG" ^ORD(101,3519,20)="S:'$D(LEXSCHG) XQORQUIT=1" ^ORD(101,3519,21,0)="^101.021A^1^1" ^ORD(101,3519,21,1,0)="LEXSCHG" ^ORD(101,3519,21,"B","LEXSCHG",1)="" ^ORD(101,3519,24)="I $D(LEXSCHG)" ^ORD(101,3519,99)="59970,44423" ^ORD(101,3520,0)="ICD CODE UPDATE EVENT^ICD Code Update^^X^1^^^^^^^" ^ORD(101,3520,1,0)="^101.06^2^2^3030421^^^" ^ORD(101,3520,1,1,0)="Protocol Event for Notifying Applications that an" ^ORD(101,3520,1,2,0)="update to File #80 or File #80.1 has occurred." ^ORD(101,3520,10,0)="^101.01PA^3^3" ^ORD(101,3520,10,1,0)="3522" ^ORD(101,3520,10,2,0)="3523" ^ORD(101,3520,10,3,0)="3525" ^ORD(101,3520,10,"B",3522,1)="" ^ORD(101,3520,10,"B",3523,2)="" ^ORD(101,3520,10,"B",3525,3)="" ^ORD(101,3520,20)="D ^ICDUPDT" ^ORD(101,3520,99)="59970,44423" ^ORD(101,3521,0)="ICPT CODE UPDATE EVENT^CPT Code Update^^X^1^^^^^^^" ^ORD(101,3521,1,0)="^^2^2^3030325^" ^ORD(101,3521,1,1,0)="Protocol Event for Notifying Applications that an" ^ORD(101,3521,1,2,0)="update to File #81 has occurred." ^ORD(101,3521,10,0)="^101.01PA^1^1" ^ORD(101,3521,10,1,0)="3524" ^ORD(101,3521,10,"B",3524,1)="" ^ORD(101,3521,20)="D ^ICPTAU" ^ORD(101,3521,99)="59970,44423" ^ORD(101,3522,0)="GMPL SELECTION LIST CSV EVENT^Problem Selection List CSV event^^A^1^^^^^^^135" ^ORD(101,3522,1,0)="^^6^6^3030320^" ^ORD(101,3522,1,1,0)="This protocol is invoked when a new ICD9 Code Set Version is installed. " ^ORD(101,3522,1,2,0)="The protocol will generate a mail message related to Problem Selection" ^ORD(101,3522,1,3,0)="Lists. The mail message will contain a list of any Problem Selection Lists" ^ORD(101,3522,1,4,0)="that contain problems with inactive ICD9 codes attached. It will also" ^ORD(101,3522,1,5,0)="determine if any attached ICD9 codes are due to be inactivated in the" ^ORD(101,3522,1,6,0)="future and a report of those findings is also included." ^ORD(101,3522,20)="D CSVPEP^GMPLBLCK" ^ORD(101,3522,99)="59436,73906" ^ORD(101,3523,0)="ORCM GMRC CSV EVENT^Quick order code set version event^^A^1^^^^^^^35" ^ORD(101,3523,1,0)="^^5^5^3030311^" ^ORD(101,3523,1,1,0)="This protocol will be invoked by the ICD event protocol upon installation " ^ORD(101,3523,1,2,0)="of a new code set version. The protocol will be responsible for " ^ORD(101,3523,1,3,0)="generating a mail message to a mail group containing any consult or " ^ORD(101,3523,1,4,0)="procedure quick orders that have provisional diagnoses with inactive IDC9 " ^ORD(101,3523,1,5,0)="codes or codes that will be inactivated in the future." ^ORD(101,3523,20)="D CSVPEP^ORCMGMCK" ^ORD(101,3523,99)="59436,73910" ^ORD(101,3524,0)="PXRM CODE SET UPDATE CPT^^^A^1^^^^^^^180" ^ORD(101,3524,1,0)="^101.06^1^1^3030408^^^" ^ORD(101,3524,1,1,0)="Search for inactive CPT codes in the Dialog file #801.41" ^ORD(101,3524,20)="D CPTPE^PXRMCSPE" ^ORD(101,3525,0)="PXRM CODE SET UPDATE ICD^^^A^1^^^^^^^180" ^ORD(101,3525,1,0)="^101.06^1^1^3030422^^^" ^ORD(101,3525,1,1,0)="Searches for all Inactive code in the Dialog file #801.41" ^ORD(101,3525,20)="D ICDPE^PXRMCSPE" ^ORD(101,3526,0)="GMRCADM SELECT NEW CSLT^Select new Consult^^A^1^^^^^^^44" ^ORD(101,3526,1,0)="^^2^2^3030203^" ^ORD(101,3526,1,1,0)="This protocol is used to select a new consult on which to " ^ORD(101,3526,1,2,0)="make administrative corrections." ^ORD(101,3526,15)="S VALMBCK=""R""" ^ORD(101,3526,20)="D NEWCSLT^GMRCAD31" ^ORD(101,3526,99)="59444,61084" ^ORD(101,3527,0)="GMRCADM EDIT ACTION^Edit consult action^^A^1^^^^^^^44" ^ORD(101,3527,1,0)="^101.06^2^2^3030220^^" ^ORD(101,3527,1,1,0)="The protocol is used to select the activity on which to make an " ^ORD(101,3527,1,2,0)="administrative correction." ^ORD(101,3527,15)="S VALMBCK=""R""" ^ORD(101,3527,20)="D SELACT^GMRCAD31" ^ORD(101,3527,99)="59444,61084" ^ORD(101,3528,0)="GMRCAD31 ADM CORR MENU^Corrective actions menu^^M^1^^^^^^^" ^ORD(101,3528,1,0)="^101.06^2^2^3030220^^" ^ORD(101,3528,1,1,0)="This menu contains the actions that may be taken for administrative " ^ORD(101,3528,1,2,0)="corrections." ^ORD(101,3528,4)="39^3" ^ORD(101,3528,10,0)="^101.01PA^2^2" ^ORD(101,3528,10,1,0)="3526^SC^1^" ^ORD(101,3528,10,2,0)="3527^ED^2^" ^ORD(101,3528,10,"B",3526,1)="" ^ORD(101,3528,10,"B",3527,2)="" ^ORD(101,3528,26)="D SHOW^VALM" ^ORD(101,3528,99)="59444,61084" ^ORD(101,3529,0)="RCDPEX EOB EXCEPTION MENU^^^M^1^^^^^^^53" ^ORD(101,3529,1,0)="^101.06^2^2^3021025^^^^" ^ORD(101,3529,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3529,1,2,0)="manually on EOB return messages." ^ORD(101,3529,4)="26^4" ^ORD(101,3529,10,0)="^101.01PA^9^9" ^ORD(101,3529,10,4,0)="450^^100^^^Exit" ^ORD(101,3529,10,5,0)="3531^^30^" ^ORD(101,3529,10,6,0)="3530^^20^" ^ORD(101,3529,10,8,0)="3532^^10^" ^ORD(101,3529,10,9,0)="3541^^35^" ^ORD(101,3529,10,"B",450,4)="" ^ORD(101,3529,10,"B",3530,6)="" ^ORD(101,3529,10,"B",3531,5)="" ^ORD(101,3529,10,"B",3532,8)="" ^ORD(101,3529,10,"B",3541,9)="" ^ORD(101,3529,15)="I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3529,26)="D SHOW^VALM" ^ORD(101,3529,28)="Select Action: " ^ORD(101,3529,99)="61199,28361" ^ORD(101,3530,0)="RCDPEX FILE EXCEPTION MESSAGE^File Message^^A^1^^^^^^^53" ^ORD(101,3530,1,0)="^101.06^2^2^3021021^^^^" ^ORD(101,3530,1,1,0)="This action allows a user to manually force a message to process through the" ^ORD(101,3530,1,2,0)="EDI Lockbox ERA/EOB file process." ^ORD(101,3530,20)="D UPD^RCDPEX" ^ORD(101,3530,99)="59465,71403" ^ORD(101,3531,0)="RCDPEX DELETE MESSAGE^Delete Message^^A^1^^^^^^^53" ^ORD(101,3531,1,0)="^101.06^3^3^3021017^^^^" ^ORD(101,3531,1,1,0)="This action allows a user to manually delete a message that you either can't" ^ORD(101,3531,1,2,0)="or don't want to continue through the EDI Lockbox message process." ^ORD(101,3531,1,3,0)="A bulletin is sent to alert that this action has been taken." ^ORD(101,3531,20)="D DEL^RCDPEX" ^ORD(101,3531,99)="59465,71403" ^ORD(101,3532,0)="RCDPEX VIEW/PRINT MESSAGE^View/Print Message^^A^1^^^^^^^53" ^ORD(101,3532,1,0)="^101.06^1^1^3021017^^" ^ORD(101,3532,1,1,0)="This option allows the user to view an EDI Lockbox message." ^ORD(101,3532,4)="^^^VP" ^ORD(101,3532,20)="D VP^RCDPEX" ^ORD(101,3532,99)="59465,71403" ^ORD(101,3533,0)="RCDPEX EOB_SUM EXCEPTION MENU^^^M^1^^^^^^^53" ^ORD(101,3533,1,0)="^101.06^2^2^3000223^^^^" ^ORD(101,3533,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3533,1,2,0)="manually on 837 return messages." ^ORD(101,3533,4)="26^4" ^ORD(101,3533,10,0)="^101.01PA^14^14" ^ORD(101,3533,10,4,0)="450^^100^^^Exit" ^ORD(101,3533,10,8,0)="3536^^10^" ^ORD(101,3533,10,9,0)="3537^^40^" ^ORD(101,3533,10,10,0)="3534^^30^" ^ORD(101,3533,10,11,0)="3535^^20^" ^ORD(101,3533,10,13,0)="3541^^60^" ^ORD(101,3533,10,14,0)="3565^^50^" ^ORD(101,3533,10,"B",450,4)="" ^ORD(101,3533,10,"B",3534,10)="" ^ORD(101,3533,10,"B",3535,11)="" ^ORD(101,3533,10,"B",3536,8)="" ^ORD(101,3533,10,"B",3537,9)="" ^ORD(101,3533,10,"B",3541,13)="" ^ORD(101,3533,10,"B",3565,14)="" ^ORD(101,3533,15)="I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3533,26)="D SHOW^VALM" ^ORD(101,3533,28)="Select Action: " ^ORD(101,3533,99)="61199,28361" ^ORD(101,3534,0)="RCDPEX EOB_SUM REMOVE EXCEPT^Remove Exception^^A^1^^^^^^^53" ^ORD(101,3534,1,0)="^101.06^3^3^3021017^^^^" ^ORD(101,3534,1,1,0)="This action allows a user to manually delete a message that you either can't" ^ORD(101,3534,1,2,0)="or don't want to continue through the EDI Lockbox message process." ^ORD(101,3534,1,3,0)="A bulletin is sent to alert that this action has been taken." ^ORD(101,3534,20)="D DEL^RCDPEX31" ^ORD(101,3534,99)="59465,71403" ^ORD(101,3535,0)="RCDPEX SUM_FILE EXCEPTION^File EEOB in IB^^A^1^^^^^^^53" ^ORD(101,3535,1,0)="^101.06^2^2^3021029^^^^" ^ORD(101,3535,1,1,0)="This action allows a user to manually force a message to process through the" ^ORD(101,3535,1,2,0)="EDI Lockbox EOB file process to store the detail data in IB." ^ORD(101,3535,20)="D UPD^RCDPEX3" ^ORD(101,3535,99)="59465,71403" ^ORD(101,3536,0)="RCDPEX SUM_VIEW/PRINT MESSAGE^View/Print Message^^A^1^^^^^^^53" ^ORD(101,3536,1,0)="^101.06^1^1^3021017^^" ^ORD(101,3536,1,1,0)="This option allows the user to view an EDI Lockbox message." ^ORD(101,3536,4)="^^^VP" ^ORD(101,3536,20)="D VP^RCDPEX3" ^ORD(101,3536,99)="59465,71403" ^ORD(101,3537,0)="RCDPEX SUM_TRANSFER EOB OUT^Transfer EEOB^^A^1^^^^^^^53" ^ORD(101,3537,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3537,20)="D XFR^RCDPEX3" ^ORD(101,3537,99)="59465,71403" ^ORD(101,3538,0)="RCDPE EOB WORKLIST MENU^EOB WORKLIST MENU^^M^1^^^^^^^53" ^ORD(101,3538,1,0)="^101.06^2^2^3030219^^^^" ^ORD(101,3538,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3538,1,2,0)="manually on ERAs received." ^ORD(101,3538,4)="26^4" ^ORD(101,3538,10,0)="^101.01PA^17^17" ^ORD(101,3538,10,4,0)="450^^100^^^Exit" ^ORD(101,3538,10,6,0)="3547^^10^" ^ORD(101,3538,10,7,0)="3548^^30^" ^ORD(101,3538,10,8,0)="3549^^60^" ^ORD(101,3538,10,9,0)="3540^EOB^80^" ^ORD(101,3538,10,10,0)="3550^ERA^90^" ^ORD(101,3538,10,12,0)="3553^^70^" ^ORD(101,3538,10,14,0)="3557^^75^" ^ORD(101,3538,10,15,0)="3566^^77^" ^ORD(101,3538,10,16,0)="3637^^78^" ^ORD(101,3538,10,17,0)="3638^^79^" ^ORD(101,3538,10,"B",450,4)="" ^ORD(101,3538,10,"B",3540,9)="" ^ORD(101,3538,10,"B",3547,6)="" ^ORD(101,3538,10,"B",3548,7)="" ^ORD(101,3538,10,"B",3549,8)="" ^ORD(101,3538,10,"B",3550,10)="" ^ORD(101,3538,10,"B",3553,12)="" ^ORD(101,3538,10,"B",3557,14)="" ^ORD(101,3538,10,"B",3566,15)="" ^ORD(101,3538,10,"B",3637,16)="" ^ORD(101,3538,10,"B",3638,17)="" ^ORD(101,3538,15)="I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3538,26)="D SHOW^VALM" ^ORD(101,3538,28)="Select Action: " ^ORD(101,3538,99)="61199,28361" ^ORD(101,3539,0)="RCDPE EOB WORKLIST RESEARCH MENU^Research Menu^^M^1^^^^^^^53" ^ORD(101,3539,1,0)="^^2^2^3030220^" ^ORD(101,3539,1,1,0)="This is the main menu that contains the actions that can be performed to " ^ORD(101,3539,1,2,0)="research a payment/denial for a claim when reviewing an EOB." ^ORD(101,3539,4)="26^4" ^ORD(101,3539,10,0)="^101.01PA^14^14" ^ORD(101,3539,10,1,0)="3542^^5^" ^ORD(101,3539,10,2,0)="3541^^20^" ^ORD(101,3539,10,4,0)="3543^^10^" ^ORD(101,3539,10,5,0)="3545^^50^" ^ORD(101,3539,10,6,0)="3546^^60^" ^ORD(101,3539,10,7,0)="3552^^100^" ^ORD(101,3539,10,8,0)="3566^^80^" ^ORD(101,3539,10,9,0)="3540^^70^" ^ORD(101,3539,10,11,0)="3563^^65^" ^ORD(101,3539,10,12,0)="3562^^67^" ^ORD(101,3539,10,13,0)="3561^^8^" ^ORD(101,3539,10,14,0)="3544^^9^" ^ORD(101,3539,10,"B",3540,9)="" ^ORD(101,3539,10,"B",3541,2)="" ^ORD(101,3539,10,"B",3542,1)="" ^ORD(101,3539,10,"B",3543,4)="" ^ORD(101,3539,10,"B",3544,14)="" ^ORD(101,3539,10,"B",3545,5)="" ^ORD(101,3539,10,"B",3546,6)="" ^ORD(101,3539,10,"B",3552,7)="" ^ORD(101,3539,10,"B",3561,13)="" ^ORD(101,3539,10,"B",3562,12)="" ^ORD(101,3539,10,"B",3563,11)="" ^ORD(101,3539,10,"B",3566,8)="" ^ORD(101,3539,15)="I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3539,26)="D SHOW^VALM" ^ORD(101,3539,28)="Select Action: " ^ORD(101,3539,99)="59781,57540" ^ORD(101,3540,0)="RCDPE VIEW/PRINT WORKLIST EOB^View/Print EEOB^^A^1^^^^^^^53" ^ORD(101,3540,1,0)="^101.06^2^2^3030220^^^^" ^ORD(101,3540,1,1,0)="This option allows the user to view the detail of a selected EOB from the" ^ORD(101,3540,1,2,0)="list of EOB's presented in the Worklist Scratch pad function for an ERA." ^ORD(101,3540,4)="^^^" ^ORD(101,3540,20)="D PREOB^RCDPEWL2" ^ORD(101,3540,99)="59465,71403" ^ORD(101,3541,0)="RCDPE EOB WORKLIST TPJI^TPJI^^A^1^^^^^^^53" ^ORD(101,3541,1,0)="^101.06^2^2^3021127^^^^" ^ORD(101,3541,1,1,0)="This option allows the user access the third party joint inquiry (TPJI)" ^ORD(101,3541,1,2,0)="functions for an electronic EOB's claim." ^ORD(101,3541,4)="^^^VP" ^ORD(101,3541,20)="D TPJI^RCDPEWL2" ^ORD(101,3541,99)="59465,71403" ^ORD(101,3542,0)="RCDPE EOB WORKLIST REL HOLD^Release Hold^^A^1^^^^^^^53" ^ORD(101,3542,1,0)="^101.06^2^2^3030102^^^^" ^ORD(101,3542,1,1,0)="This option allows the user access the AR function for releasing a hold" ^ORD(101,3542,1,2,0)="on a patient's bill(s) from within the EDI Lockbox worklist function." ^ORD(101,3542,4)="^^^RH" ^ORD(101,3542,20)="D RELHOLD^RCDPEWL2" ^ORD(101,3542,99)="59465,71403" ^ORD(101,3543,0)="RCDPE EOB WORKLIST CHG MAINT^Patient Charge Maint^^A^1^^^^^^^53" ^ORD(101,3543,1,0)="^101.06^2^2^3030102^^^^" ^ORD(101,3543,1,1,0)="This option allows the user access to the IB options for cancel, edit, add" ^ORD(101,3543,1,2,0)="patient charges from within the EDI Lockbox worklist function." ^ORD(101,3543,4)="^^^CM" ^ORD(101,3543,20)="D CHGMNT^RCDPEWL2" ^ORD(101,3543,99)="59465,71403" ^ORD(101,3544,0)="RCDPE EOB WORKLIST FULL ACCT PROF^Full Acct Prof^^A^1^^^^^^^53" ^ORD(101,3544,1,0)="^101.06^1^1^3030701^^^^" ^ORD(101,3544,1,1,0)="This option allows the user access to the AR function FULL ACCOUNT PROFILE." ^ORD(101,3544,4)="^^^DA" ^ORD(101,3544,20)="D FAP^RCDPEWL2" ^ORD(101,3544,99)="59465,71403" ^ORD(101,3545,0)="RCDPE EOB WORKLIST ON HOLD RPT^On Hold List^^A^1^^^^^^^53" ^ORD(101,3545,1,0)="^101.06^2^2^3030102^^^^" ^ORD(101,3545,1,1,0)="This option allows the user access to the List On Hold Charges report in" ^ORD(101,3545,1,2,0)="IB from within the EDI Lockbox worklist function." ^ORD(101,3545,4)="^^^OH" ^ORD(101,3545,20)="D LSTHLD^RCDPEWL2" ^ORD(101,3545,99)="59465,71403" ^ORD(101,3546,0)="RCDPE EOB WORKLIST CL MATCH RPT^Claims Match Rpt^^A^1^^^^^^^53" ^ORD(101,3546,1,0)="^101.06^2^2^3030102^^^^" ^ORD(101,3546,1,1,0)="This option allows the user access to the Claims Matching report in AR from" ^ORD(101,3546,1,2,0)="within the EDI Lockbox worklist function." ^ORD(101,3546,4)="^^^MR" ^ORD(101,3546,20)="D CMRPT^RCDPEWL2" ^ORD(101,3546,99)="59465,71403" ^ORD(101,3547,0)="RCDPE EOB WORKLIST SPLIT LINE^Split/Edit A Line^^A^1^^^^^^^53" ^ORD(101,3547,1,0)="^101.06^3^3^3030218^^^^" ^ORD(101,3547,1,1,0)="This option allows the user to split the payment and adjustment amounts of" ^ORD(101,3547,1,2,0)="a selected line in the ERA to redistribute the funds to more accurately" ^ORD(101,3547,1,3,0)="reflect the disposition of the payment/adjustment." ^ORD(101,3547,4)="^^^TB" ^ORD(101,3547,20)="D SPLIT^RCDPEWL0" ^ORD(101,3547,99)="59465,71403" ^ORD(101,3548,0)="RCDPE EOB WORKLIST DIST ADJ^Distribute Adj Amts^^A^1^^^^^^^53" ^ORD(101,3548,1,0)="^101.06^4^4^3030218^^^^" ^ORD(101,3548,1,1,0)="This option allows the user to select an adjustment line that has a" ^ORD(101,3548,1,2,0)="negative net payment to allow this amount to be distributed to other" ^ORD(101,3548,1,3,0)="lines so the total amount of payments received to post equals the total" ^ORD(101,3548,1,4,0)="amount of the deposit." ^ORD(101,3548,4)="^^^TB" ^ORD(101,3548,20)="D DISTADJ^RCDPEWL6" ^ORD(101,3548,99)="59465,71403" ^ORD(101,3549,0)="RCDPE EOB WORKLIST REFRESH^Refresh Scratch Pad^^A^1^^^^^^^53" ^ORD(101,3549,1,0)="^101.06^3^3^3030218^^^^" ^ORD(101,3549,1,1,0)="This option allows the user to 'refresh' the worklist scratch pad entry" ^ORD(101,3549,1,2,0)="to remove all previously entered edits/splits/adjustments and restore it" ^ORD(101,3549,1,3,0)="to the state it was in before any manual changes were made." ^ORD(101,3549,4)="^^^TB" ^ORD(101,3549,20)="D REFRESH^RCDPEWL6" ^ORD(101,3549,99)="59465,71403" ^ORD(101,3550,0)="RCDPE VIEW/PRINT WORKLIST ERA^View/Print ERA^^A^1^^^^^^^53" ^ORD(101,3550,1,0)="^101.06^2^2^3030219^^^^" ^ORD(101,3550,1,1,0)="This option allows the user to view the summary or summary and detail" ^ORD(101,3550,1,2,0)="information for an electronic remittance advice (ERA)." ^ORD(101,3550,20)="D PRERA^RCDPEWL0" ^ORD(101,3550,99)="59465,71403" ^ORD(101,3551,0)="RCDPE EOB WORKLIST RECEIPT^Create Receipt^^A^1^^^^^^^53" ^ORD(101,3551,20)="D NEWREC^RCDPEWL4" ^ORD(101,3551,99)="59465,71403" ^ORD(101,3552,0)="RCDPE EOB WL RESEARCH EXIT^Scratch Pad Menu/Exit^^A^1^^^^^^^53" ^ORD(101,3552,1,0)="^^1^1^3030219^" ^ORD(101,3552,1,1,0)="This option allows the user access to exit back to the ERA display menu" ^ORD(101,3552,4)="^^^" ^ORD(101,3552,20)="D EXIT^RCDPEWL2" ^ORD(101,3552,99)="59465,71403" ^ORD(101,3553,0)="RCDPE EOB WORKLIST RESEARCH^Research Menu^^A^1^^^^^^^53" ^ORD(101,3553,1,0)="^101.06^2^2^3030219^^^^" ^ORD(101,3553,1,1,0)="This option allows the user access to the IB options for cancel, edit, add" ^ORD(101,3553,1,2,0)="patient charges from within the EDI Lockbox worklist function." ^ORD(101,3553,4)="^^^" ^ORD(101,3553,20)="D RESEARCH^RCDPEWL2" ^ORD(101,3553,99)="59465,71403" ^ORD(101,3554,0)="RCDPE EOB WORKLIST SPLIT MENU^EOB Split Line Menu^^M^1^^^^^^^53" ^ORD(101,3554,1,0)="^101.06^2^2^3030219^^^^" ^ORD(101,3554,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3554,1,2,0)="manually on ERAs received." ^ORD(101,3554,4)="26^2" ^ORD(101,3554,10,0)="^101.01PA^6^6" ^ORD(101,3554,10,4,0)="450^^100^^^Exit" ^ORD(101,3554,10,5,0)="3555^^5^" ^ORD(101,3554,10,6,0)="3556^^10^" ^ORD(101,3554,10,"B",450,4)="" ^ORD(101,3554,10,"B",3555,5)="" ^ORD(101,3554,10,"B",3556,6)="" ^ORD(101,3554,15)="D:$G(^TMP($J,""RCDPE_SPLIT_FILE""))&($G(VALMBCK)'=""R"") CHKFILE^RCDPEWL2 I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3554,26)="D SHOW^VALM" ^ORD(101,3554,28)="Select Action:" ^ORD(101,3554,99)="61199,28361" ^ORD(101,3555,0)="RCDPE EOB WL SPLIT LINE^File New Lines^^A^1^^^^^^^53" ^ORD(101,3555,20)="D FILESP^RCDPEWL8" ^ORD(101,3555,99)="59781,57540" ^ORD(101,3556,0)="RCDPE EOB WL EDIT SPLIT^Edit Lines Split^^A^1^^^^^^^53" ^ORD(101,3556,20)="D EDITSP^RCDPEWL2" ^ORD(101,3556,99)="59465,71403" ^ORD(101,3557,0)="RCDPE EOB WL RECEIPT VIEW^Look At Receipt^^A^1^^^^^^^53" ^ORD(101,3557,20)="D VRECPT^RCDPEWL4" ^ORD(101,3557,99)="59781,57540" ^ORD(101,3558,0)="RCDPE EOB WORKLIST PREVIEW MENU^Receipt Creation Preview Menu^^M^1^^^^^^^53" ^ORD(101,3558,1,0)="^101.06^2^2^3030630^^^^" ^ORD(101,3558,1,1,0)="This is the main menu that contains the actions that can be performed" ^ORD(101,3558,1,2,0)="manually on ERAs received." ^ORD(101,3558,4)="25^2" ^ORD(101,3558,10,0)="^101.01PA^6^6" ^ORD(101,3558,10,4,0)="450^^100^^^Exit" ^ORD(101,3558,10,5,0)="452^^10^^^Print Receipt Preview" ^ORD(101,3558,10,6,0)="3551^^30^" ^ORD(101,3558,10,"B",450,4)="" ^ORD(101,3558,10,"B",452,5)="" ^ORD(101,3558,10,"B",3551,6)="" ^ORD(101,3558,15)="I $G(RCFASTXT) S VALMBCK=""Q""" ^ORD(101,3558,26)="D SHOW^VALM" ^ORD(101,3558,28)="Select Action: " ^ORD(101,3558,99)="61199,28361" ^ORD(101,3559,0)="RCDPE EOB WORKLIST PREVIEW PRINT^Print Receipt Preview^^A^1^^^^^^^53" ^ORD(101,3559,1,0)="^101.06^2^2^3030220^^^^" ^ORD(101,3559,1,1,0)="This option allows the user to view the detail of a selected EOB from the" ^ORD(101,3559,1,2,0)="list of EOB's presented in the Worklist Scratch pad function for an ERA." ^ORD(101,3559,20)="D PREOB^RCDPEWL2" ^ORD(101,3559,99)="59465,71403" ^ORD(101,3560,0)="RCDP RECEIPT PROFILE ERA WORKLIST^Worklist (ERA)^^A^1^^^^^^^53" ^ORD(101,3560,1,0)="^101.06^1^1^3030326^^^" ^ORD(101,3560,1,1,0)="This option will allow entry into the ERA Worklist screens in view only mode." ^ORD(101,3560,4)="^^^" ^ORD(101,3560,20)="D WL^RCDPEWL2(RCRECTDA)" ^ORD(101,3560,24)="" ^ORD(101,3560,99)="59465,71403" ^ORD(101,3561,0)="RCDPE EOB WORKLIST ADJUST^Adjust (Inc/Dec)^^A^1^^^^^^^53" ^ORD(101,3561,20)="D ADJUST^RCDPEWL6" ^ORD(101,3561,99)="59465,71403" ^ORD(101,3562,0)="RCDPE EOB WORKLIST REESTABLISH^Re-establish Bill^^A^1^^^^^^^53" ^ORD(101,3562,20)="D REEST^RCDPEWL2" ^ORD(101,3562,99)="59465,71403" ^ORD(101,3563,0)="RCDPE EOB WORKLIST BILL COMMENT^Bill Comment Log^^A^1^^^^^^^53" ^ORD(101,3563,20)="D BILLCOM^RCDPEWL2" ^ORD(101,3563,99)="59465,71403" ^ORD(101,3564,0)="RCDPE EOB WORKLIST RECEIPT COMMENT^Add/Edit Comment^^A^1^^^^^^^53" ^ORD(101,3564,20)="D RCOMM^RCDPEWL5" ^ORD(101,3564,99)="59465,71403" ^ORD(101,3565,0)="RCDPEX SUM_EDIT CLAIM^Edit Claim #^^A^1^^^^^^^53" ^ORD(101,3565,15)="I '$D(IOUON) D ENS^%ZISS" ^ORD(101,3565,20)="D EDITNUM^RCDPEX32" ^ORD(101,3565,99)="59465,71403" ^ORD(101,3566,0)="RCDPE EOB WL REVIEW^Review Line^^A^1^^^^^^^53" ^ORD(101,3566,20)="D REVIEW^RCDPEWL5" ^ORD(101,3566,99)="59465,71403" ^ORD(101,3567,0)="FB FEE TO FPPS EVENT^^^E^1^^^^^^^" ^ORD(101,3567,770)="96^^5^38^^^^1^3^5^" ^ORD(101,3567,772)="QUIT" ^ORD(101,3567,775,0)="^101.0775PA^1^1" ^ORD(101,3567,775,1,0)="3568" ^ORD(101,3567,775,"B",3568,1)="" ^ORD(101,3568,0)="FB FEE TO FPPS SUBSCRIBER^^^S^1^^^^^^^" ^ORD(101,3568,770)="^97^^^^^190^^^^1" ^ORD(101,3568,771)="Q" ^ORD(101,3568,773)="1" ^ORD(101,3569,0)="XOBV LISTENER START^Start Listener^^A^1^^^^^^^192" ^ORD(101,3569,1,0)="^^1^1^3030410^" ^ORD(101,3569,1,1,0)="This action protocol will start a single VistALink Listener." ^ORD(101,3569,20)="DO START^XOBUM" ^ORD(101,3569,24)="IF $$GETOS^XOBVTCP()[""OpenM""" ^ORD(101,3569,99)="60424,37096" ^ORD(101,3570,0)="XOBV LISTENER STOP^Stop Listener^^A^1^^^^^^^192" ^ORD(101,3570,1,0)="^^1^1^3030410^" ^ORD(101,3570,1,1,0)="This action protocol will stop a single VistALink Listener." ^ORD(101,3570,20)="DO STOP^XOBUM" ^ORD(101,3570,24)="IF $$GETOS^XOBVTCP()[""OpenM""" ^ORD(101,3570,99)="60424,37096" ^ORD(101,3571,0)="XOBV LISTENER CONFIG^Manage Configurations^^A^1^^^^^^^192" ^ORD(101,3571,1,0)="^101.06^3^3^3050407^^" ^ORD(101,3571,1,1,0)="This action protocol will add/edit an entry in the VISTALINK LISTENER" ^ORD(101,3571,1,2,0)="CONFIGURATION file (#18.03) by invoking the XOBV LISTENER CONFIG EDIT" ^ORD(101,3571,1,3,0)="input template." ^ORD(101,3571,20)="DO CFG^XOBUM" ^ORD(101,3571,24)="IF $$GETOS^XOBVTCP()[""OpenM""" ^ORD(101,3571,99)="60424,37096" ^ORD(101,3572,0)="XOBU SITE PARAMETERS^Site Parameters^^A^1^^^^^^^191" ^ORD(101,3572,1,0)="^^3^3^3030410^" ^ORD(101,3572,1,1,0)="This action protocol will add/edit an entry in the VISTALINK SITE" ^ORD(101,3572,1,2,0)="PARAMETERS file (#18.01) by invoking the XOBU SITE PARAMETERS input" ^ORD(101,3572,1,3,0)="template." ^ORD(101,3572,20)="DO PARMS^XOBUM" ^ORD(101,3572,99)="60424,37095" ^ORD(101,3573,0)="XOBU FOUNDATIONS MAIN MENU^Foundations Manager Menu^^M^1^^^^^^^191" ^ORD(101,3573,1,0)="^101.06^3^3^3050407^^^" ^ORD(101,3573,1,1,0)="This menu contains all the action protocols for the Foundations " ^ORD(101,3573,1,2,0)="Management menu [XOBV SITE SETUP MENU] which is used to configure and " ^ORD(101,3573,1,3,0)="manage VistALink Listeners." ^ORD(101,3573,4)="40^4" ^ORD(101,3573,10,0)="^101.01PA^9^9" ^ORD(101,3573,10,1,0)="3572^SP^11^" ^ORD(101,3573,10,2,0)="3571^CFG^12^" ^ORD(101,3573,10,3,0)="3569^SL^21^" ^ORD(101,3573,10,4,0)="3570^STP^22^" ^ORD(101,3573,10,5,0)="3575^RE^14^" ^ORD(101,3573,10,6,0)="3574^CU^24^" ^ORD(101,3573,10,7,0)="3576^SS^15^" ^ORD(101,3573,10,8,0)="3577^SB^23^" ^ORD(101,3573,10,9,0)="4071^CP^13^" ^ORD(101,3573,10,"B",3569,3)="" ^ORD(101,3573,10,"B",3570,4)="" ^ORD(101,3573,10,"B",3571,2)="" ^ORD(101,3573,10,"B",3572,1)="" ^ORD(101,3573,10,"B",3574,6)="" ^ORD(101,3573,10,"B",3575,5)="" ^ORD(101,3573,10,"B",3576,7)="" ^ORD(101,3573,10,"B",3577,8)="" ^ORD(101,3573,10,"B",4071,9)="" ^ORD(101,3573,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3573,26)="D SHOW^VALM" ^ORD(101,3573,28)="Select Action: " ^ORD(101,3573,99)="60424,37096" ^ORD(101,3574,0)="XOBV LISTENER LOG CLEAR^Clean Up Log^^A^1^^^^^^^192" ^ORD(101,3574,1,0)="^^2^2^3030410^" ^ORD(101,3574,1,1,0)="This action protocol will delete non-active VistALink Listener log entries" ^ORD(101,3574,1,2,0)="in the VISTALINK LISTENER STARTUP LOG file (#18.04)." ^ORD(101,3574,20)="DO CLEAR^XOBUM" ^ORD(101,3574,99)="60424,37096" ^ORD(101,3575,0)="XOBU FOUNDATIONS MAIN REFRESH^Refresh^^A^1^^^^^^^191" ^ORD(101,3575,1,0)="^^3^3^3030410^" ^ORD(101,3575,1,1,0)="This action protocol will refresh and redisplay the current Foundations" ^ORD(101,3575,1,2,0)="Management screen. This is useful when checking the current status of" ^ORD(101,3575,1,3,0)="a VistALink Listener." ^ORD(101,3575,20)="DO REFRESH^XOBUM" ^ORD(101,3575,99)="60424,37095" ^ORD(101,3576,0)="XOBU FOUNDATIONS SYSTEM STATUS^System Status^^A^1^^^^^^^191" ^ORD(101,3576,1,0)="^^1^1^3030410^" ^ORD(101,3576,1,1,0)="This action protocol will display the M operating system status." ^ORD(101,3576,20)="DO SS^XOBUM" ^ORD(101,3576,99)="60424,37095" ^ORD(101,3577,0)="XOBV LISTENER BOX-VOL^Start Box^^A^1^^^^^^^192" ^ORD(101,3577,1,0)="^^3^3^3030410^" ^ORD(101,3577,1,1,0)="This action protocol will start all VistALink Listeners contained in the" ^ORD(101,3577,1,2,0)="default configuration for the BOX-VOLUME pair whose STARTUP field is set" ^ORD(101,3577,1,3,0)="to YES." ^ORD(101,3577,20)="DO BOX^XOBUM" ^ORD(101,3577,24)="IF $$GETOS^XOBVTCP()[""OpenM""" ^ORD(101,3577,99)="60424,37096" ^ORD(101,3578,0)="PSB BCMA RASO17 SRV^PSB BCMA RASO17 SERVER^^E^1^^^^^^^" ^ORD(101,3578,1,0)="^^3^3^3031217^^" ^ORD(101,3578,1,1,0)="This is a test event driver protocol for PSB (BCMA). This protocol is to " ^ORD(101,3578,1,2,0)="serve the RAS/O17 event. The trigger event in general is a MEDPASS or " ^ORD(101,3578,1,3,0)="administration of a ORDER/Medication." ^ORD(101,3578,99)="59624,65545" ^ORD(101,3578,770)="99^^19^254^^D^^1^3^5^" ^ORD(101,3578,775,0)="^101.0775PA^1^1" ^ORD(101,3578,775,1,0)="3579" ^ORD(101,3578,775,"B",3579,1)="" ^ORD(101,3579,0)="PSB BCMA RASO17 SUB^PSB BCMA RASO17 SUBSCRIBER^^S^1^^^^^^^" ^ORD(101,3579,99)="59624,65545" ^ORD(101,3579,770)="^98^^38^^^191^^^^1" ^ORD(101,3579,774)="" ^ORD(101,3580,0)="MAGD APPOINTMENT^IMAGING APPOINTMENT SCHEDULER^^A^1^^^^^^^" ^ORD(101,3580,1,0)="^101.06^1^1^3020607^^^^" ^ORD(101,3580,1,1,0)="This protocol will be used with Scheduling to pass information to Imaging." ^ORD(101,3580,4)="^^^MAGD" ^ORD(101,3580,20)="D ^MAGDHWS" ^ORD(101,3580,99)="59494,70485" ^ORD(101,3581,0)="MAGD RECEIVE EVENTS^Imaging Receive GMRC Events^^A^1^^^^^^^" ^ORD(101,3581,1,0)="^^2^2^3020523^" ^ORD(101,3581,1,1,0)="This protocol will be a subscriber to the GMRC EVSEND OR protocol and is" ^ORD(101,3581,1,2,0)="used to pass HL7 event messages to Imaging. " ^ORD(101,3581,20)="D ENTRY^MAGDHWC" ^ORD(101,3581,99)="59494,70485" ^ORD(101,3582,0)="DGRO ROM ORF/R04 SUBSC^^^S^1^^^^^^^" ^ORD(101,3582,1,0)="^^3^3^3030718^" ^ORD(101,3582,1,1,0)="This protocol is the subscriber protocol for the Register Once Messaging " ^ORD(101,3582,1,2,0)="query message (QRY~R02). The protocol will return a patient FDA array" ^ORD(101,3582,1,3,0)="message (ORF~R04)." ^ORD(101,3582,770)="^101^^112^^^^^^^2" ^ORD(101,3582,771)="D RCV^DGROHLR" ^ORD(101,3582,773)="1^1" ^ORD(101,3582,774)="Q" ^ORD(101,3583,0)="DGRO ROM QRY/R02 EVENT^^^E^1^^^^^^^" ^ORD(101,3583,1,0)="^^2^2^3030617^" ^ORD(101,3583,1,1,0)="This protocol is the event protocol for the Register Once Messaging query" ^ORD(101,3583,1,2,0)="message (QRY~R02)." ^ORD(101,3583,770)="100^^4^47^^^^^^3^" ^ORD(101,3583,772)="D RCV^DGROHLR" ^ORD(101,3583,775,0)="^101.0775PA^1^1" ^ORD(101,3583,775,1,0)="3582" ^ORD(101,3583,775,"B",3582,1)="" ^ORD(101,3584,0)="RMPR SUSP ADD AUTO^Auto Adaptive^^A^1^^^^^^^140" ^ORD(101,3584,1,0)="^101.06^22^22^3030904^^" ^ORD(101,3584,1,1,0)="Function description" ^ORD(101,3584,1,2,0)=" " ^ORD(101,3584,1,3,0)="A manual suspense record can be added to Prosthetics for a request for an" ^ORD(101,3584,1,4,0)="item or service." ^ORD(101,3584,1,5,0)=" " ^ORD(101,3584,1,6,0)=" " ^ORD(101,3584,1,7,0)=" " ^ORD(101,3584,1,8,0)="Steps" ^ORD(101,3584,1,9,0)=" " ^ORD(101,3584,1,10,0)="To add a manual suspense, follow these steps:" ^ORD(101,3584,1,11,0)=" " ^ORD(101,3584,1,12,0)="Step Action" ^ORD(101,3584,1,13,0)="1 At the Select Item(s): Next Screen//, type AD, and press " ^ORD(101,3584,1,14,0)="2 At the PROSTHETIC SUSPENSE DATE RX WRITTEN, you can enter T for" ^ORD(101,3584,1,15,0)=" the current date or T - # (number of days the request was actually" ^ORD(101,3584,1,16,0)=" made), and press ." ^ORD(101,3584,1,17,0)="3 At the Requestor prompt, type the physician name, and press" ^ORD(101,3584,1,18,0)=" " ^ORD(101,3584,1,19,0)="4 At the Edit? NO// prompt, type Y for Yes to edit the note." ^ORD(101,3584,1,20,0)="5 Type a free-text note in the text editor." ^ORD(101,3584,1,21,0)="6 Press the ""Num Lock"" key and the ""E"" keys simultaneously to exit" ^ORD(101,3584,1,22,0)=" the text editor." ^ORD(101,3584,20)="D AAUTO^RMPREO23" ^ORD(101,3584,99)="59499,51694" ^ORD(101,3585,0)="RMPR SUSP ADD CLOTHING^Clothing Allowance^^A^1^^^^^^^140" ^ORD(101,3585,1,0)="^101.06^22^22^3030904^^^" ^ORD(101,3585,1,1,0)="Function description" ^ORD(101,3585,1,2,0)=" " ^ORD(101,3585,1,3,0)="A manual suspense record can be added to Prosthetics for a request for an" ^ORD(101,3585,1,4,0)="item or service." ^ORD(101,3585,1,5,0)=" " ^ORD(101,3585,1,6,0)=" " ^ORD(101,3585,1,7,0)=" " ^ORD(101,3585,1,8,0)="Steps" ^ORD(101,3585,1,9,0)=" " ^ORD(101,3585,1,10,0)="To add a manual suspense, follow these steps:" ^ORD(101,3585,1,11,0)=" " ^ORD(101,3585,1,12,0)="Step Action" ^ORD(101,3585,1,13,0)="1 At the Select Item(s): Next Screen//, type AD, and press " ^ORD(101,3585,1,14,0)="2 At the PROSTHETIC SUSPENSE DATE RX WRITTEN, you can enter T for" ^ORD(101,3585,1,15,0)=" the current date or T - # (number of days the request was actually" ^ORD(101,3585,1,16,0)=" made), and press ." ^ORD(101,3585,1,17,0)="3 At the Requestor prompt, type the physician name, and press" ^ORD(101,3585,1,18,0)=" " ^ORD(101,3585,1,19,0)="4 At the Edit? NO// prompt, type Y for Yes to edit the note." ^ORD(101,3585,1,20,0)="5 Type a free-text note in the text editor." ^ORD(101,3585,1,21,0)="6 Press the ""Num Lock"" key and the ""E"" keys simultaneously to exit" ^ORD(101,3585,1,22,0)=" the text editor." ^ORD(101,3585,20)="D ACLO^RMPREO23" ^ORD(101,3585,99)="59499,51694" ^ORD(101,3586,0)="RMPR SUSP ADD CLONE^Clone CPRS^^A^1^^^^^^^140" ^ORD(101,3586,1,0)="^101.06^22^22^3030904^^" ^ORD(101,3586,1,1,0)="Function description" ^ORD(101,3586,1,2,0)=" " ^ORD(101,3586,1,3,0)="A manual suspense record can be added to Prosthetics for a request for an" ^ORD(101,3586,1,4,0)="item or service." ^ORD(101,3586,1,5,0)=" " ^ORD(101,3586,1,6,0)=" " ^ORD(101,3586,1,7,0)=" " ^ORD(101,3586,1,8,0)="Steps" ^ORD(101,3586,1,9,0)=" " ^ORD(101,3586,1,10,0)="To add a manual suspense, follow these steps:" ^ORD(101,3586,1,11,0)=" " ^ORD(101,3586,1,12,0)="Step Action" ^ORD(101,3586,1,13,0)="1 At the Select Item(s): Next Screen//, type AD, and press " ^ORD(101,3586,1,14,0)="2 At the PROSTHETIC SUSPENSE DATE RX WRITTEN, you can enter T for" ^ORD(101,3586,1,15,0)=" the current date or T - # (number of days the request was actually" ^ORD(101,3586,1,16,0)=" made), and press ." ^ORD(101,3586,1,17,0)="3 At the Requestor prompt, type the physician name, and press" ^ORD(101,3586,1,18,0)=" " ^ORD(101,3586,1,19,0)="4 At the Edit? NO// prompt, type Y for Yes to edit the note." ^ORD(101,3586,1,20,0)="5 Type a free-text note in the text editor." ^ORD(101,3586,1,21,0)="6 Press the ""Num Lock"" key and the ""E"" keys simultaneously to exit" ^ORD(101,3586,1,22,0)=" the text editor." ^ORD(101,3586,20)="D CLONE^RMPREO23" ^ORD(101,3586,99)="59499,51694" ^ORD(101,3587,0)="SD-PAIT-EVENT^PAIT TRANSMISSION EVENT^^E^1^^^^^^^" ^ORD(101,3587,99)="59618,52037" ^ORD(101,3587,770)="102^103^61^59^^^192^1^1^5^1" ^ORD(101,3587,771)="" ^ORD(101,3587,772)="D ACK^SDRPA06" ^ORD(101,3587,773)="0^0" ^ORD(101,3587,775,0)="^101.0775PA^1^1" ^ORD(101,3587,775,1,0)="3588" ^ORD(101,3587,775,"B",3588,1)="" ^ORD(101,3588,0)="SD-PAIT-SUBS^SC PAIT SUBSCRIBERS^^S^1^^^^^^^" ^ORD(101,3588,99)="59618,52037" ^ORD(101,3588,770)="^103^^59^^^192^^^^1" ^ORD(101,3588,773)="1^1^0" ^ORD(101,3588,774)="" ^ORD(101,3589,0)="GMRA FIX FREE TEXT LIST^Free text entries^^M^1^^^^^^^" ^ORD(101,3589,4)="25^4" ^ORD(101,3589,10,0)="^101.01PA^4^4" ^ORD(101,3589,10,1,0)="3590^AE^^" ^ORD(101,3589,10,2,0)="3591^EE^^" ^ORD(101,3589,10,3,0)="3592^DD^^" ^ORD(101,3589,10,4,0)="3595^UR^^" ^ORD(101,3589,10,"B",3590,1)="" ^ORD(101,3589,10,"B",3591,2)="" ^ORD(101,3589,10,"B",3592,3)="" ^ORD(101,3589,10,"B",3595,4)="" ^ORD(101,3589,15)="" ^ORD(101,3589,20)="D:'$D(^XTMP(""GMRAFX"",LTYPE,""IDX"")) LIST^GMRAFX D CHKSEL^GMRAFX" ^ORD(101,3589,26)="D PHDR^GMRAFX" ^ORD(101,3589,99)="60531,6995" ^ORD(101,3590,0)="GMRA FIX ADD/EDIT ALLERGY FILE^Add/Edit Allergy File^^A^1^^^^^^^" ^ORD(101,3590,15)="D DESELECT^GMRAFX" ^ORD(101,3590,20)="D AEA^GMRAFX" ^ORD(101,3590,99)="59534,59548" ^ORD(101,3591,0)="GMRA FIX ENTERED IN ERROR^Mark entered in error^^A^1^^^^^^^" ^ORD(101,3591,15)="D DESELECT^GMRAFX" ^ORD(101,3591,20)="D PROCESS^GMRAFX(""E"")" ^ORD(101,3591,99)="59534,59548" ^ORD(101,3592,0)="GMRA FIX DETAIL LIST^Detailed Display^^A^1^^^^^^^" ^ORD(101,3592,15)="D DESELECT^GMRAFX" ^ORD(101,3592,20)="D EN^VALM(""GMRA FIX DETAIL"")" ^ORD(101,3592,99)="59534,59548" ^ORD(101,3593,0)="GMRA FIX DETAIL MENU^^^M^1^^^^^^^" ^ORD(101,3593,4)="27^4" ^ORD(101,3593,10,0)="^101.01PA^5^5" ^ORD(101,3593,10,1,0)="3594^EE^1^" ^ORD(101,3593,10,2,0)="3596^UR^2^" ^ORD(101,3593,10,3,0)="3597^AE^3^" ^ORD(101,3593,10,4,0)="3598^PR^4^" ^ORD(101,3593,10,5,0)="3599^DD^5^" ^ORD(101,3593,10,"B",3594,1)="" ^ORD(101,3593,10,"B",3596,2)="" ^ORD(101,3593,10,"B",3597,3)="" ^ORD(101,3593,10,"B",3598,4)="" ^ORD(101,3593,10,"B",3599,5)="" ^ORD(101,3593,15)="" ^ORD(101,3593,20)="D DET^GMRAFX1,CHKSEL^GMRAFX1" ^ORD(101,3593,26)="D PHDR^GMRAFX1" ^ORD(101,3593,99)="60531,6995" ^ORD(101,3594,0)="GMRA FIX ENTERED IN ERROR IN DETAIL^Entered in Error^^A^1^^^^^^^" ^ORD(101,3594,15)="D DESELECT^GMRAFX1" ^ORD(101,3594,20)="D PROCESS^GMRAFX1(""E"")" ^ORD(101,3594,99)="59534,59548" ^ORD(101,3595,0)="GMRA FIX UPDATE REACTANT^Update to new reactant^^A^1^^^^^^^" ^ORD(101,3595,15)="D DESELECT^GMRAFX" ^ORD(101,3595,20)="D PROCESS^GMRAFX(""U"")" ^ORD(101,3595,99)="59534,59548" ^ORD(101,3596,0)="GMRA FIX UPDATE REACTANT IN DETAIL^Update to new reactant^^A^1^^^^^^^" ^ORD(101,3596,15)="D DESELECT^GMRAFX1" ^ORD(101,3596,20)="D PROCESS^GMRAFX1(""U"")" ^ORD(101,3596,99)="59534,59548" ^ORD(101,3597,0)="GMRA FIX ADD/EDIT ALLERGY FILE IN DETAIL^Add/Edit Allergy File^^A^1^^^^^^^" ^ORD(101,3597,15)="D DESELECT^GMRAFX1" ^ORD(101,3597,20)="D AEA^GMRAFX" ^ORD(101,3597,99)="59534,59548" ^ORD(101,3598,0)="GMRA FIX PATIENT A/AR EDIT IN DETAIL^Add/Edit Patient Reaction^^A^1^^^^^^^" ^ORD(101,3598,15)="D DESELECT^GMRAFX1" ^ORD(101,3598,20)="D AR^GMRAFX3" ^ORD(101,3598,99)="59534,59548" ^ORD(101,3599,0)="GMRA FIX DETAIL IN DETAIL^Allergy Detailed Display^^A^1^^^^^^^" ^ORD(101,3599,15)="D DESELECT^GMRAFX1" ^ORD(101,3599,20)="D DSPREACT^GMRAFX3" ^ORD(101,3599,99)="60531,6995" ^ORD(101,3600,0)="PSO TPB SD SUB^^^A^1^^^^^^^" ^ORD(101,3600,20)="D EN^PSOTPINA" ^ORD(101,3600,99)="59565,54971" ^ORD(101,3601,0)="HLEM EVENTS MENU^HL7 Monitor Events Log Menu^^M^1^^^^^^^33" ^ORD(101,3601,1,0)="^101.06^2^2^3031008^^^^" ^ORD(101,3601,1,1,0)="This protocol menu contains all the activities for acting on lists of" ^ORD(101,3601,1,2,0)="HL7 Monitor Events." ^ORD(101,3601,4)="26^4" ^ORD(101,3601,10,0)="^101.01PA^6^6" ^ORD(101,3601,10,1,0)="3602^SP^1^^^Select Profile" ^ORD(101,3601,10,2,0)="3604^DE^2^^^Display Event" ^ORD(101,3601,10,3,0)="3608^GO^3^^^Goto Site" ^ORD(101,3601,10,4,0)="3611^ST^4^^^Statistics" ^ORD(101,3601,10,5,0)="3612^NP^5^^^New Profile" ^ORD(101,3601,10,6,0)="3613^EP^6^^^Edit Profile" ^ORD(101,3601,10,"B",3602,1)="" ^ORD(101,3601,10,"B",3604,2)="" ^ORD(101,3601,10,"B",3608,3)="" ^ORD(101,3601,10,"B",3611,4)="" ^ORD(101,3601,10,"B",3612,5)="" ^ORD(101,3601,10,"B",3613,6)="" ^ORD(101,3601,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3601,26)="D SHOW^VALM" ^ORD(101,3601,28)="Select Action:" ^ORD(101,3601,99)="59596,68800" ^ORD(101,3602,0)="HLEM SELECT PROFILE^SELECT PROFILE^^A^1^^^^^^^33" ^ORD(101,3602,1,0)="^^2^2^3030730^" ^ORD(101,3602,1,1,0)="This ListManager protocol allows the user to select the HL7 Monitor Events" ^ORD(101,3602,1,2,0)="Profile to use while working with HL7 Monitor Events Log." ^ORD(101,3602,2,0)="^101.02A^1^1" ^ORD(101,3602,2,1,0)="SP" ^ORD(101,3602,2,"B","SP",1)="" ^ORD(101,3602,20)="D SELECT^HLEMSL1" ^ORD(101,3602,24)="N A I $$FINDALL^HLEMP1($G(DUZ),""A"")>1" ^ORD(101,3602,99)="59596,68800" ^ORD(101,3603,0)="HLEM SINGLE EVENT MENU^HLEM SINGLE EVENT MENU^^M^1^^^^^^^33" ^ORD(101,3603,1,0)="^101.06^2^2^3030731^^^^" ^ORD(101,3603,1,1,0)="This protocol menu contains all the activities for acting on a single" ^ORD(101,3603,1,2,0)="HL7 Monitor Event." ^ORD(101,3603,4)="26^4" ^ORD(101,3603,10,0)="^101.01PA^3^3" ^ORD(101,3603,10,1,0)="3605^E^3^^^Edit Event" ^ORD(101,3603,10,2,0)="3606^H^6^^^Help" ^ORD(101,3603,10,3,0)="3607^V^3^^^View App's Data" ^ORD(101,3603,10,"B",3605,1)="" ^ORD(101,3603,10,"B",3606,2)="" ^ORD(101,3603,10,"B",3607,3)="" ^ORD(101,3603,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3603,26)="D SHOW^VALM" ^ORD(101,3603,28)="Select Action:" ^ORD(101,3603,99)="59596,68800" ^ORD(101,3604,0)="HLEM DISPLAY EVENT^HLEM DISPLAY EVENT^^A^1^^^^^^^33" ^ORD(101,3604,1,0)="^101.06^2^2^3030731^^" ^ORD(101,3604,1,1,0)="This ListManager protocol allows the user to select the a single HL7" ^ORD(101,3604,1,2,0)="Monitor Event for display and editing." ^ORD(101,3604,2,0)="^101.02A^1^1" ^ORD(101,3604,2,1,0)="DE" ^ORD(101,3604,2,"B","DE",1)="" ^ORD(101,3604,20)="D SELECTE^HLEMSL1" ^ORD(101,3604,99)="59596,68800" ^ORD(101,3604,101.04)="^^^^" ^ORD(101,3605,0)="HLEM EDIT EVENT^EDIT EVENT^^A^1^^^^^^^33" ^ORD(101,3605,1,0)="^^1^1^3030801^" ^ORD(101,3605,1,1,0)="Allows an event to be updated with notes and review status." ^ORD(101,3605,2,0)="^101.02A^1^1" ^ORD(101,3605,2,1,0)="EE" ^ORD(101,3605,2,"B","EE",1)="" ^ORD(101,3605,20)="D EDIT^HLEMSE1($G(EVENT(""IEN"")))" ^ORD(101,3605,99)="59596,68800" ^ORD(101,3606,0)="HLEM EVENT HELP^HELP^^A^1^^^^^^^33" ^ORD(101,3606,1,0)="^^2^2^3030801^" ^ORD(101,3606,1,1,0)="Provides detailed information and instructions for an event based on the even" ^ORD(101,3606,1,2,0)="type." ^ORD(101,3606,2,0)="^101.02A^1^1" ^ORD(101,3606,2,1,0)="EH" ^ORD(101,3606,2,"B","EH",1)="" ^ORD(101,3606,4)="^^^HLEM EVENT HELP" ^ORD(101,3606,20)="D HELP^HLEMSE1($G(EVENT(""TYPE"")))" ^ORD(101,3606,99)="59596,68800" ^ORD(101,3607,0)="HLEM DISPLAY APPLICATION DATA^APPLICATION DATA^^A^1^^^^^^^33" ^ORD(101,3607,1,0)="^^1^1^3030801^" ^ORD(101,3607,1,1,0)="Displays application-specfic data that is associated with the event." ^ORD(101,3607,2,0)="^101.02A^1^1" ^ORD(101,3607,2,1,0)="AD" ^ORD(101,3607,2,"B","AD",1)="" ^ORD(101,3607,20)="D APPDATA^HLEMSE1($G(EVENT(""IEN"")))" ^ORD(101,3607,24)="I $G(EVENT(""IEN"")),$O(^HLEV(776.4,EVENT(""IEN""),3,0))" ^ORD(101,3607,99)="59596,68800" ^ORD(101,3608,0)="HLEM GOTO SITE^GOTO SITE^^A^1^^^^^^^33" ^ORD(101,3608,1,0)="^101.06^1^1^3031008^^^" ^ORD(101,3608,1,1,0)="Allows a user to select a site and jumps the screen to that site." ^ORD(101,3608,2,0)="^101.02A^2^1" ^ORD(101,3608,2,2,0)="GO" ^ORD(101,3608,2,"B","GO",2)="" ^ORD(101,3608,20)="D GOSITE^HLEMSL1" ^ORD(101,3608,24)="I $$CNTSITES^HLEMSL1>1" ^ORD(101,3608,99)="59596,68800" ^ORD(101,3609,0)="HLEM EVENT STATISTICS MENU^EVENT STATISTICS MENU^^M^1^^^^^^^33" ^ORD(101,3609,1,0)="^101.06^2^2^3031015^^^^" ^ORD(101,3609,1,1,0)="This protocol menu contains all the activities for viewing HL7 Event Log" ^ORD(101,3609,1,2,0)="Statistics." ^ORD(101,3609,4)="26^4" ^ORD(101,3609,10,0)="^101.01PA^5^5" ^ORD(101,3609,10,3,0)="3608^GO^1^^^Goto Site" ^ORD(101,3609,10,4,0)="3610^SP^2^^^Select Profile" ^ORD(101,3609,10,5,0)="3614^CD^3^^^Change Date Range" ^ORD(101,3609,10,"B",3608,3)="" ^ORD(101,3609,10,"B",3610,4)="" ^ORD(101,3609,10,"B",3614,5)="" ^ORD(101,3609,20)="" ^ORD(101,3609,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^"",1),24)) ^(24)" ^ORD(101,3609,26)="D SHOW^VALM" ^ORD(101,3609,28)="Select Action:" ^ORD(101,3609,99)="59596,68800" ^ORD(101,3610,0)="HLEM SELECT PROFILE (STATS)^SELECT PROFILE^^A^1^^^^^^^33" ^ORD(101,3610,1,0)="^101.06^3^3^3031008^^^" ^ORD(101,3610,1,1,0)="This ListManager protocol allows the user to select the HL7 Monitor Events" ^ORD(101,3610,1,2,0)="Profile to use while working with HL7 Monitor Events Log. Called from within" ^ORD(101,3610,1,3,0)="the Statistics screen." ^ORD(101,3610,2,0)="^101.02A^1^1" ^ORD(101,3610,2,1,0)="SP" ^ORD(101,3610,2,"B","SP",1)="" ^ORD(101,3610,4)="^^^SP" ^ORD(101,3610,20)="D SELECT^HLEMST" ^ORD(101,3610,99)="59596,68800" ^ORD(101,3611,0)="HLEM STATISTICS^STATISTICS^^A^1^^^^^^^33" ^ORD(101,3611,1,0)="^^1^1^3031008^" ^ORD(101,3611,1,1,0)="This action will display the statistics menu." ^ORD(101,3611,2,0)="^101.02A^1^1" ^ORD(101,3611,2,1,0)="ST" ^ORD(101,3611,2,"B","ST",1)="" ^ORD(101,3611,4)="^^^ST" ^ORD(101,3611,20)="D EN^HLEMST" ^ORD(101,3611,99)="59596,68800" ^ORD(101,3612,0)="HLEM NEW PROFILE^NEW PROFILE^^A^1^^^^^^^33" ^ORD(101,3612,1,0)="^101.06^2^2^3031008^^" ^ORD(101,3612,1,1,0)="This ListManager protocol allows the user to create a new HL7 Monitor Events" ^ORD(101,3612,1,2,0)="Profile to use while working with HL7 Monitor Events Log." ^ORD(101,3612,2,0)="^101.02A^2^1" ^ORD(101,3612,2,2,0)="NEW" ^ORD(101,3612,2,"B","NEW",2)="" ^ORD(101,3612,20)="D NEW^HLEMSL1" ^ORD(101,3612,99)="59596,68800" ^ORD(101,3613,0)="HLEM EDIT PROFILE^EDIT PROFILE^^A^1^^^^^^^33" ^ORD(101,3613,1,0)="^101.06^2^2^3031008^^" ^ORD(101,3613,1,1,0)="This ListManager protocol allows the user to select the HL7 Monitor Events" ^ORD(101,3613,1,2,0)="Profile to edit." ^ORD(101,3613,2,0)="^101.02A^2^1" ^ORD(101,3613,2,2,0)="EP" ^ORD(101,3613,2,"B","EP",2)="" ^ORD(101,3613,20)="D EDIT^HLEMSL1" ^ORD(101,3613,24)="" ^ORD(101,3613,99)="59596,68800" ^ORD(101,3614,0)="HLEM CHANGE DATE RANGE^CHANGE DATE RANGE^^A^1^^^^^^^33" ^ORD(101,3614,1,0)="^101.06^3^3^3031015^^^^" ^ORD(101,3614,1,1,0)="This ListManager protocol allows the user to select the starting date to use" ^ORD(101,3614,1,2,0)="while working with HL7 Monitor Events Log. Called from withinthe Statistics" ^ORD(101,3614,1,3,0)="screen." ^ORD(101,3614,2,0)="^101.02A^1^1" ^ORD(101,3614,2,1,0)="CD" ^ORD(101,3614,2,"B","CD",1)="" ^ORD(101,3614,4)="^^^SP" ^ORD(101,3614,20)="D CHNGDATE^HLEMST" ^ORD(101,3614,99)="59596,68800" ^ORD(101,3617,0)="SD ENC PERF MON ORU-R01 SERVER^Event Driver for Performance Monitor^^E^1^^^^^^^" ^ORD(101,3617,1,0)="^^2^2^3040324^" ^ORD(101,3617,1,1,0)="HL7 event driver (server) protocol for transmission of Enounter " ^ORD(101,3617,1,2,0)="Performance Monitor summary data to Austin Automation Center." ^ORD(101,3617,99)="59652,53660" ^ORD(101,3617,770)="104^^3^46^53^^^3^1^5^" ^ORD(101,3617,772)="D ACKR01^SDPMHLA" ^ORD(101,3617,775,0)="^101.0775PA^1^1" ^ORD(101,3617,775,1,0)="3618" ^ORD(101,3617,775,"B",3618,1)="" ^ORD(101,3618,0)="SD ENC PERF MON ORU-R01 CLIENT^HL7 subscriber (client) protocol^^S^1^^^^^^^" ^ORD(101,3618,1,0)="^^2^2^3040324^" ^ORD(101,3618,1,1,0)="HL7 subscriber (client) protocol for transmission of Encounter " ^ORD(101,3618,1,2,0)="Performance Monitor summary data to Austin Automation Center." ^ORD(101,3618,99)="59652,53660" ^ORD(101,3618,770)="^105^^46^^^196^^^^1" ^ORD(101,3618,771)="" ^ORD(101,3618,773)="1^1^0" ^ORD(101,3619,0)="TIU ACTION DICTATE DOCUMENTS^Document(s) Dictated^^A^1^^^^^^^163" ^ORD(101,3619,.1)="Dictate" ^ORD(101,3619,1,0)="^^4^4^3010501^" ^ORD(101,3619,1,1,0)="Allows users to mark documents as ""Dictated/Not Transcribed.""" ^ORD(101,3619,1,2,0)=" " ^ORD(101,3619,1,3,0)="NOTE: This step is only applicable when an UNDICTATED document is created" ^ORD(101,3619,1,4,0)="in anticipation of Dictation/Transcription and Upload." ^ORD(101,3619,20)="D DICTATED^TIURA2" ^ORD(101,3619,24)="I '$G(TIUGLINK)" ^ORD(101,3619,99)="59652,54189" ^ORD(101,3620,0)="TIU BROWSE ACTION DOCUMENT DICTATED^Dictation Finished^^A^1^^^^^^^163" ^ORD(101,3620,1,0)="^^1^1^2980305^" ^ORD(101,3620,1,1,0)="Allows MIS clerks to mark current document as ""signed on chart.""" ^ORD(101,3620,20)="D DICTATE1^TIURA2(TIUDA)" ^ORD(101,3620,99)="59652,54189" ^ORD(101,3621,0)="TIU ACTION MENU DICTATION^Select Action^^M^1^^^^^^^163" ^ORD(101,3621,1,0)="^101.06^1^1^3010601^^^" ^ORD(101,3621,1,1,0)="Menu of actions supporting dictation. " ^ORD(101,3621,4)="26" ^ORD(101,3621,10,0)="^101.01PA^10^8" ^ORD(101,3621,10,1,0)="1755^^7^" ^ORD(101,3621,10,2,0)="1757^^3^" ^ORD(101,3621,10,5,0)="3619^^5^" ^ORD(101,3621,10,6,0)="1761^^11^" ^ORD(101,3621,10,7,0)="1762^^9^" ^ORD(101,3621,10,10,0)="1931^^1^" ^ORD(101,3621,10,"B",1755,1)="" ^ORD(101,3621,10,"B",1757,2)="" ^ORD(101,3621,10,"B",1761,6)="" ^ORD(101,3621,10,"B",1762,7)="" ^ORD(101,3621,10,"B",1931,10)="" ^ORD(101,3621,10,"B",3619,5)="" ^ORD(101,3621,20)="S XQORM(""SH"")=0 S:$G(VALMSG)'[""*"" VALMSG=""+ Next Screen - Prev Screen ?? More Actions"",VALM(""MAX"")=+$G(VALMCNT)" ^ORD(101,3621,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,3621,26)="S XQORM(""#"")=$G(^TMP(""TIUR"",$J,""#"")) D RESIZE^TIULM(21,18),SHOW^VALM K XQORM(""XLATE"",""FIND"")" ^ORD(101,3621,28)="Select Action: " ^ORD(101,3621,99)="59970,46882" ^ORD(101,3622,0)="TIU BROWSE MENU DICTATION^Dictation Menu^^M^1^^^^^^^163" ^ORD(101,3622,1,0)="^101.06^1^1^3010601^^" ^ORD(101,3622,1,1,0)="Menu of actions supporting dictatation." ^ORD(101,3622,4)="26" ^ORD(101,3622,10,0)="^101.01PA^8^6" ^ORD(101,3622,10,3,0)="1780^^3^" ^ORD(101,3622,10,4,0)="1761^^6^" ^ORD(101,3622,10,5,0)="1782^^1^" ^ORD(101,3622,10,8,0)="3620^^5^" ^ORD(101,3622,10,"B",1761,4)="" ^ORD(101,3622,10,"B",1780,3)="" ^ORD(101,3622,10,"B",1782,5)="" ^ORD(101,3622,10,"B",3620,8)="" ^ORD(101,3622,15)="S:$D(DIROUT) TIUQUIT=1" ^ORD(101,3622,20)="S VALMSG=""+ Next Screen - Prev Screen ?? More Actions""" ^ORD(101,3622,24)="I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),""^""),24)) ^(24)" ^ORD(101,3622,26)="D RESIZE^TIULM(21,18),SHOW^VALM S XQORM(""B"")=$S(VALMLST